^ self asInteger > 31 and: [ self asInteger < 127 ]

    ^ false

    ^ PPCActionNode new

        name: self name;

        block: block;

        child: parser;

        properties: properties;

        parser: self;

        yourself

    block isSymbol ifTrue: [  

        ^ aPetitCompiler compileSymbolBlock: block for: self 

    ].

    ^ aPetitCompiler compileBlock: block for: self

    ^ PPCAndNode new

        name: self name;

        child: parser;

        yourself

    self == anObject ifTrue: [ ^ true ].

    self class == anObject class ifFalse: [ ^ false ].

    ^ classification = anObject classification

    ^ block

    ^ classification

    self == anotherPredicate ifTrue: [ ^ true ].

    self class == anotherPredicate class ifFalse: [ ^ false ].

    ^ classification  = anotherPredicate classification.

    ^ classification hash

    ^ PPCChoiceNode new

        name: self name;

        children: parsers;

        parser: self;

        yourself

    ^ aPetitCompiler compileChoice: self

    ^ PPCContext new

        stream: stream;

        yourself

    ^ false

    ^ self globalAt: #comment ifAbsent: [ nil ].

    ^ self globalAt: #comment put: value

    ^ self globalAt: #compiledParser

    ^ self globalAt: #compiledParser put: aPPParser

    ^ self position

    ^ self position: position

    "nothing to do"

    ^ stream peek: anInteger

    "nothing to do"

! !

!PPContext methodsFor:'*petitcompiler'!

skipSeparators

    ^ stream skipSeparators

    ^ self globalAt: #whitespace ifAbsent: [ nil ].

    ^ self globalAt: #whitespace put: value

    self class == PPDelegateParser ifTrue: [ 

        ^ PPCForwardNode new

            name: self name;

            child: parser;

            yourself

    ].

    ^ super asCompilerNode 

    (self class == PPDelegateParser) ifTrue: [ 

        (self name notNil and: [ parser name isNil ]) ifTrue: [ 

            parser name: self name.

            ^ parser compileWith: aPetitCompiler.

        ].

        (self name notNil and: [ parser name notNil ]) ifTrue: [ 

            ^ aPetitCompiler compileDelegate: self.

        ]

    ].

    ^ super compileWith: aPetitCompiler.

! !

!PPEndOfInputParser methodsFor:'*petitcompiler'!

asCompilerNode

    ^ PPCEndOfInputNode new

        name: self name;

        child: parser;

        yourself	

    ^ PPCNilNode new

    ^ aPetitCompiler compileNil

    context := aPPContext

    message := text

    position := anInteger

    anotherParser == self ifTrue: [ ^ true ].

    ^ self name hash

    ^ PPCCharacterNode new

        character: literal;

        name: self name;

        yourself

    ^ aPetitCompiler compileCharacter: literal.

    ^ literal printString

    ^ PPCLiteralNode new

        literal: literal;

        name: self name;

        yourself

    ^ aPetitCompiler compileLiteral: literal.

    ^ PPCNotNode new 

        child: parser;

        name: self name;

        yourself

    ^ aPetitCompiler compileNot: self

    ^ PPCOptionalNode new

        name: self name;

        child: parser;

        yourself

    ^ aPetitCompiler compileOptional: self

! !

!PPParser methodsFor:'*petitcompiler'!

allNodesDo: aBlock seen: aSet

    "Iterate over all the parse nodes of the receiver, do not visit and follow the ones contained in aSet."

    (aSet includes: self) ifTrue: [ ^ self ].

    aSet add: self.

    aBlock value: self.

    self children do: [ :each | 

        each allNodesDo: aBlock seen: aSet 

    ]

    ^ PPCUnknownNode new

        parser: self;

        name: self name;

        yourself

    ^ self transform: [ :p | p asCompilerNode  ]

    ^ self

    ^ self compile: PPCArguments default

    self assert: (arguments isKindOf: PPCArguments).

    ^ PPCConfiguration default

        arguments: arguments;

        compile: self

    ^ (self compile: arguments) parse: input

    | arguments |

    arguments := PPCArguments default.

    arguments name: name.

    ^ self compile: arguments

    ^ configuration compile: self

    self halt: 'deprecated?'.

    ^ self firstSetSuchThat: block into: (OrderedCollection new) openSet: IdentitySet new.

    (aSet includes: self) ifTrue: [ ^ aCollection ].

    aSet add: self.

    (block value: self) ifTrue: [aCollection add: self. ^ aCollection ].

    self children do: [ :child | 

        child firstSetSuchThat: block into: aCollection openSet: aSet 

    ].

    ^ aCollection

    self name ifNotNil: [ ^ self name ].

    ^ self hash asString

    ^ false

    ^ self propertyAt: #isContextFree ifAbsentPut: 

        [ self allParsers allSatisfy: [ :p | p isContextFreePrim ] ].

    ^ true

    ^ false

    ^ false

    | ws |

    ws := PPJavaWhitespaceParser new.

    ^ ((ws, ((PPTokenParser on: self) tokenClass: PPJavaToken; yourself), ws) ==> #second)

        propertyAt: #'trimmingToken' put: true;

        yourself

    ^ self copy

    ^ self copy

    | ws |

    ws := #space asParser star.

    ^ ((ws, (PPTokenParser on: self), ws) ==> #second)

        propertyAt: #trimmingToken put: true;

        yourself

    ^ true