projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use the Remakefile to perform non-regression tests.
[tatoo.git]
/
src
/
xpath
/
ulexer.ml
diff --git
a/src/xpath/ulexer.ml
b/src/xpath/ulexer.ml
index
3e71c5a
..
7a7d2a7
100644
(file)
--- a/
src/xpath/ulexer.ml
+++ b/
src/xpath/ulexer.ml
@@
-14,7
+14,7
@@
(***********************************************************************)
(*
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-1
0 14:34:41
CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-1
3 14:14:15
CET by Kim Nguyen>
*)
open Xpath_internal_parser
*)
open Xpath_internal_parser
@@
-121,10
+121,17
@@
let rec token = lexer
| ">=" -> GTE
| "=" -> EQ
| "!=" -> NEQ
| ">=" -> GTE
| "=" -> EQ
| "!=" -> NEQ
+ | ".." -> DOTDOT
+ | "." -> DOT
| "node()" -> NODE
| "text()" -> TEXT
| "node()" -> NODE
| "text()" -> TEXT
+ | "comment()" -> COMMENT
| '@' ncname -> ATTNAME (L.utf8_lexeme lexbuf)
| '@' ncname -> ATTNAME (L.utf8_lexeme lexbuf)
-
+ | "processing-instruction()" -> PI ""
+ | "processing-instruction('"ncname"')"
+ | "processing-instruction(\""ncname"\")"->
+ let s = L.utf8_lexeme lexbuf in
+ PI (String.sub s 24 (String.length s - 26))
| ncname -> keyword_or_tag (L.utf8_lexeme lexbuf)
| float ->
let s = L.utf8_lexeme lexbuf in
| ncname -> keyword_or_tag (L.utf8_lexeme lexbuf)
| float ->
let s = L.utf8_lexeme lexbuf in