"{ Package: 'stx:goodies/ring' }"

"{ NameSpace: Smalltalk }"

RGElementDefinition subclass:#RGVariableDefinition
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Ring-Core-Kernel'
!

RGVariableDefinition comment:'A variable definition'
!


!RGVariableDefinition methodsFor:'accessing'!

environment

    ^ self parent environment 
!

fullName
    "Keeps a unique description for the receiver. As annotation to avoid converting each time is invoked"
    
    ^self annotationNamed: self class fullNameKey
        ifAbsentPut:[ (self parentName, '->', self name) asSymbol ]
! !

!RGVariableDefinition methodsFor:'comparing'!

= aRGVariableDefinition
    "This variable look for equality of the key properties of the receiver"

    ^(super = aRGVariableDefinition)
        and:[ self name == aRGVariableDefinition name ]
!

hash

    ^super hash bitXor: self name hash
! !

!RGVariableDefinition methodsFor:'testing'!

isClassInstanceVariable

    ^false
!

isClassVariable

    ^false
!

isInstanceVariable

    ^false
!

isPoolVariable

    ^false
!

isVariable

    ^true
! !

!RGVariableDefinition class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !