Transformation of Applicative Specifications into Imperative ...

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1
end
end,
CheckOptRestriction :
OptionalRestriction × ExpType × TYPINGS × FUNC ×
TRANS × ENV × TYPES →
BOOL_ENV_TYPES
CheckOptRestriction(
optr, et, typings, func, trans, env, types) ≡
case optr of
Restriction(ve) →
CheckValueExpr(
ve, et, typings, func, trans, env, types),
NoRestriction →
mk_BOOL_ENV_TYPES(true, env, types)
end,
CheckApplicationExpr :
ValueExpr × ValueExpr ∗ × ExpType × TYPINGS ×
FUNC × TRANS × ENV × TYPES →
BOOL_ENV_TYPES
CheckApplicationExpr(
ve, vel, et, typings, func, trans, env, types) ≡
case ve of
Make_ValueOrVariableName(vn) →
if isinId(id(vn), domainFUNC(func))
then
/∗The application expression is a function application.
∗/
case
type_expr(getMapValueFUNC(func, id(vn)))
of
FunctionTypeExpr(arg, fa, res) →
CheckFunctionAppl(
ve, vel, typeExprToExpTypeList(arg),
typings, func, trans, env, types)
end
else
/∗The application expression is a list or map
application.∗/
CheckListMapAppl(
ve, vel, et, typings, func, trans, env,
types)
end,
338