Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
vel: the arguments of the function application
etl: the expected type of the arguments
Result:
=======
ValueExpr: the imperative version of the function
expression
∗/
TRFunctionAppl :
ValueExpr × ValueExpr ∗ × ExpType ∗ ×
FUNC × TRANS × TYPES →
ValueExpr
TRFunctionAppl(ve, vel, etl, func, trans, types) ≡
let
(b, vl) = makeLetBinding(len vel, 0, 〈〉, 〈〉),
vel ′ =
makeValueExprList(vel, etl, vl, trans, func)
in
ApplicationExpr(
ve,
〈LetExpr(
〈mk_LetDef(
MakeBinding(makeBinding(b)),
ProductExpr(vel))〉,
ProductExpr(vel ′ ))〉)
end,
/∗Removes arguments of the type of interest.∗/
/∗
Arguments:
=======
vel: the arguments of the function application
etl: the expected type of the arguments
Result:
=======
ValueExpr_list: the resulting value expression
list
∗/
removeTOI :
ValueExpr ∗ × ExpType ∗ × TRANS →
ValueExpr ∗
removeTOI(vel, etl, trans) ≡
if vel = 〈〉 then 〈〉
else
case hd etl of
209