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

PPParser subclass:#PPDelegateParser
	instanceVariableNames:'parser'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitParser-Parsers'
!


!PPDelegateParser class methodsFor:'instance creation'!

on: aParser
	^ self new setParser: aParser
! !

!PPDelegateParser methodsFor:'*petitanalyzer-transforming'!

replace: aParser with: anotherParser
	super replace: aParser with: anotherParser.
	parser == aParser ifTrue: [ parser := anotherParser ]
! !

!PPDelegateParser methodsFor:'accessing'!

children
	^ Array with: parser
! !

!PPDelegateParser methodsFor:'initialization'!

setParser: aParser
	parser := aParser
! !

!PPDelegateParser methodsFor:'parsing'!

parseOn: aStream
	^ parser parseOn: aStream
! !

!PPDelegateParser class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPDelegateParser.st,v 1.4 2014-03-04 14:32:24 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPDelegateParser.st,v 1.4 2014-03-04 14:32:24 cg Exp $'
!

version_SVN
    ^ '$Id: PPDelegateParser.st,v 1.4 2014-03-04 14:32:24 cg Exp $'
! !