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

     2 

     3 PPCAbstractCharacterNode subclass:#PPCCharacterNode

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 PPCCharacterNode comment:''

    11 !

    12 

    13 !PPCCharacterNode methodsFor:'as yet unclassified'!

    14 

    15 start: compiler id: id

    16 	compiler startMethod: id.

    17 	compiler add: '^ '.

    18 !

    19 

    20 stop: compiler

    21 	^ compiler stopMethod

    22 ! !

    23 

    24 !PPCCharacterNode methodsFor:'optimizing'!

    25 

    26 asInlined

    27 	^ PPCInlineCharacterNode new

    28 		character: character;

    29 		name: name;

    30 		yourself

    31 ! !

    32