type index
-external build_lex_index : Tree.tree_pointer -> Tag.t -> index = "caml_build_lex_index"
+external build_lex_index : Tree.tree_pointer -> Tag.t -> Tag.t -> index = "caml_build_lex_index"
external print_lex_index : index -> unit = "caml_print_lex_index"
let main () =
- if Array.length Sys.argv != 3 then
+ if Array.length Sys.argv != 4 then
let () = Printf.eprintf "Error: invalid argument" in exit 1
else
let file = Sys.argv.(1) in
let () = Printf.eprintf "Error: unrecognized extension" in exit 2
in
Tag.init (Tree.tag_operations document);
- Printf.printf "Building lex index for tag %s\n%!" (Tag.to_string (Tag.tag Sys.argv.(2)));
- let index = build_lex_index (Tree.get_tree_pointer document) (Tag.tag Sys.argv.(2)) in
+ Printf.printf "Building lex index for tags %s, %s\n%!" (Tag.to_string (Tag.tag Sys.argv.(2)))
+ (Tag.to_string (Tag.tag Sys.argv.(3)));
+ let index = build_lex_index (Tree.get_tree_pointer document) (Tag.tag Sys.argv.(2)) (Tag.tag Sys.argv.(3)) in
Printf.printf "Printing lex index\n%!";
- print_lex_index index;
+ print_lex_index index;
exit 0