Transformation of Applicative Specifications into Imperative ...

APPENDIX C. FORMAL SPECIFICATIONS OF TRANSFORMATIONS
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 id(vn) ∈ dom func
then
if id(vn) ∈ idset
then
case type_expr(func(id(vn))) of
FunctionTypeExpr(arg, fa, res) →
/∗Already evaluated.∗/
let
ar =
getAccessObsListList(
idset, vl,
expTypeList(arg, len vl),
func, trans)
in
mk_AccessResult(
removeDuplets(
accessList(ar)
getSequencingAccess(
ve, type_expr(res), et,
trans, func)), idSet(ar))
end
end
else
250