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

"{ NameSpace: Smalltalk }"

PPCRewritingVisitor subclass:#PPCTokenDetector

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Visitors'

!

!PPCTokenDetector methodsFor:'visiting'!

visitActionNode: node

	(node hasProperty: #trimmingToken) ifTrue: [ 

		| newWs newChild  |

		self change.

		newChild := self visitWithTokenVisitor: node child children second child. "Oups, what a chain"

		newWs := self visitWithTokenVisitor: node child children first.

		^ PPCTrimmingTokenNode new

			name: node name;

			child: newChild;

			tokenClass: node child children second tokenClass;

			whitespace: newWs;

			yourself.

	].

	^ super visitActionNode: node

!

visitNotNode: node

	"We don't need result of the not,..."

	| child newChild |

	self change.

	child := node child.

	newChild := self visitWithTokenVisitor: child.

	node replace: child with: newChild.

	^ node

!

visitTokenNode: node

	| child newChild |

	self change.

	child := node child.

	newChild := self visitWithTokenVisitor: child.

	node replace: child with: newChild.

	^ node

!

visitWithTokenVisitor: node

	| retval forbiddenNodes copyVisitor tokenVisitor |

	copyVisitor := PPCCopyVisitor new.

	tokenVisitor := PPCTokenVisitor new.

	forbiddenNodes := openSet copy.

	tokenVisitor forbiddenNodes: forbiddenNodes.

	retval := copyVisitor visit: node.

	retval := tokenVisitor visit: retval.

	^ retval

! !