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

"{ NameSpace: Smalltalk }"

PPCSequenceNode subclass:#PPCTrimNode

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Nodes'

!

!PPCTrimNode methodsFor:'accessing'!

child

    ^ children at: 2

!

child: anObject

    children at: 2 put: anObject

!

defaultName

    ^ #trim

!

trimmer

    ^ children at: 1

!

trimmer: anObject

    children at: 1 put: anObject

! !

!PPCTrimNode methodsFor:'analysis'!

acceptsEpsilon

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

!

acceptsEpsilonOpenSet: set

    (set includes: self child) ifFalse: [ 

        set add: self child.

        ^ self child acceptsEpsilonOpenSet: set 

    ].

    ^ false

! !

!PPCTrimNode methodsFor:'initialization'!

defaultTrimmer

    | message |

    message := PPCMessagePredicateNode new 

            message: #isSeparator;

            predicate: [ :char | char isSeparator ]

            yourself.

    ^ PPCStarNode new

        child: message;

        yourself.

!

initialize

    super initialize.

    children := Array new: 2.

    children at: 1 put: self defaultTrimmer.

! !

!PPCTrimNode methodsFor:'visiting'!

accept: visitor

    ^ visitor visitTrimNode: self

! !