Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
end
end,
end
removeDuplets : Access ∗ → Access ∗
removeDuplets(al) ≡
if
lengthAccess(al) =
lengthAccess(elementsAccess(al))
then al
else
if isinAccess(hd al, elementsAccess(tl al))
then removeDuplets(tl al)
else 〈hd al〉 removeDuplets(tl al)
end
end,
getAccess : TypeExpr × TRANS → Access ∗
getAccess(te, trans) ≡
case te of
TypeLiteral(literal) → 〈〉,
TypeName(id) →
if isinId(id, domainTRANS(trans))
then
/∗Type of interest.∗/
〈AccessValueOrVariableName(
mk_ValueOrVariableName(id))〉
else
/∗Not type of interest.∗/
〈〉
end,
TypeExprProduct(tep) → getAccessList(tep, trans),
TypeExprSet(tes) → 〈〉,
TypeExprList(tel) → 〈〉,
TypeExprMap(tem) → 〈〉,
FunctionTypeExpr(arg, fa, res) → 〈〉,
BracketedTypeExpr(bte) → getAccess(bte, trans)
end,
getAccessList : TypeExpr ∗ × TRANS → Access ∗
getAccessList(tel, trans) ≡
if tel = 〈〉 then 〈〉
else
getAccess(hd tel, trans)
423