Transformation of Applicative Specifications into Imperative ...

C.1. FORMAL SPECIFICATION OF THE TRANSFORMER
OptionalInnerPattern × TYPES
TROptInnerPattern(oip, func, trans, types) ≡
case oip of
InnerPatternList(pl) →
let
(pl ′ , types ′ ) =
TRPatternList(pl, func, trans, types)
in
(InnerPatternList(pl ′ ), types ′ )
end,
NoInnerPattern → (oip, types)
end,
/∗Establishes an assignment expression.∗/
/∗
Arguments:
=======
ve: the value expression
et: the corresponding expected type
Results:
=======
ValueExpr: the resulting value expression
∗/
makeAssignExpr :
ValueExpr × ExpType × TRANS → ValueExpr
makeAssignExpr(ve, et, trans) ≡
case et of
Known(te) →
case te of
TypeName(tn) →
if tn ∈ dom trans
then
/∗Type of interest.∗/
AssignExpr(trans(tn), ve)
else
/∗Not type of interest.∗/
ve
end,
→ ve
end,
Unknown → ve
end,
/∗**** TypeExpr ****∗/
221