2 let p = Xpath.Parser.parse (Ulexing.from_utf8_string q) in
9 | Xpath.Ast.Relative l -> l
13 let _ = Format.flush_str_formatter () in
14 Xpath.Ast.print_step Format.str_formatter s;
15 Format.flush_str_formatter()) steps
18 | _ -> let _ = Format.flush_str_formatter () in
19 Xpath.Ast.print_path Format.str_formatter p;
20 [[ Format.flush_str_formatter() ]]
23 if Array.length Sys.argv <> 2 then exit 1
25 let l = parse Sys.argv.(1) in
26 List.iter (fun s -> Printf.printf "'%s' " s) (List.hd l);