rpp/blocks/tlc_c/sfunction_frayreceive.tlc

   1 %% Copyright (C) 2013 Czech Technical University in Prague
   2 %%
   3 %% Authors:
   4 %%     - Michal Horn <hornmich@fel.cvut.cz>
   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_frayreceive.tlc
  12 %% Abstract:
  13 %%     TLC file for inlining RPP FlexRay node configuration.
  14 %%
  15 %% References:
  16 %%     BlockTypeSetup() : refs/rtw_tlc.pdf p. 277
  17 %%     Outputs()        : refs/rtw_tlc.pdf p. 281
  18
  19
  20 %implements sfunction_frayreceive "C"
  21
  22 %include "common.tlc"
  23
  24 %% Function: BlockTypeSetup ====================================================
  25 %function BlockTypeSetup(block, system) void
  26
  27     %% Ensure required header files are included
  28     %<RppCommonBlockTypeSetup(block, system)>
  29     %<LibAddToCommonIncludes("rpp/rpp.h")>
  30
  31 %endfunction
  32
  33 %function BlockInstanceSetup(block, system) void
  34   %assign channel_val                                    = LibBlockParameterValue(channel, 0)
  35   %assign cycleCounterFiltering_val      = LibBlockParameterValue(cycleCounterFiltering, 0)
  36   %assign maxPayload_val                                 = LibBlockParameterValue(maxPayload, 0)
  37   %assign msgBufferInterrupt_val                 = LibBlockParameterValue(msgBufferInterrupt, 0)
  38   %assign payloadPreambleIndicatorTr_val = LibBlockParameterValue(payloadPreambleIndicatorTr, 0)
  39   %assign singleTransmit_val                     = LibBlockParameterValue(singleTransmit, 0)
  40   %assign slotId_val                                     = LibBlockParameterValue(slotId, 0)
  41   %assign bufferId_val                                   = LibBlockParameterValue(bufferId, 0)
  42
  43   %if EXISTS(::rpp_fr_bufferId_%<bufferId_val>_flg) == 1
  44     %<LibBlockReportError(block, "Buffer ID is already used by another FlexRay block.")>
  45   %endif
  46   %assign ::rpp_fr_bufferId_%<bufferId_val>_flg = 1
  47
  48   %openfile buffer
  49   // Buffer %<bufferId_val>
  50   {
  51         %if %<channel_val>==1
  52           .channel = FR_CHANNEL_A,
  53         %elseif %<channel_val>==2
  54           .channel = FR_CHANNEL_B,
  55         %else
  56           .channel = FR_CHANNEL_AB,
  57         %endif
  58         .cycleCounterFiltering = %<cycleCounterFiltering_val>,
  59         .fidMask = 0,
  60         .isTx = FALSE,
  61         .maxPayload = %<maxPayload_val>,
  62         .msgBufferInterrupt = %<msgBufferInterrupt_val>,
  63         .payloadPreambleIndicatorTr = %<payloadPreambleIndicatorTr_val>,
  64         .rejectNullFrames = FALSE,
  65         .rejectStaticSegment = FALSE,
  66         .singleTransmit = %<singleTransmit_val>,
  67         .slotId = %<slotId_val>
  68   },
  69   %closefile buffer
  70   %assign ::rpp_fray_buffer_config = "%<::rpp_fray_buffer_config> %<buffer>"
  71   %assign ::rpp_fray_buffer_count = %<::rpp_fray_buffer_count> + 1
  72 %endfunction
  73
  74 %% Function: Outputs ===========================================================
  75 %function Outputs(block, system) Output
  76
  77         %if EXISTS("_RPP_FRAYSTEP_TMP_VARS_") == 0
  78             %assign ::_RPP_FRAYSTEP_TMP_VARS_ = 1
  79                 int8_t retVal;
  80         %endif
  81         %if EXISTS("_RPP_FRAYREC_TMP_VARS_") == 0
  82             %assign ::_RPP_FRAYREC_TMP_VARS_ = 1
  83                 int8_t i;
  84         %endif
  85
  86     %if !SLibCodeGenForSim()
  87                 %% Get parameters
  88         %assign maxPayload_val = LibBlockParameterValue(maxPayload, 0)
  89         %assign bufferId_val = LibBlockParameterValue(bufferId, 0)
  90
  91         %% Get IO signals
  92         %assign err_flag = LibBlockOutputSignal(0, "", "", 0)
  93         %assign message = LibBlockOutputSignal(1, "", "", 0)
  94         %assign length = LibBlockOutputSignal(2, "", "", 0)
  95         %assign trigger = LibBlockOutputSignal(3, "", "", 0)
  96
  97                 %if EXISTS("_RPP_FRAYSTEP_RX_VARS_") == 0
  98                   %assign ::_RPP_FRAYSTEP_RX_VARS_ = 1
  99                   uint8_t rec_msg[%<maxPayload_val>*2];
 100                   uint8_t rec_length;
 101                   Fr_RxLPduStatusType rec_status;
 102                 %endif
 103
 104
 105                 retVal = rpp_fr_receive_lpdu(0, %<bufferId_val>, rec_msg, &rec_status, &rec_length);
 106                 if (retVal == FAILURE) {
 107                         rpp_sci_printf("Receiving a message from buffer %#x failed.\n", %<bufferId_val>);
 108                         %<err_flag> = TRUE;
 109                         %<message> = 0;
 110                         %<length> = 0;
 111                         %<trigger> = 0;
 112                 }
 113                 else {
 114                         if (rec_status == FR_NOT_RECEIVED) {
 115                                 %<trigger> = 0;
 116                                 %<message> = 0;
 117                                 %<length> = 0;
 118                         }
 119                         else {
 120                                 rpp_sci_printf("Message from buffer %#x received:%#x\n", %<bufferId_val>, rec_msg[0]);
 121                                 %<trigger> = 1;
 122                                 for (i = 0; i < %<maxPayload_val>*2; i++) {
 123                                         *(&%<message>+i) = rec_msg[i];
 124                                 }
 125                                 %<length> = rec_length;
 126                         }
 127                 }
 128     %endif
 129 %endfunction
 130
 131
 132 %% [EOF]