--- /dev/null
+/* Copyright (C) 2013 Czech Technical University in Prague
+ *
+ * Authors:
+ * - Carlos Jenkins <carlos@jenkins.co.cr>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ *
+ * File : sfunction_lout.c
+ * Abstract:
+ * C-MEX S-function block for RPP digital output.
+ *
+ * References:
+ * ????
+ */
+
+
+/*
+ * Must specify the S_FUNCTION_NAME as the name of the S-function.
+ */
+#define S_FUNCTION_NAME sfunction_lout
+#define S_FUNCTION_LEVEL 2
+
+/*
+ * Need to include simstruc.h for the definition of the SimStruct and
+ * its associated macro definitions.
+ */
+#include "simstruc.h"
+#define EDIT_OK(S, P_IDX) \
+ (!((ssGetSimMode(S)==SS_SIMMODE_SIZES_CALL_ONLY) && mxIsEmpty(ssGetSFcnParam(S, P_IDX))))
+#define SAMPLE_TIME (ssGetSFcnParam(S, 1))
+
+/*
+ * Utility function prototypes.
+ */
+static bool IsRealMatrix(const mxArray * const m);
+
+#define MDL_CHECK_PARAMETERS
+#if defined(MDL_CHECK_PARAMETERS) && defined(MATLAB_MEX_FILE)
+
+/* Function: mdlCheckParameters ===========================================
+ * Abstract:
+ * mdlCheckParameters verifies new parameter settings whenever parameter
+ * change or are re-evaluated during a simulation. When a simulation is
+ * running, changes to S-function parameters can occur at any time during
+ * the simulation loop.
+ */
+static void mdlCheckParameters(SimStruct *S)
+{
+ /*
+ * Check the parameter 1
+ */
+ if EDIT_OK(S, 0) {
+ int_T dimsArray[2] = { 1, 1 };
+
+ /* Check the parameter attributes */
+ ssCheckSFcnParamValueAttribs(S, 0, "P1", DYNAMICALLY_TYPED, 2, dimsArray, 0);
+ }
+
+ /*
+ * Check the parameter 2 (sample time)
+ */
+ if EDIT_OK(S, 1) {
+ const double * sampleTime = NULL;
+ const size_t stArraySize = mxGetM(SAMPLE_TIME) * mxGetN(SAMPLE_TIME);
+
+ /* Sample time must be a real scalar value or 2 element array. */
+ if (IsRealMatrix(SAMPLE_TIME) &&
+ (stArraySize == 1 || stArraySize == 2) ) {
+ sampleTime = mxGetPr(SAMPLE_TIME);
+ } else {
+ ssSetErrorStatus(S,
+ "Invalid sample time. Sample time must be a real scalar value or an array of two real values.");
+ return;
+ }
+
+ if (sampleTime[0] < 0.0 && sampleTime[0] != -1.0) {
+ ssSetErrorStatus(S,
+ "Invalid sample time. Period must be non-negative or -1 (for inherited).");
+ return;
+ }
+
+ if (stArraySize == 2 && sampleTime[0] > 0.0 &&
+ sampleTime[1] >= sampleTime[0]) {
+ ssSetErrorStatus(S,
+ "Invalid sample time. Offset must be smaller than period.");
+ return;
+ }
+
+ if (stArraySize == 2 && sampleTime[0] == -1.0 && sampleTime[1] != 0.0) {
+ ssSetErrorStatus(S,
+ "Invalid sample time. When period is -1, offset must be 0.");
+ return;
+ }
+
+ if (stArraySize == 2 && sampleTime[0] == 0.0 &&
+ !(sampleTime[1] == 1.0)) {
+ ssSetErrorStatus(S,
+ "Invalid sample time. When period is 0, offset must be 1.");
+ return;
+ }
+ }
+}
+
+#endif
+
+/* Function: mdlInitializeSizes ===========================================
+ * Abstract:
+ * The sizes information is used by Simulink to determine the S-function
+ * block's characteristics (number of inputs, outputs, states, etc.).
+ */
+static void mdlInitializeSizes(SimStruct *S)
+{
+ /* Number of expected parameters */
+ ssSetNumSFcnParams(S, 2);
+
+#if defined(MATLAB_MEX_FILE)
+
+ if (ssGetNumSFcnParams(S) == ssGetSFcnParamsCount(S)) {
+ /*
+ * If the number of expected input parameters is not equal
+ * to the number of parameters entered in the dialog box return.
+ * Simulink will generate an error indicating that there is a
+ * parameter mismatch.
+ */
+ mdlCheckParameters(S);
+ if (ssGetErrorStatus(S) != NULL) {
+ return;
+ }
+ } else {
+ /* Return if number of expected != number of actual parameters */
+ return;
+ }
+
+#endif
+
+ /* Set the parameter's tunable status */
+ ssSetSFcnParamTunable(S, 0, 1);
+ ssSetSFcnParamTunable(S, 1, 0);
+
+ ssSetNumPWork(S, 0);
+
+ if (!ssSetNumDWork(S, 0))
+ return;
+
+ /*
+ * Set the number of input ports.
+ */
+ if (!ssSetNumInputPorts(S, 1))
+ return;
+
+ /*
+ * Configure the input port 1
+ */
+ ssSetInputPortDataType(S, 0, SS_UINT8);
+ ssSetInputPortWidth(S, 0, 1);
+ ssSetInputPortComplexSignal(S, 0, COMPLEX_NO);
+ ssSetInputPortDirectFeedThrough(S, 0, 1);
+ ssSetInputPortAcceptExprInRTW(S, 0, 1);
+ ssSetInputPortOverWritable(S, 0, 1);
+ ssSetInputPortOptimOpts(S, 0, SS_REUSABLE_AND_LOCAL);
+ ssSetInputPortRequiredContiguous(S, 0, 1);
+
+ /*
+ * Set the number of output ports.
+ */
+ if (!ssSetNumOutputPorts(S, 0))
+ return;
+
+ /*
+ * This S-function can be used in referenced model simulating in normal mode.
+ */
+ ssSetModelReferenceNormalModeSupport(S, MDL_START_AND_MDL_PROCESS_PARAMS_OK);
+
+ /*
+ * Set the number of sample time.
+ */
+ ssSetNumSampleTimes(S, 1);
+
+ /*
+ * All options have the form SS_OPTION_<name> and are documented in
+ * matlabroot/simulink/include/simstruc.h. The options should be
+ * combined with bitwise OR as in
+ * ssSetOptions(S, (SS_OPTION_name1 | SS_OPTION_name2))
+ */
+ ssSetOptions(S,
+ SS_OPTION_USE_TLC_WITH_ACCELERATOR |
+ SS_OPTION_CAN_BE_CALLED_CONDITIONALLY |
+ SS_OPTION_EXCEPTION_FREE_CODE |
+ SS_OPTION_WORKS_WITH_CODE_REUSE |
+ SS_OPTION_SFUNCTION_INLINED_FOR_RTW |
+ SS_OPTION_DISALLOW_CONSTANT_SAMPLE_TIME);
+}
+
+/* Function: mdlInitializeSampleTimes =====================================
+ * Abstract:
+ * This function is used to specify the sample time(s) for your
+ * S-function. You must register the same number of sample times as
+ * specified in ssSetNumSampleTimes.
+ */
+static void mdlInitializeSampleTimes(SimStruct *S)
+{
+ double * const sampleTime = mxGetPr(SAMPLE_TIME);
+ const size_t stArraySize = mxGetM(SAMPLE_TIME) * mxGetN(SAMPLE_TIME);
+ ssSetSampleTime(S, 0, sampleTime[0]);
+ if (stArraySize == 1) {
+ ssSetOffsetTime(S, 0, (sampleTime[0] == CONTINUOUS_SAMPLE_TIME?
+ FIXED_IN_MINOR_STEP_OFFSET: 0.0));
+ } else {
+ ssSetOffsetTime(S, 0, sampleTime[1]);
+ }
+
+#if defined(ssSetModelReferenceSampleTimeDefaultInheritance)
+
+ ssSetModelReferenceSampleTimeDefaultInheritance(S);
+
+#endif
+
+}
+
+#define MDL_SET_WORK_WIDTHS
+#if defined(MDL_SET_WORK_WIDTHS) && defined(MATLAB_MEX_FILE)
+
+/* Function: mdlSetWorkWidths =============================================
+ * Abstract:
+ * The optional method, mdlSetWorkWidths is called after input port
+ * width, output port width, and sample times of the S-function have
+ * been determined to set any state and work vector sizes which are
+ * a function of the input, output, and/or sample times.
+ *
+ * Run-time parameters are registered in this method using methods
+ * ssSetNumRunTimeParams, ssSetRunTimeParamInfo, and related methods.
+ */
+static void mdlSetWorkWidths(SimStruct *S)
+{
+ /* Set number of run-time parameters */
+ if (!ssSetNumRunTimeParams(S, 1))
+ return;
+
+ /*
+ * Register the run-time parameter 1
+ */
+ ssRegDlgParamAsRunTimeParam(S, 0, 0, "p1", ssGetDataTypeId(S, "uint8"));
+}
+
+#endif
+
+#define MDL_START
+#if defined(MDL_START)
+
+/* Function: mdlStart =====================================================
+ * Abstract:
+ * This function is called once at start of model execution. If you
+ * have states that should be initialized once, this is the place
+ * to do it.
+ */
+static void mdlStart(SimStruct *S)
+{
+ UNUSED_PARAMETER(S);
+}
+
+#endif
+
+/* Function: mdlOutputs ===================================================
+ * Abstract:
+ * In this function, you compute the outputs of your S-function
+ * block. Generally outputs are placed in the output vector(s),
+ * ssGetOutputPortSignal.
+ */
+static void mdlOutputs(SimStruct *S, int_T tid)
+{
+ UNUSED_PARAMETER(S);
+ UNUSED_PARAMETER(tid);
+}
+
+/* Function: mdlTerminate =================================================
+ * Abstract:
+ * In this function, you should perform any actions that are necessary
+ * at the termination of a simulation.
+ */
+static void mdlTerminate(SimStruct *S)
+{
+ UNUSED_PARAMETER(S);
+}
+
+#define MDL_RTW
+#if defined(MATLAB_MEX_FILE) && defined(MDL_RTW)
+
+/* Function: mdlRTW =======================================================
+ * Abstract:
+ * This function is called when the Real-Time Workshop is generating
+ * the model.rtw file.
+ */
+static void mdlRTW(SimStruct *S)
+{
+ UNUSED_PARAMETER(S);
+}
+
+#endif
+
+/* Function: IsRealMatrix =================================================
+ * Abstract:
+ * Verify that the mxArray is a real (double) finite matrix
+ */
+static bool IsRealMatrix(const mxArray * const m)
+{
+ if (mxIsNumeric(m) &&
+ mxIsDouble(m) &&
+ !mxIsLogical(m) &&
+ !mxIsComplex(m) &&
+ !mxIsSparse(m) &&
+ !mxIsEmpty(m) &&
+ mxGetNumberOfDimensions(m) == 2) {
+ const double * const data = mxGetPr(m);
+ const size_t numEl = mxGetNumberOfElements(m);
+ size_t i;
+ for (i = 0; i < numEl; i++) {
+ if (!mxIsFinite(data[i])) {
+ return(false);
+ }
+ }
+
+ return(true);
+ } else {
+ return(false);
+ }
+}
+
+/*
+ * Required S-function trailer
+ */
+#ifdef MATLAB_MEX_FILE
+# include "simulink.c"
+#else
+# include "cg_sfun.h"
+#endif
--- /dev/null
+%% Copyright (C) 2013 Czech Technical University in Prague
+%%
+%% Authors:
+%% - Carlos Jenkins <carlos@jenkins.co.cr>
+%%
+%% This program is free software; you can redistribute it and/or modify
+%% it under the terms of the GNU General Public License as published by
+%% the Free Software Foundation; either version 2 of the License, or
+%% (at your option) any later version.
+%%
+%% This program is distributed in the hope that it will be useful,
+%% but WITHOUT ANY WARRANTY; without even the implied warranty of
+%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+%% GNU General Public License for more details.
+%%
+%% You should have received a copy of the GNU General Public License
+%% along with this program. If not, see <http://www.gnu.org/licenses/>.
+%%
+%% File : sfunction_lout.tlc
+%% Abstract:
+%% TLC file for inlining RPP digital output block.
+%%
+%% References:
+%% BlockTypeSetup() : rtw_tlc.pdf p. 277
+%% Start() : rtw_tlc.pdf p. 279
+%% Outputs() : rtw_tlc.pdf p. 281
+
+
+%implements sfunction_lout "C"
+
+%include "common.tlc"
+
+
+%% Function: BlockTypeSetup ====================================================
+%function BlockTypeSetup(block, system) void
+
+ %% Ensure required header files are included
+ %<RppCommonBlockTypeSetup(block, system)>
+
+%endfunction
+
+
+%% Function: Start =============================================================
+%function Start(block, system) Output
+
+ %if !SLibCodeGenForSim()
+ %<RppCommonStart(block, system)>
+ %endif
+
+%endfunction
+
+
+%% Function: Outputs ===========================================================
+%function Outputs(block, system) Output
+
+ %if !SLibCodeGenForSim()
+ %assign p1_val = LibBlockParameter(p1, "", "", 0)
+ %assign u1_val = LibBlockInputSignal(0, "", "", 0)
+
+ //rpp_lout_set(%<p1_val>, %<u1_val>);
+ %endif
+
+%endfunction
+
+%% [EOF]