Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
overrideTYPES(
makeTYPESBinding(hd bl, hd etl, trans),
makeTYPESBindingList(tl bl, tl etl, trans))
end,
makeTYPESMap : Binding ∗ × TypeExpr → TYPES
makeTYPESMap(bl, te) ≡
if bl = 〈〉 then mk_TYPES(〈〉)
else
case hd bl of
IdBinding(id) →
overrideTYPES(
mk_TYPES(
〈mk_TYPESMapEntrance(hd bl, Known(te))〉
), makeTYPESMap(tl bl, te)),
Make_ProductBinding(bil) →
overrideTYPES(
makeTYPESMap(binding_list(bil), te),
makeTYPESMap(tl bl, te))
end
end,
alterTYPESMap : TYPES × LetDef ∗ → TYPES
alterTYPESMap(types, ldl) ≡
if ldl = 〈〉 then types
else
case binding(hd ldl) of
MakeBinding(b) →
case b of
IdBinding(id) →
alterTYPESMap(
overrideTYPES(
types,
mk_TYPES(
〈mk_TYPESMapEntrance(b, Unknown)
〉)), tl ldl),
Make_ProductBinding(bl) →
alterTYPESMap(
alterTYPESMapList(
types, binding_list(bl)), tl ldl)
end
end
end,
464