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

PPCAbstractPredicateNode subclass:#PPCNotMessagePredicateNode
	instanceVariableNames:'message'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!

!PPCNotMessagePredicateNode methodsFor:'accessing'!

asInlined
	^ PPCInlineNotMessagePredicateNode new
		predicate: predicate;
		message: message;
		name: name;
		yourself
!

firstCharParser
	^ (PPPredicateObjectParser on: predicate message: 'predicate not expected') not.
!

firstCharSet
	PPCharSetPredicate on: [:e | (predicate value:e)  not ] 
!

message
	
	^ message
!

message: anObject
	
	message := anObject
! !

!PPCNotMessagePredicateNode methodsFor:'as yet unclassified'!

bodyOfPredicate: compiler
	compiler addOnLine: '(context peek ', message, ')'.
	compiler indent.
	compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.
	compiler add: ' ifFalse: [ nil ].'.
	compiler dedent.
! !