compiler/tests/PPLL1ExpressionGrammar.st
changeset 464 f6d77fee9811
parent 459 4751c407bb40
child 465 f729f6cd3c76
child 502 1e45d3c96ec5
--- a/compiler/tests/PPLL1ExpressionGrammar.st	Tue May 12 01:24:03 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,74 +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 withAll: _addPrime ]
-		
-	]
-!
-
-addPrime
-    ^ $+ asParser trimmingToken , term
-!
-
-mul
-   ^ prim, mulPrime optional
- 	map: [ :_prim :_mulPrime |
-		_mulPrime isNil 
-			ifTrue: [ _prim  ]
-			ifFalse: [ Array with: _prim withAll: _mulPrime ]
-		
-	]
-!
-
-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 withAll: _termPrime ]
-    ]	
-!
-
-termPrime
-    ^ $+ asParser trimmingToken, term
-! !
-