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 else 〈getSecondENV(hd getENVMapEntranceList(env))〉 rangeENV(mk_ENV(tl getENVMapEntranceList(env))) end, overrideENV : ENV × ENV → ENV overrideENV(e1, e2) ≡ if getENVMapEntranceList(e1) = 〈〉 then e2 else if isinId( getFirstENV(hd getENVMapEntranceList(e1)), domainENV(e2)) then overrideENV( mk_ENV(tl getENVMapEntranceList(e1)), e2) else overrideENV( mk_ENV(tl getENVMapEntranceList(e1)), mk_ENV( getENVMapEntranceList(e2) 〈hd getENVMapEntranceList(e1)〉)) end end, removeENV : ENV × Id → ENV removeENV(env, id) ≡ if getENVMapEntranceList(env) = 〈〉 then env else if getTextId( getFirstENV(hd getENVMapEntranceList(env))) = getTextId(id) then removeENV( mk_ENV(tl getENVMapEntranceList(env)), id) else mk_ENV( 〈getHeadENV(env)〉 getENVMapEntranceList( removeENV( mk_ENV(tl getENVMapEntranceList(env)), id))) end 462
D.2. FORMAL SPECIFICATION OF THE TRANSFORMER IN RSL1 end, getFirstENV : ENVMapEntrance → Id getFirstENV(me) ≡ first(me), getSecondENV : ENVMapEntrance → Binding getSecondENV(me) ≡ second(me), getENVMapEntranceList : ENV → ENVMapEntrance ∗ getENVMapEntranceList(env) ≡ map(env), getHeadENV : ENV → ENVMapEntrance getHeadENV(env) ≡ hd getENVMapEntranceList(env), /∗**** ENV end ****∗/ /∗**** TYPES ****∗/ makeTYPES : LetBinding × ExpType × TRANS → TYPES makeTYPES(lb, et, trans) ≡ case lb of MakeBinding(b) → makeTYPESBinding(b, et, trans), → (mk_TYPES(〈〉)) end, makeTYPESBinding : Binding × ExpType × TRANS → TYPES makeTYPESBinding(b, et, trans) ≡ case b of IdBinding(id) → mk_TYPES(〈mk_TYPESMapEntrance(b, et)〉), Make_ProductBinding(pb) → makeTYPESBindingList( binding_list(pb), expTypeToExpTypeList( removeBrackets(et), lengthBinding(binding_list(pb))), trans) end, makeTYPESBindingList : Binding ∗ × ExpType ∗ × TRANS → TYPES makeTYPESBindingList(bl, etl, trans) ≡ if bl = 〈〉 then mk_TYPES(〈〉) else 463
- 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 474 and 475: APPENDIX D. SPECIFICATION OF TRANSF
- Page 476 and 477: 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 } : ’ .
- Page 524 and 525: APPENDIX E. ANTLR GRAMMAR 508
- Page 526 and 527: APPENDIX F. SOURCE CODE System . e
APPENDIX D. SPECIFICATION OF TRANSFORMER IN RSL1<br />
else<br />
〈getSecondENV(hd getENVMapEntranceList(env))〉 <br />
rangeENV(mk_ENV(tl getENVMapEntranceList(env)))<br />
end,<br />
overrideENV : ENV × ENV → ENV<br />
overrideENV(e1, e2) ≡<br />
if getENVMapEntranceList(e1) = 〈〉 then e2<br />
else<br />
if<br />
isinId(<br />
getFirstENV(hd getENVMapEntranceList(e1)),<br />
domainENV(e2))<br />
then<br />
overrideENV(<br />
mk_ENV(tl getENVMapEntranceList(e1)), e2)<br />
else<br />
overrideENV(<br />
mk_ENV(tl getENVMapEntranceList(e1)),<br />
mk_ENV(<br />
getENVMapEntranceList(e2) <br />
〈hd getENVMapEntranceList(e1)〉))<br />
end<br />
end,<br />
removeENV : ENV × Id → ENV<br />
removeENV(env, id) ≡<br />
if getENVMapEntranceList(env) = 〈〉 then env<br />
else<br />
if<br />
getTextId(<br />
getFirstENV(hd getENVMapEntranceList(env))) =<br />
getTextId(id)<br />
then<br />
removeENV(<br />
mk_ENV(tl getENVMapEntranceList(env)), id)<br />
else<br />
mk_ENV(<br />
〈getHeadENV(env)〉 <br />
getENVMapEntranceList(<br />
removeENV(<br />
mk_ENV(tl getENVMapEntranceList(env)),<br />
id)))<br />
end<br />
462
Change language