Commit b8fac4e9 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-04-14 17:13:19 by cmiachon] bug corrige sur /@

Original author: cmiachon
Date: 2004-04-14 17:13:19+00:00
parent 07e48e06
......@@ -49,8 +49,8 @@ EXTEND
let tag = mk loc (Internal(Types.atom Atoms.any)) in
let any = mk loc (Internal(Types.any)) in
let att = mk loc (Record(true,[(label a,mk loc (PatVar(U.mk "$$$")))]))in
let ct= mk loc (Regexp(Elem any , any)) in
let p = mk loc(XmlT (tag,multi_prod loc[att;ct])) in
(*let ct= mk loc (Regexp(Elem any , any)) in *)
let p = mk loc(XmlT (tag,multi_prod loc[att;any])) in
let t =(p, Pair(Var (Id.value id_dummy),cst_nil))
in exp loc (Transform (e,[t]))
| e = expr; "//" ; p = pat -> (* projections sur tous les descendants *)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment