DaoCinType* DaoCinType_New( DaoInterface *inter, DaoType *target )
{
DaoCinType *self = (DaoCinType*) dao_calloc( 1, sizeof(DaoCinType) );
DaoValue_Init( self, DAO_CINTYPE );
self->trait |= DAO_VALUE_DELAYGC;
self->derived = 0;
self->supers = DList_New( DAO_DATA_VALUE );
self->methods = DHash_New( DAO_DATA_STRING, DAO_DATA_VALUE );
self->citype = DaoType_New( "interface<", DAO_CINTYPE, (DaoValue*)self, NULL );
self->vatype = DaoType_New( inter->abtype->name->chars, DAO_CINVALUE, (DaoValue*)self, NULL );
self->abstract = inter;
self->target = target;
GC_IncRC( self->citype );
GC_IncRC( self->vatype );
GC_IncRC( self->abstract );
GC_IncRC( self->target );
self->citype->nested = DList_New( DAO_DATA_VALUE );
self->vatype->nested = DList_New( DAO_DATA_VALUE );
DList_Append( self->citype->nested, target );
DList_Append( self->vatype->nested, target );
DString_AppendChar( self->vatype->name, '<' );
DString_Append( self->vatype->name, target->name );
DString_AppendChar( self->vatype->name, '>' );
DString_Append( self->citype->name, self->vatype->name );
DString_AppendChar( self->citype->name, '>' );
#ifdef DAO_USE_GC_LOGGER
DaoObjectLogger_LogNew( (DaoValue*) self );
#endif
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 );
}
DaoCinType* DaoCinType_New( DaoInterface *inter, DaoType *target )
{
DaoCinType *self = (DaoCinType*) dao_calloc( 1, sizeof(DaoCinType) );
DaoNamespace *ns = inter->nameSpace;
DString *name = inter->abtype->name;
DaoValue_Init( self, DAO_CINTYPE );
self->trait |= DAO_VALUE_DELAYGC;
self->derived = 0;
self->bases = DList_New( DAO_DATA_VALUE );
self->methods = DHash_New( DAO_DATA_STRING, DAO_DATA_VALUE );
self->citype = DaoType_New( ns, "interface<", DAO_CINTYPE, (DaoValue*)self, NULL );
self->vatype = DaoType_New( ns, name->chars, DAO_CINVALUE, (DaoValue*)self, NULL );
self->abstract = inter;
self->target = target;
self->citype->core = & daoCinTypeCore;
self->vatype->core = & daoCinValueCore;
GC_IncRC( self->citype );
GC_IncRC( self->vatype );
GC_IncRC( self->abstract );
GC_IncRC( self->target );
self->vatype->kernel = DaoTypeKernel_New( NULL );
self->vatype->kernel->abtype = self->vatype;
GC_IncRC( self->vatype->kernel );
GC_IncRC( self->vatype );
self->citype->args = DList_New( DAO_DATA_VALUE );
self->vatype->args = DList_New( DAO_DATA_VALUE );
DList_Append( self->citype->args, target );
DList_Append( self->vatype->args, target );
DString_AppendChar( self->vatype->name, '<' );
DString_Append( self->vatype->name, target->name );
DString_AppendChar( self->vatype->name, '>' );
DString_Append( self->citype->name, self->vatype->name );
DString_AppendChar( self->citype->name, '>' );
#ifdef DAO_USE_GC_LOGGER
DaoObjectLogger_LogNew( (DaoValue*) self );
#endif
return self;
}
DaoInterface* DaoInterface_New( const char *name )
{
DaoInterface *self = (DaoInterface*) dao_calloc( 1, sizeof(DaoInterface) );
DaoValue_Init( self, DAO_INTERFACE );
self->trait |= DAO_VALUE_DELAYGC;
self->derived = 0;
self->supers = DList_New( DAO_DATA_VALUE );
self->methods = DHash_New( DAO_DATA_STRING, DAO_DATA_VALUE );
self->abtype = DaoType_New( name, DAO_INTERFACE, (DaoValue*)self, NULL );
GC_IncRC( self->abtype );
#ifdef DAO_USE_GC_LOGGER
DaoObjectLogger_LogNew( (DaoValue*) self );
#endif
return self;
}
