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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJNameNode subclass:#PJQualifiedNameNode

     6 	instanceVariableNames:'qualifier simpleName'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJQualifiedNameNode comment:''

    13 !

    14 

    15 !PJQualifiedNameNode class methodsFor:'instance creation'!

    16 

    17 name: aPJSimpleName qualifier: aPJName

    18 

    19 	^(self new) simpleName: aPJSimpleName ; qualifier: aPJName; yourself

    20 ! !

    21 

    22 !PJQualifiedNameNode methodsFor:'accessing'!

    23 

    24 fullyQualifiedName

    25 	^ (self qualifier fullyQualifiedName ) , '.' , self simpleName fullyQualifiedName

    26 !

    27 

    28 qualifier

    29 	^ qualifier

    30 !

    31 

    32 qualifier: anObject

    33 	qualifier := anObject

    34 !

    35 

    36 simpleName

    37 	^ simpleName

    38 !

    39 

    40 simpleName: anObject

    41 	simpleName := anObject

    42 ! !

    43