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

"{ NameSpace: Smalltalk }"

PPCCharacterNode subclass:#PPCNotCharacterNode
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!

!PPCNotCharacterNode methodsFor:'accessing'!

prefix
    ^ #notChar
! !

!PPCNotCharacterNode methodsFor:'as yet unclassified'!

accept: visitor
    ^ visitor visitNotCharacterNode: self
!

firstCharSet
    ^ PPCharSetPredicate on: [:e | (e = character) not ]
!

recognizedSentencesPrim
    | retval |

    retval := OrderedCollection new.
    "TODO JK: Works only for ASCII :("
    1 to: 255 do: [ :i |
        (character = (Character codePoint: i)) ifFalse: [ 
            retval add: (Character codePoint: i) asString 
        ]
    ].
    ^ retval
! !