Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
in
(LetExpr(ldl, ve ′ ), types ′′ )
end,
Make_IfExpr(ie) →
TRIfExpr(ie, et, func, trans, types),
CaseExpr(cond, cbl) →
let
(cond ′ , types ′ ) =
TRValueExpr(
cond, Unknown, func, trans, types),
(cbl ′ , types ′′ ) =
TRCaseBranchList(
cbl, et, func, trans, types ′ )
in
(CaseExpr(cond ′ , cbl ′ ), types ′′ )
end
end,
/∗Transforms a value expression list.∗/
/∗
Arguments:
=======
vel: the value expression list
et: the expected type of the value expression
list
Result:
=======
ValueExpr_list: the imperative version of the
value expression list
∗/
TRValueExprList :
ValueExpr ∗ × ExpType × FUNC × TRANS × TYPES →
ValueExpr ∗ × TYPES
TRValueExprList(vel, et, func, trans, types) ≡
if vel = 〈〉 then (〈〉, types)
else
let
(ve, types ′ ) =
TRValueExpr(
hd vel, getHead(et), func, trans, types),
(vel ′ , types ′′ ) =
TRValueExprList(
tl vel, getTail(et), func, trans, types ′ )
in
198