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

     2 

     3 PPCTokenStarMessagePredicateNode subclass:#PPCInlineTokenStarMessagePredicateNode

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 !PPCInlineTokenStarMessagePredicateNode methodsFor:'as yet unclassified'!

    11 

    12 asInlined

    13 	^ self

    14 !

    15 

    16 compileWith: compiler effect: effect id: id

    17 	compiler startInline: id.

    18 	compiler add: '[ context peek ', message,' ] whileTrue: ['.

    19 	compiler indent.

    20 	compiler add: 'context next'.

    21 	compiler indent.

    22 	compiler dedent.

    23 	compiler add: '].'.

    24  ^ compiler stopInline.

    25 ! !

    26