rpp/blocks/tlc_c/sfunction_lout.tlc

   1 %% Copyright (C) 2013 Czech Technical University in Prague
   2 %%
   3 %% Authors:
   4 %%     - Carlos Jenkins <carlos@jenkins.co.cr>
   5 %%
   6 %% Permission is hereby granted, free of charge, to any person
   7 %% obtaining a copy of this software and associated documentation
   8 %% files (the "Software"), to deal in the Software without
   9 %% restriction, including without limitation the rights to use,
  10 %% copy, modify, merge, publish, distribute, sublicense, and/or sell
  11 %% copies of the Software, and to permit persons to whom the
  12 %% Software is furnished to do so, subject to the following
  13 %% conditions:
  14
  15 %% The above copyright notice and this permission notice shall be
  16 %% included in all copies or substantial portions of the Software.
  17
  18 %% THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  19 %% EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
  20 %% OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  21 %% NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
  22 %% HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
  23 %% WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
  24 %% FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
  25 %% OTHER DEALINGS IN THE SOFTWARE.
  26 %%
  27 %% File : sfunction_lout.tlc
  28 %% Abstract:
  29 %%     TLC file for inlining RPP digital output block.
  30 %%
  31 %% References:
  32 %%     BlockTypeSetup() : refs/rtw_tlc.pdf p. 277
  33 %%     Start()          : refs/rtw_tlc.pdf p. 279
  34 %%     Outputs()        : refs/rtw_tlc.pdf p. 281
  35
  36
  37 %implements sfunction_lout "C"
  38
  39 %include "common.tlc"
  40
  41
  42 %% Function: BlockTypeSetup ====================================================
  43 %function BlockTypeSetup(block, system) void
  44
  45     %% Ensure required header files are included
  46     %<RppCommonBlockTypeSetup(block, system)>
  47     %<LibAddToCommonIncludes("rpp/rpp.h")>
  48     %assign ::rpp_lout_present=1
  49
  50 %endfunction
  51
  52
  53 %% Function: Start =============================================================
  54 %function Start(block, system) Output
  55
  56     %if !SLibCodeGenForSim()
  57         %%No initialization needed for this block
  58     %endif
  59
  60 %endfunction
  61
  62
  63 %% Function: Outputs ===========================================================
  64 %function Outputs(block, system) Output
  65
  66     %if !SLibCodeGenForSim()
  67
  68         %% Get pin number
  69         %assign pin_num = LibBlockParameterValue(p1, 0)
  70
  71         %% Get IO signals
  72         %assign digital_out = LibBlockInputSignal(0, "", "", 0)
  73         %assign err_flag = LibBlockOutputSignal(0, "", "", 0)
  74
  75         if (rpp_lout_set(%<pin_num>, %<digital_out>) != SUCCESS) {
  76
  77             %<err_flag> = TRUE;
  78
  79         } else {
  80             %% FIXME: Improve to call this function only once per step on the
  81             %%        last block.
  82             %%  But... what happens if the next block want to check it's
  83             %%  diagnostic value and is not the last LOUT block?
  84             if (rpp_lout_update() != SUCCESS) {
  85                 %<err_flag> = TRUE;
  86             }
  87         }
  88
  89     %endif
  90
  91 %endfunction
  92
  93 %% [EOF]