compiler/tests/PPLL1ExpressionGrammar.st
changeset 465 f729f6cd3c76
parent 463 d4014e0a47a0
parent 464 f6d77fee9811
child 466 ac2d987a03d3
--- 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
-! !
-