%% Copyright (C) 2013, 2015 Czech Technical University in Prague
%%
%% Authors:
%%     - Carlos Jenkins <carlos@jenkins.co.cr>
%%     - 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_gio_in.tlc
%% Abstract:
%%     TLC file for inlining RPP digital input block.
%%
%% References:
%%     BlockTypeSetup() : rtw_tlc.pdf p. 277
%%     Start()          : rtw_tlc.pdf p. 279
%%     Outputs()        : rtw_tlc.pdf p. 281


%implements sfunction_gio_in "C"

%include "common.tlc"


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

	%% Ensure required header files are included
	%<RppCommonBlockTypeSetup(block, system)>
	%<LibAddToCommonIncludes("rpp/rpp.h")>
	%assign ::rpp_gio_in_present = 1

%endfunction

%function BlockInstanceSetup(block, system) void
    %assign pin_name = SFcnParamSettings.PinName

	%% Ensure that every pin is configured only once
	%if EXISTS("::rpp_gio_%<pin_name>_present") == 0
		%assign ::rpp_gio_%<pin_name>_present = 1
	%else
		%<LibBlockReportError(block, "GIO pin %<pin_name> has already been configured.")>
	%endif
%endfunction

%% Function: Start =============================================================
%function Start(block, system) Output
    %assign pin_name = SFcnParamSettings.PinName
    %assign pull_type   = SFcnParamSettings.PullType

	%if !SLibCodeGenForSim()
		%if pull_type == 1		%% Tri-state
            rpp_gio_setup(PIN_%<pin_name>, RPP_GIO_IN, RPP_GIO_MODE_PULLDIS, FALSE);
		%elseif pull_type == 2	%% Pull up
            rpp_gio_setup(PIN_%<pin_name>, RPP_GIO_IN, RPP_GIO_MODE_PULLUP, FALSE);
		%elseif pull_type == 3	%% Pull down
            rpp_gio_setup(PIN_%<pin_name>, RPP_GIO_IN, RPP_GIO_MODE_PULLDOWN, FALSE);
		%else	%% error
			%<LibBlockReportError(block, "Bad pull_type value: %<pull_type>")>
		%endif
	%endif

%endfunction


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

	%if !SLibCodeGenForSim()
		%assign digital_in = LibBlockOutputSignal(0, "", "", 0)
        %assign pin_name = SFcnParamSettings.PinName
        /% TODO: Handle FAILURE (add error output?) %/
		%<digital_in> = rpp_gio_get(PIN_%<pin_name>) ? TRUE : FALSE;
	%endif

%endfunction

%% [EOF]