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/PPCAbstractPredicateNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 30 Jul 2015 08:37:37 +0100
changeset 510 869853decf31
parent 452 9f4558b3be66
child 515 b5316ef15274
permissions -rw-r--r--
Tests refactoring - use generated test cases to make sure all posibilities are tested. Do not generate resource for all combinations, use PPCSetUpBeforeTearDownAfterResource instead that delegates parser compilation to the testcase itself (it calls it's #setUpBefore method).
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


PPCNode subclass:#PPCAbstractPredicateNode








421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




     6


	instanceVariableNames:'predicate'








391






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


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


predicate








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


    ^ predicate








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


predicate: 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


    predicate := 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














553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    24


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




    25


    ^ #predicate








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


!PPCAbstractPredicateNode methodsFor:'analysis'!













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    29














553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    30


acceptsEpsilon








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




    31


    ^ false








391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    32


!













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    33









414






0eaf09920532
Merged JK's work on PetitCompiler



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


parents: 
393

diff
changeset




    34


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




    35


    ^ PPCharSetPredicate on: predicate








391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    36


! !













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    37









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




    38


!PPCAbstractPredicateNode methodsFor:'comparing'!








421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




    39














7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




    40


= 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




    41


    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




    42


    ^ predicate = anotherNode predicate.








421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




    43


!













7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




    44














7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




    45


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




    46


    ^ super hash bitXor: predicate 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




    47


!













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




    48














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




    49


recognizedSentencesPrim













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




    50


    | retval |













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




    51














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




    52


    retval := OrderedCollection new.













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


    "TODO JK: Works only for ASCII :("













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




    54


    1 to: 255 do: [ :i |













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




    55


        (predicate value: (Character codePoint: i)) ifTrue: [ 













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




    56


            retval add: (Character codePoint: i) asString 













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




    57


        ]













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




    58


    ].













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




    59


    ^ retval








421






7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




    60


! !













7e08b31e0dae
Merged JK's version from Monticello



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


parents: 
414

diff
changeset




    61









391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    62


!PPCAbstractPredicateNode methodsFor:'compiling'!













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    63














553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    64


extendClassification: classification








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




    65


    ^ (classification asOrderedCollection addLast: false; yourself) asArray








391






553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    66


! !













553a5456963b
Ported PetitCompiler-(Tests).



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


parents: 

diff
changeset




    67
















hg/stx-goodies-petitparser