With -f, we can read the XPath query in a file.

[tatoo.git] / src / xPath.ml

diff --git a/src/xPath.ml b/src/xPath.ml
index cb3393f..7ebc135 100644 (file)
--- a/src/xPath.ml
+++ b/src/xPath.ml
@@ -366,6 +366,9 @@ END
 
 *)
 
-  let parse = Gram.parse_string query (Ulexer.Loc.mk "<string>")
+  let parse_string = Gram.parse_string query (Ulexer.Loc.mk "<string>")
+  let parse_file fd = parse_string (input_line fd)
+
 end
-let parse = Parser.parse
+let parse_string = Parser.parse_string
+let parse_file = Parser.parse_file