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/PPCStarMessagePredicateNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 17 Jun 2015 16:49:28 +0100
changeset 492 fc3dbe5654c5
parent 464 f6d77fee9811
child 515 b5316ef15274
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









421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
392

diff
changeset




     5


PPCStarNode subclass:#PPCStarMessagePredicateNode








391






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


!PPCStarMessagePredicateNode methodsFor:'accessing'!













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    13









421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
392

diff
changeset




    14


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




    15


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








421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
392

diff
changeset




    16


!













7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
392

diff
changeset




    17









391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    18


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




    19


    













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


    ^ message








391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    21


!













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


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




    24


    













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




    25


    message := anObject








391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    26


!













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    27














553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    28


prefix








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




    29


    ^ #starPredicate













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




    30


! !













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




    31









421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
392

diff
changeset




    32


!PPCStarMessagePredicateNode 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








421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
392

diff
changeset




    41


! !













7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
392

diff
changeset




    42









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




    43


!PPCStarMessagePredicateNode methodsFor:'visiting'!








391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    44









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




    45


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




    46


    ^ visitor visitStarMessagePredicateNode: self








391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    47


! !













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    48
















hg/stx-goodies-petitparser