Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
te: the type expression of the function argument
fa: the function arrow
rd: the result description of the function
Result:
=======
TypeExpr: the resulting imperative version of
the function definition
∗/
TRFunctionDef :
Id × TypeExpr × FunctionArrow × ResultDesc ×
FUNC × TRANS →
TypeExpr
TRFunctionDef(id, te, fa, rd, func, trans) ≡
let
rl = read_list(func(id)),
wl = write_list(func(id)),
te ′ = TRTypeExpr(id, te, func, trans),
rd ′ = TRTypeExpr(id, type_expr(rd), func, trans)
in
FunctionTypeExpr(
truncate(te ′ ), fa,
mk_ResultDesc(
makeReadAccessDesc(rl, trans),
makeWriteAccessDesc(wl, trans),
truncate(rd ′ )))
end,
/∗Transforms a formal function application.∗/
/∗
Arguments:
=======
ffa: the formal function application
Result:
=======
FormalFunctionApplication: the imperative version
of the formal function application
LetDef_list: the resulting let expression
∗/
TRFormalFuncAppl :
FormalFunctionApplication × FUNC × TRANS →
Bool × FormalFunctionApplication × ENV ×
TYPES × LetDef ∗
TRFormalFuncAppl(ffa, func, trans) ≡
case ffa of
188