Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
Int: the number of parameters
∗/
getLengthBindingList : Binding ∗ → Int
getLengthBindingList(bl) ≡
if bl = 〈〉 then 0
else
case hd bl of
IdBinding(id) → 1 + getLengthBindingList(tl bl),
Make_ProductBinding(pb) →
getLengthBindingList(binding_list(pb)) +
getLengthBindingList(tl bl)
end
end,
/∗Checks if a binding is in a binding set.∗/
/∗
Arguments:
=======
b: the binding
bl: the binding set
Results:
=====
Bool: true if the binding is in the binding set,
false otherwise
∗/
isinBinding : Binding × Binding-set → Bool
isinBinding(b, bl) ≡
if bl = {} then false
else
case hd bl of
IdBinding(id) →
if getText(id) = getTextBinding(b) then true
else isinBinding(b, bl \ {hd bl})
end,
Make_ProductBinding(pb) →
isinBinding(b, elems binding_list(pb)) ∨
isinBinding(b, bl \ {hd bl})
end
end,
/∗Returns the text of an id binding.∗/
/∗
Arguments:
=======
275