moo/kernel/Class.moo

interface ClassInterface
{
	method name.
	method superclass.
}

//
// the Class object should be a variable-pointer object because
// it needs to accomodate class instance variables.
//
class(#pointer,#limited,#uncopyable) Class(Apex) [ClassInterface]
{
	var name, instmthdic, classmthdic, nsup, nsdic.
	var spec, selfspec, superclass, subclasses, modname.
	var instvars, classinstvars, classvars, pooldics.
	var trsize, trgc, initv, initv_ci.

	method(#class) initialize { ^self }

	/* most of the following methods can actually become class methods of Apex.
	 * if the instance varibles can be made accessible from the Apex class. */
	method name { ^self.name }
	method superclass { ^self.superclass }

	method specNumInstVars
	{
		// shift right by 8 bits.
		// see MOO_CLASS_SPEC_NAMED_INSTVARS in moo-prv.h for details.
		^self.spec bitShift: -8
	}

	/*method inheritsFrom: aSuperclass
	{
		| c |
		c := self superclass.
		[c notNil] whileTrue: [
			[ c == aSuperclass ] ifTrue: [^true].
			c := c superclass.
		].
		^false
	}*/

	method nsup { ^self.nsup }
	method nsdic { ^self.nsdic }
}

class(#pointer,#limited,#uncopyable) Interface(Apex)
{
	var name, instmthdic, classmthdic, nsup, nsdic.
}