PPConditionalParser.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 29 Aug 2015 07:56:14 +0100
changeset 534 a949c4fe44df
parent 427 a7f5e6de19d2
permissions -rw-r--r--
PPCConfiguration refactoring: [6/10]: use #runPass: instead of self-sends. ...in PPCConfiguration>>invokePhases. This is a preparation for removing #invokePhases completely and configuring the compilation via list of phases.

"{ 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 ]
! !