DaoObject* DaoObject_New( DaoClass *klass )
{
DaoObject *self = DaoObject_Allocate( klass, klass->objDataName->size );
GC_IncRC( self );
self->rootObject = self;
DaoObject_Init( self, NULL, 0 );
return self;
}
void DaoClass_SetName( DaoClass *self, DString *name, DaoNamespace *ns )
{
DaoRoutine *rout;
DString *str;
if( self->classRoutine ) return;
self->inter = DaoInterface_New( ns, name->mbs );
DString_SetMBS( self->inter->abtype->name, "interface<" );
DString_Append( self->inter->abtype->name, name );
DString_AppendChar( self->inter->abtype->name, '>' );
DaoClass_AddReference( self, self->inter );
self->objType = DaoType_New( name->mbs, DAO_OBJECT, (DaoValue*)self, NULL );
self->clsType = DaoType_New( name->mbs, DAO_CLASS, (DaoValue*) self, NULL );
GC_IncRC( self->clsType );
DString_InsertMBS( self->clsType->name, "class<", 0, 0, 0 );
DString_AppendChar( self->clsType->name, '>' );
str = DString_New(1);
DString_SetMBS( str, "self" );
DaoClass_AddObjectVar( self, str, NULL, self->objType, DAO_DATA_PRIVATE );
DString_Assign( self->className, name );
DaoClass_AddType( self, name, self->objType );
rout = DaoRoutine_New( ns, self->objType, 1 );
DString_Assign( rout->routName, name );
DString_AppendMBS( rout->routName, "::" );
DString_Append( rout->routName, name );
self->classRoutine = rout; /* XXX class<name> */
GC_IncRC( rout );
rout->routType = DaoType_New( "routine<=>", DAO_ROUTINE, (DaoValue*)self->objType, NULL );
DString_Append( rout->routType->name, name );
DString_AppendMBS( rout->routType->name, ">" );
GC_IncRC( rout->routType );
rout->attribs |= DAO_ROUT_INITOR;
DaoClass_AddConst( self, name, (DaoValue*) self, DAO_DATA_PUBLIC );
self->classRoutines = DaoRoutines_New( ns, self->objType, NULL );
DString_Assign( self->classRoutines->routName, name );
DaoClass_AddConst( self, rout->routName, (DaoValue*)self->classRoutines, DAO_DATA_PUBLIC );
self->objType->value = (DaoValue*) DaoObject_Allocate( self, 0 );
self->objType->value->xObject.trait |= DAO_VALUE_CONST|DAO_VALUE_NOCOPY;
self->objType->value->xObject.isDefault = 1;
GC_IncRC( self->objType->value );
DString_SetMBS( str, "default" );
DaoClass_AddConst( self, str, self->objType->value, DAO_DATA_PUBLIC );
DString_Delete( str );
}
void DaoObject_Init( DaoObject *self, DaoObject *that, int offset )
{
DaoClass *klass = self->defClass;
daoint i;
if( that ){
GC_ShiftRC( that, self->rootObject );
self->rootObject = that;
self->objValues = that->objValues + offset;
}else if( self->rootObject == NULL ){
GC_ShiftRC( self, self->rootObject );
self->rootObject = self;
if( self->isNull ){ /* no value space is allocated for null object yet! */
self->valueCount = klass->objDataName->size;
self->objValues = (DaoValue**) dao_calloc( self->valueCount, sizeof(DaoValue*) );
}
}
offset += self->defClass->objDefCount;
if( klass->parent != NULL && klass->parent->type == DAO_CLASS ){
DaoObject *sup = NULL;
if( self->isNull ){
sup = & klass->parent->xClass.objType->value->xObject;
}else{
sup = DaoObject_Allocate( (DaoClass*) klass->parent, 0 );
sup->isRoot = 0;
DaoObject_Init( sup, self->rootObject, offset );
}
GC_ShiftRC( sup, self->parent );
self->parent = (DaoValue*)sup;
}
GC_ShiftRC( self, self->objValues[0] );
self->objValues[0] = (DaoValue*) self;
if( self->isRoot == 0 ) return;
for(i=1; i<klass->instvars->size; i++){
DaoVariable *var = klass->instvars->items.pVar[i];
DaoValue **value = self->objValues + i;
/* for data type such as list/map/array,
* its .ctype may need to be set properaly */
if( var->value ){
DaoValue_Move( var->value, value, var->dtype );
continue;
}else if( *value == NULL && var->dtype && var->dtype->value ){
DaoValue_Copy( var->dtype->value, value );
}
}
}
