*)
- 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