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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJExpressionNode subclass:#PJAnnotationNode

     6 	instanceVariableNames:'typeName'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJAnnotationNode comment:''

    13 !

    14 

    15 !PJAnnotationNode class methodsFor:'instance creation'!

    16 

    17 typeName: aPJNameNode

    18 

    19 	^(self new) typeName: aPJNameNode ; yourself

    20 ! !

    21 

    22 !PJAnnotationNode methodsFor:'accessing'!

    23 

    24 typeName

    25 	^ typeName

    26 !

    27 

    28 typeName: anObject

    29 	typeName := anObject

    30 ! !

    31 

    32 !PJAnnotationNode methodsFor:'testing'!

    33 

    34 isAnnotation

    35 

    36 	^true

    37 !

    38 

    39 isModifier 

    40 

    41 	^ false

    42 ! !

    43