compiler/TClassDefinition.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 22 Sep 2015 17:43:38 +0100
changeset 14 fa42d3f1a578
parent 7 7556e3d41d80
child 16 17a2d1d9f205
permissions -rw-r--r--
Removed syntax for inline assembly, use <primitive: [:asm | ... ]> syntax. This one is easier to implement and less introusive, syntax-wise. And follows Smalltalk tradiiton.

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

"{ NameSpace: Smalltalk }"

RGClassDefinition subclass:#TClassDefinition
	instanceVariableNames:'binding'
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Tea-Compiler-Model'
!

!TClassDefinition methodsFor:'accessing'!

binding
    binding isNil ifTrue:[ 
        binding := TClassBinding clazz: self.
    ].
    ^ binding

    "Modified: / 02-09-2015 / 16:02:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!TClassDefinition methodsFor:'behavior'!

withMetaclass
    "Registers explicitly the metaclass of a class"

    metaClass:= TMetaDefinition class: self

    "Modified: / 31-08-2015 / 11:53:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!TClassDefinition methodsFor:'class variables'!

addClassVarNamed: aString
    self shouldNotImplement

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

addClassVariables: aCollection
    self shouldNotImplement

    "Created: / 31-08-2015 / 15:38:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!TClassDefinition methodsFor:'instance variables'!

addInstVarNamed: aString
    self shouldNotImplement

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

addInstanceVariables: aCollection
    self shouldNotImplement

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

classVariableNames: aStringOrCollection
    aStringOrCollection isEmptyOrNil ifTrue:[ ^ self ].

    self notYetImplemented

    "Created: / 31-08-2015 / 15:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

instanceVariableNames: aStringOrCollection
    aStringOrCollection isEmptyOrNil ifTrue:[ ^ self ].

    self notYetImplemented

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