Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
TypeExprMap(tem) → 〈te〉,
FunctionTypeExpr(arg, fa, res) →
getNonTOIReturnsList(type_expr(res), trans),
BracketedTypeExpr(bte) →
getNonTOIReturnsList(bte, trans)
end,
/∗Gets a list of types that are not of a type
of interest from a type expression list.∗/
/∗
Arguments:
=======
tel: the type expression list
Result:
=======
TypeExpr_list: the list of types that are not
of a type of interest
∗/
getNonTOIProduct :
TypeExpr ∗ × TRANS → TypeExpr ∗
getNonTOIProduct(tel, trans) ≡
if tel = 〈〉 then 〈〉
else
getNonTOIReturnsList(hd tel, trans)
getNonTOIProduct(tl tel, trans)
end,
/∗Gets the variables corresponding to the type
expression.∗/
/∗
Arguments:
=======
te: the type expression
Result:
=======
ValueExpr_list: the return values
∗/
getTOIReturnsList :
TypeExpr × TRANS → ValueExpr ∗
getTOIReturnsList(te, trans) ≡
case te of
TypeLiteral(literal) → 〈〉,
TypeName(id) →
if id ∈ dom trans
243