Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
∗/
/∗
Arguments:
=======
bl: the binding list
Result:
=======
Binding: the corresponding binding
∗/
makeBinding : Binding ∗ → Binding
makeBinding(bl) ≡
if len bl = 1 then hd bl
else Make_ProductBinding(mk_ProductBinding(bl))
end,
/∗Makes a binding list from a value expression
list.∗/
/∗
Arguments:
=======
length: length of the binding list
counter: the number of bindings made so far
bl: the binding list
vel: the value expression list
Results:
=====
Binding_list: the resulting binding list
ValueExpr_list: the corresponding value expression
list
∗/
makeLetBinding :
Nat × Nat × Binding ∗ × ValueExpr ∗ →
Binding ∗ × ValueExpr ∗
makeLetBinding(length, counter, bl, vel) ≡
if length = 0 then (bl, vel)
else
let id = makeId(counter) in
makeLetBinding(
length − 1, counter + 1,
bl 〈IdBinding(id)〉,
vel
〈Make_ValueOrVariableName(
mk_ValueOrVariableName(id))〉)
end
273