"{ Package: 'jv:tea/compiler' }"

"{ NameSpace: Smalltalk }"

RGNamespace subclass:#TNamespaceDefinition
	instanceVariableNames:'binding'
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Tea-Compiler-Model'
!

!TNamespaceDefinition methodsFor:'accessing'!

binding
    ^ binding
!

binding:aTNamespaceBinding
    binding := aTNamespaceBinding.
! !

!TNamespaceDefinition methodsFor:'adding elements'!

addMethod: method
    | mclassName mclassIsMeta mclass |

    mclassName := method className.
    (mclassName endsWith: ' class') ifTrue:[ 
        mclassName := mclassName copyTo: mclassName size - 6.
        mclassIsMeta := true.
    ] ifFalse:[ 
        mclassIsMeta := false.
    ].
    mclass := self classNamed: mclassName.
    mclassIsMeta ifTrue:[ 
        mclass := mclass theMetaclass.
    ].
    mclass addMethod: method.

    "Created: / 31-08-2015 / 17:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !