1 "{ Package: 'stx:goodies/petitparser/parsers/java' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJExpressionNode subclass:#PJSeparatorNode

     6 	instanceVariableNames:'separatorValue'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJSeparatorNode comment:''

    13 !

    14 

    15 !PJSeparatorNode class methodsFor:'as yet unclassified'!

    16 

    17 separatorValue: aString

    18 

    19  ^(self new) separatorValue: aString

    20 ! !

    21 

    22 !PJSeparatorNode methodsFor:'as yet unclassified'!

    23 

    24 acceptVisitor: aVisitor

    25 	^ aVisitor visitSeparatorNode: self

    26 !

    27 

    28 separatorValue

    29 	^ separatorValue.

    30 !

    31 

    32 separatorValue: anObject

    33 	separatorValue := anObject

    34 ! !

    35