Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
∗/
makeTYPINGSEntrance : TypeDef → TYPINGS
makeTYPINGSEntrance(td) ≡
case td of
SortDef(id) → [ id ↦→ 〈〉 ],
VariantDef(id, vl) →
[ id ↦→ getTYPINGSVariantList(vl) ],
ShortRecordDef(id, ckl) →
[ id ↦→ getTYPINGSComponentKindList(ckl) ],
AbbreviationDef(id, te) →
[ id ↦→ getTYPINGSTypeExpr(te) ]
end,
/∗Gets an id list to the TYPINGS map from a variant
list.∗/
/∗
Arguments:
=======
vl: the variant list
Results:
=====
Id_list: the resulting list of ids
∗/
getTYPINGSVariantList : Variant ∗ → Id ∗
getTYPINGSVariantList(vl) ≡
if vl = 〈〉 then 〈〉
else
removeDupletsId(
getTYPINGSVariant(hd vl)
getTYPINGSVariantList(tl vl))
end,
/∗Gets an id list to the TYPINGS map from a variant.
∗/
/∗
Arguments:
=======
v: the variant
Results:
=====
Id_list: the resulting list of ids
∗/
getTYPINGSVariant : Variant → Id ∗
getTYPINGSVariant(v) ≡
282