parsers/java/PJQualifiedNameNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 10 May 2015 14:20:24 +0100
changeset 454 a9cd5ea7cc36
parent 436 e1c44b571db9
permissions -rw-r--r--
Portability: fixes for Smalltalk/X * Do not use detect:ifFound: - not present in Smalltalk/X * Removed leftover debugging code (Halt if:, ...) * Do not use `aClass methods`, use `aClass methodDictionary values` * Do not use #allPairsDo; - not present in Smalltalk/X * Do not use #crShow: - not present in Smalltalk/X * On Smalltalk?X use Filename - there's no FileReference in Smalltalk/X * Do not use CharacterSet, use String

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

"{ NameSpace: Smalltalk }"

PJNameNode subclass:#PJQualifiedNameNode
	instanceVariableNames:'qualifier simpleName'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitJava-AST'
!

!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
! !