"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
PPCListNode subclass:#PPCChoiceNode
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Nodes'
!
!PPCChoiceNode methodsFor:'accessing'!
prefix
^ #ch
! !
!PPCChoiceNode methodsFor:'analysis'!
acceptsEpsilon
^ self acceptsEpsilonOpenSet: IdentitySet new.
!
acceptsEpsilonOpenSet: set
set add: self.
^ self children anySatisfy: [:e | e acceptsEpsilonOpenSet: set ].
! !
!PPCChoiceNode methodsFor:'visiting'!
accept: visitor
^ visitor visitChoiceNode: self
! !