Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
/∗Expands the FUNC map with read and write lists.
∗/
/∗
Arguments:
=======
vdl: the value definition list
∗/
expandFuncMap : ValueDef ∗ × FUNC × TRANS → FUNC
expandFuncMap(vdl, func, trans) ≡
if vdl = 〈〉 then func
else
expandFuncMap(
tl vdl,
func † expandMapEntrance(hd vdl, func, trans),
trans)
end,
/∗Expands the an entrance in the FUNC map with
read and write lists.∗/
/∗
Arguments:
=======
vd: the value definition
∗/
expandMapEntrance : ValueDef × FUNC × TRANS → FUNC
expandMapEntrance(vd, func, trans) ≡
case vd of
ExplicitValueDef(st, ve) →
if
includesTRANSName(
Known(type_expr(st)), dom trans)
then
case binding(st) of
IdBinding(id) →
[ id ↦→
mk_FuncSpec(
FunctionTypeExpr(
TypeLiteral(UNIT),
TOTAL_FUNCTION_ARROW,
mk_ResultDesc(
NoReadAccessMode,
NoWriteAccessMode, type_expr(st))
), ve, 〈〉,
291