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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PPCLRPNode

     6 	instanceVariableNames:'start stop nameRange'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Extras-Tests-LRP'

    10 !

    11 

    12 !PPCLRPNode methodsFor:'accessing'!

    13 

    14 nameRange

    15     nameRange ifNil: [self halt: 'Error in setting up range info for styling.' ].

    16     ^ nameRange

    17 !

    18 

    19 nameRange: anObject

    20     nameRange := anObject

    21 !

    22 

    23 start

    24     ^ start

    25 !

    26 

    27 start: anObject

    28     start := anObject

    29 !

    30 

    31 start: aNumber stop: anotherNumber

    32     

    33     start := aNumber.

    34     stop := anotherNumber.

    35 !

    36 

    37 stop

    38     ^ stop

    39 !

    40 

    41 stop: anObject

    42     stop := anObject

    43 ! !

    44 

    45 !PPCLRPNode methodsFor:'error handing'!

    46 

    47 onErrorNode: aBlock parser: aPPCLRPParser

    48     "do nothing"

    49 ! !

    50 

    51 !PPCLRPNode methodsFor:'testing'!

    52 

    53 isError

    54 

    55     ^false.

    56 ! !

    57 

    58 !PPCLRPNode methodsFor:'visiting'!

    59 

    60 acceptVisitor: aPPCLRPNodeVisitor

    61     aPPCLRPNodeVisitor visitAnyNode: self.

    62 ! !

    63