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

     2 

     3 PPCCharSetPredicateNode subclass:#PPCInlineCharSetPredicateNode

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 PPCInlineCharSetPredicateNode comment:''

    11 !

    12 

    13 !PPCInlineCharSetPredicateNode methodsFor:'as yet unclassified'!

    14 

    15 asInlined

    16 	^ self

    17 !

    18 

    19 compileWith: compiler effect: effect id: id

    20 	compiler startInline: id.

    21 	compiler add: ''.

    22 	self bodyOfPredicate: compiler.

    23  ^ compiler stopInline.

    24 ! !

    25