%% $RCSfile: sfun_udt.tlc,v $
%% File : timestwo.tlc generated from timestwo.ttlc revsion 1.4
%% $Date: 2000/07/11 20:08:56 $
%%
%% John Ciolfi, 1-May-1998
%% Copyright 1990-2000 The MathWorks, Inc.
%%
%% Abstract:
%%      sfunction timestwo block target file
%%      See simulink/src/timestwo.c


%implements "sfun_udt" "C"

%include "sfun_udt_util.tlc"

%% Function: BlockTypeSetup ====================================================
%% Abstract:
%%   Register convert-between and is-positive TLC function names for udt "Data"
%%
%function BlockTypeSetup(block, system) void
  %assign udtId  = LibBlockOutputSignalDataTypeId(0)
  %assign udtRec = CompiledModel.DataTypes.DataType[udtId]
  %<SLibSetDataTypeConvertBetweenTLCFcnName(udtRec, "FcnDataCnvBtw")>
  %<SLibSetDataTypeIsPositiveTLCFcnName(udtRec, "FcnDataIsPos")>
  %<SLibSetDataTypeSignTLCFcnName(udtRec, "FcnDataSign")>
  %<SLibSetDataTypeConvertBetweenTLCFcnFile(udtRec, "sfun_udt_util.tlc")>
  %<SLibSetDataTypeIsPositiveTLCFcnFile(udtRec, "sfun_udt_util.tlc")>
  %<SLibSetDataTypeSignTLCFcnFile(udtRec, "sfun_udt_util.tlc")>
  %<SLibSetDataTypeName(udtRec, "Data")>
  %<LibCacheTypedefs(...
    "typedef enum { LO_RES, HI_RES } Resolution;\n")>
  %<LibCacheTypedefs(...
    "typedef struct { Resolution res; int8_T value; } Data;")>
%endfunction


%% Function: Outputs ===========================================================
%%
%function Outputs(block, system) Output
  /* %<Type> Block: %<Name> */
  %assign u = LibBlockInputSignal(0, "", "", 0)
  %assign y = LibBlockOutputSignal(0, "", "", 0)
  if (%<u> < 1.0 && %<u> > -1.0) {
    %<y>.value = (int8_T) (127.0 * %<u>);
    %<y>.res   = HI_RES;
  } else {
    %<y>.value = (int8_T) %<u>;
    %<y>.res   = LO_RES;
   }

%endfunction

%% [EOF] timestwo.tlc