Add the compilation from existential XPath to automata.

[tatoo.git] / src / xpath / ulexer.ml

diff --git a/src/xpath/ulexer.ml b/src/xpath/ulexer.ml
index aa66179..2153e18 100644 (file)
--- a/src/xpath/ulexer.ml
+++ b/src/xpath/ulexer.ml
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-02-05 14:53:12 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-02-14 15:38:56 CET by Kim Nguyen>
 *)
 
 open Xpath_internal_parser
@@ -81,15 +81,15 @@ let keyword_or_tag s =
      try
        List.assoc s [
          "self", AXIS Ast.Self;
-         "descendant", AXIS Ast.Descendant;
+         "descendant", AXIS (Ast.Descendant false);
          "child", AXIS Ast.Child;
-         "descendant-or-self", AXIS Ast.DescendantOrSelf;
+         "descendant-or-self", AXIS (Ast.Descendant true);
          "attribute", AXIS Ast.Attribute;
          "following-sibling", AXIS Ast.FollowingSibling;
          "preceding-sibling", AXIS Ast.PrecedingSibling;
          "parent", AXIS Ast.Parent;
-         "ancestor", AXIS Ast.Ancestor;
-         "ancestor-or-self", AXIS Ast.AncestorOrSelf;
+         "ancestor", AXIS (Ast.Ancestor false);
+         "ancestor-or-self", AXIS (Ast.Ancestor true);
          "preceding", AXIS Ast.Preceding;
          "following", AXIS Ast.Following;
          "and", AND;