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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJAbstractTypeDeclarationNode subclass:#PJTypeDeclarationNode

     6 	instanceVariableNames:'isInterface superclassType superInterfaceTypes fieldDeclarations

     7 		methodDeclarations'

     8 	classVariableNames:''

     9 	poolDictionaries:''

    10 	category:'PetitJava-AST'

    11 !

    12 

    13 PJTypeDeclarationNode comment:''

    14 !

    15 

    16 !PJTypeDeclarationNode methodsFor:'accessing'!

    17 

    18 fieldDeclarations

    19 	^ fieldDeclarations

    20 !

    21 

    22 fieldDeclarations: anObject

    23 	fieldDeclarations := anObject

    24 !

    25 

    26 isInterface

    27 	^ isInterface

    28 !

    29 

    30 isInterface: anObject

    31 	isInterface := anObject

    32 !

    33 

    34 methodDeclarations

    35 	^ methodDeclarations

    36 !

    37 

    38 methodDeclarations: anObject

    39 	methodDeclarations := anObject

    40 !

    41 

    42 superInterfaceTypes

    43 	^ superInterfaceTypes

    44 !

    45 

    46 superInterfaceTypes: anObject

    47 	superInterfaceTypes := anObject

    48 !

    49 

    50 superclassType

    51 	^ superclassType

    52 !

    53 

    54 superclassType: anObject

    55 	superclassType := anObject

    56 ! !

    57 

    58 !PJTypeDeclarationNode methodsFor:'visiting'!

    59 

    60 acceptVisitor: aVisitor

    61 

    62 	aVisitor visitTypeDeclarationNode: self

    63 ! !

    64