X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fulexer.ml;fp=src%2Fxpath%2Fulexer.ml;h=2153e18f5fd04277d0c69954b8dae9fa37eaebcd;hp=aa66179b20e2bdb23b30a3e874660f59634b001c;hb=e13f5deae217f945b44fa345ef4f0008e1780787;hpb=fadcbf2f6f9f33b844fd5e875a1bda4bed446a43

diff --git a/src/xpath/ulexer.ml b/src/xpath/ulexer.ml
index aa66179..2153e18 100644
--- 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;