projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
solve.ml solves series of queries and ouptut onlt selected nodes + examples from...
[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
end
-let parse = Parser.parse
+let parse_string = Parser.parse_string
+let parse_file = Parser.parse_file