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

PPDelegateParser subclass:#PPTrimmingParser

	instanceVariableNames:'trimmer'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitParser-Parsers'

!

PPTrimmingParser comment:'A parser that silently consumes spaces before and after the delegate parser.'

!

!PPTrimmingParser class methodsFor:'instance creation'!

on: aParser trimmer: aTrimParser

	^ self new

		setParser: aParser;

		setTrimmer: aTrimParser;

		yourself

! !

!PPTrimmingParser methodsFor:'initialization'!

setTrimmer: aParser

	trimmer := aParser

! !

!PPTrimmingParser methodsFor:'operations'!

trim

	"There is no point in trimming more than once."

	^ self

! !

!PPTrimmingParser methodsFor:'parsing'!

parseOn: aStream

	| position element |

	position := aStream position.

	[ (trimmer parseOn: aStream) isPetitFailure ]

		whileFalse.

	element := parser parseOn: aStream.

	element isPetitFailure ifTrue: [

		aStream position: position.

		^ element ].

	[ (trimmer parseOn: aStream) isPetitFailure ]

		whileFalse.

	^ element

! !

!PPTrimmingParser class methodsFor:'documentation'!

version_SVN

    ^ '$Id: PPTrimmingParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'

! !