c2_lyap_uisng_simulink.c

m files for SIAM book, Numerical Computing with MATLAB

  c2_info[51].fileTime1 = 0U;
  c2_info[51].fileTime2 = 0U;
  c2_info[52].context = "";
  c2_info[52].name = "trace";
  c2_info[52].dominantType = "double";
  c2_info[52].resolved = "[I]$matlabroot$/toolbox/eml/lib/matlab/matfun/trace.m";
  c2_info[52].fileLength = 741U;
  c2_info[52].fileTime1 = 1163970820U;
  c2_info[52].fileTime2 = 0U;
}

static void init_dsm_address_info(void)
{
}

/* SFunction Glue Code */
void sf_c2_Lyap_uisng_Simulink_get_check_sum(mxArray *plhs[])
{
  ((real_T *)mxGetPr((plhs[0])))[0] = (real_T)(2207375347U);
  ((real_T *)mxGetPr((plhs[0])))[1] = (real_T)(3651140065U);
  ((real_T *)mxGetPr((plhs[0])))[2] = (real_T)(1555117661U);
  ((real_T *)mxGetPr((plhs[0])))[3] = (real_T)(2189990896U);
}

mxArray *sf_c2_Lyap_uisng_Simulink_get_autoinheritance_info(void)
{
  const char *autoinheritanceFields[] =
  {"checksum","inputs","parameters","outputs"};
  mxArray *mxAutoinheritanceInfo =
  mxCreateStructMatrix(1,1,4,autoinheritanceFields);
  {
    mxArray *mxChecksum = mxCreateDoubleMatrix(4,1,mxREAL);
    double *pr = mxGetPr(mxChecksum);
    pr[0] = (double)(3459909523U);
    pr[1] = (double)(2459973442U);
    pr[2] = (double)(613953569U);
    pr[3] = (double)(3305009726U);
    mxSetField(mxAutoinheritanceInfo,0,"checksum",mxChecksum);
  }
  {
    const char *dataFields[] = {"size","type","complexity"};
    mxArray *mxData = mxCreateStructMatrix(1,1,3,dataFields);
    {
      mxArray *mxSize = mxCreateDoubleMatrix(1,2,mxREAL);
      double *pr = mxGetPr(mxSize);
      pr[0] = (double)(2);
      pr[1] = (double)(2);
      mxSetField(mxData,0,"size",mxSize);
    }
    {
      const char *typeFields[] = {"base","aliasId","fixpt"};
      mxArray *mxType = mxCreateStructMatrix(1,1,3,typeFields);
      mxSetField(mxType,0,"base",mxCreateDoubleScalar(10));
      mxSetField(mxType,0,"aliasId",mxCreateDoubleScalar(0));
      mxSetField(mxType,0,"fixpt",mxCreateDoubleMatrix(0,0,mxREAL));
      mxSetField(mxData,0,"type",mxType);
    }
    mxSetField(mxData,0,"complexity",mxCreateDoubleScalar(0));
    mxSetField(mxAutoinheritanceInfo,0,"inputs",mxData);
  }
  {
    mxSetField(mxAutoinheritanceInfo,0,"parameters",mxCreateDoubleMatrix(0,0,mxREAL));
  }
  {
    const char *dataFields[] = {"size","type","complexity"};
    mxArray *mxData = mxCreateStructMatrix(1,1,3,dataFields);
    {
      mxArray *mxSize = mxCreateDoubleMatrix(1,2,mxREAL);
      double *pr = mxGetPr(mxSize);
      pr[0] = (double)(1);
      pr[1] = (double)(1);
      mxSetField(mxData,0,"size",mxSize);
    }
    {
      const char *typeFields[] = {"base","aliasId","fixpt"};
      mxArray *mxType = mxCreateStructMatrix(1,1,3,typeFields);
      mxSetField(mxType,0,"base",mxCreateDoubleScalar(10));
      mxSetField(mxType,0,"aliasId",mxCreateDoubleScalar(0));
      mxSetField(mxType,0,"fixpt",mxCreateDoubleMatrix(0,0,mxREAL));
      mxSetField(mxData,0,"type",mxType);
    }
    mxSetField(mxData,0,"complexity",mxCreateDoubleScalar(0));
    mxSetField(mxAutoinheritanceInfo,0,"outputs",mxData);
  }
  return(mxAutoinheritanceInfo);
}

static void chart_debug_initialization(SimStruct *S, unsigned int
 fullDebuggerInitialization)
{
  if(ssIsFirstInitCond(S) && fullDebuggerInitialization==1) {
    /* do this only if simulation is starting */
    if(!sim_mode_is_rtw_gen(S)) {
      {
        unsigned int chartAlreadyPresent;
        chartAlreadyPresent =
          sf_debug_initialize_chart(_Lyap_uisng_SimulinkMachineNumber_,
         2,
         1,
         1,
         2,
         0,
         0,
         0,
         0,
         0,
         &(chartInstance.chartNumber),
         &(chartInstance.instanceNumber),
         ssGetPath(S),
         (void *)S);
        if(chartAlreadyPresent==0) {
          /* this is the first instance */
          init_script_number_translation(_Lyap_uisng_SimulinkMachineNumber_,chartInstance.chartNumber);
          sf_debug_set_chart_disable_implicit_casting(_Lyap_uisng_SimulinkMachineNumber_,chartInstance.chartNumber,1);
          sf_debug_set_chart_event_thresholds(_Lyap_uisng_SimulinkMachineNumber_,
           chartInstance.chartNumber,
           0,
           0,
           0);

          {
            unsigned int dimVector[2];
            dimVector[0]= 2;
            dimVector[1]= 2;
            _SFD_SET_DATA_PROPS(0,1,1,0,SF_DOUBLE,2,&(dimVector[0]),0,0,0,0.0,1.0,0,"Pdot",0,c2_sf_marshall);
          }
          _SFD_SET_DATA_PROPS(1,2,0,1,SF_DOUBLE,0,NULL,0,0,0,0.0,1.0,0,"stop",0,c2_b_sf_marshall);
          _SFD_STATE_INFO(0,0,2);
          _SFD_CH_SUBSTATE_COUNT(0);
          _SFD_CH_SUBSTATE_DECOMP(0);
        }
        _SFD_CV_INIT_CHART(0,0,0,0);
        {
          _SFD_CV_INIT_STATE(0,0,0,0,0,0,NULL,NULL);
        }

        _SFD_CV_INIT_TRANS(0,0,NULL,NULL,0,NULL);

        /* Initialization of EML Model Coverage */
        _SFD_CV_INIT_EML(0,1,1,0,0,0,0,0);
        _SFD_CV_INIT_EML_FCN(0,0,"eML_blk_kernel",0,-1,178);
        _SFD_CV_INIT_EML_IF(0,0,145,158,-1,177);
        _SFD_TRANS_COV_WTS(0,0,0,1,0);
        if(chartAlreadyPresent==0)
        {
          _SFD_TRANS_COV_MAPS(0,
           0,NULL,NULL,
           0,NULL,NULL,
           1,NULL,NULL,
           0,NULL,NULL);
        }

        {
          real_T (*c2_Pdot)[4];
          real_T *c2_stop;
          c2_stop = (real_T *)ssGetOutputPortSignal(chartInstance.S, 1);
          c2_Pdot = (real_T (*)[4])ssGetInputPortSignal(chartInstance.S, 0);
          _SFD_SET_DATA_VALUE_PTR(0U, c2_Pdot);
          _SFD_SET_DATA_VALUE_PTR(1U, c2_stop);
        }
      }
    }
  } else {
    sf_debug_reset_current_state_configuration(_Lyap_uisng_SimulinkMachineNumber_,chartInstance.chartNumber,chartInstance.instanceNumber);
  }
}

static void sf_opaque_initialize_c2_Lyap_uisng_Simulink(void *chartInstanceVar)
{
  chart_debug_initialization(chartInstance.S,0);
  initialize_params_c2_Lyap_uisng_Simulink();
  initialize_c2_Lyap_uisng_Simulink();
}

static void sf_opaque_enable_c2_Lyap_uisng_Simulink(void *chartInstanceVar)
{
  enable_c2_Lyap_uisng_Simulink();
}

static void sf_opaque_disable_c2_Lyap_uisng_Simulink(void *chartInstanceVar)
{
  disable_c2_Lyap_uisng_Simulink();
}

static void sf_opaque_gateway_c2_Lyap_uisng_Simulink(void *chartInstanceVar)
{
  sf_c2_Lyap_uisng_Simulink();
}

static void sf_opaque_terminate_c2_Lyap_uisng_Simulink(void *chartInstanceVar)
{
  if (sim_mode_is_rtw_gen(chartInstance.S) ||
   sim_mode_is_external(chartInstance.S)) {
    sf_clear_rtw_identifier(chartInstance.S);
  }
  finalize_c2_Lyap_uisng_Simulink();
}

extern unsigned int sf_machine_global_initializer_called(void);
static void mdlProcessParameters_c2_Lyap_uisng_Simulink(SimStruct *S)
{
  int i;
  for(i=0;i<ssGetNumRunTimeParams(S);i++) {
    if(ssGetSFcnParamTunable(S,i)) {
      ssUpdateDlgParamAsRunTimeParam(S,i);
    }
  }
  if(sf_machine_global_initializer_called()) {
    initialize_params_c2_Lyap_uisng_Simulink();
  }
}

static void mdlSetWorkWidths_c2_Lyap_uisng_Simulink(SimStruct *S)
{
  if(sim_mode_is_rtw_gen(S) || sim_mode_is_external(S)) {
    int_T chartIsInlinable =
      (int_T)sf_is_chart_inlinable("Lyap_uisng_Simulink",2);
    ssSetStateflowIsInlinable(S,chartIsInlinable);
    ssSetEnableFcnIsTrivial(S,1);
    ssSetDisableFcnIsTrivial(S,1);
    ssSetNotMultipleInlinable(S,sf_rtw_info_uint_prop("Lyap_uisng_Simulink",2,"gatewayCannotBeInlinedMultipleTimes"));
    if(chartIsInlinable) {
      ssSetInputPortOptimOpts(S, 0, SS_REUSABLE_AND_LOCAL);
      sf_mark_chart_expressionable_inputs(S,"Lyap_uisng_Simulink",2,1);
      sf_mark_chart_reusable_outputs(S,"Lyap_uisng_Simulink",2,1);
    }
    sf_set_rtw_dwork_info(S,"Lyap_uisng_Simulink",2);
    ssSetHasSubFunctions(S,!(chartIsInlinable));
    ssSetOptions(S,ssGetOptions(S)|SS_OPTION_WORKS_WITH_CODE_REUSE);
  }

  ssSetChecksum0(S,(3785205195U));
  ssSetChecksum1(S,(1546494379U));
  ssSetChecksum2(S,(2833134255U));
  ssSetChecksum3(S,(2471020516U));

  ssSetmdlDerivatives(S, NULL);

  ssSetExplicitFCSSCtrl(S,1);
}

static void mdlRTW_c2_Lyap_uisng_Simulink(SimStruct *S)
{
  if(sim_mode_is_rtw_gen(S)) {
    sf_write_symbol_mapping(S, "Lyap_uisng_Simulink", 2);
    ssWriteRTWStrParam(S, "StateflowChartType", "Embedded MATLAB");
  }
}

static void mdlStart_c2_Lyap_uisng_Simulink(SimStruct *S)
{
  chartInstance.chartInfo.chartInstance = NULL;
  chartInstance.chartInfo.isEMLChart = 1;
  chartInstance.chartInfo.chartInitialized = 0;
  chartInstance.chartInfo.sFunctionGateway =
    sf_opaque_gateway_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.initializeChart =
    sf_opaque_initialize_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.terminateChart =
    sf_opaque_terminate_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.enableChart = sf_opaque_enable_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.disableChart =
    sf_opaque_disable_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.zeroCrossings = NULL;
  chartInstance.chartInfo.outputs = NULL;
  chartInstance.chartInfo.derivatives = NULL;
  chartInstance.chartInfo.mdlRTW = mdlRTW_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.mdlStart = mdlStart_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.mdlSetWorkWidths =
    mdlSetWorkWidths_c2_Lyap_uisng_Simulink;
  chartInstance.chartInfo.extModeExec = NULL;
  chartInstance.chartInfo.restoreLastMajorStepConfiguration = NULL;
  chartInstance.chartInfo.restoreBeforeLastMajorStepConfiguration = NULL;
  chartInstance.chartInfo.storeCurrentConfiguration = NULL;
  chartInstance.S = S;
  ssSetUserData(S,(void *)(&(chartInstance.chartInfo))); /* register the chart instance with simstruct */

  if(!sim_mode_is_rtw_gen(S)) {
    init_dsm_address_info();
  }
  chart_debug_initialization(S,1);
}

void c2_Lyap_uisng_Simulink_method_dispatcher(SimStruct *S, int_T method, void
 *data)
{
  switch (method) {
   case SS_CALL_MDL_START:
    mdlStart_c2_Lyap_uisng_Simulink(S);
    break;
   case SS_CALL_MDL_SET_WORK_WIDTHS:
    mdlSetWorkWidths_c2_Lyap_uisng_Simulink(S);
    break;
   case SS_CALL_MDL_PROCESS_PARAMETERS:
    mdlProcessParameters_c2_Lyap_uisng_Simulink(S);
    break;
   default:
    /* Unhandled method */
    sf_mex_error_message("Stateflow Internal Error:\n"
     "Error calling c2_Lyap_uisng_Simulink_method_dispatcher.\n"
     "Can't handle method %d.\n", method);
    break;
  }
}