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

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

     2 

     4 

     3 PPCAbstractPredicateNode subclass:#PPCNotCharSetPredicateNode

     5 PPCAbstractPredicateNode subclass:#PPCNotCharSetPredicateNode

     4 	instanceVariableNames:''

     6 	instanceVariableNames:''

     5 	classVariableNames:''

     7 	classVariableNames:''

     6 	poolDictionaries:''

     8 	poolDictionaries:''

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

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

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

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

    30 	compiler dedent.

    32 	compiler dedent.

    31 !

    33 !

    32 

    34 

    37 firstCharSet

    35 firstCharSet

    38 	^ firstCharSet := PPCharSetPredicate on: [:e | (predicate value:e)  not ] 

    36 	^ firstCharSet := PPCharSetPredicate on: [:e | (predicate value:e)  not ] 

    39 	

    37 	

    40 ! !

    38 ! !

    41 

    39