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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPToken subclass:#PPJavaToken

     6 	instanceVariableNames:'comments'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-Core'

    10 !

    11 

    12 PPJavaToken comment:''

    13 !

    14 

    15 !PPJavaToken methodsFor:'accessing'!

    16 

    17 comments

    18 	^ comments

    19 !

    20 

    21 comments: anObject

    22 	comments := anObject

    23 ! !

    24 

    25 !PPJavaToken methodsFor:'compatibility'!

    26 

    27 length 

    28 

    29 	^ self size

    30 ! !

    31