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

"{ NameSpace: Smalltalk }"

PPCRewritingVisitor subclass:#PPCTokenVisitor
	instanceVariableNames:'forbiddenNodes'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Visitors'
!

!PPCTokenVisitor methodsFor:'as yet unclassified'!

visitActionNode: node	

    (node hasProperty: #trimmingToken) ifTrue: [ 
        | child newChild | 
        "trimming token in token, remove it"
        self change.
        
        child := node child secondChild.
        newChild := self visit: child.
        
        child name isNil ifTrue: [ 
            newChild name: node name.
            ^ newChild.
        ].
        ^ PPCForwardNode new
            child: newChild;
            name: node name;
            yourself
    ].

    ^ super visitActionNode: node
!

visitTokenNode: node
    "token in token, remove the token"
    self visitChildren: node.
    
    node child name isNil ifTrue: [ 
        self change.
        node child name: node name.
        ^ node child
    ].

 	self change.
    ^ PPCForwardNode new
        child: node child;
        name: node name;
        yourself	
! !

!PPCTokenVisitor methodsFor:'traversing'!

afterAccept: node retval: retval

    (retval name isNil not and: [ (retval name endsWith: '_ws') ]) ifTrue: [ 
        self change.
        ^ PPCTokenWhitespaceNode new
            child: retval;
            yourself
    ].
    ^ super afterAccept: node retval: retval
!

beforeAccept: node
    self assert: (forbiddenNodes includes: node) not description: 'Does not look like a token' 
!

forbiddenNodes: nodeSet
    forbiddenNodes := nodeSet.
! !