(* *)
(***********************************************************************)
-(*
- Time-stamp: <Last modified on 2013-03-13 10:34:14 CET by Kim Nguyen>
-*)
-
open Xpath_internal_parser
module L = Ulexing
| ">=" -> GTE
| "=" -> EQ
| "!=" -> NEQ
+ | ".." -> DOTDOT
+ | "." -> DOT
| "node()" -> NODE
| "text()" -> TEXT
| "comment()" -> COMMENT
- | '@' ncname -> ATTNAME (L.utf8_lexeme lexbuf)
+ | '@' ncname -> let l = L.utf8_lexeme lexbuf in
+ ATTNAME (String.sub l 1 (String.length l - 1))
| "processing-instruction()" -> PI ""
| "processing-instruction('"ncname"')"
| "processing-instruction(\""ncname"\")"->