Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
makeFuncMap : ValueDef ∗ × FUNC × TRANS → FUNC
makeFuncMap(vdl, func, trans) ≡
if vdl = 〈〉 then func
else
makeFuncMap(
tl vdl,
overrideFUNC(
func, getMapEntrance(hd vdl, trans)), trans)
end,
getMapEntrance : ValueDef × TRANS → FUNC
getMapEntrance(vd, trans) ≡
case vd of
ExplicitValueDef(st, ve) →
if
includesTRANSName(
Known(type_expr(st)), domainTRANS(trans))
then
case binding(st) of
IdBinding(id) →
mk_FUNC(
〈mk_FUNCMapEntrance(
id,
mk_FuncSpec(
FunctionTypeExpr(
TypeLiteral(UNIT),
TOTAL_FUNCTION_ARROW,
mk_ResultDesc(
NoReadAccessMode,
NoWriteAccessMode,
type_expr(st))), ve,
〈〉, 〈〉))〉),
Make_ProductBinding(pb) → mk_FUNC(〈〉)
end
else mk_FUNC(〈〉)
end,
ExplicitFunctionDef(st, ffa, ve, precond) →
case binding(st) of
IdBinding(id) →
mk_FUNC(
〈mk_FUNCMapEntrance(
id,
mk_FuncSpec(
456