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 }"
PJExpressionNode subclass:#PJAnnotationNode
instanceVariableNames:'typeName'
classVariableNames:''
poolDictionaries:''
category:'PetitJava-AST'
!
PJAnnotationNode comment:''
!
!PJAnnotationNode class methodsFor:'instance creation'!
typeName: aPJNameNode
^(self new) typeName: aPJNameNode ; yourself
! !
!PJAnnotationNode methodsFor:'accessing'!
typeName
^ typeName
!
typeName: anObject
typeName := anObject
! !
!PJAnnotationNode methodsFor:'testing'!
isAnnotation
^true
!
isModifier
^ false
! !