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

"{ NameSpace: Smalltalk }"

PPCDelegateNode subclass:#PPCTrimNode
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!

!PPCTrimNode methodsFor:'accessing'!

prefix
	^ #trim
! !

!PPCTrimNode methodsFor:'compiling'!

compileWith: compiler effect: effect id: id
	"TODO: This ignores the TrimmingParser trimmer object!!"
	compiler startMethod: id.
	compiler addVariable: 'result'.	

	compiler add: '[context atEnd not and: [ context uncheckedPeek isSeparator ]] whileTrue: ['.
	compiler indent.
	compiler add: 'context next'.
	compiler dedent.
	compiler add: '].'.

	compiler add: 'result := '.
	compiler callOnLine: (child compileWith: compiler).

	compiler add: '[context atEnd not and: [ context uncheckedPeek isSeparator ]] whileTrue: ['.
	compiler indent.
	compiler add: 'context next'.
	compiler dedent.
	compiler add: '].'.

	compiler add: '^ result'.
 ^ compiler stopMethod.
! !