%% ============================================================================ %% File : commonbodlib.tlc %% %% Abstract: %% This system TLC library file contains functions that are common %% between the different code generators for producing the model's %% source file. %% %% The functions provide for caching code for all systems and also dumping %% the cached buffers. %% %% Note: The only CodeFormat dependencies allowed in this file are for: %% 1) Creating function prototypes for subsystems %% 2) Caching body code %% %% $Revision: 1.1.8.27 $g %% Copyright 1994-2004 The MathWorks, Inc. %% %% ============================================================================ %selectfile NULL_FILE %if EXISTS("_COMMONBODLIB_") == 0 %assign _COMMONBODLIB_ = 1 %include "subsystemlib.tlc" %% Function: SLibGenerate ====================================================== %% Abstract: %% Generateds the % code for block if it hasn't been generated by %% IR already %% %function SLibGenerate(block, fcnType, system) void %if block.SkipBlockFcn %return "" %elseif block.Type != "Opaque" || block.OpaqueBlockMethode.Has% %assign buff = "" %openfile buff % \ %closefile buff %return buff %endif %endfunction %% Function: SLibGenerateForTID ================================================ %% Abstract: %% Generateds the % code for block if it hasn't been generated by %% IR already %% %function SLibGenerateForTID(block, fcnType, system, tid) void %if block.SkipBlockFcn %return "" %else %assign buff = "" %openfile buff % \ %closefile buff %return buff %endif %endfunction %% Function: FcnDeclareTIDIfNeeded ============================================= %% Abstract: %% returns 1 if TID was used via LibGetTaskTimeFromTID, then resets %% the flag %% %function FcnDeclareTIDIfNeeded(sys) void %if sys.Type == "root" && RootBodyTIDneeded %return 1 %else %if NeedTID %assign ::CompiledModel.NeedTID = 0 %return 1 %else %return 0 %endif %endif %endfunction %% Function: FcnDeclareCPIIfNeeded ============================================= %% Abstract: %% returns 1 if CPI (Control Port Index) was used in a function-call %% subsystem. %% %function FcnDeclareCPIIfNeeded(system) void %return LibGetSystemField(system, "NeedCPIInOutputUpdate") %endfunction %% Function: SLibSystemNonEmpty ================================================ %% %% Abstract: %% Returns true if a system generates some code %% %function SLibSystemNonEmpty(system) %assign nonEmpty = ( ... !LibSystemFcnIsEmpty(system, "Start") || ... !LibSystemFcnIsEmpty(system, "Initialize") || ... !LibSystemFcnIsEmpty(system, "Output") || ... !LibSystemFcnIsEmpty(system, "Update") || ... !LibSystemFcnIsEmpty(system, "Derivative") || ... !LibSystemFcnIsEmpty(system, "Projection") || ... !LibSystemFcnIsEmpty(system, "OutputUpdate") || ... !LibSystemFcnIsEmpty(system, "Enable") || ... !LibSystemFcnIsEmpty(system, "Disable")) %return (nonEmpty) %endfunction %% SLibSystemNonEmpty %% Function: SLibSystemTerminateNonEmpty ======================================= %% %% Abstract: %% Returns true if a system terminate generates some code %% %function SLibSystemTerminateNonEmpty(system) %assign nonEmpty = !LibSystemFcnIsEmpty(system, "Terminate") %return (nonEmpty) %endfunction %% SLibSystemTerminateNonEmpty %% Function: FcnGenBodySysCache ================================================ %% Description: %% Cache all code for a system (including root). %% %function FcnGenBodySysCache(system) void %% RTWAssert (!system.SystemCached) %assign isRoot = (system.Type == "root") %if (ISFIELD(system,"NoCode")) %if (system.NoCode == "yes") % %return "" %endif %endif %% EnableFcn, InitializeFcn, and StartFcn fields should always exist in %% System record %% However, there may not be any blocks in the system that generate initialize %% or enable code. Thus, we must cache those two functions first -- Start %% will call them if they are non-empty. %% Cache Initialize before Enable so Initialize args get added to Enable %if ISFIELD(system,"InitializeFcn") %assign ::BlockFcn = "Initialize" % %if ISFIELD(system, "InitializeOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %if ISFIELD(system,"EnableFcn") %assign ::BlockFcn = "Enable" % %if ISFIELD(system, "EnableOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %% Don't cache start function since it will never be called, Accelerator %% runs start function via Simulink. %if Accelerator % %else %assign ::BlockFcn = "Start" % %if ISFIELD(system, "StartOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %% %if ISFIELD(system,"DerivativeFcn") && (!isRoot || (NumContStates > 0)) %assign ::BlockFcn = "Derivative" % %if ISFIELD(system, "DerivativeOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %if ISFIELD(system,"ProjectionFcn") && (!isRoot || (NumContStates > 0)) %assign ::BlockFcn = "Projection" % %if ISFIELD(system, "ProjectionOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %if ISFIELD(system,"ZeroCrossingFcn") && (!isRoot || (NumNonsampledZCs > 0)) %assign ::BlockFcn = "ZeroCrossing" % %if ISFIELD(system, "ZeroCrossingOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %% DisableFcn always exists %if ISFIELD(system,"DisableFcn") %assign ::BlockFcn = "Disable" % %if ISFIELD(system, "DisableOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %assign updateNonEmpty = TLC_FALSE %if ISFIELD(system,"UpdateFcn") %if isRoot %assign ::BlockFcn = "RootUpdate" %else %assign ::BlockFcn = "Update" % %if ISFIELD(system, "UpdateOOCC") % %endif %endif %assign updateNonEmpty = % %assign ::BlockFcn = "Unknown" % %endif %% Cache Outputs function after update fcn because the %% the Output method checks if output or update is empty %% before generating special code for conditionally %% executed systems (such as setting the mode in an enabled %% subsystem). It is possible with CGIR for the Output buffer %% of an enabled subsystem to be empty, but the Update buffer %% to be nonempty. %if ISFIELD(system,"OutputFcn") && !system.DeletedInIR %assign ::BlockFcn = "Output" % %if ISFIELD(system, "OutputOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %if ISFIELD(system,"OutputUpdateFcn") && !system.DeletedInIR %assign ::BlockFcn = "OutputUpdate" % %if ISFIELD(system, "OutputOOCC") %if ISFIELD(system, "UpdateOOCC") %assign outputUpdateOOCC = system.OutputOOCC %foreach idx = SIZE(system.UpdateOOCC,1) %assign outputUpdateOOCC = outputUpdateOOCC + system.UpdateOOCC[idx] %endforeach % %else % %endif %elseif ISFIELD(system, "UpdateOOCC") % %endif % %assign ::BlockFcn = "Unknown" % %endif %% %% For ert model reference the registration function will be in the top level %% subsystem file. If all blocks have constant sample time, only registration %% function will be generated. The registration function will be dumped in %% in ertreg.tlc. %assign isMdlRefSys = IsModelReferenceBaseSys(system) %assign nonEmpty = isRoot || isMdlRefSys || SLibSystemNonEmpty(system) % % %% For the model reference base system, we generate the interface %% and prototype in FcnGenBodySysCache. This is because information %% from Output may be needed in Update to determine if an %% rtModel argument is needed (one reason is the firstInitCond). %% %% NOTE(mdt): We do not need to this here for OutputUpdate because %% we call ModelrefMarkRTMIfNeeded at the end of %% FcnGenBodyOutputUpdateFcnCache after both Output and Update %% have already been generated. This avoids the problem that %% happens when Output and Update are called separately. %if isMdlRefSys %if ISFIELD(system,"UpdateFcn") %assign ::BlockFcn = "Update" % %if ISFIELD(system, "UpdateOOCC") % %endif %if !ModelReferenceTargetWithGlobalTiming % %endif % %assign ::BlockFcn = "Unknown" %endif %if ISFIELD(system,"OutputFcn") && !system.DeletedInIR %assign ::BlockFcn = "Output" % %if ISFIELD(system, "OutputOOCC") % %endif %if !ModelReferenceTargetWithGlobalTiming % %endif % %assign ::BlockFcn = "Unknown" %endif %endif %endfunction %% FcnGenBodySysCache %% Function: FcnGenSystemTerminate ============================================= %% Description: %% Cache all terminate code for a subsystem. Ultimately, this function %% should also be able to cache code for the root system. %% %function FcnGenSystemTerminate(system) void %% RTWAssert (!system.SystemTerminateCached) %if (ISFIELD(system,"NoCode")) %if (system.NoCode == "yes") % %return "" %endif %endif % %assign terminateNonEmpty = SLibSystemTerminateNonEmpty(system) % % %endfunction %% FcnGenSystemTerminate %% Function: FcnGenerateEnable(system) ========================================= %% Description: %% Generate enable code for a system %% %function FcnGenerateEnable(system) void %openfile tmpBuffer %with system %% For action systems we need to write out the Enable code %% for a system at the top of the EnableFcn for this system. %% This is similar to how enabled subsytems work in subsystemlib.tlc %if system.Type == "action" && SolverType == "VariableStep" %assign graphicalSys = CompiledModel.System[CallSites[0][2]] %assign ssBlock = graphicalSys.Block[CallSites[0][3]] % %endif %foreach blkIdx = NumBlocks %% Enabled systems automatically do not generate. See subsystm.tlc. % %endforeach %endwith %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %return tmpBuffer %else %return "" %endif %endfunction %% Function: FcnGenBodyEnableFcnCache(system) ================================== %% Description: %% Functions that generates the enable code for the specified %% subsystem and caches it into the system's record. %% %function FcnGenBodyEnableFcnCache(system) void %assign enableFcn = FcnGenerateEnable(system) %assign enableSSVars = LibDeclareAllAccessedSimStructVars() % % % %endfunction %% Function: FcnGenerateInitialize ============================================= %% Description: %% Generate init. code for all blocks with InitializeConditions functions %% %function FcnGenerateInitialize(system) void %openfile tmpBuffer %with system %if system.Type == "root" %% Initialized flags that are used when asynchronous task %% read absolute time from base rate %foreach idx = NumAsynchronousSampleTimes %assign tid = idx + NumSynchronousSampleTimes %if RTMAbsTimeNeedNoPriorityTrans(tid) % = 0xFF; % = 0xFF; % = 0; %endif %endforeach %else %assign graphicalSys = CompiledModel.System[CallSites[0][2]] %assign ssBlock = graphicalSys.Block[CallSites[0][3]] %% If system need elapse time and can be reset, %% elapse time must be reset when the system reset %% states. %% MJE xxx %if SLibXBInitRequired(system,ssBlock,[],"","",0) %with ssBlock %if system.Type == "trigger" || ... system.Type == "enable_with_trigger" || ... system.Type == "enable" || ... system.Type == "function-call" || ... system.Type == "iterator" % %if (system.Type == "function-call" || ... system.Type == "trigger") && ... SysNeedsElapseTime(system) { % } %endif %endif %endwith %endif %endif %foreach blkIdx = NumBlocks %% Enabled systems automatically do not generate. See subsystm.tlc. % %endforeach %endwith %% Stateflow global machine initialize %if IsBaseSystem(system) %\ %endif %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %return tmpBuffer %else %return "" %endif %endfunction %% FcnGenerateInitialize %% Function: FcnGenBodyInitializeFcnCache(system) ============================== %% Description: %% Functions that generates the InitializeConditions code for the specified %% subsystem and caches it into the system's record. %% %function FcnGenBodyInitializeFcnCache(system) void %assign initFcn = FcnGenerateInitialize(system) % %% %% generate code for open and close systems code for %% trigger_enabled, triggered and iterator systems %% xxx mje do I really need this and aren't we caching initfcn %% both above and below? % %assign initializeSSVars = LibDeclareAllAccessedSimStructVars() % % % %endfunction %% FcnGenBodyInitializeFcnCache %% Function: FcnGenerateConstantTID ============================================ %% Description: %% Constant TID blocks (subsystem block is *NOT* recursive) %% %function FcnGenerateConstantTID(system) void %assign ::CompiledModel.GeneratingOutputsCode = 1 %openfile buffer %assign hashIfIsOpen = 0 %with system %foreach blkIdx = NumBlocks %assign block = Block[blkIdx] %with block %% %if block.SkipBlockFcn || !ISEQUAL(block.TID, "constant") || ... LibBlockAllOutputSignalsAreExpr() %continue %endif %% %\ %if NumDataOutputPorts == 0 || EXISTS("NeedOutputsFcnInMdlStart") || ... block.Type == "Opaque" %% %% opaque blocks don't have an output function if its TID is constant %% unless it is needed in the start function %% %if hashIfIsOpen #endif %assign hashIfIsOpen = 0 %endif %elseif ShowEliminatedStatements %if !hashIfIsOpen #if 0 /* Turn ShowEliminatedStatements off to remove this code */ %assign hashIfIsOpen = 1 %endif %else %continue %endif %assign ::CompiledModel.GeneratingDeadCode = hashIfIsOpen %if hashIfIsOpen %assign tmpBlkFcn = ::BlockFcn %assign ::BlockFcn = "DeadCode" %copyrecord TempBlockFcnAccessed ::BlockFcnAccessed %\ %undef ::BlockFcnAccessed %copyrecord ::BlockFcnAccessed TempBlockFcnAccessed %assign ::BlockFcn = tmpBlkFcn %else %\ %endif %endwith %% block %endforeach %% blkIdx %endwith %% system %if hashIfIsOpen #endif %endif %closefile buffer %assign ::CompiledModel.GeneratingOutputsCode = 0 %assign ::CompiledModel.GeneratingDeadCode = 0 %% %if !WHITE_SPACE(buffer) %return "\n\n/* blocks with infinite sample periods */ \n\n" + buffer %else %return "" %endif %endfunction %% FcnGenerateConstantTID %% Function: FcnGenerateVirtualOutports() ====================================== %% Description: %% Generate virtual outport code for all blocks with Virtual %% InitializeConditions functions %% %function FcnGenerateVirtualOutports(system) void %openfile tmpBuffer %with system %if (system.Type != "root") %foreach blkIdx = NumVirtualOutportBlocks %assign vblkIdx = VirtualOutportBlocksIdx + blkIdx % %endforeach %else %if (CodeFormat == "S-Function" && CompiledModel.HaveVirtualOutports) %% Run root outports so any ICs that are connected to root outports %% propagate to the output. This is to ensure the IC is put at the %% output of the RTW s-function, since mdlOutputs doesn't run at %% time 0 if the s-function is in a disabled enable_subsystm. %foreach blkIdx = NumBlocks %if Block[blkIdx].Type == "Outport" % %endif %endforeach %endif %endif %endwith %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %openfile retBuffer /* virtual outports code */ %\ %closefile retBuffer %if (system.Type != "root") %assign ::CompiledModel.HaveVirtualOutports = 1 %endif %return retBuffer %else %return "" %endif %endfunction %%FcnGenerateVirtualOutports %% Function: FncGenInitStatesInRootStart ====================================== %% Abstract: %% This function generate code initialize states %% if needed %% %function FncGenInitStatesInRootStart() %assign ss = System[NumSystems - 1] %% root system %openfile retBuf %% Load intial states if needed. %if CompiledModel.LoadInitialState == "yes" /* initial state override */ %assign origBlockFcn = ::BlockFcn %assign ::BlockFcn = "Start" %\ %assign ::BlockFcn = origBlockFcn %endif %closefile retBuf %return retBuf %endfunction %% FncGenInitStatesInRootStart %% Function: FcnGenerateStart(system) ========================================== %% Description: %% Generate start code for a system %% %function FcnGenerateStart(system) void %openfile tmpBuffer %with system %foreach blkIdx = NumBlocks %if (Block[blkIdx].Type == "SubSystem") %openfile tmpStartBuffer % %closefile tmpStartBuffer %selectfile tmpBuffer %if !WHITE_SPACE(tmpStartBuffer) % %endif %else % %endif %endforeach %\ %% %% Enabled systems are responsible for calling their own enable and %% initialize functions in their start function. %% Initialize code for other systems is called during the parent system's %% initialize function. Note that we can't do this for enabled subsystems, %% since in general (that is, for all other times except for start-up), we %% do not want to call an enabled systems initialize code when the parent %% system runs its enable code. %% An enabled systems initialize code should ONLY be called either at %% start-up or when the system itself enables. %% %% Action systems and iterator systems also can reset their states %% like an enabled system, so treat them like enabled systems. %if ((system.Type == "enable") || ... (system.Type == "enable_with_trigger") || ... (system.Type == "action") || ... (system.Type == "iterator")) %if (!LibSystemFcnIsEmpty(system, "Initialize")) % %endif %endif %\ % %endwith %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %return tmpBuffer %else %return "" %endif %endfunction %% FcnGenerateStart %% Function: FcnGenBodyStartFcnCache(system) =================================== %% Description: %% Cache start code for a system %% %function FcnGenBodyStartFcnCache(system) void %assign startFcn = FcnGenerateStart(system) % %% %% generate code for open and close systems code for %% trigger_enabled, triggered and iterator systems %% % %assign startSSVars = LibDeclareAllAccessedSimStructVars() % % %endfunction %% Function: FcnGenBodyOutputFcnCache(system, updateNonEmpty) ================== %% Description: %% Functions that generates the output code for the specified %% system and caches it into the system's record. %% %% Note: root system also calls this function %% %function FcnGenBodyOutputFcnCache(system, updateNonEmpty) void %assign outputFcn = FcnGenerateOutput(system) % %% %% generate code for open and close systems code for %% enabled systems. We need to check if either the output or %% update code is nonempty, because it is possible for the %% output code to be optimized away, but an update function %% is still generated. In this case we need to generate the %% code to switch modes for an enabled subsystem. For example, %% %% _____ %% | | %% | |----------- %% |_____| | %% | %% | %% | %% ________v_______________ %% | _ | %% | _| |_ | %% | _____ | ____ %% | _ | 1 | _ | | _ | %% | |_|-->| - |--->|_| |---->|--| | %% | |_z-1_| | |_- _| %% |_______________________| Terminator block %% %% %% %% %% %if !LibSystemFcnIsEmpty(system,"Output") || updateNonEmpty % %endif %assign outputLocalBO = FcnDeclareAccessedLocalBlockOutputs(system) %assign outputSSVars = LibDeclareAllAccessedSimStructVars() % % %% %% generate profiling code %% %assign declsProf = SLibGenProfSysDeclare(system, "Output") % %assign startProf = SLibGenProfSysStart(system, "Output") % %assign endProf = SLibGenProfSysEnd(system, "Output") % % %% For the model reference base system, we generate the interface %% and prototype in FcnGenBodySysCache. This is because information %% from Output may be needed in Update to determine if an %% rtModel argument is needed (one reason is the firstInitCond). %if !IsModelReferenceBaseSys(system) % %endif %endfunction %% FcnGenBodyOutputFcnCache %% Function: FcnGenBodyUpdateFcnCache(system) ================================== %% Description: %% Functions that generates the update code for the specified %% system and caches it into the system's record. This function will %% return true if the update cache is nonempty, and false otherwise. %% This is used by the Output function to decide if we should call %% SLibGenerateSubSystemCode. It will be called if there is any output %% or update code. %% %% Note: root system also calls this function %% %function FcnGenBodyUpdateFcnCache(system) void %assign buffNonEmpty = TLC_FALSE %assign updateFcn = FcnGenerateUpdate(system) % %% %% generate code for open and close systems code for %% enabled systems %% %if !LibSystemFcnIsEmpty(system,"Update") %assign buffNonEmpty = TLC_TRUE % %endif %assign updateSSVars = LibDeclareAllAccessedSimStructVars() % %% %% generate profiling code %% %assign declsProf = SLibGenProfSysDeclare(system, "Update") % %assign startProf = SLibGenProfSysStart(system, "Update") % %assign endProf = SLibGenProfSysEnd(system, "Update") % % %% For the model reference base system, we generate the interface %% and prototype in FcnGenBodySysCache. This is because information %% from Output may be needed in Update to determine if an %% rtModel argument is needed (one reason is the firstInitCond). %if !IsModelReferenceBaseSys(system) % %endif %return buffNonEmpty %endfunction %% FcnGenBodyUpdateFcnCache %% Function: FcnGenBodyOutputUpdateFcnCache(system) ============================ %% Description: %% Functions that generates the outputupdate code for the specified %% subsystem and caches it into the system's record. %% %function FcnGenBodyOutputUpdateFcnCache(system) void %% output %assign outputFcn = FcnGenerateOutput(system) % %% update %assign updateFcn = FcnGenerateUpdate(system) % %if system.Type == "iterator" %% accessed block outputs %assign localBO = FcnDeclareAccessedLocalBlockOutputs(system) % %endif %% %% generate code for open and close systems code for %% trigger_enabled, triggered and iterator systems %% %% For trigger subsystem, if trigger block output port %% presents, must generate system code. %if !LibSystemFcnIsEmpty(system,"Output") || ... !LibSystemFcnIsEmpty(system,"Update") || ... system.Type == "iterator" || ... (system.Type == "trigger" && system.TriggerBlkIdx != -1) % %endif %if system.Type != "iterator" %% accessed block outputs %assign localBO = FcnDeclareAccessedLocalBlockOutputs(system) % %endif %% accessed simstruct variables and global variables %assign outputUpdateSSVars = LibDeclareAllAccessedSimStructVars() % %% %% generate profiling code %% %assign declsProf = SLibGenProfSysDeclare(system, "OutputUpdate") % %assign startProf = SLibGenProfSysStart(system, "OutputUpdate") % %assign endProf = SLibGenProfSysEnd(system, "OutputUpdate") % %% Set Need TID flag %% Set Need CPI flag %% %% Force flag is set for function-call subsystems because: %% 1) at least 1 caller is a non-inlined S-Function (determined in %% Simulink) %% 2) the function-call subsystem has inside it an S-Function that makes %% function-calls and it is part of a feedback loop (determined in %% Simulink) %% 3) vxtask.tlc and vxinterrupt.tlc require the function-call subsystem to %% be a function %% 4) A multi-instanced, non-inlined StateFlow block is the caller %% (set in LibDetermineSFMultiInstantiation() in commonpass.tlc) %% %% NOTE: This assumes inlined S-Functions will use OutputUpdateFcnInfo.FcnCall %% or LibSystemFcnNeedsTid to correctly perform the call. %% %assign needTIDInOutputUpdate = ... FcnDeclareTIDIfNeeded(system) || LibSystemIsForceNonInline(system) % %assign needCPIInOutputUpdate = ... FcnDeclareCPIIfNeeded(system) || LibSystemIsForceNonInline(system) % %% For the model reference base system, we generate the interface %% and prototype after output and update have been generated. %% This is because information from Output may be needed in %% Update to determine if an rtModel argument is needed %% (one reason is the firstInitCond). %% Global timing engine does not need any of these. %if IsModelReferenceBaseSys(system) && !ModelReferenceTargetWithGlobalTiming % %endif % %endfunction %% FcnGenBodyOutputUpdateFcnCache %% Function: FcnGenBodyDisableFcnCache(system) ================================= %% Description: %% Functions that generates the disable code for the specified %% subsystem and caches it into the system's record. %% %function FcnGenBodyDisableFcnCache(system) void %openfile tempbuf %with system %% %if system.Type != "root" %% %assign graphicalSys = CompiledModel.System[CallSites[0][2]] %% %assign ssBlock = graphicalSys.Block[CallSites[0][3]] %% %% %% If system need elapse time and can be reset, %% %% elapse time must be reset when the system reset %% %% states. %% MJE xxx %% %if SLibXBInitRequired(system,ssBlock,[],"","",0) %% %with ssBlock %% %if system.Type == "trigger" || ... %% system.Type == "enable_with_trigger" || ... %% system.Type == "enable" || ... %% system.Type == "function-call" %% % %% %endif %% %endwith %% %endif %% %endif %% %% %% For action systems we need to write out the Disable code %% for a system at the top of the DisableFcn for this system. %% This is similar to how enabled subsytems work in subsystemlib.tlc %if system.Type == "action" && SolverType == "VariableStep" %assign graphicalSys = CompiledModel.System[CallSites[0][2]] %assign ssBlock = graphicalSys.Block[CallSites[0][3]] %; % %endif %foreach blkIdx = NumBlocks % %endforeach %foreach blkIdx = NumVirtualOutportBlocks %assign vblkIdx = VirtualOutportBlocksIdx + blkIdx % %endforeach %endwith %% system %closefile tempbuf % % %assign disableSSVars = LibDeclareAllAccessedSimStructVars() % % %endfunction %% Function: FcnGenBodyDerivativeFcnCache(system) ============================== %% Description: %% Functions that generates the derivative code for the specified %% subsystem and caches it into the system's record. %% %% Note: root system also calls this function %% %function FcnGenBodyDerivativeFcnCache(system) void %openfile tempbuf %with system %foreach blkIdx = NumBlocks % %endforeach %endwith %% system %closefile tempbuf % % %assign derivativeSSVars = LibDeclareAllAccessedSimStructVars() % %assign ::BlockFcn = "Derivative" % %endfunction %% Function: FcnGenBodyProjectionFcnCache(system) ============================== %% Description: %% Functions that generates the projection code for the specified %% subsystem and caches it into the system's record. %% %% Note: root system also calls this function %% %function FcnGenBodyProjectionFcnCache(system) void %openfile tempbuf %% %% If Model registered Projection function, the ODE solvers must call %% MdlOutputs before calling MdlProjection. MdlProjection is generated/called %% always, but MdlOutputs should only be called if needed. %% %if ((system.Type == "root") && (ModelHasProjections == "yes")) %if isRSim && !isRSimWithSolverModule %% RSim with the RTW ODE solver /* Update Outputs before calling Projections */ MdlOutputs(0); %elseif CodeFormat == "RealTimeMalloc" %% GRT with malloc /* Update Outputs before calling Projections */ MdlOutputs(%,0); %endif %endif %% %with system %foreach blkIdx = NumBlocks % %endforeach %endwith %% system %closefile tempbuf % % %assign projectionSSVars = LibDeclareAllAccessedSimStructVars() % % %endfunction %% Function: FcnGenBodyZeroCrossingFcnCache(system) ============================ %% Description: %% Generates the zero-crossing code for the specified system and caches it %% into the system's record. %% %% Note: Root system also calls this function %% %function FcnGenBodyZeroCrossingFcnCache(system) void %openfile tempbuf %with system %foreach blkIdx = NumBlocks %if (Block[blkIdx].NumNonsampledZCs > 0) || ... Block[blkIdx].Type == "Opaque" || ... Block[blkIdx].Type == "SubSystem" || ... Block[blkIdx].Type == "If" || ... Block[blkIdx].Type == "SwitchCase" % %endif %endforeach %endwith %% system %closefile tempbuf % % %assign zeroCrossingSSVars = LibDeclareAllAccessedSimStructVars() % % %endfunction %% Function: FcnGenerateTerminate ============================================== %% Description: %% Generate terminate code for the system %% %function FcnGenerateTerminate(system) %openfile tmpBuffer %with system %foreach blkIdx = system.NumBlocks % %endforeach %endwith %% Stateflow global machine terminate %if IsBaseSystem(system) %\ %endif %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %return tmpBuffer %else %return "" %endif %endfunction %% FcnGenerateTerminate %% Function: FcnGenBodyTerminateFcnCache(system) =============================== %% Description: %% Caches system Terminate function %% %function FcnGenBodyTerminateFcnCache(system) void %assign terminateFcn = FcnGenerateTerminate(system) %assign terminateSSVars = LibDeclareAllAccessedSimStructVars() %if system.Type == "root" %assign terminateProf = SLibGenProfSysTerminate(system) % %endif % % % %endfunction %% FcnGenBodyTerminateFcnCache %% Function: FcnGenerateExtModeOutput(system) =================================== %% Description: %% Generates the External Mode Outputs code for an enabled, triggered, or %% enabled & triggered subsystem to update the extmode active dwork. %% %function FcnGenerateExtModeOutput() void %openfile ext %if Type == "trigger" || Type == "enable_with_trigger" || Type == "enable" || ... Type == "function-call" || Type == "action" %assign callSites = CallSites %assign graphParentSys = CompiledModel.System[callSites[0][2]] %assign ssBlock = graphParentSys.Block[callSites[0][3]] %with ssBlock %foreach i = NumDWork %assign dwRec = DWork[i] %assign dwName = LibBlockDWorkName(dwRec) %assign dwIdx = dwRec.FirstRootIdx %if dwName == SLibGetNameOfExtModeActiveDWork() %assign mode = SLibGetSubsystemActiveVector(dwIdx) % = EXTMODE_SUBSYS_ENABLED; %endif %endforeach %endwith %endif %closefile ext %return ext %endfunction %% FcnGenerateExtModeOutput %% Function: FcnUpdateSubsysRanBC(system) ====================================== %% Description: %% Find the SUBSYS_RAN_BC dwork entry for this system and update it %% %function FcnUpdateSubsysRanBC(system) void %assign buf = "" %if (IsModelReferenceSimTarget() || Accelerator || (ExtMode == 1)) &&... (system.Type != "root") %openfile buf %assign callSites = system.CallSites %assign graphParentSys = CompiledModel.System[callSites[0][2]] %assign ssBlock = graphParentSys.Block[callSites[0][3]] %assign dworks = CompiledModel.DWorks %if SLibIsCondExec(system, ssBlock) %with ssBlock %% We only need the MajorTimeStep guard for enable subsystems-all other %% subsystems should already be guarded (implicit or explicitly) %assign needMajorTimeStepGuard = TLC_FALSE %if (system.Type == "enable") || (system.Type == "action") %assign needMajorTimeStepGuard=(ParamSettings.MinorStepGuard== "yes") %endif %foreach i = NumDWork %% Loop over all the DWorks for this block and look for SUBSYS_RAN_BC %assign blkDwRec = DWork[i] %assign dwName = LibBlockDWorkName(blkDwRec) %assign dwIdx = blkDwRec.FirstRootIdx %if dwName == SLibGetNameOfSubsysRanBCDWork() %% Found it! Figure out the full path and write into the buffer %assign dwRec = dworks.DWork[dwIdx] %assign idxVec = SLibGetSystemAndCallSideIndex(dwRec) %assign sysIdx = idxVec[0] %assign csIdx = idxVec[1] %assign hStructIdx = system.HStructDeclSystemIdx %assign dwPath = FcnGetLocalDWorkPath(sysIdx, csIdx, hStructIdx) %switch system.Type %case "trigger" %case "enable_with_trigger" %case "function-call" %% = SUBSYS_RAN_BC_ONE_SHOT; %break %default %if needMajorTimeStepGuard if (%) { %endif srUpdateBC(%%); %if needMajorTimeStepGuard } %endif %endswitch %break %endif %endforeach %endwith %endif %closefile buf %endif %return buf %endfunction %% FcnUpdateSubsysRanBC %% Function: GetSystemAsyncTIDCode ======================= %% %% %function GetSystemAsyncTIDCode(block, system, fcnType, tid) %assign ts = SampleTime[tid] %assert fcnType == "Output" || fcnType == "Update" %assert ts.Asynchronous == "yes" %with block %assign ss = CompiledModel.System[CallSiteInfo.SystemIdx] %if LibSystemIsReusedFcn(ss) %% When single rate system is reused from different tids and these tids %% include asychronous tid, it is possible that the reused code %% is put in the buf associated with one of the async tids that reuse %% the code. When subsytem generates code for its own tid (SubsystemTID), %% subsystem need get code from the tid that has the %% code. %if ISEQUAL(tid, block.SubsystemTID) %assign tmpTid = FcnGetReusedSubsystemCodeTID(ss) %assign system.CurrentTID = tmpTid %assign tmpBuf = (fcnType == "Output") ? ... SLibGenerateNonExprOutputForTID(block,system,"",tmpTid) : ... SLibGenerateForTID(block, "UpdateForTID", system, tmpTid) %assign system.CurrentTID = -1 %else %assign tmpBuf = "" %endif %elseif FcnSubsystemIsAsycnTopSS(ss) %% allways dump async code if subsystem is a async %% top system %assign tmpBuf = LibGetSystemField(ss, "Cached%%Fcn") %else %if ss.Type == "function-call" %% If system is function call system, %% -- code associated with system tid is generated with %% fcncall generator block, don't need dump here. %% -- code that not associated with system tid won't be %% generated with fcncall generator block, should %% dump here. %if ISEQUAL(tid, FcnGetSubsystemTID(system)) %assign tmpBuf = "" %else %assign tmpBuf = LibGetSystemField(ss, "Cached%%Fcn") %endif %else %% always dump async code if system is not fcn-call system %assert system.CurrentTID == -1 %assign system.CurrentTID = tid %assign tmpBuf = (fcnType == "Output") ? ... SLibGenerateNonExprOutputForTID(block,system,"",tid) : ... SLibGenerateForTID(block, "UpdateForTID", system, tid) %assign system.CurrentTID = -1 %endif %endif %endwith %return tmpBuf %endfunction %% Function: FcnGenerateRateGroupedOutput ============================= %% Abstract: %% Generate rate grouped output code, %% Function return an array Multirate_outputBuffers[NumSampleTimes] %% %function FcnGenerateRateGroupedOutput(system) %assign tid01Eq = ISEQUAL(SolverType, "FixedStep") && FixedStepOpts.TID01EQ %foreach tid = NumSampleTimes %assign outputBufferForTID% = "" %endforeach %foreach blkIdx = NumBlocks %assign block = Block[blkIdx] %with block %if SkipBlockFcn %continue %endif %assign current_tid = TID %% Check if this is a model reference block, then load the Tid01eq %% from the interface. If tid01eq is true and %if block.Type == "ModelReference" %assign current_tid = FcnMapTIDForRateGrouping(block, current_tid) %endif %if LibBlockAllOutputSignalsAreExpr() %% skip output if all outputs are expressions %elseif ISEQUAL(current_tid, "constant") %% No action taken %\ %elseif TYPE(current_tid) == "Number" %assign system.CurrentTID = current_tid %openfile tmpBuffer %\ %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %assign tid = current_tid %% For tid01Eq=1, add tid=1 code to tid=0 buffer %if tid01Eq && (tid == 1) %assign tid = 0 %openfile tmpBufferTid01Eq if (%) { %\ } %closefile tmpBufferTid01Eq %assign tmpBuffer = tmpBufferTid01Eq %endif %% Code of "Asynchronous Rate Transition: Reader" %% is grouped with AsyncPromptedTID in order to %% synchronize data transfer with this async task's %% caller. See abstract of FcnGetAsyncPromotedTID %% for more information %if LibAsynchronousTriggeredTID(current_tid) && ... Type == "S-Function" && ISFIELD(block, "MaskType") && ... MaskType == "Asynchronous Rate Transition: Reader" %assign tid = FcnGetAsyncPromotedTID(current_tid) %endif %assign outputBufferForTID% = ... outputBufferForTID% + tmpBuffer %endif %undef tmpBuffer %elseif TYPE(current_tid) == "Vector" %assign sfuncName = ... (block.Type == "S-Function")? ParamSettings.FunctionName : "" %assign TIDVectorLen = SIZE(current_tid,1) %if SLibBlockFcnRateGrouping(block, "Outputs") %% %% If the block TLC file rate-grouping compliant. %% outputBufferForTID# code is written to corresponind %% buffer for TID %% %assign fcnName = "OutputsForTID" %assign system.CurrentTID = -1 %foreach TIDidx = TIDVectorLen %assign tid = current_tid[TIDidx] %assign orgTid = tid %% Output code of port based blocks is grouped with %% AsyncPromotedTID if its orignal tid is %% asynchronous tid. See abstract of %% FcnGetAsyncPromotedTID %% for more information %if LibAsynchronousTriggeredTID(tid) %assign tid = FcnGetAsyncPromotedTID(orgTid) %endif %assign tid = (tid < 0)? 0 : tid %openfile tmpBuffer %assign system.CurrentTID = tid %\ %assign system.CurrentTID = -1 %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %% For tid01Eq=1, add tid=1 code to tid=0 buffer %if tid01Eq && (tid == 1) %assign tid = 0 %openfile tmpBufferTid01Eq if (%) { %\ } %closefile tmpBufferTid01Eq %assign tmpBuffer = tmpBufferTid01Eq %endif %assign outputBufferForTID% = ... outputBufferForTID% + tmpBuffer %endif %endforeach %else %assign system.CurrentTID = current_tid %openfile tmpBuffer %\ %closefile tmpBuffer %assign warnTxt = "" %assign system.CurrentTID = -1 %assign isInlinedSfcn = Type == "S-Function" && SFunctionType == "TLC" %if !WHITE_SPACE(tmpBuffer) %if SLibBlkHasMultirateCode(block) && isInlinedSfcn %assign warnTxt = ... "Code of output function for multirate "... "block '%' is guarded by sample hit checks "... "rather than being rate grouped. This will generate "... "the same code for all rates used by the block, "... "possibly generating dead code. To avoid dead "... "code, you must update the TLC file for the block." % %assign warnTxt = ... "/* Because the output function of multirate block \n"... " % is not rate grouped, \n"... " the following code might contain unreachable blocks of code. \n"... " To avoid this, you must update your block TLC file. */" %endif %assign tmpBufferHasDumpedForTID0 = TLC_FALSE %foreach TIDidx = TIDVectorLen %assign tid = current_tid[TIDidx] %if TYPE(tid) == "Number" && tid > 0 %% For tid01Eq=1, no code for tid1 %if tid01Eq && (tid == 1) %continue %endif %assign outputBufferForTID% = ... outputBufferForTID% + warnTxt + tmpBuffer %elseif !tmpBufferHasDumpedForTID0 %% put tid=0 and tid=non-numeric code into tid=0 buffer %assign outputBufferForTID0 = ... outputBufferForTID0 + tmpBuffer %assign tmpBufferHasDumpedForTID0 = TLC_TRUE %endif %endforeach %endif %endif %elseif ISEQUAL(current_tid, "Subsystem") %assign ss = CompiledModel.System[CallSiteInfo.SystemIdx] %% generate code for Synchronous tid %% %if SLibIsMultiRateAndRateGrouping(ss) %% subsystem is multirate %assign tid0CodeHasGenerated = TLC_FALSE %foreach tidIdx = SIZE(SubsystemTID,1) %assign tid = SubsystemTID[tidIdx] %assign system.CurrentTID = tid %if !LibAsynchronousTriggeredTID(tid) %if tid01Eq && (tid == 1) %% For tid01Eq=1, add tid=1 code to tid=0 buffer %if tid0CodeHasGenerated %% avoid generate tid0 code twice %continue %else %assign needMajorTimeStepGuard = TLC_TRUE %assign tid = 0 %endif %else %assign needMajorTimeStepGuard = TLC_FALSE %endif %if tid == 0 %assign tid0CodeHasGenerated = TLC_TRUE %endif %openfile tmpBuffer %\ %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %if needMajorTimeStepGuard %openfile tmpBufferTid01Eq if (%) { %\ } %closefile tmpBufferTid01Eq %assign tmpBuffer = tmpBufferTid01Eq %endif %assign outputBufferForTID% = ... outputBufferForTID% + tmpBuffer %endif %endif %endforeach %else %% subsystem is single rate, %assign tid = SubsystemTID %if !LibAsynchronousTriggeredTID(tid) %openfile tmpBuffer %\ %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %if TYPE(tid) == "Number" %assert tid >= 0 %% For tid01Eq=1, add tid=1 code to tid=0 buffer %if tid01Eq && (tid == 1) %assign tid = 0 %openfile tmpBufferTid01Eq if (%) { %\ } %closefile tmpBufferTid01Eq %assign tmpBuffer = tmpBufferTid01Eq %endif %assign outputBufferForTID% = ... outputBufferForTID% + tmpBuffer %else %assert ISEQUAL(tid, "constant") || ... ISEQUAL(tid, [0,1]) && tid01Eq %assign outputBufferForTID0 = ... outputBufferForTID0 + tmpBuffer% %endif %endif %endif %endif %% Generate code for Asynchronous tid %foreach tidIdx = NumAsynchronousSampleTimes %assign tid = tidIdx + NumSynchronousSampleTimes %assign outputBufferForTID% = ... outputBufferForTID% + ... GetSystemAsyncTIDCode(block,system,"Output",tid) %endforeach %endif %endwith %endforeach %assign Multirate_outputBuffers =[] %% Update the system ran breadcrumb (ModelRefSimTarget and ExtMode) %assign sysRanCode = "" %if (system.Type != "enable") %assign sysRanCode = FcnUpdateSubsysRanBC(system) %endif %% Prepend the system ran clearing code, if needed %foreach Tid = NumSampleTimes %assign sysRanReset = "" %if IsBaseSystem(system) && (ExtMode == 1) %assign sysRanReset = SLibGetSubsystemRanBCReset(system, Tid) %endif %assign tmpOutputBufferForTID = outputBufferForTID% %assign Multirate_outputBuffers = ... Multirate_outputBuffers +"%%%" %endforeach %return Multirate_outputBuffers %endfunction %% FcnGenerateRateGroupedOutput %% Function: FcnGenerateTidGuardOpenCode(tid) =========================== %% Return TID guard open potion. %% If rate grouping is on, return "" because %% rate grouped code does not need tid guard %% %function FcnGenerateTidGuardOpenCode(tid) %assign tidGuard = LibIsSampleHit(tid) %if SLibIsRateGrouping() || tidGuard == "1" %return "{ %" %else %return "if (%) { %" %endif %endfunction %% FcnGenerateTidGuardOpenCode %% Function: FcnGenerateTidGuardCloseCode(tid) =========================== %% Return TID guard close potion. %% If rate grouping is on, return "" because %% rate grouped code does not need tid guard %% %function FcnGenerateTidGuardCloseCode(tid) %return "}" %endfunction %% FcnGenerateTidGuardCloseCode %% Function: FcnGenerateNonRateGroupedOutput =========================== %% Abstract: %% Generate non-rate-grouped output code %% %function FcnGenerateNonRateGroupedOutput(system) %foreach tid = NumAsynchronousSampleTimes %assign outputBufferForAsyncTID% = "" %endforeach %assign Multirate_outputBuffers = [] %foreach idx = NumSampleTimes %assign Multirate_outputBuffers = ... Multirate_outputBuffers + "" %endforeach %openfile outputTmpBuf %assign prevTID = "" %% If system is a single rate, don't need tid guard inside %% this system. %assign needTIDGuard = !LibIsSingleRateSystem(system) %assign scopeOpen = 0 %foreach blkIdx = NumBlocks %assign block = Block[blkIdx] %assign multiTasking = !SLibSingleTasking() %with block %if SkipBlockFcn %continue %endif %% %% Previous TID is NULL (""). %% %% skip output if all outputs are expressions %if LibBlockAllOutputSignalsAreExpr() %continue %endif %% otherwise %if ISEQUAL(TID, "constant") %% No action taken %\ %elseif TYPE(TID) == "Number" %assign system.CurrentTID = TID %openfile tmpBuffer %\ %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %if LibAsynchronousTriggeredTID(TID) %% Code of "Asynchronous Rate Transition: Reader" %% is grouped with AsyncPromptedTID in order to %% synchronize data transfer with this async task's %% caller. See abstract of FcnGetAsyncPromotedTID %% for more information %if Type == "S-Function" && ISFIELD(block, "MaskType") && ... MaskType == "Asynchronous Rate Transition: Reader" %assign tid = FcnGetAsyncPromotedTID(TID) %else %assign tid = TID %endif %if LibAsynchronousTriggeredTID(tid) %% async tid %assign outputBufferForAsyncTID% = ... outputBufferForAsyncTID% + tmpBuffer %else % %endif %else %% sync tid %if ISEQUAL(TID, prevTID) %\ %else %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif %if needTIDGuard && (TID != 0 || multiTasking) % %assign scopeOpen = 1 %endif %\ %assign prevTID = TID %endif %endif %endif %undef tmpBuffer %elseif TYPE(TID) == "Vector" %assign system.CurrentTID = TID %openfile tmpBuf %\ %closefile tmpBuf %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuf) %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif %\ %assign prevTID = TID %endif %% %% generate and rate group async tid code %% %assign sfuncName = ... (block.Type == "S-Function")? ParamSettings.FunctionName : "" %assign fcnName = "OutputsForTID" %assign TIDVectorLen = SIZE(TID,1) %foreach TIDidx = TIDVectorLen %assign tid = TID[TIDidx] %if LibAsynchronousTriggeredTID(tid) %% Output code of port based blocks is grouped with %% AsyncPromotedTID if its orignal tid is %% asynchronous tid. See abstract of %% FcnGetAsyncPromotedTID %% for more information %assign orgTid = tid %assign tid = FcnGetAsyncPromotedTID(orgTid) %assign system.CurrentTID = tid %assign tmpBuf = SLibGenerateNonExprOutputForTID(block,system,sfuncName,orgTid) %if LibAsynchronousTriggeredTID(tid) %assign outputBufferForAsyncTID% = ... outputBufferForAsyncTID% + tmpBuf %assign system.CurrentTID = -1 %else % %endif %endif %endforeach %elseif ISEQUAL(TID, "Subsystem") %assign ss = CompiledModel.System[CallSiteInfo.SystemIdx] %openfile tmpBuf %\ %closefile tmpBuf %if !WHITE_SPACE(tmpBuf) %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif %% % %assign prevTID = TID %endif %% Generate code for Asynchronous tid %% since code for async is always rate grouped %% need generate tid specific code %foreach tidIdx = NumAsynchronousSampleTimes %assign tid = tidIdx + NumSynchronousSampleTimes %assign outputBufferForAsyncTID% = ... outputBufferForAsyncTID% + ... GetSystemAsyncTIDCode(block,system,"Output",tid) %endforeach %elseif ISEQUAL(TID, "triggered") %assign system.CurrentTID = TriggerTID %if LibAsynchronousTriggeredTID(TriggerTID) %% async TID %assign outputBufferForAsyncTID% = ... outputBufferForAsyncTID% + ... SLibGenerateNonExprOutput(block,system) %else %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif %% %\ %endif %assign system.CurrentTID = -1 %assign prevTID = TID %endif %endwith %endforeach %if scopeOpen == 1 && needTIDGuard % %endif %closefile outputTmpBuf %% Update the system ran breadcrumb (ModelRefSimTarget only) %assign sysRanBCOutput = "" %if (system.Type != "enable") %assign sysRanBCOutput = FcnUpdateSubsysRanBC(system) %endif %% Prepend the system ran clearing code, if needed %assign sysRanReset = "" %if IsBaseSystem(system) && (ExtMode == 1) %assign sysRanReset = SLibGetSubsystemRanBCReset(system, 0) %endif %assign Multirate_outputBuffers[0] = "%%%" %foreach idx = NumAsynchronousSampleTimes %assign tid = idx + NumSynchronousSampleTimes %assign Multirate_outputBuffers[tid] = outputBufferForAsyncTID% %endforeach %return Multirate_outputBuffers %endfunction %% FcnGenerateNonRateGroupedOutput %% Function: FcnGenerateOutput(system) ========================================= %% Description: %% Generates the Outputs code for a system with the proper scoping(s) of %% blocks in their TIDs. %% %function FcnGenerateOutput(system) void %assign ::CompiledModel.GeneratingOutputsCode = 1 %with system %assign extOutput = "" %if ExtMode == 1 %assign extOutput = FcnGenerateExtModeOutput() %endif %if SLibIsMultiRateAndRateGrouping(system) %% rate grouping %% %assign Multirate_outputBuffers = ... FcnGenerateRateGroupedOutput(system) %else %% not rate grouping %% %assign Multirate_outputBuffers = ... FcnGenerateNonRateGroupedOutput(system) %endif %% %endif %% employTIDTransitionTable %endwith %% system %% Reset solver if needed %openfile resetSolverBuffer %if system.Type == "root" && ... CodeFormat == "S-Function" && !Accelerator && ... SolverType == "VariableStep" %assign nDU = SolverResetInfo.NumNonContDerivSignals %if nDU > 0 %assign dU = "nonContDerivSigCache" { %assign varName = "pNonContDerivSig" % *% = (% *)%; %foreach idx = nDU %% %assign sigSrc = SolverResetInfo.NonContDerivSignal[idx].SigSrc %assign startEl = SolverResetInfo.NonContDerivSignal[idx].StartEl %assign regLen = SolverResetInfo.NonContDerivSignal[idx].RegionLen %% %assign idNum = IDNUM(sigSrc) %assert (idNum[0] == "B") %if idNum[1] < BlockOutputs.NumGlobalBlockOutputs %assign bo = BlockOutputs.GlobalBlockOutput[idNum[1]] %assert (bo.Width >= regLen + startEl) %assert (bo.Invariant == "no") %assert (bo.ComplexSignal == "no") %% %assign boPath = FcnGetLocalBlockIOPath(bo.SigSrc[0], ... bo.SigSrc[1], ... NumSystems-1) %assign name = "%%" %else %assign nExternalOp = BlockOutputs.NumExternalBlockOutputs %foreach iExOp = nExternalOp %if BlockOutputs.ExternalBlockOutput[iExOp].LogicalSrc == sigSrc %assign bo = BlockOutputs.ExternalBlockOutput[iExOp] %break %endif %endforeach %assign name = "%" %endif %assign opW = (bo.Width == 1) ? "" : "[%]" %assign addr = "&%%" %assign dType = LibGetDataTypeNameFromId(bo.DataTypeIdx) %assign sizeInBytes = "%*sizeof(%)" if (memcmp(%->cache_%, (char *)%, %) != 0) { (void)memcpy(%->cache_%, (char *)%, %); ssSetSolverNeedsReset(%); } %endforeach } %endif %endif %closefile resetSolverBuffer %assign ::CompiledModel.GeneratingOutputsCode = 0 %assign Multirate_outputBuffers[0] = ... extOutput + Multirate_outputBuffers[0] + resetSolverBuffer %if ISEQUAL(SolverType, "FixedStep") && FixedStepOpts.TID01EQ %assert (WHITE_SPACE(Multirate_outputBuffers[1])) %endif %return Multirate_outputBuffers %endfunction %% Function: FcnGenerateRateGroupedUpdate ============================ %% Abstract: %% Generate rate grouped update code for system, %% function return a array Multirate_updateBuffers[NumSyncronousSampleTimes] %% %function FcnGenerateRateGroupedUpdate(system) %assign tid01Eq = ISEQUAL(SolverType, "FixedStep") && FixedStepOpts.TID01EQ %foreach tid = NumSampleTimes %assign updateBufferForTID% = "" %endforeach %foreach blkIdx = NumBlocks %assign block = Block[blkIdx] %with block %if SkipBlockFcn %continue %endif %% %% Get "curent_tid" is equal to the block's tid, unless %% it is a special sample hit, in which case we need to use %% the sample time index. %% %assign current_tid = TID %if EXISTS("SampleTimeIdx") %assign current_tid = SampleTimeIdx %endif %% Check if this is a model reference block, then load the Tid01eq %% from the interface. If tid01eq is true and %if block.Type == "ModelReference" %assign current_tid = FcnMapTIDForRateGrouping(block, current_tid) %endif %% %% updateBuffer for TID %% %if ISEQUAL(current_tid, "constant") %% No action taken %elseif TYPE(current_tid) == "Number" %assign system.CurrentTID = current_tid %openfile tmpBuffer % %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %% For tid01Eq=1, add tid=1 code to tid=0 buffer %assign tidOut = tid01Eq && (current_tid == 1) ? 0 : current_tid %assign updateBufferForTID% = ... updateBufferForTID% + tmpBuffer %endif %undef tmpBuffer %elseif TYPE(current_tid) == "Vector" %assign sfuncName = ... (block.Type == "S-Function") ? ... ParamSettings.FunctionName : "" %assign TIDVectorLen = SIZE(current_tid,1) %if SLibBlockFcnRateGrouping(block, "Update") %% %% If the block TLC file rate-grouping compliant. %% UpdateForTID# code is written to corresponind %% buffer for TID %% %assign fcnName = "UpdateForTID" %foreach TIDidx = TIDVectorLen %assign tid = current_tid[TIDidx] %assign system.CurrentTID = tid < 0 ? 0 : tid %openfile tmpBuffer %if block.Type == "S-Function" % %else % %endif %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %assign tid = (tid < 0)? 0 : tid %% For tid01Eq=1, add tid=1 code to tid=0 buffer %assign tidOut = tid01Eq && (tid == 1) ? 0 : tid %assign updateBufferForTID% = ... updateBufferForTID% + tmpBuffer %endif %endforeach %else %% %% If the block TLC file not rate-grouping compliant. %% updateBufferForTID# code is written into updatebuffer %% if not-rate-grouping, written into all involved %% updateBufferForTID## if is rate grouping. %% %assign system.CurrentTID = current_tid %openfile tmpBuffer % %closefile tmpBuffer %assign warnTxt = "" %assign system.CurrentTID = -1 %assign isInlinedSfcn = Type == "S-Function" && SFunctionType == "TLC" %if !WHITE_SPACE(tmpBuffer) %if SLibBlkHasMultirateCode(block) && isInlinedSfcn %assign warnTxt = ... "Code of update function for multirate "... "block '%' is guarded by sample hit checks "... "rather than being rate grouped. This will generate "... "the same code for all rates used by the block, "... "possibly generating dead code. To avoid dead "... "code, you must update the TLC file for the block." % %assign warnTxt = ... "/* Because the update function of multirate block \n"... " % is not rate grouped, \n"... " the following code might contain unreachable blocks of code. \n"... " To avoid this, you must update your block TLC file. */" %endif %assign tmpBufferHasDumpedForTID0 = TLC_FALSE %foreach TIDidx = TIDVectorLen %assign tid = TID[TIDidx] %if TYPE(tid) == "Number" && tid > 0 %% If tid01Eq=1, no code for tid1 %if tid01Eq && (tid == 1) %continue %endif %assign updateBufferForTID% = ... updateBufferForTID% + warnTxt + tmpBuffer %elseif !tmpBufferHasDumpedForTID0 %% put tid=0 and tid=non-numeric code into tid=0 buffer %assign updateBufferForTID0 = ... updateBufferForTID0 + tmpBuffer %assign tmpBufferHasDumpedForTID0 = TLC_TRUE %endif %endforeach %endif %endif %elseif ISEQUAL(current_tid, "Subsystem") %assign ss= CompiledModel.System[CallSiteInfo.SystemIdx] %% generate code for Synchronous tid %% %if SLibIsMultiRateAndRateGrouping(ss) %% subsystem is multirate %assign fcnName = "UpdateForTID" %assign tid0CodeHasGenerated = TLC_FALSE %foreach tidIdx = SIZE(SubsystemTID,1) %assign tid = SubsystemTID[tidIdx] %if !LibAsynchronousTriggeredTID(tid) %if tid01Eq && (tid == 1) %% For tid01Eq=1, add tid=1 code to tid=0 buffer %if tid0CodeHasGenerated %% avoid generate tid0 code twice %continue %else %assign tid = 0 %endif %endif %if tid == 0 %assign tid0CodeHasGenerated = TLC_TRUE %endif %assign system.CurrentTID = tid %openfile tmpBuffer % %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %assign updateBufferForTID% = ... updateBufferForTID% + tmpBuffer %endif %endif %endforeach %else %% subsystem is single rate %if !LibAsynchronousTriggeredTID(SubsystemTID) %assign fcnName = "Update" %assign tid = SubsystemTID %openfile tmpBuffer % %closefile tmpBuffer %if !WHITE_SPACE(tmpBuffer) %if TYPE(tid) == "Number" %% For tid01Eq=1, add tid=1 code to tid=0 buffer %assign tidOut = tid01Eq && (tid == 1) ? 0 : tid %assign updateBufferForTID% = ... updateBufferForTID% + tmpBuffer %else %assert ISEQUAL(tid, "constant") || ... ISEQUAL(tid, [0,1]) && tid01Eq %assign updateBufferForTID0 = ... updateBufferForTID0 + tmpBuffer %endif %endif %endif %endif %% Generate code for Asynchronous tid %foreach tidIdx = NumAsynchronousSampleTimes %assign tid = tidIdx + NumSynchronousSampleTimes %assign updateBufferForTID% = ... updateBufferForTID% + ... GetSystemAsyncTIDCode(block,system,"Update",tid) %endforeach %endif %endwith %endforeach %% Block %assign Multirate_updateBuffers = [] %foreach Tid = NumSampleTimes %assign Multirate_updateBuffers = ... Multirate_updateBuffers + updateBufferForTID% %endforeach %return Multirate_updateBuffers %endfunction %% Function: FcnGenerateNonRateGroupedUpdate ================================= %% Abstract: %% Generate non rate grouped update code %% %function FcnGenerateNonRateGroupedUpdate(system) %assign scopeOpen = 0 %assign multiTasking = !SLibSingleTasking() %foreach tid = NumAsynchronousSampleTimes %assign updateBufferForAsyncTID% = "" %endforeach %assign Multirate_updateBuffers = [] %foreach idx = NumSampleTimes %assign Multirate_updateBuffers = Multirate_updateBuffers + "" %endforeach %assign prevTID = "" %% If system is a single rate, don't need tid guard inside %% this system. %assign needTIDGuard = !LibIsSingleRateSystem(system) %openfile tmpUpdateBuf %foreach blkIdx = NumBlocks %assign block = Block[blkIdx] %with block %if SkipBlockFcn %continue %endif %% %% Get "current" tid which is equal to the block's tid, unless %% it is a special sample hit, in which case we need to use %% the sample time index. %% %assign currentTID = TID %if EXISTS("SampleTimeIdx") %assign currentTID = SampleTimeIdx %endif %% %% Previous tid was nothing (ie, ""). This is a special %% case from the cases listed in the RTW Functional %% Specification since previous tid hasn't been set. A current %% tid of type constant is ignored. %% %if ISEQUAL(currentTID, "constant") %% No action taken %elseif TYPE(currentTID) == "Number" %assign system.CurrentTID = currentTID %openfile tmpBuffer % %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %if LibAsynchronousTriggeredTID(currentTID) %% async tid %assign updateBufferForAsyncTID% = ... updateBufferForAsyncTID% + tmpBuffer %else %% sync tid %if ISEQUAL(currentTID, prevTID) %\ %else %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif %if needTIDGuard && (currentTID != 0 || multiTasking) % %assign scopeOpen = 1 %endif %\ %assign prevTID = currentTID %endif %endif %endif %undef tmpBuffer %elseif TYPE(currentTID) == "Vector" %assign system.CurrentTID = currentTID %openfile tmpBuffer % %closefile tmpBuffer %assign system.CurrentTID = -1 %if !WHITE_SPACE(tmpBuffer) %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif %\ %assign prevTID = currentTID %endif %% %% generate and rate group async code %% %assign sfuncName = ... (block.Type == "S-Function")? ParamSettings.FunctionName : "" %assign fcnName = "UpdateForTID" %assign TIDVectorLen = SIZE(TID,1) %foreach TIDidx = TIDVectorLen %assign tid = TID[TIDidx] %if LibAsynchronousTriggeredTID(tid) %assign system.CurrentTID = tid %openfile tmpBuffer %assert LibBlockFunctionExists(block, fcnName) %if block.Type == "S-Function" % %else % %endif %closefile tmpBuffer %assign system.CurrentTID = -1 %assign updateBufferForAsyncTID% = ... updateBufferForAsyncTID% + tmpBuffer %endif %endforeach %elseif ISEQUAL(currentTID, "Subsystem") %assign ss = CompiledModel.System[CallSiteInfo.SystemIdx] %openfile tmpBuf % %closefile tmpBuf %if !WHITE_SPACE(tmpBuf) %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif %% % %assign prevTID = currentTID %endif %% %% generate code code for async tid %% since code for async is always rate grouped %% need generate tid specific code %% Generate code for Asynchronous tid %foreach tidIdx = NumAsynchronousSampleTimes %assign tid = tidIdx + NumSynchronousSampleTimes %assign updateBufferForAsyncTID% = ... updateBufferForAsyncTID% + ... GetSystemAsyncTIDCode(block,system,"Update",tid) %endforeach %elseif ISEQUAL(currentTID, "triggered") %assign system.CurrentTID = TriggerTID %if LibAsynchronousTriggeredTID(TriggerTID) %% async TID %assign updateBufferForAsyncTID% = ... updateBufferForAsyncTID% + ... SLibGenerate(Block[blkIdx], "Update", system) %else %if scopeOpen && needTIDGuard % %assign scopeOpen = 0 %endif % %endif %assign system.CurrentTID = -1 %assign prevTID = currentTID %endif %endwith %endforeach %% Block %if scopeOpen == 1 && needTIDGuard % %endif %% %closefile tmpUpdateBuf %assign Multirate_updateBuffers[0] = tmpUpdateBuf %foreach idx = NumAsynchronousSampleTimes %assign tid = idx + NumSynchronousSampleTimes %assign Multirate_updateBuffers[tid] = updateBufferForAsyncTID% %endforeach %return Multirate_updateBuffers %endfunction %% FcnGenerateNonRateGroupedUpdate %% Function: FcnGenerateUpdate(system) ========================================= %% Description: %% Generates the Update code for a system with the proper scoping(s) of %% blocks in their TIDs. %% %function FcnGenerateUpdate(system) void %with system %if SLibIsMultiRateAndRateGrouping(system) %% Multi-rate system, rate grouping %% %assign Multirate_updateBuffers = ... FcnGenerateRateGroupedUpdate(system) %else %% %% Multi-rate system, not rate grouping %% %assign Multirate_updateBuffers = ... FcnGenerateNonRateGroupedUpdate(system) %% end of Multi-rate system, no-rate- grouping %% %endif %endwith %% system %if ISEQUAL(SolverType, "FixedStep") %if FixedStepOpts.TID01EQ %assign Multirate_updateBuffers[0] = ... Multirate_updateBuffers[0] + Multirate_updateBuffers[1] %assign Multirate_updateBuffers[1] = "" %endif %endif %return Multirate_updateBuffers %endfunction %% Function: SLibGetRateGroupedFcnBody =========== %% Returned rate grouped Fcn body %% Only "Update" "Output" "OutputUdate" fcn body can %% be rate grouped. %% If system tid is asynchronous tid, %% always return rate grouped fcn body. %% If system tid is synchronous tid, %% - return rate grouped body if system is rate grouped %% - otherwise, return non-rate-grouped body. %function SLibGetRateGroupedFcnBody(system, fcnType, dontChkEmpty) %openfile retBuf %assign ssTid = LibSystemIsReusedFcn(system) ? ... FcnGetReusedSubsystemCodeTID(system) : FcnGetSubsystemTID(system) %% %assert fcnType == "Update" || ... fcnType == "Output" || fcnType == "OutputUpdate" %% %if LibAsynchronousTriggeredTID(ssTid) %% async tid always rate grouping %assign system.CurrentTID = ssTid %if !LibSystemFcnIsEmptyForTID(system, fcnType) %assign fcnBody = SLibGetBody%FcnCache(system) % %endif %assign system.CurrentTID = -1 %else %% sync tid %if !SLibIsMultiRateAndRateGrouping(system) %% non-rate grouping sync tid %assign system.CurrentTID = "" %if dontChkEmpty || ... !LibSystemFcnIsEmpty(system,fcnType) || ... (fcnType == "OutputUpdate" && LibSystemIsForceNonInline(system)) %assign fcnBody = SLibGetBody%FcnCache(system) % %endif %assign system.CurrentTID = -1 %else %% rate grouping sync tid %foreach Tid = NumSynchronousSampleTimes %assign system.CurrentTID = Tid %if dontChkEmpty || ... !LibSystemFcnIsEmptyForTID(system,fcnType) || ... LibSystemIsForceNonInline(system) %assign fcnBody = SLibGetBody%FcnCache(system) % %endif %assign system.CurrentTID = -1 %endforeach %endif %endif %closefile retBuf %return retBuf %endfunction %% SLibGetRateGroupedFcnBody %% Function: SLibGetSystemFcnBodyCacheHelper ================================== %% Abstract: %% Helper function for SLibGetSystemFcnBodyCache %% %function SLibGetSystemFcnBodyCacheHelper(system, needToDumpSysFcn) %assign isRoot = (system.Type == "root") %assign dontChkEmpty = isRoot %openfile codeBuffer % %if needToDumpSysFcn %if ISFIELD(system,"InitializeFcn") %if !LibSystemFcnIsEmpty(system, "Initialize") % %endif %endif %% EnableFcn always exists %if ISFIELD(system,"EnableFcn") %if !LibSystemFcnIsEmpty(system,"Enable") % %endif %endif %% DisableFcn always exists %if ISFIELD(system,"DisableFcn") %if !LibSystemFcnIsEmpty(system,"Disable") % %endif %endif %% StartFcn always exists %if ISFIELD(system,"StartFcn") %if dontChkEmpty || !LibSystemFcnIsEmpty(system,"Start") % %endif %endif %if ISFIELD(system,"OutputFcn") % %endif %if ISFIELD(system,"UpdateFcn") % %endif %if ISFIELD(system,"DerivativeFcn") && (!isRoot || (NumContStates > 0)) %if dontChkEmpty || !LibSystemFcnIsEmpty(system,"Derivative") % %endif %endif %if ISFIELD(system,"ProjectionFcn") && (!isRoot || (NumContStates > 0)) %if dontChkEmpty || !LibSystemFcnIsEmpty(system,"Projection") % %endif %endif %if ISFIELD(system,"ZeroCrossingFcn") && (!isRoot || (NumNonsampledZCs > 0)) %if dontChkEmpty || !LibSystemFcnIsEmpty(system,"ZeroCrossing") % %endif %endif %if ISFIELD(system,"OutputUpdateFcn") % %endif %% TerminateFcn should always exist %if (!isRoot || !Accelerator) && ... (dontChkEmpty || !LibSystemFcnIsEmpty(system,"Terminate")) % %endif %% %% CheckParamsFcn for S-function target root %% %if (system.Type == "root") && (CodeFormat == "S-Function") && ... !Accelerator %assign rootSystem = System[NumSystems-1] % %endif %endif %closefile codeBuffer %return codeBuffer %endfunction %% Function: NotRootFileName ================================================== %% Abstract: %% Return true if the code for this system does not go to model.c %% %function NotRootFileName(system) %assign isRoot = (system.Type == "root") %assign notRootFileName = 0 %if !isRoot %assign rootFileName = GetRootSystemFileName() %assign notRootFileName = (system.SystemFileName != rootFileName) %endif %return notRootFileName %endfunction %% Function: SLibDumpGlobalVarDeclaration ===================================== %% Abstract: %% Dump global variable declration in the specified file. %% %function SLibDumpGlobalVarDeclaration(system, file) void %assign buf = LibDeclareGlobalVars(system,"") %if !WHITE_SPACE(buf) %openfile globalBuf /* Declare global variables for system: % */ %\ %closefile globalBuf % %endif %endfunction %% Function: SLibGetSystemBodyCache ============================================ %% Abstract: %% Get or dump the cached body for the specified system (including root). %% %function SLibGetSystemBodyCache(system) %if LibIsSystemDumped(system) %return "" %endif %assign needToDumpSysFcn = ((LibIsSystemNonEmpty(system) || ... LibIsSystemTerminateNonEmpty(system) || ... LibSystemIsForceNonInline(system)) && ... !LibSystemIsInlined(system)) %% We are in the process of updateing stateflow to marked the stateflow %% subsystem as "Function", if it is generating a function for the %% function call sybsystem. When all changes are in A, we can enable %% the following Assertion. %% %% %assert(SLibSystemStateflowFcnCacheIsEmpty(system) || needToDump) %% %% For now, stateflow may be inlined, therefore, we need to check %% the following: %assign needToDump = !SLibSystemStateflowFcnCacheIsEmpty(system)|| ... needToDumpSysFcn %if !needToDump % %return "" %endif %assign codeBuffer = SLibGetSystemFcnBodyCacheHelper(system, needToDumpSysFcn) %% %% Comparing with CompiledModel.Name will not hold good for RTWSFCN/ACCEL %% But, its OK since we will not generate separate files for them %% Systems generating into model.c are handled by srtbody.tlc and dumped %% there directly %assign notRootFileName = NotRootFileName(system) %assign retBuf = "" %if notRootFileName %assign duplicate = LibAddToModelSources(system.SystemFileName) %assign fileName = SLibGetSystemOutputFileName(system) %assign fileBaseName = SLibGetSystemOutputFileBaseName(system) %assign modelName = CompiledModel.Name %assign opFile = SLibAddModelFile("SystemBody","Simulink",fileBaseName) %assign includeBuf = "" %assign bannerBuf = "" %assign ::CompiledModel.HaveSeparateSourceFiles = 1 %if !duplicate %assign fileOwnerSys = CompiledModel.System[system.FileNameOwnerIdx] %% If we are allowing nonreusable functions to live inside %% reusable functions, then handle all necessary extern %% global declarations in subsystem files. %if CompiledModel.AllowNoArgFcnInReusedFcn % %endif %openfile bannerBuf %% Dump comments, only if its the first time /* %\ * * Note that the functions contained in this file are part of a Simulink * model, and are not self-contained algorithms. */ %closefile bannerBuf %openfile includeBuf #include "%.h" %if IsModelReferenceTarget() %if !IsModelReferenceBaseSys(system) /* Include model header file for global data */ %assign fileName = SLibGetSystemOutputFileBaseName(System[NumSystems-2]) #include "%.h" %endif %else /* Include model header file for global data */ #include "%.h" %endif #include "%_private.h" %closefile includeBuf %endif %% if !duplicate ... - comments dumped % % % % % %% retBuf is "" %else %% dumping into root (model.c) or (model_acc.c) %assert !IsModelReferenceTarget() %assign rootFile = GetBaseFile("SystemBody") % %openfile retBuf %\ %closefile retBuf %endif %% if notRootFileName %return retBuf %endfunction %% SLibGetSystemBodyCache %% Function: SLibGetBodyInitializeFcnCache(ss) ================================= %% Description: %% Generates the initialize function for these system types. %% o enable (states reset) %% o enable with trigger (states reset) %% %function SLibGetBodyInitializeFcnCache(ss) void %openfile tmpBuffer %\ %\ %\ %\ %\ %% XXX mje open code do we really need this? %\ %\ %\ %\ % %closefile tmpBuffer %assign retBuffer = "" %if !WHITE_SPACE(tmpBuffer) %openfile retBuffer %\ %\ %closefile retBuffer %endif %return retBuffer %endfunction %% Function: FcnLoadInitialState =============================================== %% Abstract: %% Load Initial values for continuous and discrete states that are non-zero. %% %function FcnLoadInitialState() Output %% %% Continuous States %% %foreach csIdx = ContStates.NumContStates %assign cs = ContStates.ContState[csIdx] %assign ic = cs.InitialValue %if SIZE(ic,1) == 1 && ic[0] == 0.0 %continue %endif %assign sgnl = SLibContinuousState(cs,"","",0,NumSystems-1) %assign addr = "&" + sgnl %if cs.Width == 1 % = %; %else { %assign comma = "" %assign varName = "rtcs%_%" static const real_T %[%] = { %foreach idx = cs.Width %% %assign comma = "," %endforeach }; (void)memcpy(%, %, %*sizeof(real_T)); } %endif %endforeach %% %% Discrete States %% %foreach dwIdx = DWorks.NumDWorks %assign ds = DWorks.DWork[dwIdx] %assign ic = ds.InitialValue %if ISEMPTY(ic) %continue %endif %with System[NumSystems-1] %with System[ds.SigSrc[0]].Block[ds.SigSrc[2]] %assign sgnl = LibBlockDWork(ds,"","",0) %assign addr = LibBlockDWorkAddr(ds,"","",0) %endwith %endwith %if ds.Width == 1 % = %; %else { %assign comma = "" %assign varName = "rtds%_%" %assign dtype = SLibGetRecordDataTypeName(ds,"") static const % %[%] = { %if ds.ComplexSignal == "yes" %foreach idx = ds.Width %{%, %} %assign comma = "," %endforeach %else %foreach idx = ds.Width %% %assign comma = "," %endforeach %endif }; (void)memcpy(%, %, %*sizeof(%)); } %endif %endforeach %endfunction %% FcnLoadInitialState %% Function: SLibGetBodyStartFcnCache(ss) ====================================== %% Description: %% Generates the start function for systems %% %function SLibGetBodyStartFcnCache(ss) void %assign isRootInSfcn = (ss.Type == "root") && ... (CodeFormat == "S-Function") && !Accelerator %openfile tmpBuffer %\ %if isRootInSfcn % \ { %endif %\ %\ %\ %\ %% open code %\ %\ %\ %\ %% %% For some targets, we allow root to call Initialize and Enable %% within the context of start %% %if (ss.Type == "root") %if RootBodyStartCallsInitEnab %if (!LibSystemFcnIsEmpty(ss, "Initialize")) %assign fcnInfo = LibGetSystemField(ss, "Initialize" + "FcnInfo") %assign comArgs = fcnInfo.CommonArgs %(%); %endif %if (!LibSystemFcnIsEmpty(ss, "Enable")) %assign fcnInfo = LibGetSystemField(ss, "Enable" + "FcnInfo") %assign comArgs = fcnInfo.CommonArgs %(%); %endif %endif %% Load intial states if needed. % %endif %if isRootInSfcn } %endif %% close code %\ % %closefile tmpBuffer %assign retBuffer = "" %if !WHITE_SPACE(tmpBuffer) %openfile retBuffer %\ %