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 }"
PJNameNode subclass:#PJQualifiedNameNode
instanceVariableNames:'qualifier simpleName'
classVariableNames:''
poolDictionaries:''
category:'PetitJava-AST'
!
PJQualifiedNameNode comment:''
!
!PJQualifiedNameNode class methodsFor:'instance creation'!
name: aPJSimpleName qualifier: aPJName
^(self new) simpleName: aPJSimpleName ; qualifier: aPJName; yourself
! !
!PJQualifiedNameNode methodsFor:'accessing'!
fullyQualifiedName
^ (self qualifier fullyQualifiedName ) , '.' , self simpleName fullyQualifiedName
!
qualifier
^ qualifier
!
qualifier: anObject
qualifier := anObject
!
simpleName
^ simpleName
!
simpleName: anObject
simpleName := anObject
! !