projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove the timestamp header in source files. This information is
[tatoo.git]
/
src
/
xpath
/
ulexer.ml
diff --git
a/src/xpath/ulexer.ml
b/src/xpath/ulexer.ml
index
3e71c5a
..
baa794d
100644
(file)
--- a/
src/xpath/ulexer.ml
+++ b/
src/xpath/ulexer.ml
@@
-13,10
+13,6
@@
(* *)
(***********************************************************************)
(* *)
(***********************************************************************)
-(*
- Time-stamp: <Last modified on 2013-03-10 14:34:41 CET by Kim Nguyen>
-*)
-
open Xpath_internal_parser
module L = Ulexing
open Xpath_internal_parser
module L = Ulexing
@@
-121,10
+117,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