"{ Package: 'stx:goodies/petitparser/compiler/tests/extras' }"

"{ NameSpace: Smalltalk }"

PPCompositeParser subclass:#PPLL1ExpressionGrammar
	instanceVariableNames:'add prod term mul prim parens number mulPrime addPrime termPrime'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Extras-Tests-Expressions'
!

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