Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
addId : Id × Id ∗ → Id ∗
addId(id, idl) ≡
if isinId(id, idl) then idl else idl 〈id〉 end,
unionId : Id ∗ × Id ∗ → Id ∗
unionId(il1, il2) ≡
if il1 = 〈〉 then il2
else unionId(tl il1, addId(hd il1, il2))
end,
isinId : Id × Id ∗ → Bool
isinId(id, idl) ≡
if idl = 〈〉 then false
else
if getHeadTextId(idl) = getText(id) then true
else isinId(id, tl idl)
end
end,
getHeadTextId : Id ∗ → Text
getHeadTextId(idlist) ≡ getText(hd idlist),
lengthId : Id ∗ → Int
lengthId(idl) ≡
if idl = 〈〉 then 0 else 1 + lengthId(tl idl) end,
lengthVE : ValueExpr ∗ → Int
lengthVE(vel) ≡
if vel = 〈〉 then 0 else 1 + lengthVE(tl vel) end,
concatVE :
ValueExpr × ValueExpr ∗ → ValueExpr ∗
concatVE(ve, vel) ≡ 〈ve〉 vel,
lengthTE : TypeExpr ∗ → Int
lengthTE(tel) ≡
if tel = 〈〉 then 0 else 1 + lengthTE(tl tel) end,
lengthET : ExpType ∗ → Int
lengthET(etl) ≡
if etl = 〈〉 then 0 else 1 + lengthET(tl etl) end,
lengthLetDefList : LetDef ∗ → Int
lengthLetDefList(ldl) ≡
468