(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-02-07 10:31:01 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-09 16:56:45 CET by Kim Nguyen>
*)
open Ast
absolute_path:
SLASH relative_path { $2 }
-| SLASHSLASH relative_path { (DescendantOrSelf, node, []) :: $2 }
+| SLASHSLASH relative_path { $2 @ [(Descendant true, node, [])] }
;
relative_path:
step { [ $1 ] }
| relative_path SLASH step { $3 :: $1 }
| relative_path SLASHSLASH step { $3
- :: (DescendantOrSelf, node, [])
+ :: (Descendant true, node, [])
:: $1 }
;