Пример #1
0
void DaoCxxVirt_Greeting::VirtWithDefault( int &_cs, const Greeting& g )
{
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "VirtWithDefault" );
  if( _ro == NULL || _obj == NULL ) return;
  DaoPF10004( & _cs, _ro, _obj, g );
}
Пример #2
0
void DaoCxxVirt_Greeting::DoGreeting( int &_cs, const char* name )
{
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "DoGreeting" );
  if( _ro == NULL || _obj == NULL ) return;
  ( & _cs, _ro, _obj, name );
}
Пример #3
0
otto DaoCxxVirt_otto::test( int &_cs, const otto& value )
{
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "test" );
  otto _test = 0;
  if( _ro == NULL || _obj == NULL ) return _test;
  return (otto)DaoPF10002( & _cs, _ro, _obj, value );
}
Пример #4
0
void DaoCxxVirt_otto::vtest( int &_cs  )
{
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "vtest" );
  if( _ro == NULL || _obj == NULL ) return;
  _ro = DaoMethod_Resolve( _ro, (DaoValue*)_obj, NULL, 0 );
  if( DaoValue_CastRoutine( (DaoValue*)_ro ) == NULL ) return;
  DaoProcess *_vmp = DaoVmSpace_AcquireProcess( __daoVmSpace );
  DaoProcess_Call( _vmp, _ro, (DaoValue*)_obj, NULL, 0 );
  DaoVmSpace_ReleaseProcess( __daoVmSpace, _vmp );
}
Пример #5
0
void DaoCxx_Greeting2::VirtWithDefault( const Greeting& g )
{
  int _cs = 0;
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "VirtWithDefault" );
  if( _ro && _obj ){
    ((DaoCxxVirt_Greeting*)this)->DaoCxxVirt_Greeting::VirtWithDefault( _cs, g );
    if( _cs ) return;
  }
  Greeting::VirtWithDefault( g );
}
Пример #6
0
void DaoCxx_Greeting2::DoGreeting( const char* name )
{
  int _cs = 0;
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "DoGreeting" );
  if( _ro && _obj ){
    ((DaoCxxVirt_Greeting*)this)->DaoCxxVirt_Greeting::DoGreeting( _cs, name );
    if( _cs ) return;
  }
  Greeting::DoGreeting( name );
}
Пример #7
0
void DaoCxx_otto2::vtest(  )
{
  int _cs = 0;
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "vtest" );
  if( _ro && _obj ){
    ((DaoCxxVirt_otto2*)this)->DaoCxxVirt_otto2::vtest( _cs  );
    if( _cs ) return;
  }
  otto2::vtest(  );
}
Пример #8
0
otto DaoCxx_otto2::test( const otto& value )
{
  int _cs = 0;
  DaoObject *_obj = NULL;
  DaoMethod *_ro = Dao_Get_Object_Method( cdata, & _obj, "test" );
  if( _ro && _obj ){
    otto _test = ((DaoCxxVirt_otto*)this)->DaoCxxVirt_otto::test( _cs, value );
    if( _cs ) return _test;
  }
  return otto::test( value );
}
Пример #9
0
static int Dao_gsl_odeiv_system_jacobian( double t, const double* y, double* dfdy, double* dydt, void* params )
{
  Dao_gsl_odeiv_system *_self = (Dao_gsl_odeiv_system*) params;
  gsl_odeiv_system *_self2 = _self->object;
  DaoCdata *_cdata = _self->_cdata;
  int _cs = 1;
  DaoObject *_obj = NULL;
  DaoRoutine *_ro = Dao_Get_Object_Method( _cdata, & _obj, "jacobian" );
  int X = (int) 0;
  if( _ro == NULL || _obj == NULL ) return X;
  return (int)DaoPF10294( & _cs, _ro, _obj, t, y, dfdy, dydt, (DaoValue*)_cdata );
}
Пример #10
0
void DaoCstruct_CallMethod( DaoCstruct *cdata, const char *method )
{
	DaoObject *obj = NULL;
	DaoRoutine *rout = Dao_Get_Object_Method( cdata, & obj, method );
	DaoValue *render = (DaoValue*) daox_current_renderer;
	DaoProcess *proc;

	if( rout == NULL || obj == NULL ) return;
	proc = DaoVmSpace_AcquireProcess( __daoVmSpace );

	rout = DaoRoutine_Resolve( rout, (DaoValue*) obj, NULL, & render, NULL, 1, 0 );
	if( rout == NULL ) goto Finalize;
	DaoProcess_Call( proc, rout, (DaoValue*) obj, & render, 1 );
Finalize:
	DaoVmSpace_ReleaseProcess( __daoVmSpace, proc );
}
Пример #11
0
DaoCstruct* DaoxResource_CallMethod( DaoxResource *self, const char *method, DaoType *ctype )
{
	DaoValue *res = NULL;
	DaoObject *obj = NULL;
	DaoRoutine *rout = Dao_Get_Object_Method( (DaoCstruct*) self, & obj, method );
	DaoProcess *proc;

	if( rout == NULL || obj == NULL ) return NULL;
	proc = DaoVmSpace_AcquireProcess( dao_vmspace_graphics );

	rout = DaoRoutine_Resolve( rout, (DaoValue*) obj, NULL, NULL, NULL, 0, 0 );
	if( rout == NULL ) goto Finalize;
	DaoProcess_Call( proc, rout, (DaoValue*) obj, NULL, 0 );
	res = DaoProcess_GetReturned( proc );
	if( res == NULL || res->type != DAO_OBJECT ) return NULL;
	return DaoObject_CastCstruct( (DaoObject*)res, ctype );
Finalize:
	DaoVmSpace_ReleaseProcess( dao_vmspace_graphics, proc );
	return NULL;
}
Пример #12
0
int DaoCstruct_CallKeyboardMethod( DaoCstruct *cdata, const char *method, int key, int x, int y )
{
	DaoObject *obj = NULL;
	DaoRoutine *rout = Dao_Get_Object_Method( cdata, & obj, method );
	DaoProcess *proc;
	DaoValue **params;

	if( rout == NULL || obj == NULL ) return 0;
	proc = DaoVmSpace_AcquireProcess( __daoVmSpace );

	DaoProcess_NewInteger( proc, (daoint) key );
	DaoProcess_NewInteger( proc, (daoint) x );
	DaoProcess_NewInteger( proc, (daoint) y );
	params = DaoProcess_GetLastValues( proc, 3 );
	rout = DaoRoutine_Resolve( rout, (DaoValue*) obj, NULL, params, NULL, 3, 0 );
	if( rout == NULL ) goto Finalize;
	DaoProcess_Call( proc, rout, (DaoValue*) obj, params, 3 );
Finalize:
	DaoVmSpace_ReleaseProcess( __daoVmSpace, proc );
	return rout != NULL;
}