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

"{ NameSpace: Smalltalk }"

PPDelegateParser subclass:#PPConditionalParser
	instanceVariableNames:'block'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitParser-Parsers'
!

!PPConditionalParser class methodsFor:'as yet unclassified'!

on: aPPParser block: block
	^ (PPConditionalParser on: aPPParser)
		block: block;
		yourself
! !

!PPConditionalParser methodsFor:'accessing'!

block: aBlock
	block := aBlock
! !

!PPConditionalParser methodsFor:'parsing'!

parseOn: aPPContext
	^ (block value: aPPContext) 
		ifTrue: [ parser parseOn: aPPContext ]
		ifFalse: [ PPFailure message: block asString, ' was not evaluated to true.' context: aPPContext ]
! !