Transformation of Applicative Specifications into Imperative ...

Transformation of Applicative Specifications into Imperative ... Transformation of Applicative Specifications into Imperative ...

26.09.2013 Views

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1 TROptPreCondition( precond, Known(TypeLiteral(BOOL)), func, trans, alterTYPESMap( typesMap( TRFormalFuncAppl( ffa, func, trans)), letdefList( TRFormalFuncAppl( ffa, func, trans))) )))), preCond( TROptPreCondition( precond, Known(TypeLiteral(BOOL)), func, trans, alterTYPESMap( typesMap( TRFormalFuncAppl( ffa, func, trans)), letdefList( TRFormalFuncAppl( ffa, func, trans)))))) else ExplicitFunctionDef( TRSingleTyping(st, func, trans), formalfa( TRFormalFuncAppl(ffa, func, trans)), LetExpr( letdefList( TRFormalFuncAppl(ffa, func, trans) ), valueExpr( TRValueExpr( ve, Known(type_expr(res)), func, trans, typesMap( TROptPreCondition( precond, Known(TypeLiteral(BOOL)), func, trans, alterTYPESMap( typesMap( 358

D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1 end, end end TRFormalFuncAppl( ffa, func, trans )), letdefList( TRFormalFuncAppl( ffa, func, trans )))))))), preCond( TROptPreCondition( precond, Known(TypeLiteral(BOOL)), func, trans, alterTYPESMap( typesMap( TRFormalFuncAppl( ffa, func, trans)), letdefList( TRFormalFuncAppl( ffa, func, trans)))))) TRSingleTyping : SingleTyping × FUNC × TRANS → SingleTyping TRSingleTyping(st, func, trans) ≡ case binding(st) of IdBinding(id) → mk_SingleTyping( binding(st), TRTypeExpr(id, type_expr(st), func, trans)) end, TRTypeExpr : Id × TypeExpr × FUNC × TRANS → TypeExpr TRTypeExpr(id, te, func, trans) ≡ case te of TypeLiteral(literal) → te, TypeName(tid) → if isinId(tid, domainTRANS(trans)) then /∗Type expression of a type of interest.∗/ TypeLiteral(UNIT) else 359

APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1<br />

TROptPreCondition(<br />

precond,<br />

Known(TypeLiteral(BOOL)),<br />

func, trans,<br />

alterTYPESMap(<br />

typesMap(<br />

TRFormalFuncAppl(<br />

ffa, func, trans)),<br />

letdefList(<br />

TRFormalFuncAppl(<br />

ffa, func, trans)))<br />

)))),<br />

preCond(<br />

TROptPreCondition(<br />

precond,<br />

Known(TypeLiteral(BOOL)), func,<br />

trans,<br />

alterTYPESMap(<br />

typesMap(<br />

TRFormalFuncAppl(<br />

ffa, func, trans)),<br />

letdefList(<br />

TRFormalFuncAppl(<br />

ffa, func, trans))))))<br />

else<br />

ExplicitFunctionDef(<br />

TRSingleTyping(st, func, trans),<br />

formalfa(<br />

TRFormalFuncAppl(ffa, func, trans)),<br />

LetExpr(<br />

letdefList(<br />

TRFormalFuncAppl(ffa, func, trans)<br />

),<br />

valueExpr(<br />

TRValueExpr(<br />

ve, Known(type_expr(res)),<br />

func, trans,<br />

typesMap(<br />

TROptPreCondition(<br />

precond,<br />

Known(TypeLiteral(BOOL)),<br />

func, trans,<br />

alterTYPESMap(<br />

typesMap(<br />

358

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!