Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
getAccessList(tl tel, trans)
end,
getAccessObsOptPreCondition :
Id ∗ × OptionalPreCondition × ExpType ×
FUNC × TRANS →
AccessResult
getAccessObsOptPreCondition(
idset, precond, et, func, trans) ≡
case precond of
PreCondition(ve) →
getAccessObs(idset, ve, et, func, trans),
NoPreCondition → mk_AccessResult(〈〉, idset)
end,
getAccessObs :
Id ∗ × ValueExpr × ExpType × FUNC × TRANS →
AccessResult
getAccessObs(idset, ve, et, func, trans) ≡
case ve of
Make_ValueLiteral(vl) →
mk_AccessResult(〈〉, idset),
Make_ValueOrVariableName(vn) →
mk_AccessResult(〈〉, idset),
Make_BasicExpr(be) → mk_AccessResult(〈〉, idset),
ProductExpr(vel) →
getAccessObsList(idset, vel, et, func, trans),
Make_SetExpr(se) →
getAccessObsSetExpr(
idset, se, getSetType(et), func, trans),
Make_ListExpr(le) →
getAccessObsListExpr(
idset, le, getListType(et), func, trans),
Make_MapExpr(me) →
getAccessObsMapExpr(
idset, me, getMapType(et), func, trans),
ApplicationExpr(ave, vl) →
case ave of
Make_ValueOrVariableName(vn) →
if isinId(id(vn), domainFUNC(func))
then
if isinId(id(vn), idset)
then
case
424