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

     2 

     3 PPCNode subclass:#PPCAnyNode

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 PPCAnyNode comment:''

    11 !

    12 

    13 !PPCAnyNode methodsFor:'as yet unclassified'!

    14 

    15 acceptsEpsilon

    16 	^ false

    17 !

    18 

    19 asInlined

    20 	^ PPCInlineAnyNode new

    21 		name: name;

    22 		yourself

    23 !

    24 

    25 compileWith: compiler effect: effect id: id

    26 	compiler startMethod: id.

    27 	compiler add: '^ context next ifNil: [ error := true. ].'.

    28  ^ compiler stopMethod.	

    29 !

    30 

    31 firstCharParser

    32 	^ #any asParser

    33 	

    34 !

    35 

    36 prefix

    37 	^ #any

    38 ! !

    39