Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
/∗**** Bindings ****∗/
makeBinding : Binding ∗ → Binding
makeBinding(bl) ≡
if lengthBinding(bl) = 1 then hd bl
else Make_ProductBinding(mk_ProductBinding(bl))
end,
makeLetBinding :
Int × Int × Binding ∗ × ValueExpr ∗ →
BINDING_VE
makeLetBinding(length, counter, b, vel) ≡
if length = 0 then mk_BINDING_VE(b, vel)
else
makeLetBinding(
minusOne(length), counter + 1,
b 〈IdBinding(makeId(counter))〉,
vel
〈Make_ValueOrVariableName(
mk_ValueOrVariableName(makeId(counter)))〉)
end,
getLengthLetBinding : LetBinding → Int
getLengthLetBinding(lb) ≡
case lb of
MakeBinding(b) → getLengthBinding(b),
MakeRecordPattern(vn, p) → 1,
MakeListPatternLet(lp) → 1
end,
getLengthBinding : Binding → Int
getLengthBinding(b) ≡
case b of
IdBinding(id) → 1,
Make_ProductBinding(pb) →
getLengthBindingList(binding_list(pb))
end,
getLengthBindingList : Binding ∗ → Int
getLengthBindingList(bl) ≡
if bl = 〈〉 then 0
else
case hd bl of
443