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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJBodyDeclarationNode subclass:#PJBehaviouralNode

     6 	instanceVariableNames:'simpleName returnType parameters'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJBehaviouralNode comment:'Behavioural node is some entity which has a behavior in it. This reffers to methods in general, but can also reffer to a constructor'

    13 !

    14 

    15 !PJBehaviouralNode class methodsFor:'instance creation'!

    16 

    17 named: aString 

    18 

    19 	^(self new) simpleName: aString ; yourself 

    20 ! !

    21 

    22 !PJBehaviouralNode methodsFor:'accessing'!

    23 

    24 parameters

    25 	^ parameters

    26 !

    27 

    28 parameters: anObject

    29 	parameters := anObject

    30 !

    31 

    32 returnType

    33 	^ returnType

    34 !

    35 

    36 returnType: anObject

    37 	returnType := anObject

    38 !

    39 

    40 simpleName

    41 	^ simpleName

    42 !

    43 

    44 simpleName: anObject

    45 	simpleName := anObject

    46 ! !

    47