(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-02-14 16:45:52 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-04 16:24:20 CET by Kim Nguyen>
*)
open Utils
print_expr fmt e0;
if need_par0 then pp fmt ")"
+
+
+let invert_axis = function
+| Self | Attribute as a -> a
+| Child -> Parent
+| Descendant (b) -> Ancestor (b)
+| FollowingSibling -> PrecedingSibling
+| Parent -> Child
+| Ancestor (b) -> Descendant (b)
+| PrecedingSibling -> FollowingSibling
+| Preceding -> Following
+| Following -> Preceding
+;;
+