Пример #1
0
void* Codelet_New(
   Type                                      type,
   Stg_Component_DefaultConstructorFunction* _defaultConstructor,
   Stg_Component_ConstructFunction*          _construct,
   Stg_Component_BuildFunction*              _build,
   Stg_Component_InitialiseFunction*         _initialise,
   Stg_Component_ExecuteFunction*            _execute,
   Stg_Component_DestroyFunction*            _destroy,
   Name                                      name )
{
   /* Variables set in this function */
   SizeT                      _sizeOfSelf = sizeof( Codelet );
   Stg_Class_DeleteFunction*      _delete = _Codelet_Delete;
   Stg_Class_PrintFunction*        _print = _Codelet_Print;
   Stg_Class_CopyFunction*          _copy = _Codelet_Copy;

   /* 
    * Variables that are set to ZERO are variables that will be set either by the 
    * current _New function or another parent _New function further up the hierachy.
    */

   /* default value NON_GLOBAL */
   AllocationType nameAllocationType = NON_GLOBAL;

   return _Codelet_New( CODELET_PASSARGS );
}
Пример #2
0
void* _SnacHetero_DefaultNew( Name name ) {
        return _Codelet_New( sizeof(Codelet),
                             SnacHetero_Type,
                             _Codelet_Delete,
                             _Codelet_Print,
                             _Codelet_Copy,
                             _SnacHetero_DefaultNew,
                             _SnacHetero_Construct,
                             _Codelet_Build,
                             _Codelet_Initialise,
                             _Codelet_Execute,
                             _Codelet_Destroy,
                             name );
}
void* _Underworld_DensityChange_DefaultNew( Name name ) {
	/* Variables set in this function */
	SizeT                                              _sizeOfSelf = sizeof( Underworld_DensityChange );
	Type                                                      type = Underworld_DensityChange_Type;
	Stg_Class_DeleteFunction*                              _delete = _Codelet_Delete;
	Stg_Class_PrintFunction*                                _print = _Codelet_Print;
	Stg_Class_CopyFunction*                                  _copy = _Codelet_Copy;
	Stg_Component_DefaultConstructorFunction*  _defaultConstructor = _Underworld_DensityChange_DefaultNew;
	Stg_Component_ConstructFunction*                    _construct = _Underworld_DensityChange_AssignFromXML;
	Stg_Component_BuildFunction*                            _build = _Codelet_Build;
	Stg_Component_InitialiseFunction*                  _initialise = _Codelet_Initialise;
	Stg_Component_ExecuteFunction*                        _execute = _Codelet_Execute;
	Stg_Component_DestroyFunction*                        _destroy = _Codelet_Destroy;

	/* Variables that are set to ZERO are variables that will be set either by the current _New function or another parent _New function further up the hierachy */
	AllocationType  nameAllocationType = NON_GLOBAL /* default value NON_GLOBAL */;

	return _Codelet_New(  CODELET_PASSARGS  );
}
void* _Spherical_CubedSphereNusselt_DefaultNew( Name name ) {
   /* Variables set in this function */
   SizeT                                             _sizeOfSelf = sizeof(Spherical_CubedSphereNusselt);
   Type                                                     type = Spherical_CubedSphereNusselt_Type;
   Stg_Class_DeleteFunction*                             _delete = _Codelet_Delete;
   Stg_Class_PrintFunction*                               _print = _Codelet_Print;
   Stg_Class_CopyFunction*                                 _copy = _Codelet_Copy;
   Stg_Component_DefaultConstructorFunction* _defaultConstructor = _Spherical_CubedSphereNusselt_DefaultNew;
   Stg_Component_ConstructFunction*                   _construct = _Spherical_CubedSphereNusselt_AssignFromXML;
   Stg_Component_BuildFunction*                           _build = _Spherical_CubedSphereNusselt_Build;
   Stg_Component_InitialiseFunction*                 _initialise = _Spherical_CubedSphereNusselt_Initialise;
   Stg_Component_ExecuteFunction*                       _execute = _Codelet_Execute;
   Stg_Component_DestroyFunction*                       _destroy = _Spherical_CubedSphereNusselt_Destroy;

   /* 
    * Variables that are set to ZERO are variables that will be set either by the
    * current _New function or another parent _New function further up the hierachy.
    */
   AllocationType  nameAllocationType = NON_GLOBAL;

   return _Codelet_New( CODELET_PASSARGS );
}