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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJSyntaxNode subclass:#PJCommentsNode

     6 	instanceVariableNames:'comment'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJCommentsNode comment:''

    13 !

    14 

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

    16 

    17 comment: aString

    18 	^(self new) comment: aString; yourself.

    19 ! !

    20 

    21 !PJCommentsNode methodsFor:'as yet unclassified'!

    22 

    23 acceptVisitor: aVisitor

    24 	^ aVisitor visitCommentsNode: self

    25 !

    26 

    27 comment

    28 ^ comment.

    29 !

    30 

    31 comment: aString 

    32 	comment := aString.

    33 !

    34 

    35 printOn: aStream

    36 	^	aStream 

    37 		nextPutAll: 'comment value ==> ';

    38 		nextPutAll: self comment.

    39   

    40 ! !

    41