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

     2 

     3 PPCAbstractPredicateNode subclass:#PPCNotMessagePredicateNode

     4 	instanceVariableNames:'message'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 PPCNotMessagePredicateNode comment:''

    11 !

    12 

    13 !PPCNotMessagePredicateNode methodsFor:'accessing'!

    14 

    15 asInlined

    16 	^ PPCInlineNotMessagePredicateNode new

    17 		predicate: predicate;

    18 		message: message;

    19 		name: name;

    20 		yourself

    21 !

    22 

    23 firstCharParser

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

    25 !

    26 

    27 message

    28 	

    29 	^ message

    30 !

    31 

    32 message: anObject

    33 	

    34 	message := anObject

    35 ! !

    36 

    37 !PPCNotMessagePredicateNode methodsFor:'as yet unclassified'!

    38 

    39 bodyOfPredicate: compiler

    40 	compiler addOnLine: '(context peek ', message, ')'.

    41 	compiler indent.

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

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

    44 	compiler dedent.

    45 ! !

    46