(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-13 10:59:20 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-04-18 11:22:00 CEST by Kim Nguyen>
*)
-open Utils
type path = single_path list
and single_path = Absolute of step list | Relative of step list
| PrecedingSibling
| Preceding | Following
-and test = QNameSet.t * Tree.Common.NodeKind.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
end
and print_test fmt (ts,kind) =
- let open Tree.Common.NodeKind in
+ let open Tree.NodeKind in
match kind with
Text -> pp fmt "%s" "text()"
| Element | Attribute ->