--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/parsers/java/PJCommentsNode.st Tue Apr 21 14:57:16 2015 +0100
@@ -0,0 +1,41 @@
+"{ Package: 'stx:goodies/petitparser/parsers/java' }"
+
+"{ NameSpace: Smalltalk }"
+
+PJSyntaxNode subclass:#PJCommentsNode
+ instanceVariableNames:'comment'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'PetitJava-AST'
+!
+
+PJCommentsNode comment:''
+!
+
+!PJCommentsNode class methodsFor:'as yet unclassified'!
+
+comment: aString
+ ^(self new) comment: aString; yourself.
+! !
+
+!PJCommentsNode methodsFor:'as yet unclassified'!
+
+acceptVisitor: aVisitor
+ ^ aVisitor visitCommentsNode: self
+!
+
+comment
+^ comment.
+!
+
+comment: aString
+ comment := aString.
+!
+
+printOn: aStream
+ ^ aStream
+ nextPutAll: 'comment value ==> ';
+ nextPutAll: self comment.
+
+! !
+