Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
end,
in
expTypeToExpTypeList(
removeBrackets(
Known(TypeLiteral(BOOL))), 1),
func, trans)
mk_AccessResult(
removeDuplets(
accessList(ar) accessList(ar ′ )),
idSet(ar ′ ))
end
/∗Returns an access list of the values of types
of interest written to during evaluation of a
list expression.∗/
/∗
Arguments:
=======
idset: the functions already evaluated
le: the list expression
Result:
=======
AccessResult: the corresponding access result
∗/
getAccessGenListExpr :
Id-set × ListExpr × ExpType × FUNC × TRANS →
AccessResult
getAccessGenListExpr(idset, le, et, func, trans) ≡
case le of
RangedListExpr(fve, sve) →
getAccessGenListList(
idset, 〈fve, sve〉, 〈et, et〉, func, trans),
EnumeratedListExpr(ovel) →
getAccessGenOptVEL(idset, ovel, et, func, trans),
ComprehendedListExpr(ve1, b, ve2, or) →
getAccessGenListList(
idset,
〈ve1〉 〈ve2〉 getVEOptRestriction(or),
〈et, et, Known(TypeLiteral(BOOL))〉, func,
trans)
end,
/∗Returns an access list of the values of types
of interest written to during evaluation of a
267