(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-04 21:59:38 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-04 23:40:26 CET by Kim Nguyen>
*)
open Utils
if n.next_sibling != dummy then
let _ = pop ctx in consume_closing ctx (top ctx)
- and end_element_handler parser_ ctx tag =
+ and end_element_handler parser_ ctx _ =
do_text parser_ ctx;
let node = top ctx in
if node.first_child == dummy then node.first_child <- nil
- let character_data_handler parser_ ctx text =
+ let character_data_handler _parser ctx text =
Buffer.add_string ctx.text_buffer text
let create_parser () =