Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
ValueExpr: the imperative version of the if expression
∗/
TRIfExpr :
IfExpr × ExpType × FUNC × TRANS × TYPES →
ValueExpr × TYPES
TRIfExpr(ie, et, func, trans, types) ≡
let
(ifcond, types1) =
TRValueExpr(
condition(ie), Known(TypeLiteral(BOOL)),
func, trans, types),
(ifcase, types2) =
TRValueExpr(if_case(ie), et, func, trans, types1),
(elsiflist, types3) =
TRElsif(elsif_list(ie), et, func, trans, types2),
(elsecase, types4) =
TRValueExpr(
else_case(ie), et, func, trans, types3)
in
(Make_IfExpr(
mk_IfExpr(ifcond, ifcase, elsiflist, elsecase)),
types4)
end,
/∗Transforms an elsif list.∗/
/∗
Arguments:
=======
eil: the elsif list
et: the expected type of the if expression
Result:
=======
Elsif_list: the imperative version of the elsif
list
∗/
TRElsif :
Elsif ∗ × ExpType × FUNC × TRANS × TYPES →
Elsif ∗ × TYPES
TRElsif(eil, et, func, trans, types) ≡
if eil = 〈〉 then (〈〉, types)
else
let
(ve1, types1) =
TRValueExpr(
216