X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fparser.ml;h=ba99fede50985a6d507b407d9def02f50c923535;hp=ed5283e933fa09aed9b97c4b57fc92fbbfe31022;hb=41dd1fed04cabad212f10fce3484545f6e9d9444;hpb=30bc0bb1291426e5e26eb2dee1ffc41e4c246349 diff --git a/src/xpath/parser.ml b/src/xpath/parser.ml index ed5283e..ba99fed 100644 --- a/src/xpath/parser.ml +++ b/src/xpath/parser.ml @@ -13,12 +13,12 @@ (* *) (***********************************************************************) -(* - Time-stamp: -*) - include Xpath_internal_parser let parse (l : Ulexing.lexbuf) = - xpath_query (fun _ -> Ulexer.token l) (Lexing.from_string "!!dummy!!") + try + xpath_query (fun _ -> Ulexer.token l) (Lexing.from_string "!!dummy!!") + with + Parsing.Parse_error -> + Ulexer.error (Ulexing.lexeme_start l) (Ulexing.lexeme_end l) "syntax error"