Safety before Techfest
[SXSI/xpathcomp.git] / ulexer.ml
index a6ea991..84ae969 100644 (file)
--- a/ulexer.ml
+++ b/ulexer.ml
@@ -188,7 +188,7 @@ let parse_char lexbuf base i =
 let rec token = lexer 
  | [' ' '\t'] -> token lexbuf
  | "text()" | "node()" | "and" | "not" | "or"
- | "contains" |  "contains_full" 
+ | "contains" |  "contains_full" | "endswith" | "startswith" | "equals" 
  | "self" | "descendant" | "child" | "descendant-or-self" 
  | "attribute" | "following-sibling" | "preceding-sibling"
  | "parent" | "ancestor" | "ancestor-or-self" | "preceding" | "following"