DaoValue* DaoCinValue_DoConversion( DaoValue *self, DaoType *type, int copy, DaoProcess *proc )
{
DaoCinType *cintype = self->xCinValue.cintype;
DaoTypeCore *core;
DaoRoutine *rout;
DString *buffer;
if( cintype->target == type ){
if( copy ) return DaoValue_Convert( self->xCinValue.value, type, copy, proc );
return self->xCinValue.value;
}else if( DaoType_MatchTo( cintype->target, type, NULL ) >= DAO_MT_EQ ){
if( copy ) return DaoValue_Convert( self->xCinValue.value, type, copy, proc );
return self->xCinValue.value;
}
buffer = DString_NewChars( "(" );
DString_Append( buffer, type->name );
DString_AppendChars( buffer, ")" );
rout = DaoType_FindFunction( cintype->vatype, buffer );
DString_Delete( buffer );
if( rout != NULL ){
int rc = DaoProcess_PushCall( proc, rout, self, (DaoValue**) & type, 1 );
if( rc == 0 ) return NULL;
}
return DaoValue_Convert( self->xCinValue.value, type, copy, proc );
}
int DaoValue_CheckSetField( DaoType *self, DaoString *name, DaoType *value )
{
DString *buffer = DString_NewChars( "." );
DaoRoutine *rout;
DaoType *args[2];
DString_Append( buffer, name->value );
DString_AppendChars( buffer, "=" );
rout = DaoType_FindFunction( self, buffer );
DString_Delete( buffer );
if( rout != NULL ){
rout = DaoRoutine_MatchByType( rout, self, & value, 1, DVM_CALL );
if( rout == NULL ) return DAO_ERROR_VALUE;
}else{
rout = DaoType_FindFunctionChars( self, ".=" );
if( rout == NULL ) return DAO_ERROR_FIELD_ABSENT;
args[0] = rout->nameSpace->vmSpace->typeString;
args[1] = value;
rout = DaoRoutine_MatchByType( rout, self, args, 2, DVM_CALL );
if( rout == NULL ) return DAO_ERROR_VALUE;
}
return DAO_OK;
}
DaoType* DaoCinValue_CheckConversion( DaoType *self, DaoType *type, DaoRoutine *ctx )
{
DaoCinType *cintype = (DaoCinType*) self->aux;
DaoTypeCore *core;
DaoRoutine *rout;
DString *buffer;
if( cintype->target == type ){
return type;
}else if( DaoType_MatchTo( cintype->target, type, NULL ) >= DAO_MT_EQ ){
return type;
}
buffer = DString_NewChars( "(" );
DString_Append( buffer, type->name );
DString_AppendChars( buffer, ")" );
rout = DaoType_FindFunction( cintype->vatype, buffer );
DString_Delete( buffer );
if( rout != NULL ){
DaoType *ttype = DaoNamespace_GetType( ctx->nameSpace, (DaoValue*) type );
rout = DaoRoutine_MatchByType( rout, self, & ttype, 1, DVM_CALL );
if( rout ) return type;
}
core = cintype->target->core;
if( core != NULL && core->CheckConversion ){
return core->CheckConversion( cintype->target, type, ctx );
}
return NULL;
}
DaoxWindow* DaoxWindow_New()
{
DaoxWindow *self = (DaoxWindow*) dao_calloc(1,sizeof(DaoxWindow));
DaoCstruct_Init( (DaoCstruct*)self, daox_type_window );
self->context = DaoxContext_New();
GC_IncRC( self->context );
self->title = DString_NewChars( "Untitled" );
self->width = 300.0;
self->height = 200.0;
return self;
}
static DaoType* DaoInterface_CheckConversion( DaoType *self, DaoType *type, DaoRoutine *ctx )
{
DaoRoutine *rout;
DString *buffer = DString_NewChars( "(" );
DString_Append( buffer, type->name );
DString_AppendChars( buffer, ")" );
rout = DaoType_FindFunction( self, buffer );
DString_Delete( buffer );
if( rout != NULL ){
DaoType *ttype = DaoNamespace_GetType( ctx->nameSpace, (DaoValue*) type );
rout = DaoRoutine_MatchByType( rout, self, & ttype, 1, DVM_CALL );
if( rout ) return type;
}
return NULL;
}
static int DaoObject_CheckSetField( DaoType *self, DaoString *name, DaoType *value, DaoRoutine *ctx )
{
DaoClass *klass = (DaoClass*) self->aux;
DaoType *type = ctx->routHost;
DaoClass *host = type != NULL && type->tid == DAO_OBJECT ? (DaoClass*) type->aux : NULL;
DaoValue *data = DaoClass_GetData( klass, name->value, host );
DaoRoutine *rout;
int error = DAO_OK;
error = 0;
if( strcmp( name->value->chars, "self" ) ==0 ) return DAO_ERROR_FIELD_HIDDEN;
if( data == NULL ){
error = DAO_ERROR_FIELD_ABSENT;
}else if( data->type == DAO_NONE ){
error = DAO_ERROR_FIELD_HIDDEN;
}else if( data->xBase.subtype == DAO_CLASS_CONSTANT ){
error = DAO_ERROR_FIELD_HIDDEN; // XXX
}else{
/* data->xBase.subtype == DAO_CLASS_VARIABLE || DAO_OBJECT_VARIABLE */
if( DaoType_MatchTo( value, data->xVar.dtype, NULL ) == 0 ) return DAO_ERROR_VALUE;
}
if( error ){
DString *field = DString_NewChars( "." );
DString_Append( field, name->value );
DString_AppendChars( field, "=" );
rout = DaoClass_FindMethod( klass, field->chars, host );
DString_Delete( field );
if( rout != NULL ){
rout = DaoRoutine_MatchByType( rout, self, & value, 1, DVM_CALL );
}else{
DaoType *args[2];
args[0] = dao_type_string;
args[1] = value;
rout = DaoClass_FindMethod( klass, ".=", host );
if( rout == NULL ) return error;
rout = DaoRoutine_MatchByType( rout, self, args, 2, DVM_CALL );
}
if( rout == NULL ) return error;
}
return DAO_OK;
}
static DaoValue* DaoObject_DoConversion( DaoValue *self, DaoType *type, int copy, DaoProcess *proc )
{
DaoObject *object = (DaoObject*) self;
DaoClass *host = proc->activeObject ? proc->activeObject->defClass : NULL;
DaoValue *base = DaoObject_CastToBase( object->rootObject, type );
DaoRoutine *rout;
DString *buffer;
if( base ) return base;
buffer = DString_NewChars( "(" );
DString_Append( buffer, type->name );
DString_AppendChars( buffer, ")" );
rout = DaoClass_FindMethod( object->defClass, buffer->chars, host );
DString_Delete( buffer );
if( rout != NULL ){
int rc = DaoProcess_PushCall( proc, rout, self, (DaoValue**) & type, 1 );
if( rc ) return NULL;
}
return NULL;
}
static DaoType* DaoObject_CheckConversion( DaoType *self, DaoType *type, DaoRoutine *ctx )
{
DString *buffer;
DaoRoutine *rout;
DaoType *hostype = ctx->routHost;
DaoClass *host = hostype != NULL && hostype->tid == DAO_OBJECT ? (DaoClass*) hostype->aux : NULL;
if( DaoType_ChildOf( self, type ) ) return type;
if( DaoType_ChildOf( type, self ) ) return type;
buffer = DString_NewChars( "(" );
DString_Append( buffer, type->name );
DString_AppendChars( buffer, ")" );
rout = DaoClass_FindMethod( (DaoClass*) self->aux, buffer->chars, host );
DString_Delete( buffer );
if( rout != NULL ){
DaoType *ttype = DaoNamespace_GetType( ctx->nameSpace, (DaoValue*) type );
rout = DaoRoutine_MatchByType( rout, self, & ttype, 1, DVM_CALL );
}
if( rout != NULL ) return type;
return NULL;
}
DaoType* DaoValue_CheckGetField( DaoType *self, DaoString *name )
{
DaoRoutine *rout = DaoType_FindFunction( self, name->value );
DaoType *argtype;
DString *buffer;
if( rout != NULL ) return rout->routType;
buffer = DString_NewChars( "." );
DString_Append( buffer, name->value );
rout = DaoType_FindFunction( self, buffer );
DString_Delete( buffer );
if( rout != NULL ){
rout = DaoRoutine_MatchByType( rout, self, NULL, 0, DVM_CALL );
}else{
rout = DaoType_FindFunctionChars( self, "." );
if( rout == NULL ) return NULL;
argtype = rout->nameSpace->vmSpace->typeString;
rout = DaoRoutine_MatchByType( rout, self, & argtype, 1, DVM_CALL );
}
if( rout == NULL ) return NULL;
return (DaoType*) rout->routType->aux;
}
static DaoType* DaoObject_CheckGetField( DaoType *self, DaoString *name, DaoRoutine *ctx )
{
DaoClass *klass = (DaoClass*) self->aux;
DaoType *type = ctx->routHost;
DaoClass *host = type != NULL && type->tid == DAO_OBJECT ? (DaoClass*) type->aux : NULL;
DaoValue *data = DaoClass_GetData( klass, name->value, host );
DaoRoutine *rout;
int error = DAO_OK;
if( data == NULL ){
error = DAO_ERROR_FIELD_ABSENT;
}else if( data->type == DAO_NONE ){
error = DAO_ERROR_FIELD_HIDDEN;
}else{
switch( data->xBase.subtype ){
case DAO_OBJECT_VARIABLE : return data->xVar.dtype;
case DAO_CLASS_VARIABLE : return data->xVar.dtype;
case DAO_CLASS_CONSTANT : return DaoNamespace_GetType( ctx->nameSpace, data->xConst.value );
}
}
if( error ){
DString *field = DString_NewChars( "." );
DString_Append( field, name->value );
rout = DaoClass_FindMethod( klass, field->chars, host );
DString_Delete( field );
if( rout != NULL ){
rout = DaoRoutine_MatchByType( rout, self, NULL, 0, DVM_CALL );
}else{
rout = DaoClass_FindMethod( klass, ".", host );
if( rout == NULL ) return NULL;
rout = DaoRoutine_MatchByType( rout, self, & dao_type_string, 1, DVM_CALL );
}
if( rout == NULL ) return NULL;
return (DaoType*) rout->routType->aux;
}
return NULL;
}
