(************************************************************
   expat_test.ml	Created      : Fri Mar 14 18:53:47 2003
  			Last modified: Fri Mar 14 19:59:10 2003
  Compile: ocamlc expat.cma expat_test.ml -o expat_test #
  FTP Directory: sources/ocaml #
************************************************************)

let _ =
  let p = Expat.parser_create "UTF-8" in
  begin
    (* タグの中にある属性が、strlstに格納される *)
    Expat.set_start_element_handler p
      (fun s1 strlst -> print_endline s1;
	List.iter (fun (x,y) -> Printf.printf "\t%s\t%s\n" x y) strlst);
    (* タグに挟まれた文字列 *)
    Expat.set_character_data_handler p
      (fun x -> print_endline ("Charactor Data: "^x));
    Expat.set_processing_instruction_handler p
      (fun s1 s2 -> print_endline (s1 ^ "---- " ^ s2));
    Expat.parse p "<hoge hyo=\"mamewo\">moge</hoge>";
    Expat.final p;
  end