(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-01-30 19:06:57 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-02-05 14:39:43 CET by Kim Nguyen>
*)
(** use: xml_file "XPath querie"
close_in fd; d
-let query =
+let query =
let arg2 = Sys.argv.(2) in
- Uparser.xpath Ulexer.token (Ulexing.from_latin1_string arg2)
+ XPath.Parser.parse (Ulexing.from_latin1_string arg2)
open Format