Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
case te of
TypeName(tn) →
if tn ∈ dom trans
then
/∗Type of interest.∗/
〈AccessValueOrVariableName(
mk_ValueOrVariableName(tn))〉
else
/∗Not type of interest.∗/
〈〉
end,
→ 〈〉
end,
Unknown → 〈〉
end,
/∗Returns an access list of the values of types
of interest written to during evaluation of a
set expression.∗/
/∗
Arguments:
=======
idset: the functions already evaluated
se: the set expression
Result:
=======
AccessResult: the corresponding access result
∗/
getAccessGenSetExpr :
Id-set × SetExpr × ExpType × FUNC × TRANS →
AccessResult
getAccessGenSetExpr(idset, se, et, func, trans) ≡
case se of
RangedSetExpr(fve, sve) →
getAccessGenListList(
idset, 〈fve, sve〉, 〈et, et〉, func, trans),
EnumeratedSetExpr(ovel) →
getAccessGenOptVEL(idset, ovel, et, func, trans),
ComprehendedSetExpr(ve, typlist, or) →
let
ar = getAccessGen(idset, ve, et, func, trans),
ar ′ =
getAccessGenList(
idSet(ar), getVEOptRestriction(or),
266