Transformation of Applicative Specifications into Imperative ...

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1
case hd decl of
TypeDecl(tdl) →
〈hd decl〉 makeVariables(tl decl, trans),
ValueDecl(vdl) →
〈VariableDecl(makeVariableDeclList(trans))〉
decl
end
end,
makeVariableDeclList : TRANS → VariableDef ∗
makeVariableDeclList(trans) ≡
if getTRANSMapEntranceList(trans) = 〈〉 then 〈〉
else
〈makeVariableDef(
first(getHeadTRANS(trans)), trans)〉
makeVariableDeclList(
removeTRANS(trans, first(getHeadTRANS(trans))))
end,
makeVariableDef : Id × TRANS → VariableDef
makeVariableDef(typename, trans) ≡
SingleVariableDef(
getMapValueTRANS(trans, typename),
TypeName(typename), NoInitialisation),
TRTypeDecl :
TypeDef ∗ × TYPINGS × FUNC × TRANS → DResult
TRTypeDecl(tdl, typings, func, trans) ≡
if CheckTypeDefList(tdl, typings, func, trans)
then Transformable(TypeDecl(tdl))
else Not_transformable
end,
CheckTypeDefList :
TypeDef ∗ × TYPINGS × FUNC × TRANS → Bool
CheckTypeDefList(tdl, typings, func, trans) ≡
if tdl = 〈〉 then true
else
and(
CheckTypeDef(hd tdl, typings, func, trans),
CheckTypeDefList(tl tdl, typings, func, trans))
end,
CheckTypeDef :
313