%% $RCSfile: fcncallgen.tlc,v $
%% $Revision: 1.3 $ 
%% $Date: 1998/10/30 20:28:37 $
%%
%% Pete Szpak
%% 29 Jul 1998
%% Copyright (c) 1996-97 by The MathWorks, Inc.
%% All Rights Reserved.
%%
%% Abstract:
%%   Function-call generator block target file.

%implements fcncallgen "C"

%function Outputs(system, block) Output
  %openfile tmpBuffer
  %foreach fcnCallIdx = NumSFcnSysOutputCalls
    %% call the downstream system
    %with SFcnSystemOutputCall[fcnCallIdx]
      %% skip unconnected function call outputs
      %if LibIsEqual(BlockToCall, "unconnected")
	%continue
      %endif
      %assign sysIdx = BlockToCall[0]
      %assign blkIdx = BlockToCall[1]
      %assign ssBlock = System[sysIdx].Block[blkIdx]
      %assign sysToCall = System[ssBlock.ParamSettings.SystemIdx]
      %<LibCallFCSS(sysToCall, tSimStruct, FcnPortElement, ...
	ParamSettings.SampleTimesToSet[0][1])>\
    %endwith
  %endforeach
  %closefile tmpBuffer
  %% output buffer
  %if !WHITE_SPACE(tmpBuffer)
    %assign type = ParamSettings.FunctionName
    /* %<Type> (%<type>) Block: %<Name> */
    %<tmpBuffer>

  %endif
%endfunction

%% [EOF] fcncallgen.tlc