Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
condition(hd eil),
Known(TypeLiteral(BOOL)), func, trans, types
),
(ve2, types2) =
TRValueExpr(
elsif_case(hd eil), et, func, trans, types1),
(elsiftl, types3) =
TRElsif(tl eil, et, func, trans, types2)
in
(〈mk_Elsif(ve1, ve2)〉 elsiftl, types3)
end
end,
/∗Transforms a case branch list.∗/
/∗
Arguments:
=======
cbl: the case branch list
et: the expected type of the case expression
Results:
=======
CaseBranch_list: the imperative version of the
case branch list
∗/
TRCaseBranchList :
CaseBranch ∗ × ExpType × FUNC × TRANS × TYPES →
CaseBranch ∗ × TYPES
TRCaseBranchList(cbl, et, func, trans, types) ≡
if cbl = 〈〉 then (〈〉, types)
else
let
(p, types1) =
TRPattern(pattern(hd cbl), func, trans, types),
(ve, types2) =
TRValueExpr(
value_expr(hd cbl), et, func, trans, types1),
(cbl ′ , types3) =
TRCaseBranchList(
tl cbl, et, func, trans, types2)
in
(〈mk_CaseBranch(p, ve)〉 cbl ′ , types3)
end
end,
217