Mercurial Mercurial > hg > stx-goodies-petitparser / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
compiler/PPCMessagePredicateNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 17 Jun 2015 16:49:28 +0100
changeset 492 fc3dbe5654c5
parent 452 9f4558b3be66
permissions -rw-r--r--
Use #deepCopy instead of #copy when copying RB parse tree ...because #copy make a copy if child nodes but does not set their parents properly. Therefore node replacing does not work because it replaces it in wrong tree (original, not the copy).
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
391
553a5456963b Ported PetitCompiler-(Tests).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset 
     1
 
"{ Package: 'stx:goodies/petitparser/compiler' }"
553a5456963b Ported PetitCompiler-(Tests).
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset 
     2
 







422






116d2b2af905
To fold



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
421

diff
changeset




     3


"{ NameSpace: Smalltalk }"













116d2b2af905
To fold



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
421

diff
changeset




     4









391






553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     5


PPCAbstractPredicateNode subclass:#PPCMessagePredicateNode













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     6


	instanceVariableNames:'message'













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     7


	classVariableNames:''













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     8


	poolDictionaries:''













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     9


	category:'PetitCompiler-Nodes'













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    10


!













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    11














553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    12


!PPCMessagePredicateNode methodsFor:'accessing'!













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    13














553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    14


message








452






9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    15


    













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    16


    ^ message








391






553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    17


!













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    18














553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    19


message: anObject








452






9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    20


    













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    21


    message := anObject








391






553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    22


! !













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    23









438






20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    24


!PPCMessagePredicateNode methodsFor:'analysis'!








391






553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    25









438






20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    26


firstCharSet








452






9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    27


    ^ PPCharSetPredicate on: [:e | e perform: message ]








438






20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    28














20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    29


    "Modified: / 23-04-2015 / 22:13:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"








391






553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    30


! !













553a5456963b
Ported PetitCompiler-(Tests).



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    31









421






7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    32


!PPCMessagePredicateNode methodsFor:'comparing'!













7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    33














7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    34


= anotherNode








452






9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    35


    super = anotherNode ifFalse: [ ^ false ].













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    36


    ^ message = anotherNode message.








421






7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    37


!













7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    38














7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    39


hash








452






9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    40


    ^ super hash bitXor: message hash













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    41


! !













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    42














9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    43


!PPCMessagePredicateNode methodsFor:'printing'!













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    44














9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    45


printNameOn: aStream













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    46


    super printNameOn: aStream.













9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    47


    aStream nextPutAll: ', '; print: message








421






7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    48


! !













7e08b31e0dae
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
392

diff
changeset




    49









438






20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    50


!PPCMessagePredicateNode methodsFor:'visiting'!













20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    51














20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    52


accept: visitor








452






9f4558b3be66
Updated to  PetitCompiler-JanKurs.111, PetitCompiler-Tests-JanKurs.51, PetitCompiler-Benchmarks-JanKurs.7, added PetitCompiler-Extras-Tests-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
438

diff
changeset




    53


    ^ visitor visitMessagePredicateNode: self








438






20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    54


! !













20598d7ce9fa
Updated to  PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 
422

diff
changeset




    55
















hg/stx-goodies-petitparser