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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PPCTokenGuard

     6 	instanceVariableNames:'node'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Guards'

    10 !

    11 

    12 !PPCTokenGuard class methodsFor:'as yet unclassified'!

    13 

    14 on: node

    15     ^ self new

    16         node: node;

    17         yourself

    18 ! !

    19 

    20 !PPCTokenGuard methodsFor:'as yet unclassified'!

    21 

    22 firstToken

    23     self assert: node firstSetWithTokens  size = 1.

    24     ^ node firstSetWithTokens anyOne

    25 !

    26 

    27 makesSense

    28     ^ node firstSetWithTokens size = 1 and: [ node firstSetWithTokens anyOne isTokenNode ]

    29 !

    30 

    31 node

    32     ^ node

    33 !

    34 

    35 node: aPPCNode

    36     node := aPPCNode

    37 ! !

    38