close_tag b atname
let start_element_handler parser_ b t tag attr_list =
- display_count parser_;
do_text b t;
open_tag b tag;
match attr_list with
let end_element_handler parser_ b t tag =
- display_count parser_;
do_text b t;
close_tag b tag
let character_data_handler parser_ _ t text =
- display_count parser_;
Buffer.add_string t text
let create_parser () =