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
  42   %openfile buffer
  43   {
  44         %if %<channel_val>==1
  45           .channel = FR_CHANNEL_A,
  46         %elseif %<channel_val>==2
  47           .channel = FR_CHANNEL_B,
  48         %else
  49           .channel = FR_CHANNEL_AB,
  50         %endif
  51         .cycleCounterFiltering = %<cycleCounterFiltering_val>,
  52         .fidMask = 0,
  53         .isTx = FALSE,
  54         .maxPayload = %<maxPayload_val>,
  55         .msgBufferInterrupt = %<msgBufferInterrupt_val>,
  56         .payloadPreambleIndicatorTr = %<payloadPreambleIndicatorTr_val>,
  57         .rejectNullFrames = FALSE,
  58         .rejectStaticSegment = FALSE,
  59         .singleTransmit = %<singleTransmit_val>,
  60         .slotId = %<slotId_val>
  61   },
  62   %closefile buffer
  63   %assign ::rpp_fray_buffer_config = "%<::rpp_fray_buffer_config> %<buffer>"
  64   %assign ::rpp_fray_buffer_count = %<::rpp_fray_buffer_count> + 1
  65 %endfunction
  66
  67 %% Function: Outputs ===========================================================
  68 %function Outputs(block, system) Output
  69
  70         %if EXISTS("_RPP_FRAYSTEP_TMP_VARS_") == 0
  71             %assign ::_RPP_FRAYSTEP_TMP_VARS_ = 1
  72                 int8_t retVal;
  73         %endif
  74         %if EXISTS("_RPP_FRAYREC_TMP_VARS_") == 0
  75             %assign ::_RPP_FRAYREC_TMP_VARS_ = 1
  76                 int8_t i;
  77         %endif
  78
  79     %if !SLibCodeGenForSim()
  80                 %% Get parameters
  81         %assign slotId_val = LibBlockParameterValue(slotId, 0)
  82         %assign maxPayload_val = LibBlockParameterValue(maxPayload, 0)
  83
  84         %% Get IO signals
  85         %assign err_flag = LibBlockOutputSignal(0, "", "", 0)
  86         %assign message = LibBlockOutputSignal(1, "", "", 0)
  87         %assign length = LibBlockOutputSignal(2, "", "", 0)
  88         %assign trigger = LibBlockOutputSignal(3, "", "", 0)
  89
  90                 %if EXISTS("_RPP_FRAYSTEP_RX_VARS_") == 0
  91                   %assign ::_RPP_FRAYSTEP_RX_VARS_ = 1
  92                   uint8_t rec_msg[%<maxPayload_val>*2];
  93                   uint8_t rec_length;
  94                   Fr_RxLPduStatusType rec_status;
  95                 %endif
  96
  97                 retVal = rpp_fr_receive_lpdu(0, %<slotId_val>, rec_msg, &rec_status, &rec_length);
  98                 if (retVal == FAILURE) {
  99                         rpp_sci_printf("Receiving a message from slot %#x failed.\n", %<slotId_val>);
 100                         %<err_flag> = TRUE;
 101                         %<message> = 0;
 102                         %<length> = 0;
 103                         %<trigger> = 0;
 104                 }
 105                 else {
 106                         if (rec_status == FR_NOT_RECEIVED) {
 107                                 %<trigger> = 0;
 108                                 %<message> = 0;
 109                                 %<length> = 0;
 110                         }
 111                         else {
 112                                 rpp_sci_printf("Message from slot %#x received:%#x\n", %<slotId_val>, rec_msg[0]);
 113                                 %<trigger> = 1;
 114                                 for (i = 0; i < %<maxPayload_val>*2; i++) {
 115                                         *(&%<message>+i) = rec_msg[i];
 116                                 }
 117                                 %<length> = rec_length;
 118                         }
 119                 }
 120     %endif
 121 %endfunction
 122
 123
 124 %% [EOF]