35 lines
636 B
Smalltalk
35 lines
636 B
Smalltalk
|
"
|
||
|
|
A parser that delegates to another parser.
|
||
|
|
|
||
|
|
Instance Variables:
|
||
|
|
parser <PPParser> The parser to delegate to.
|
||
|
|
"
|
||
|
|
Class {
|
||
|
|
#name : 'PPDelegateParser',
|
||
|
|
#superclass : 'PPParser',
|
||
|
|
#instVars : [
|
||
|
|
'parser'
|
||
|
|
],
|
||
|
|
#category : 'PetitParser-Parsers'
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : 'instance creation' }
|
||
|
|
PPDelegateParser class >> on: aParser [
|
||
|
|
^ self new setParser: aParser
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'accessing' }
|
||
|
|
PPDelegateParser >> children [
|
||
|
|
^ Array with: parser
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'parsing' }
|
||
|
|
PPDelegateParser >> parseOn: aPPContext [
|
||
|
|
^ parser parseOn: aPPContext
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : 'initialization' }
|
||
|
|
PPDelegateParser >> setParser: aParser [
|
||
|
|
parser := aParser
|
||
|
|
]
|