25 lines
491 B
Smalltalk
25 lines
491 B
Smalltalk
"
|
|
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
|
|
]
|