X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fast.mli;h=78dd7bbaf2bc23308f2acdc83ed03c50a7a78270;hp=7cc91e4e5f28d53172c707ea40369ccc2f22ddea;hb=b00bff88c7902e828804c06b7f9dc55222fdc84e;hpb=f49a93deba13602e16a3923695281e9a20215ac8

diff --git a/src/xpath/ast.mli b/src/xpath/ast.mli
index 7cc91e4..78dd7bb 100644
--- a/src/xpath/ast.mli
+++ b/src/xpath/ast.mli
@@ -14,7 +14,7 @@
 (***********************************************************************)
 
 (*
-  Time-stamp: <Last modified on 2013-03-04 16:24:33 CET by Kim Nguyen>
+  Time-stamp: <Last modified on 2013-04-04 18:41:03 CEST by Kim Nguyen>
 *)
 
 type path = single_path list
@@ -28,21 +28,21 @@ and axis = Self | Attribute | Child
            | PrecedingSibling
            | Preceding | Following
 
-and test = Utils.QNameSet.t
+and test = QNameSet.t * Tree.NodeKind.t
 
 and binop = Eq | Neq | Lt | Gt | Lte | Gte | Or | And | Add | Sub | Mult | Div | Mod
 and unop =  Neg
 and expr =
   | Number of [ `Int of int | `Float of float ]
   | String of string
-  | Fun_call of Utils.QName.t * expr list
+  | Fun_call of QName.t * expr list
   | Path of path
   | Binop of expr * binop * expr
   | Unop of unop * expr
 type t = path
-val text : Utils.QNameSet.t
-val node : Utils.QNameSet.t
-val star : Utils.QNameSet.t
+val text : QNameSet.t
+val node : QNameSet.t
+val star : QNameSet.t
 val print_binop : Format.formatter -> binop -> unit
 val print_unop : Format.formatter -> unop -> unit
 val print_path : Format.formatter -> path -> unit