%% Copyright (C) 2013 Czech Technical University in Prague
%%
%% Authors:
%%     - Michal Horn <hornmich@fel.cvut.cz>
%%
%% This document contains proprietary information belonging to Czech
%% Technical University in Prague. Passing on and copying of this
%% document, and communication of its contents is not permitted
%% without prior written authorization.
%%
%% File : sfunction_frayreceive.tlc
%% Abstract:
%%     TLC file for inlining RPP FlexRay node configuration.
%%
%% References:
%%     BlockTypeSetup() : refs/rtw_tlc.pdf p. 277
%%     Outputs()        : refs/rtw_tlc.pdf p. 281


%implements sfunction_frayreceive "C"

%include "common.tlc"

%% Function: BlockTypeSetup ====================================================
%function BlockTypeSetup(block, system) void

    %% Ensure required header files are included
    %<RppCommonBlockTypeSetup(block, system)>
    %<LibAddToCommonIncludes("rpp/fr.h")>

%endfunction

%function BlockInstanceSetup(block, system) void
  %assign channel_val 					 = LibBlockParameterValue(channel, 0)
  %assign cycleCounterFiltering_val 	 = LibBlockParameterValue(cycleCounterFiltering, 0)
  %assign maxPayload_val 				 = LibBlockParameterValue(maxPayload, 0)
  %assign msgBufferInterrupt_val 		 = LibBlockParameterValue(msgBufferInterrupt, 0)
  %assign payloadPreambleIndicatorTr_val = LibBlockParameterValue(payloadPreambleIndicatorTr, 0)
  %assign singleTransmit_val 			 = LibBlockParameterValue(singleTransmit, 0)
  %assign slotId_val 					 = LibBlockParameterValue(slotId, 0)

  %openfile buffer
  {
	%if %<channel_val>==1
	  .channel = FR_CHANNEL_A,
	%elseif %<channel_val>==2
	  .channel = FR_CHANNEL_B,
	%else
	  .channel = FR_CHANNEL_AB,
	%endif
	.cycleCounterFiltering = %<cycleCounterFiltering_val>,
	.fidMask = 0,
	.isTx = FALSE,
	.maxPayload = %<maxPayload_val>,
	.msgBufferInterrupt = %<msgBufferInterrupt_val>,
	.payloadPreambleIndicatorTr = %<payloadPreambleIndicatorTr_val>,
	.rejectNullFrames = FALSE,
	.rejectStaticSegment = FALSE,
	.singleTransmit = %<singleTransmit_val>,
	.slotId = %<slotId_val>
  },
  %closefile buffer
  %assign ::rpp_fray_buffer_config = "%<::rpp_fray_buffer_config> %<buffer>"
  %assign ::rpp_fray_buffer_count = %<::rpp_fray_buffer_count> + 1
%endfunction

%% Function: Outputs ===========================================================
%function Outputs(block, system) Output

	%if EXISTS("_RPP_FRAYSTEP_TMP_VARS_") == 0
	    %assign ::_RPP_FRAYSTEP_TMP_VARS_ = 1
		int8_t retVal;
	%endif
	%if EXISTS("_RPP_FRAYREC_TMP_VARS_") == 0
	    %assign ::_RPP_FRAYREC_TMP_VARS_ = 1
		int8_t i;
	%endif

    %if !SLibCodeGenForSim()
		%% Get parameters
        %assign slotId_val = LibBlockParameterValue(slotId, 0)
        %assign maxPayload_val = LibBlockParameterValue(maxPayload, 0)

        %% Get IO signals
        %assign err_flag = LibBlockOutputSignal(0, "", "", 0)
        %assign message = LibBlockOutputSignal(1, "", "", 0)
        %assign length = LibBlockOutputSignal(2, "", "", 0)
        %assign trigger = LibBlockOutputSignal(3, "", "", 0)

		%if EXISTS("_RPP_FRAYSTEP_RX_VARS_") == 0
		  %assign ::_RPP_FRAYSTEP_RX_VARS_ = 1
		  uint8_t rec_msg[%<maxPayload_val>*2];
		  uint8_t rec_length;
		  Fr_RxLPduStatusType rec_status;
		%endif

		retVal = rpp_fr_receive_lpdu(0, %<slotId_val>, rec_msg, &rec_status, &rec_length);
		if (retVal == FAILURE) {
			rpp_sci_printf("Receiving a message from slot %#x failed.\n", %<slotId_val>);
			%<err_flag> = TRUE;
			%<message> = 0;
			%<length> = 0;
			%<trigger> = 0;
		}
		else {
			if (rec_status == FR_NOT_RECEIVED) {
				%<trigger> = 0;
				%<message> = 0;
				%<length> = 0;
			}
			else {
				rpp_sci_printf("Message from slot %#x received:%#x\n", %<slotId_val>, rec_msg[0]);
				%<trigger> = 1;
				for (i = 0; i < %<maxPayload_val>*2; i++) {
					*(&%<message>+i) = rec_msg[i];
				}
				%<length> = rec_length;
			}
		}
    %endif
%endfunction


%% [EOF]