+ and do_text parser_ ctx =
+ if Buffer.length ctx.text_buffer != 0 then
+ let s = Buffer.contents ctx.text_buffer in
+ Buffer.clear ctx.text_buffer;
+ start_element_handler parser_ ctx text_string [];
+ let node = top ctx in
+ node.data <- s;
+ end_element_handler parser_ ctx text_string;
+ Format.eprintf "DEBUG: %a\n\n" debug_ctx ctx
+
+
+ let character_data_handler parser_ ctx text =
+ Buffer.add_string ctx.text_buffer text