Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
∗/
CheckElsif :
Elsif ∗ × ExpType × TYPINGS × FUNC × TRANS ×
ENV × TYPES →
Bool × ENV × TYPES
CheckElsif(eil, et, typings, func, trans, env, types) ≡
if eil = 〈〉 then (true, env, types)
else
let
(b1, env1, types1) =
CheckValueExpr(
condition(hd eil),
Known(TypeLiteral(BOOL)), typings, func,
trans, env, types),
(b2, env2, types2) =
CheckValueExpr(
elsif_case(hd eil), et, typings, func,
trans, env1, types1)
in
if (b1 ∧ b2)
then
CheckElsif(
tl eil, et, typings, func, trans, env1,
types2)
else (false, env1, types2)
end
end
end,
/∗Checks for transformability of a case branch
list.
∗/
/∗
Arguments:
=======
cbl: the case branch list
et: the expected type of the case expression
Results:
=======
Bool: true if the case branch list can be transformed,
false otherwise
∗/
CheckCaseBranchList :
CaseBranch ∗ × ExpType × TYPINGS × FUNC ×
179