Initial commit of PetitJava
Name: PetitJava-JanKurs.160
Author: JanKurs
Time: 19-12-2014, 01:00:18.354 PM
UUID: 1cb1b46d-8c68-4751-9720-f0dd742f3e16
"{ Package: 'stx:goodies/petitparser/parsers/java' }"
"{ NameSpace: Smalltalk }"
PJCommentsNode subclass:#PJEndOfLineCommentsNode
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitJava-AST'
!
PJEndOfLineCommentsNode comment:''
!
!PJEndOfLineCommentsNode class methodsFor:'as yet unclassified'!
comment: aString
^(self new) comment: aString; yourself.
! !
!PJEndOfLineCommentsNode methodsFor:'as yet unclassified'!
comment: aString
aString ifNotNil: [ comment := (aString collect: #asciiValue) asByteArray asString ].
aString ifNil: [ comment := '' ]
!
printOn: aStream
.^ aStream
nextPutAll: 'EndOfLineComment value ==> ';
nextPutAll: self comment.
! !