- in let l = match p with
- | Absolute p | Relative p -> map_dir (Final,[]) p
- | AbsoluteDoS p ->
- let l = (map_dir (Final,[]) p)
- in ((DescendantOrSelf,TagSet.Xml.node,Expr True),dir (fst(List.hd l)))::l
- in ((Child,TagSet.Xml.node,Expr True),dir (fst(List.hd l)))::l
-
+ in
+ let l =
+ match p with
+ | Absolute p
+ | Relative p -> map_dir (Final,[]) p
+ | AbsoluteDoS p ->
+ let l = (map_dir (Final,[]) p)
+ in ((DescendantOrSelf,TagSet.Xml.node,Expr True),dir (fst(List.hd l)))::l
+ in ((Child,TagSet.Xml.node,Expr True),dir (fst(List.hd l)))::l
+