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

"{ NameSpace: Smalltalk }"

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

!PPCRecognizerComponentVisitor methodsFor:'accessing'!

forbiddenNodes: nodeSet
    forbiddenNodes := nodeSet.
! !

!PPCRecognizerComponentVisitor methodsFor:'initialization'!

initialize
    super initialize.
    forbiddenNodes := IdentitySet new.
! !

!PPCRecognizerComponentVisitor methodsFor:'traversing'!

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

!PPCRecognizerComponentVisitor methodsFor:'visiting'!

visitActionNode: node
    self visitChildren: node.

    self change.
    ^ node child
!

visitSequenceNode: node
    self visitChildren: node.
    self change.
    ^ PPCRecognizingSequenceNode new
        children: node children;
        name: node name;
        properties: node properties;
        yourself	
!

visitStarMessagePredicateNode: node
    self visitChildren: node.
    
    (node message = #isSeparator) ifTrue: [ 
        self change.
        ^ PPCTokenStarSeparatorNode new
            name: node name;
            child: node child;
            message: node message;
            yourself.
    ].
    
    self change.
    ^ PPCTokenStarMessagePredicateNode new
        name: node name;
        message: node message;
        child: node child;
        yourself
!

visitSymbolActionNode: node
    self visitChildren: node.
    
    self change.
    ^ node child
!

visitTokenNode: node
    self visitChildren: node.
    self change.
    ^ node child
! !