Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
CheckLetDefList(ldl, typings, func, trans, env, types) ≡
if ldl = 〈〉 then (true, env, types)
else
let
(b, env ′ , types ′ ) =
CheckLetDef(
hd ldl, typings, func, trans, env, types)
in
if b
then
CheckLetDefList(
tl ldl, typings, func, trans, env ′ , types ′ )
else (b, env ′ , types ′ )
end
end
end,
/∗Checks for transformability of a list of let
definition.
∗/
/∗
Arguments:
=======
ld: the let definition
Results:
=======
Bool: true if the let defition can be transformed,
false otherwise
∗/
CheckLetDef :
LetDef × TYPINGS × FUNC × TRANS × ENV × TYPES →
Bool × ENV × TYPES
CheckLetDef(ld, typings, func, trans, env, types) ≡
let
(bb, envb, types ′ ) =
CheckLetBinding(
binding(ld), typings, func, trans, env, types)
in
if ∼ bb then (false, env, types)
else
case value_expr(ld) of
ApplicationExpr(ve, vel) →
case ve of
Make_ValueOrVariableName(vn) →
175