(* *)
(***********************************************************************)
+(*
+ Time-stamp: <Last modified on 2013-01-30 19:06:51 CET by Kim Nguyen>
+*)
+
type node = {
tag : QName.t;
preorder : int;
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
+ end_element_handler parser_ ctx text_string
+
let character_data_handler parser_ ctx text =