/* Base_Constant.c
 * - DLL routines for class <Component>Base.Constant
 * DATE: Sunday, April 21, 2002 TIME: 11:47:43 AM
 * The skeleton of this file is generated by SansGUI(tm)
 */

#include <stdio.h>
#include "SGdll.h"

#include "../Calc_1_1/Calc.h"

#ifdef __cplusplus
extern "C"
{
#endif

SG_EXPORT SG_SIM_FUNC SG_xBgnRun_Base_Constant;

#ifdef __cplusplus
}
#endif

/* Macros for attribute indices in class version [1.1.0.0] */
#define SG_NDX_FVALUE 0 /* fValue - Value */

/* ============================================================
* SG_xBgnRun - Begin Run
* ------------------------------------------------------------
*/
SG_RET_CODE SG_xBgnRun_Base_Constant(SG_OBJ *const self,
          SG_OBJ *const simCtrl, SG_OBJ *const chgChild,
          SG_OBJ *const refObjs[], const INT *const piRefObjs,
          SG_OBJ *const adjObjs[], const INT *const piAdjObjs,
          SG_OBJ *const lnkObjs[], const INT *const piLnkObjs,
          TCHAR *const cMessage, const INT iMsgLen,
          TCHAR *const cCommand, const INT iCmdLen,
          SG_FILE *const pOutFile )
{
    /* TODO: declare your local variables here */

    INT i;
    FLOAT *pfValue = &self->zValues[SG_NDX_FVALUE].fData[0];

    if (!SG_IsSchemaOK(self->nSGobjSchema))
        return SG_R_SCHM;

    /* TODO: put your simulator code here */

    /* Deposit the constant value to all the output links, if any */
    for (i = 0; i < *piLnkObjs; i++)
    {
        if (lnkObjs[i]->zValues[SG_NDX_LNK_IINFO].iData[0] == SG_LINK_OUT)
            lnkObjs[i]->zValues[SG_NDX_LNK_FVALUE].fData[0] = *pfValue;
    }
    return SG_R_OK;
}
Functions in Class Base.Variable     [Go To Top]

/* Base_Variable.c
 * - DLL routines for class <Component>Base.Variable
 * DATE: Sunday, April 21, 2002 TIME: 11:47:43 AM
 * The skeleton of this file is generated by SansGUI(tm)
 */

#include <stdio.h>
#include "SGdll.h"

#include "../Calc_1_1/Calc.h"

#ifdef __cplusplus
extern "C"
{
#endif

SG_EXPORT SG_SIM_FUNC SG_xInit_Base_Variable;
SG_EXPORT SG_SIM_FUNC SG_xEval_Base_Variable;

#ifdef __cplusplus
}
#endif

/* Macros for attribute indices in class version [1.0.0.0] */
#define SG_NDX_FVALUE 0 /* fValue - Variable Value */

/* ============================================================
 * SG_xInit - Initialization
 * ------------------------------------------------------------
 */
SG_RET_CODE SG_xInit_Base_Variable(SG_OBJ *const self,
          SG_OBJ *const simCtrl, SG_OBJ *const chgChild,
          SG_OBJ *const refObjs[], const INT *const piRefObjs,
          SG_OBJ *const adjObjs[], const INT *const piAdjObjs,
          SG_OBJ *const lnkObjs[], const INT *const piLnkObjs,
          TCHAR *const cMessage, const INT iMsgLen,
          TCHAR *const cCommand, const INT iCmdLen,
          SG_FILE *const pOutFile )
{
    /* TODO: declare your local variables here */

    INT i;
    FLOAT *pfValue = &self->zValues[SG_NDX_FVALUE].fData[0];

    if (!SG_IsSchemaOK(self->nSGobjSchema))
        return SG_R_SCHM;

    /* TODO: put your simulator code here */

    /* Deposit the current value to all input link, if exists */
    /* This is to avoid the initial value from being wiped off */
    for (i = 0; i < *piLnkObjs; i++)
    {
        if (lnkObjs[i]->zValues[SG_NDX_LNK_IINFO].iData[0] == SG_LINK_IN)
        {
            lnkObjs[i]->zValues[SG_NDX_LNK_FVALUE].fData[0] = *pfValue;
            break;    /* there should only be one input link */
        }
    }

    return SG_R_OK;
}

/* ============================================================
 * SG_xEval - Evaluation
 * ------------------------------------------------------------
 */
SG_RET_CODE SG_xEval_Base_Variable(SG_OBJ *const self,
          SG_OBJ *const simCtrl, SG_OBJ *const chgChild,
          SG_OBJ *const refObjs[], const INT *const piRefObjs,
          SG_OBJ *const adjObjs[], const INT *const piAdjObjs,
          SG_OBJ *const lnkObjs[], const INT *const piLnkObjs,
          TCHAR *const cMessage, const INT iMsgLen,
          TCHAR *const cCommand, const INT iCmdLen,
          SG_FILE *const pOutFile )
{
    /* TODO: declare your local variables here */

    INT i;
    FLOAT *pfValue = &self->zValues[SG_NDX_FVALUE].fData[0];

    if (!SG_IsSchemaOK(self->nSGobjSchema))
        return SG_R_SCHM;

    /* TODO: put your simulator code here */

    /* take input value, should have at most one link */
    for (i = 0; i < *piLnkObjs; i++)
    {
        if (lnkObjs[i]->zValues[SG_NDX_LNK_IINFO].iData[0] == SG_LINK_IN)
        {
            *pfValue = lnkObjs[i]->zValues[SG_NDX_LNK_FVALUE].fData[0];
            break;    /* Connectivity rule limits to one input link */
        }
    }

    /* Deposit the resulting value to all the output links, if any */
    for (i = 0; i < *piLnkObjs; i++)
    {
        if (lnkObjs[i]->zValues[SG_NDX_LNK_IINFO].iData[0] == SG_LINK_OUT)
            lnkObjs[i]->zValues[SG_NDX_LNK_FVALUE].fData[0] = *pfValue;
    }

    return SG_R_OK;