--- a/compiler/tests/PPLL1ExpressionGrammar.st Wed May 20 16:47:52 2015 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,80 +0,0 @@
-"{ Package: 'stx:goodies/petitparser/compiler/tests' }"
-
-"{ NameSpace: Smalltalk }"
-
-PPCompositeParser subclass:#PPLL1ExpressionGrammar
- instanceVariableNames:'add prod term mul prim parens number mulPrime addPrime termPrime'
- classVariableNames:''
- poolDictionaries:''
- category:'PetitCompiler-Tests-ExpressionGrammar'
-!
-
-!PPLL1ExpressionGrammar methodsFor:'as yet unclassified'!
-
-add
- ^ prod, addPrime optional
- map: [ :_prod :_addPrime |
- _addPrime isNil
- ifTrue: [ _prod ]
- ifFalse: [ (Array with: _prod) , _addPrime ]
-
- ]
-
- "Modified: / 12-05-2015 / 01:35:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-addPrime
- ^ $+ asParser trimmingToken , term
-!
-
-mul
- ^ prim, mulPrime optional
- map: [ :_prim :_mulPrime |
- _mulPrime isNil
- ifTrue: [ _prim ]
- ifFalse: [ (Array with: _prim) , _mulPrime ]
-
- ]
-
- "Modified: / 12-05-2015 / 01:35:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-mulPrime
- ^ $* asParser trimmingToken, prod
-!
-
-number
- ^ #digit asParser plus trimmingToken ==> [ :token | token inputValue asNumber ]
-!
-
-parens
- ^ ($( asParser token trim), term , ($) asParser token trim)
-!
-
-prim
- ^ parens / number
-!
-
-prod
- ^ mul
-!
-
-start
- ^ term end
-!
-
-term
- ^ prod, termPrime optional
- map: [ :_prod :_termPrime |
- _termPrime isNil
- ifTrue: [ _prod ]
- ifFalse: [ (Array with: _prod) , _termPrime ]
- ]
-
- "Modified: / 12-05-2015 / 01:36:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-termPrime
- ^ $+ asParser trimmingToken, term
-! !
-