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

"{ NameSpace: Smalltalk }"

PPCListNode subclass:#PPCTrimmingTokenNode

	instanceVariableNames:'tokenClass'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Nodes'

!

!PPCTrimmingTokenNode methodsFor:'accessing'!

child

	^ children at: 2

!

child: anObject

	children at: 2 put: anObject

!

!

tokenClass

	^ tokenClass

!

tokenClass: anObject

	tokenClass := anObject

!

whitespace

	^ children at: 1

!

whitespace: anObject

	(anObject name isNil and: [ self child name isNotNil ]) ifTrue: [ 

		anObject name: self child name, '_ws'.

	].

	children at: 1 put: anObject

! !

!PPCTrimmingTokenNode methodsFor:'analyzing'!

acceptsEpsilon

	^ self child acceptsEpsilonOpenSet: (IdentitySet with: self).

!

acceptsEpsilonOpenSet: set

	(set includes: self child) ifFalse: [ 

		set add: self child.

		^ self child acceptsEpsilonOpenSet: set 

	].

	^ false

!

firstSetSuchThat: block into: aCollection openSet: aSet

	(aSet includes: self) ifTrue: [ ^ aCollection ].

	aSet add: self.

	(block value: self) ifTrue: [ aCollection add: self. ^ aCollection ].

	^ self child firstSetSuchThat: block into: aCollection openSet: aSet.

!

firstSets: aFirstDictionary into: aSet suchThat: aBlock

	"PRIVATE: Try to add additional elements to the first-set aSet of the receiver, use the incomplete aFirstDictionary."

	(aBlock value: self) ifFalse: [ 

		aSet addAll: (aFirstDictionary at: self child)

	]

! !

!PPCTrimmingTokenNode methodsFor:'comparing'!

= anotherNode

	super = anotherNode ifFalse: [ ^ false ].

	^ tokenClass = anotherNode tokenClass.

!

hash

	^ super hash bitXor: tokenClass hash

! !