compiler/tests/extras/PPExpressionGrammar.st
author Jan Vrany <jan.vrany@labware.com>
Wed, 10 Jun 2020 21:33:27 +0100
changeset 650 4c6ed0a28d18
parent 464 f6d77fee9811
permissions -rw-r--r--
Replace `ifNil:[...]` with `isNil ifTrue:[...]` The latter is optimized by compilers and therefore faster.

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

"{ NameSpace: Smalltalk }"

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

!PPExpressionGrammar methodsFor:'as yet unclassified'!

add
   ^ prod , $+ asParser trimmingToken , term
!

mul
   ^ prim , $* 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 / prim
!

start
   ^ term end
!

term
   ^ add / prod
! !