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

PPCAbstractPredicateNode subclass:#PPCNotCharSetPredicateNode

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Nodes'

!

!PPCNotCharSetPredicateNode methodsFor:'as yet unclassified'!

asInlined

	^ PPCInlineNotCharSetPredicateNode new

		predicate: predicate;

		name: name;

		yourself

!

bodyOfPredicate: compiler

	| classificationId  classification |

	classification := self extendClassification: predicate classification.

	classificationId := (compiler idFor: classification prefixed: #classification).

	compiler  addConstant: classification as: classificationId.

	compiler addOnLine: '(', classificationId, ' at: context peek asInteger)'.

	compiler indent.

	compiler add: ' ifTrue: [ self error: '' predicate not expected'' ]'.

	compiler add: ' ifFalse: [ nil ].'.

	compiler dedent.

!

firstCharParser

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

! !

!PPCNotCharSetPredicateNode class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !