parsers/java/PJQualifiedNameNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 31 Jul 2015 08:16:54 +0100
changeset 508 c74a0dbfa161
parent 436 e1c44b571db9
permissions -rw-r--r--
Temporarily disabled #acceptsEpsilon test in PPCTokenizingCodeGenerator>>visitChoiceNode: JK should have a look and come up with proper solution.

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