Transformation of Applicative Specifications into Imperative ...
Transformation of Applicative Specifications into Imperative ... Transformation of Applicative Specifications into Imperative ...
APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1 func, trans)))))〉), Make_ProductBinding(pb) → mk_FUNC(〈〉) end else mk_FUNC(〈〉) end, ExplicitFunctionDef(st, ffa, ve, precond) → case binding(st) of IdBinding(id) → case type_expr(st) of FunctionTypeExpr(arg, fa, res) → mk_FUNC( 〈mk_FUNCMapEntrance( id, mk_FuncSpec( type_expr(st), ve, removeDuplets( getAccess(arg, trans) accessList( getAccessObs( 〈id〉, ve, Known(type_expr(res)), func, trans)) accessList( getAccessObsOptPreCondition( 〈id〉, precond, Known( TypeLiteral(BOOL)), func, trans))), removeDuplets( getAccess( type_expr(res), trans) accessList( getAccessGen( 〈id〉, ve, Known(type_expr(res)), func, trans)))))〉) end end end, /∗**** FUNC map ****∗/ domainFUNC : FUNC → Id ∗ domainFUNC(func) ≡ 458
D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1 if getFUNCMapEntranceList(func) = 〈〉 then 〈〉 else 〈getFirstFUNC(hd getFUNCMapEntranceList(func))〉 domainFUNC( mk_FUNC(tl getFUNCMapEntranceList(func))) end, getMapValueFUNC : FUNC × Id → FuncSpec getMapValueFUNC(func, id) ≡ if getTextIdFUNC( getFirstFUNC(hd getFUNCMapEntranceList(func))) = getTextIdFUNC(id) then getSecondFUNC(hd getFUNCMapEntranceList(func)) else getMapValueFUNC( mk_FUNC(tl getFUNCMapEntranceList(func)), id) end, overrideFUNC : FUNC × FUNC → FUNC overrideFUNC(f1, f2) ≡ if getFUNCMapEntranceList(f1) = 〈〉 then f2 else if isinId( getFirstFUNC(hd getFUNCMapEntranceList(f1)), domainFUNC(f2)) then overrideFUNC( mk_FUNC(tl getFUNCMapEntranceList(f1)), f2) else overrideFUNC( mk_FUNC(tl getFUNCMapEntranceList(f1)), mk_FUNC( getFUNCMapEntranceList(f2) 〈hd getFUNCMapEntranceList(f1)〉)) end end, getFirstFUNC : FUNCMapEntrance → Id getFirstFUNC(me) ≡ first(me), getSecondFUNC : FUNCMapEntrance → FuncSpec getSecondFUNC(me) ≡ second(me), 459
- Page 424 and 425: APPENDIX D. SPECIFICATION OF TRANSF
- Page 426 and 427: APPENDIX D. SPECIFICATION OF TRANSF
- Page 428 and 429: APPENDIX D. SPECIFICATION OF TRANSF
- Page 430 and 431: APPENDIX D. SPECIFICATION OF TRANSF
- Page 432 and 433: APPENDIX D. SPECIFICATION OF TRANSF
- Page 434 and 435: APPENDIX D. SPECIFICATION OF TRANSF
- Page 436 and 437: APPENDIX D. SPECIFICATION OF TRANSF
- Page 438 and 439: APPENDIX D. SPECIFICATION OF TRANSF
- Page 440 and 441: APPENDIX D. SPECIFICATION OF TRANSF
- Page 442 and 443: APPENDIX D. SPECIFICATION OF TRANSF
- Page 444 and 445: APPENDIX D. SPECIFICATION OF TRANSF
- Page 446 and 447: APPENDIX D. SPECIFICATION OF TRANSF
- Page 448 and 449: APPENDIX D. SPECIFICATION OF TRANSF
- Page 450 and 451: APPENDIX D. SPECIFICATION OF TRANSF
- Page 452 and 453: APPENDIX D. SPECIFICATION OF TRANSF
- Page 454 and 455: APPENDIX D. SPECIFICATION OF TRANSF
- Page 456 and 457: APPENDIX D. SPECIFICATION OF TRANSF
- Page 458 and 459: APPENDIX D. SPECIFICATION OF TRANSF
- Page 460 and 461: APPENDIX D. SPECIFICATION OF TRANSF
- Page 462 and 463: APPENDIX D. SPECIFICATION OF TRANSF
- Page 464 and 465: APPENDIX D. SPECIFICATION OF TRANSF
- Page 466 and 467: APPENDIX D. SPECIFICATION OF TRANSF
- Page 468 and 469: APPENDIX D. SPECIFICATION OF TRANSF
- Page 470 and 471: APPENDIX D. SPECIFICATION OF TRANSF
- Page 472 and 473: APPENDIX D. SPECIFICATION OF TRANSF
- Page 476 and 477: APPENDIX D. SPECIFICATION OF TRANSF
- Page 478 and 479: APPENDIX D. SPECIFICATION OF TRANSF
- Page 480 and 481: APPENDIX D. SPECIFICATION OF TRANSF
- Page 482 and 483: APPENDIX D. SPECIFICATION OF TRANSF
- Page 484 and 485: APPENDIX D. SPECIFICATION OF TRANSF
- Page 486 and 487: APPENDIX D. SPECIFICATION OF TRANSF
- Page 488 and 489: APPENDIX D. SPECIFICATION OF TRANSF
- Page 490 and 491: APPENDIX D. SPECIFICATION OF TRANSF
- Page 492 and 493: APPENDIX E. ANTLR GRAMMAR END = "en
- Page 494 and 495: APPENDIX E. ANTLR GRAMMAR ; d = d e
- Page 496 and 497: APPENDIX E. ANTLR GRAMMAR ; } ( com
- Page 498 and 499: APPENDIX E. ANTLR GRAMMAR ; ) ∗ }
- Page 500 and 501: APPENDIX E. ANTLR GRAMMAR ; } else
- Page 502 and 503: APPENDIX E. ANTLR GRAMMAR prod_bind
- Page 504 and 505: APPENDIX E. ANTLR GRAMMAR ; | | | |
- Page 506 and 507: APPENDIX E. ANTLR GRAMMAR ; | NAT {
- Page 508 and 509: APPENDIX E. ANTLR GRAMMAR ; { ve3 =
- Page 510 and 511: APPENDIX E. ANTLR GRAMMAR ( | RPARE
- Page 512 and 513: APPENDIX E. ANTLR GRAMMAR | { optio
- Page 514 and 515: APPENDIX E. ANTLR GRAMMAR new RSLLi
- Page 516 and 517: APPENDIX E. ANTLR GRAMMAR infix_op_
- Page 518 and 519: APPENDIX E. ANTLR GRAMMAR : v l = v
- Page 520 and 521: APPENDIX E. ANTLR GRAMMAR } t e s t
- Page 522 and 523: APPENDIX E. ANTLR GRAMMAR } : ’ .
D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1<br />
if getFUNCMapEntranceList(func) = 〈〉 then 〈〉<br />
else<br />
〈getFirstFUNC(hd getFUNCMapEntranceList(func))〉 <br />
domainFUNC(<br />
mk_FUNC(tl getFUNCMapEntranceList(func)))<br />
end,<br />
getMapValueFUNC : FUNC × Id → FuncSpec<br />
getMapValueFUNC(func, id) ≡<br />
if<br />
getTextIdFUNC(<br />
getFirstFUNC(hd getFUNCMapEntranceList(func))) =<br />
getTextIdFUNC(id)<br />
then getSecondFUNC(hd getFUNCMapEntranceList(func))<br />
else<br />
getMapValueFUNC(<br />
mk_FUNC(tl getFUNCMapEntranceList(func)), id)<br />
end,<br />
overrideFUNC : FUNC × FUNC → FUNC<br />
overrideFUNC(f1, f2) ≡<br />
if getFUNCMapEntranceList(f1) = 〈〉 then f2<br />
else<br />
if<br />
isinId(<br />
getFirstFUNC(hd getFUNCMapEntranceList(f1)),<br />
domainFUNC(f2))<br />
then<br />
overrideFUNC(<br />
mk_FUNC(tl getFUNCMapEntranceList(f1)), f2)<br />
else<br />
overrideFUNC(<br />
mk_FUNC(tl getFUNCMapEntranceList(f1)),<br />
mk_FUNC(<br />
getFUNCMapEntranceList(f2) <br />
〈hd getFUNCMapEntranceList(f1)〉))<br />
end<br />
end,<br />
getFirstFUNC : FUNCMapEntrance → Id<br />
getFirstFUNC(me) ≡ first(me),<br />
getSecondFUNC : FUNCMapEntrance → FuncSpec<br />
getSecondFUNC(me) ≡ second(me),<br />
459