"
A parser that silently consumes spaces before and after the delegate parser.
"
Class {
	#name : 'PPTrimmingParser',
	#superclass : 'PPDelegateParser',
	#instVars : [
		'trimmer'
	],
	#category : 'PetitParser-Parsers'
}

{ #category : 'instance creation' }
PPTrimmingParser class >> on: aParser trimmer: aTrimParser [
	^ self new
		setParser: aParser;
		setTrimmer: aTrimParser;
		yourself
]

{ #category : 'initialization' }
PPTrimmingParser >> setTrimmer: aParser [
	trimmer := aParser
]