rpp/blocks/tlc_c/sfunction_irc.tlc

   1 %% Copyright (C) 2013, 2014 Czech Technical University in Prague
   2 %%
   3 %% Authors:
   4 %%     - Karel Kočí
   5 %%
   6 %% This document contains proprietary information belonging to Czech
   7 %% Technical University in Prague. Passing on and copying of this
   8 %% document, and communication of its contents is not permitted
   9 %% without prior written authorization.
  10 %%
  11 %% File : sfunction_irc.tlc
  12 %% Abstract:
  13 %%     TLC file for inlining RPP IRC input block.
  14 %%
  15 %% References:
  16 %%     BlockTypeSetup() : rtw_tlc.pdf p. 277
  17 %%     Start()          : rtw_tlc.pdf p. 279
  18 %%     Outputs()        : rtw_tlc.pdf p. 281
  19
  20
  21 %implements sfunction_irc "C"
  22
  23 %include "common.tlc"
  24
  25
  26 %% Function: BlockInstanceSetup ================================================
  27 %function BlockInstanceSetup(block, system) void
  28     %assign irc_num = LibBlockParameterValue(p1, 0)
  29
  30     %switch (%<irc_num>)
  31         %case 1
  32             %if EXISTS("rpp_din_10_11_used") == 1
  33                 %<LibBlockReportError(block, "Either IRC1 or Digital Input pin 10 and 11 blocks are allowed in one model, not both.")>
  34             %else
  35                 %assign ::rpp_irc_1_used = 1
  36             %endif
  37             %break
  38         %case 2
  39             %if EXISTS("rpp_din_14_15_used") == 1
  40                 %<LibBlockReportError(block, "Either IRC2 or Digital Input pin 14 and 15 blocks are allowed in one model, not both.")>
  41             %else
  42                 %assign ::rpp_irc_2_used = 1
  43             %endif
  44             %break
  45     %endswitch
  46 %endfunction
  47
  48 %% Function: BlockTypeSetup ====================================================
  49 %function BlockTypeSetup(block, system) void
  50
  51     %% Ensure required header files are included
  52     %<RppCommonBlockTypeSetup(block, system)>
  53     %<LibAddToCommonIncludes("rpp/rpp.h")>
  54     %assign ::rpp_irc_present=1
  55
  56 %endfunction
  57
  58
  59 %% Function: Start =============================================================
  60 %function Start(block, system) Output
  61
  62     %if !SLibCodeGenForSim()
  63         %assign irc_num = LibBlockParameterValue(p1, 0)
  64         rpp_irc_enable(%<irc_num>);
  65     %endif
  66
  67 %endfunction
  68
  69
  70 %% Function: Outputs ===========================================================
  71 %function Outputs(block, system) Output
  72
  73     %if !SLibCodeGenForSim()
  74
  75         %% Error flag
  76         %assign err_flag = LibBlockOutputSignal(1, "", "", 0)
  77
  78         %% Get irc number
  79         %assign irc_num = LibBlockParameterValue(p1, 0)
  80
  81         %% Control if irc running
  82         if (rpp_irc_status(%<irc_num>) != 1) {
  83             %<err_flag> = TRUE;
  84         } else {
  85             %% Return input
  86             %assign irc_val = LibBlockOutputSignal(0, "", "", 0)
  87             %<irc_val> = rpp_irc_get(%<irc_num>);
  88         }
  89
  90     %endif
  91
  92 %endfunction
  93
  94 %% [EOF]