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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCTokenStarMessagePredicateNode subclass:#PPCInlineTokenStarMessagePredicateNode

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Nodes'

    10 !

    11 

    12 !PPCInlineTokenStarMessagePredicateNode methodsFor:'as yet unclassified'!

    13 

    14 asInlined

    15 	^ self

    16 !

    17 

    18 compileWith: compiler effect: effect id: id

    19 	compiler startInline: id.

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

    21 	compiler indent.

    22 	compiler add: 'context next'.

    23 	compiler indent.

    24 	compiler dedent.

    25 	compiler add: '].'.

    26  ^ compiler stopInline.

    27 ! !

    28