--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/g23m-aci/aci/cmh_l2rs.c	Fri Oct 16 06:25:50 2020 +0000
@@ -0,0 +1,618 @@
+/* 
++----------------------------------------------------------------------------- 
+|  Project :  GSM-PS (6147)
+|  Modul   :  CMH_L2RS
++----------------------------------------------------------------------------- 
+|  Copyright 2002 Texas Instruments Berlin, AG 
+|                 All rights reserved. 
+| 
+|                 This file is confidential and a trade secret of Texas 
+|                 Instruments Berlin, AG 
+|                 The receipt of or possession of this file does not convey 
+|                 any rights to reproduce or disclose its contents or to 
+|                 manufacture, use, or sell anything it may describe, in 
+|                 whole, or in part, without the specific written consent of 
+|                 Texas Instruments Berlin, AG. 
++----------------------------------------------------------------------------- 
+|  Purpose :  This module provides the set functions related to the
+|             protocol stack adapter for L2R.
++----------------------------------------------------------------------------- 
+*/ 
+#ifdef DTI
+
+#ifndef CMH_L2RS_C
+#define CMH_L2RS_C
+#endif
+
+#include "aci_all.h"
+
+/*==== INCLUDES ===================================================*/
+#include "aci_cmh.h"
+#include "ati_cmd.h"
+#include "aci_cmd.h"
+#include "dti.h"      /* functionality of the dti library */
+
+#include "aci.h"
+
+#ifdef FAX_AND_DATA
+#include "aci_fd.h"
+#endif    /* of #ifdef FAX_AND_DATA */
+
+#include "dti_conn_mng.h"
+#include "dti_cntrl_mng.h"
+
+#include "psa.h"
+#include "cmh.h"
+#include "cmh_ra.h"
+#include "psa_l2r.h"
+#include "cmh_l2r.h"
+#include "psa_ra.h"
+
+#include "psa_tra.h"
+
+#ifdef UART
+#include "psa_uart.h"
+#endif
+#ifdef FF_PSI
+#include "psa_psi.h"
+#endif /*FF_PSI*/
+/*==== CONSTANTS ==================================================*/
+
+/*==== EXPORT =====================================================*/
+
+/*==== VARIABLES ==================================================*/
+
+/*==== FUNCTIONS ==================================================*/
+
+/*
++--------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : CMH_L2RS                 |
+| STATE   : code                  ROUTINE : sAT_PlusCRLP             |
++--------------------------------------------------------------------+
+
+  PURPOSE : This is the functional counterpart to the +CRLP AT command
+            which is responsible to set the radio link protocol
+            parameters for following asynchronous data transfer calls.
+
+            <iws>:   IWF to MS window size.
+            <mws>:   MS to IWF window size
+            <t1> :   acknowledge timer
+            <n2> :   retransmission attemps
+*/
+
+GLOBAL T_ACI_RETURN sAT_PlusCRLP  ( T_ACI_CMD_SRC srcId,
+                                    SHORT iws, SHORT mws,
+                                    SHORT t1, SHORT n2)
+{
+  T_L2R_CMD_PRM * pL2RCmdPrm; /* points to L2R command parameters */
+
+  TRACE_FUNCTION ("sAT_PlusCRLP()");
+
+/*
+ *-------------------------------------------------------------------
+ * check command source
+ *-------------------------------------------------------------------
+ */
+  if(!cmh_IsVldCmdSrc (srcId))
+  {
+    ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+    return( AT_FAIL );
+  }
+
+  pL2RCmdPrm = &fnd_cmhPrm[srcId].l2rCmdPrm;
+
+/*
+ *-------------------------------------------------------------------
+ * process the iws parameter ( IWF to MS window size )
+ *-------------------------------------------------------------------
+ */
+  if( iws NEQ ACI_NumParmNotPresent )
+  {
+    if( iws > L2R_K_IWF_MS_MAX OR iws < L2R_K_IWF_MS_MIN )
+    {
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+    }
+  }
+  else
+
+    iws = pL2RCmdPrm -> CRLPiws;
+/*
+ *-------------------------------------------------------------------
+ * process the mws parameter ( MS to IWF window size )
+ *-------------------------------------------------------------------
+ */
+  if( mws NEQ ACI_NumParmNotPresent )
+  {
+    if( mws > L2R_K_MS_IWF_MAX OR mws < L2R_K_MS_IWF_MIN )
+    {
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+    }
+  }
+  else
+
+    mws = pL2RCmdPrm -> CRLPmws;
+
+/*
+ *-------------------------------------------------------------------
+ * process the t1 parameter ( acknowledge timer )
+ *-------------------------------------------------------------------
+ */
+  if( t1 NEQ ACI_NumParmNotPresent )
+  {
+    if( t1 > L2R_T1_MAX OR t1 < L2R_T1_MIN )
+    {
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+    }
+  }
+  else
+
+    t1 = pL2RCmdPrm -> CRLPt1;
+
+/*
+ *-------------------------------------------------------------------
+ * process the n2 parameter ( retransmission attemps )
+ *-------------------------------------------------------------------
+ */
+  if( n2 NEQ ACI_NumParmNotPresent )
+  {
+    if( n2 > L2R_N2_MAX OR n2 < L2R_N2_MIN )
+    {
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+    }
+  }
+  else
+
+    n2 = pL2RCmdPrm -> CRLPn2;
+
+/*
+ *-------------------------------------------------------------------
+ * assign the parameters
+ *-------------------------------------------------------------------
+ */
+  pL2RCmdPrm -> CRLPiws = iws;
+  pL2RCmdPrm -> CRLPmws = mws;
+  pL2RCmdPrm -> CRLPt1  = t1;
+  pL2RCmdPrm -> CRLPn2  = n2;
+
+  return( AT_CMPL );
+}
+
+/*
++--------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : CMH_L2RS                 |
+| STATE   : code                  ROUTINE : sAT_PlusDS               |
++--------------------------------------------------------------------+
+
+  PURPOSE : This is the functional counterpart to the +DS AT command
+            which is responsible to set the data compression control
+            parameters for following asynchronous data transfer calls.
+
+            <dir>     :   desired direction of data compression.
+            <comp>    :   mode of continue
+            <maxDict> :   maximum number of dictionary entries
+            <maxStr>  :   maximum string length
+*/
+
+GLOBAL T_ACI_RETURN sAT_PlusDS    ( T_ACI_CMD_SRC srcId,
+                                    T_ACI_DS_DIR dir,
+                                    T_ACI_DS_COMP comp,
+                                    LONG maxDict,
+                                    SHORT maxStr )
+{
+  T_L2R_CMD_PRM * pL2RCmdPrm; /* points to L2R command parameters */
+
+  TRACE_FUNCTION ("sAT_PlusDS()");
+
+/*
+ *-------------------------------------------------------------------
+ * check command source
+ *-------------------------------------------------------------------
+ */
+  if(!cmh_IsVldCmdSrc (srcId))
+  {
+    ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+    return( AT_FAIL );
+  }
+
+  pL2RCmdPrm = &fnd_cmhPrm[srcId].l2rCmdPrm;
+
+/*
+ *-------------------------------------------------------------------
+ * process the dir parameter
+ *-------------------------------------------------------------------
+ */
+  switch( dir )
+  {
+    case( DS_DIR_NotPresent ):
+
+      dir = pL2RCmdPrm -> DSdir;
+      break;
+
+    case( DS_DIR_Negotiated ):
+    case( DS_DIR_TxOnly ):
+    case( DS_DIR_RxOnly ):
+    case( DS_DIR_Both ):
+
+      break;
+
+    default:
+
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+  }
+
+/*
+ *-------------------------------------------------------------------
+ * process the comp parameter
+ *-------------------------------------------------------------------
+ */
+  switch( comp )
+  {
+    case( DS_COMP_NotPresent ):
+
+      comp = pL2RCmdPrm -> DScomp;
+      break;
+
+    case( DS_COMP_DoNotDisc ):
+    case( DS_COMP_Disc ):
+
+      break;
+
+    default:
+
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+  }
+
+/*
+ *-------------------------------------------------------------------
+ * process the maxDict parameter
+ *-------------------------------------------------------------------
+ */
+  if( maxDict NEQ ACI_NumParmNotPresent )
+  {
+    if( maxDict > L2R_P1_MAX OR maxDict < L2R_P1_MIN )
+    {
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+    }
+  }
+  else
+
+    maxDict = pL2RCmdPrm -> DSmaxDict;
+
+/*
+ *-------------------------------------------------------------------
+ * process the maxStr parameter
+ *-------------------------------------------------------------------
+ */
+  if( maxStr NEQ ACI_NumParmNotPresent )
+  {
+    if( maxStr > L2R_P2_MAX OR maxStr < L2R_P2_MIN )
+    {
+      ACI_ERR_DESC( ACI_ERR_CLASS_Ext, EXT_ERR_Parameter );
+      return( AT_FAIL );
+    }
+  }
+  else
+
+    maxStr = pL2RCmdPrm -> DSmaxStr;
+
+/*
+ *-------------------------------------------------------------------
+ * assign the  parameters
+ *-------------------------------------------------------------------
+ */
+  pL2RCmdPrm -> DSdir     = dir;
+  pL2RCmdPrm -> DScomp    = comp;
+  pL2RCmdPrm -> DSmaxDict = maxDict;
+  pL2RCmdPrm -> DSmaxStr  = maxStr;
+
+  return( AT_CMPL );
+
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : CMH_L2R                 |
+|                                 ROUTINE : cmhL2R_Activate         |
++-------------------------------------------------------------------+
+
+  PURPOSE : set all nescessary parameters and activate L2R
+
+*/
+
+GLOBAL T_ACI_RETURN cmhL2R_Activate ( T_ACI_CMD_SRC srcId,
+                                      T_ACI_AT_CMD cmdId,
+                                      SHORT cId )
+{
+  T_L2R_CMD_PRM * pL2RCmdPrm;  /* points to L2R command parameters */
+  T_L2R_SET_PRM * pL2RSetPrm;  /* points to L2R parameter set */
+
+  TRACE_FUNCTION ("cmhL2R_Activate()");
+
+/*
+ *-------------------------------------------------------------------
+ * check command source
+ *-------------------------------------------------------------------
+ */
+  if(!cmh_IsVldCmdSrc (srcId))
+
+    return( AT_FAIL );
+
+  pL2RCmdPrm = &fnd_cmhPrm[srcId].l2rCmdPrm;
+  pL2RSetPrm = &l2rShrdPrm.set_prm[srcId];
+
+/*
+ *-------------------------------------------------------------------
+ * fill in activate parameters
+ *-------------------------------------------------------------------
+ */
+  pL2RSetPrm -> k_ms_iwf = pL2RCmdPrm -> CRLPmws;
+  pL2RSetPrm -> k_iwf_ms = pL2RCmdPrm -> CRLPiws;
+  pL2RSetPrm -> t1       = (UBYTE)pL2RCmdPrm -> CRLPt1;
+  pL2RSetPrm -> n2       = (UBYTE)pL2RCmdPrm -> CRLPn2;
+
+  pL2RSetPrm -> p0       = cmhL2R_SelCompDir( pL2RCmdPrm );
+  pL2RSetPrm -> p1       = (USHORT)pL2RCmdPrm -> DSmaxDict;
+  pL2RSetPrm -> p2       = (UBYTE)pL2RCmdPrm -> DSmaxStr;
+
+  pL2RSetPrm -> uil2p    = L2R_ISO6429;
+  pL2RSetPrm -> rate     = cmhL2R_SelChnRate();
+
+
+  l2rEntStat.curCmd  = cmdId;
+  l2rEntStat.entOwn  = srcId;
+
+  if( psaL2R_Activate((UBYTE)srcId ) < 0 )  /* activate L2R */
+  {
+    TRACE_EVENT( "FATAL RETURN psaL2R in cmhL2R_Activate" );
+    return( AT_FAIL );
+  }
+
+  return( AT_EXCT );
+
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : CMH_L2R                 |
+|                                 ROUTINE : cmhL2R_Deactivate       |
++-------------------------------------------------------------------+
+
+  PURPOSE : set all nescessary parameters and deactivate L2R
+
+*/
+
+GLOBAL T_ACI_RETURN cmhL2R_Deactivate ( void )
+{
+  UBYTE src_id = raShrdPrm.owner;
+  UBYTE dti_id;
+  T_DTI_CNTRL    info;
+
+  TRACE_FUNCTION ("cmhL2R_Deactivate()");
+
+
+  if (dti_cntrl_get_info_from_src_id( src_id, &info) EQ FALSE)
+  {
+    TRACE_EVENT_P1("cannot find info for src_id=%d", src_id);
+   
+    if( psaL2R_Deactivate() < 0 )  /* deactivate L2R */
+    {
+      TRACE_EVENT( "FATAL RETURN psaL2R in cmhL2R_Deactivate" );
+      return( AT_FAIL );
+    }
+    return( AT_EXCT );
+  }
+
+#if defined (FF_TCP_IP)
+  if( dti_cntrl_is_dti_channel_connected(DTI_ENTITY_AAA, info.dti_id) EQ TRUE ) 
+  {
+    if ( dti_cntrl_close_dpath_from_src_id(src_id) EQ TRUE )
+    {
+      return( AT_EXCT );
+    }
+    else
+    {
+      TRACE_EVENT("FATAL RETURN in dti_cntrl_close_dpath_from_src_id");
+      return( AT_FAIL );
+    }
+  }
+#endif /* FF_TCP_IP */
+
+  dti_id = info.dti_id;
+
+  /* get the redirection of this src_id */
+  if (info.redirect_info.info.direction EQ DTI_DEV_IS_REDIRECTED)
+  {
+    T_DTI_CNTRL tmp_param;
+    if (BITFIELD_CHECK(info.redirect_info.info.capability, DTI_CPBLTY_SER))
+    {
+      dti_cntrl_get_first_redirection (info.src_id, DTI_CPBLTY_SER, &tmp_param);
+      src_id = tmp_param.src_id;
+      dti_id = tmp_param.dti_id;
+    }
+    else if (BITFIELD_CHECK(info.redirect_info.info.capability, DTI_CPBLTY_PKT))
+    {
+      dti_cntrl_get_first_redirection (info.src_id, DTI_CPBLTY_PKT, &tmp_param);
+      src_id = tmp_param.src_id;
+      dti_id = tmp_param.dti_id;
+    }
+    else
+    {
+      TRACE_EVENT("capability is not SER or PKT");
+    }
+  }
+  if( dti_cntrl_is_dti_channel_connected(DTI_ENTITY_L2R, dti_id) EQ TRUE AND 
+     dti_cntrl_is_dti_channel_connected(DTI_ENTITY_UART, dti_id) EQ TRUE)
+  { /*no internal dti_id */
+    T_DTI_ENTITY_ID entity_list[] = {DTI_ENTITY_ACI};
+    if (dti_cntrl_est_dpath_indirect ( src_id,
+                                       entity_list,
+                                       1,
+                                       SPLIT,
+                                       atiUART_dti_cb,
+                                       DTI_CPBLTY_CMD,
+                                       DTI_CID_NOTPRESENT) EQ TRUE)
+    {
+      return( AT_EXCT );
+    }
+    else
+    {
+      /* deactivate */
+      if( psaL2R_Deactivate() < 0 )  /* deactivate L2R */
+      {
+        TRACE_EVENT( "FATAL RETURN psaL2R in cmhL2R_Deactivate" );
+        return( AT_FAIL );
+      }
+    }
+  }
+#ifdef FF_PSI
+ if (dti_cntrl_is_dti_channel_connected(DTI_ENTITY_L2R, dti_id) AND 
+     dti_cntrl_is_dti_channel_connected(DTI_ENTITY_PSI, dti_id))
+  {
+     T_DTI_ENTITY_ID entity_list[] = {DTI_ENTITY_ACI};
+    if (dti_cntrl_est_dpath_indirect ( src_id,
+                                       entity_list,
+                                       1,
+                                       SPLIT,
+                                       atiPSI_dti_cb,
+                                       DTI_CPBLTY_CMD,
+                                       DTI_CID_NOTPRESENT) EQ TRUE)
+
+    {
+      return( AT_EXCT );
+    }
+    else
+   {
+  /* deactivate */
+  if( psaL2R_Deactivate() < 0 )  /* deactivate L2R */
+  {
+     TRACE_EVENT( "FATAL RETURN psaL2R in cmhL2R_Deactivate" );
+     return( AT_FAIL );
+  }
+    }
+  }
+#endif /*FF_PSI*/
+
+  else
+  {
+    if( psaL2R_Deactivate() < 0 )  /* deactivate L2R */
+    {
+      TRACE_EVENT( "FATAL RETURN psaL2R in cmhL2R_Deactivate" );
+      return( AT_FAIL );
+    }
+  }
+
+  return( AT_EXCT );
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : CMH_L2R                 |
+|                                 ROUTINE : cmhTRA_Deactivate       |
++-------------------------------------------------------------------+
+
+  PURPOSE : set all nescessary parameters and deactivate TRA
+
+*/
+
+GLOBAL T_ACI_RETURN cmhTRA_Deactivate ( void )
+{
+  UBYTE src_id = raShrdPrm.owner;
+  UBYTE dti_id;
+  T_DTI_CNTRL    info;
+
+  TRACE_FUNCTION ("cmhTRA_Deactivate()");
+
+
+  if (dti_cntrl_get_info_from_src_id( src_id, &info) EQ FALSE)
+  {
+    TRACE_EVENT_P1("cannot find info for src_id=%d", src_id);
+
+    psaTRA_Deactivate();  /* deactivate TRA */
+    return( AT_EXCT );
+  }
+
+  dti_id = info.dti_id;
+
+  /* get the redirection of this src_id */
+  if (info.redirect_info.info.direction EQ DTI_DEV_IS_REDIRECTED)
+  {
+    T_DTI_CNTRL tmp_param;
+    if (BITFIELD_CHECK(info.redirect_info.info.capability, DTI_CPBLTY_SER))
+    {
+      dti_cntrl_get_first_redirection (info.src_id, DTI_CPBLTY_SER, &tmp_param);
+      src_id = tmp_param.src_id;
+      dti_id = tmp_param.dti_id;
+    }
+    else if (BITFIELD_CHECK(info.redirect_info.info.capability, DTI_CPBLTY_PKT))
+    {
+      dti_cntrl_get_first_redirection (info.src_id, DTI_CPBLTY_PKT, &tmp_param);
+      src_id = tmp_param.src_id;
+      dti_id = tmp_param.dti_id;
+    }
+    else
+    {
+      TRACE_EVENT("capability is not SER or PKT");
+    }
+  }
+  if (dti_cntrl_is_dti_channel_connected(DTI_ENTITY_TRA, dti_id) AND 
+     dti_cntrl_is_dti_channel_connected(DTI_ENTITY_UART, dti_id))
+  {
+    T_DTI_ENTITY_ID entity_list[] = {DTI_ENTITY_ACI};
+    if (dti_cntrl_est_dpath_indirect ( src_id,
+                                       entity_list,
+                                       1,
+                                       SPLIT,
+                                       atiUART_dti_cb,
+                                       DTI_CPBLTY_CMD,
+                                       DTI_CID_NOTPRESENT) EQ TRUE)
+    {
+      return( AT_EXCT );
+    }
+    else
+    {
+      /* deactivate */
+      psaTRA_Deactivate();  /* deactivate TRA */
+    }
+  }
+
+#ifdef FF_PSI
+
+  if (dti_cntrl_is_dti_channel_connected(DTI_ENTITY_TRA, dti_id) AND 
+     dti_cntrl_is_dti_channel_connected(DTI_ENTITY_PSI, dti_id))
+  {
+     T_DTI_ENTITY_ID entity_list[] = {DTI_ENTITY_ACI};
+    if (dti_cntrl_est_dpath_indirect ( src_id,
+                                       entity_list,
+                                       1,
+                                       SPLIT,
+                                       atiPSI_dti_cb,
+                                       DTI_CPBLTY_CMD,
+                                       DTI_CID_NOTPRESENT) EQ TRUE)
+
+    {
+      return( AT_EXCT );
+    }
+    else
+    {
+      /* deactivate */
+      psaTRA_Deactivate();  /* deactivate TRA */
+    }
+  }
+#endif /*FF_PSI*/
+
+  else
+  {
+    psaTRA_Deactivate();  /* deactivate TRA */
+  }
+
+  return( AT_EXCT );
+}
+#endif /* DTI */
+/*==== EOF ========================================================*/