--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/aci2/aci/psa_l2rp.c	Mon Sep 26 00:29:36 2016 +0000
@@ -0,0 +1,784 @@
+/* 
++----------------------------------------------------------------------------- 
+|  Project :  GSM-PS (6147)
+|  Modul   :  PSA_L2RP
++----------------------------------------------------------------------------- 
+|  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 defines the processing functions for the
+|             primitives send to the protocol stack adapter by layer
+|             2 Relay.
++----------------------------------------------------------------------------- 
+*/ 
+
+#ifdef DTI
+
+#ifndef PSA_L2RP_C
+#define PSA_L2RP_C
+#endif
+
+#include "aci_all.h"
+
+/*==== INCLUDES ===================================================*/
+
+#include "dti.h"      /* functionality of the dti library */
+#include "aci_cmh.h"
+#include "ati_cmd.h"
+#include "aci_cmd.h"
+#include "aci_fd.h"
+#include "aci.h"
+
+#include "dti.h"
+#include "dti_conn_mng.h"
+#include "dti_cntrl_mng.h"
+
+#include "psa.h"
+#include "cmh.h"
+#include "cmh_ra.h"
+#include "psa_cc.h"
+#include "psa_l2r.h"
+#include "cmh_l2r.h"
+
+#if defined (FF_WAP) || defined (FF_GPF_TCPIP) || defined (FF_SAT_E)
+#include "wap_aci.h"
+#include "psa_ppp_w.h"
+#include "cmh_ppp.h"
+#endif /* defined (FF_WAP) || defined (FF_GPF_TCPIP) */
+
+#include "psa_uart.h"
+#include "psa_ra.h"
+#include "psa_uart.h"
+#include "psa_util.h"
+
+#include "sap_dti.h"
+
+#include "dcm_f.h"
+
+/*==== CONSTANTS ==================================================*/
+
+
+/*==== TYPES ======================================================*/
+
+/*==== EXPORT =====================================================*/
+
+/*==== VARIABLES ==================================================*/
+
+/*==== FUNCTIONS ==================================================*/
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_activate_cnf    |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_L2R_ACTIVATE_CNF primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_activate_cnf
+                               (T_L2R_ACTIVATE_CNF *l2r_activate_cnf)
+{
+  TRACE_FUNCTION ("psa_l2r_activate_cnf()");
+
+  if (!psaCC_ctbIsValid(raShrdPrm.cId))
+  {
+    TRACE_ERROR ("raShrdPrm.cId invalid");
+    PFREE (l2r_activate_cnf);
+    return;
+  }
+
+  switch (l2rShrdPrm.state)
+  {
+    case L2R_ACTIVATE:
+    {
+      if (l2r_activate_cnf->ack_flg EQ L2R_NAK)
+      {
+        l2rShrdPrm.state = L2R_DEACTIVATED;
+
+        cmhL2R_Failure();
+      }
+      else
+      {
+        PALLOC (l2r_connect_req, L2R_CONNECT_REQ);
+
+        l2rShrdPrm.state = L2R_CONNECT;
+
+        PSENDX (L2R, l2r_connect_req);
+      }
+
+      break;
+    }
+
+    case L2R_DEACTIVATE:
+    {
+      break;
+    }
+
+    default:
+    {
+      l2rShrdPrm.state = L2R_DEACTIVATED;
+
+      cmhL2R_Failure();
+
+      break;
+    }
+  }
+
+  PFREE (l2r_activate_cnf);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_connect_cnf     |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_CONNECT_CNF primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_connect_cnf
+                                (T_L2R_CONNECT_CNF *l2r_connect_cnf)
+{
+  TRACE_FUNCTION ("psa_l2r_connect_cnf()");
+
+  if (!psaCC_ctbIsValid(raShrdPrm.cId))
+  {
+    TRACE_ERROR ("raShrdPrm.cId invalid");
+    PFREE (l2r_connect_cnf);
+    return;
+  }
+
+  switch (l2rShrdPrm.state)
+  {
+    case L2R_CONNECT:
+    {
+      if (l2r_connect_cnf->ack_flg EQ L2R_NAK)
+      {
+        PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+        l2rShrdPrm.state = L2R_DEACTIVATE;
+
+        cmhL2R_Failure();
+
+        PSENDX (L2R, l2r_deactivate_req);
+      }
+      else
+      {
+        l2rShrdPrm.state = L2R_CONNECTED;
+
+        cmhCC_L2R_or_TRA_Activated( DTI_ENTITY_L2R, raShrdPrm.cId );
+      }
+
+      break;
+    }
+
+    case L2R_DEACTIVATE:
+    {
+      break;
+    }
+
+    default:
+    {
+      PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+      l2rShrdPrm.state = L2R_DEACTIVATE;
+
+      cmhL2R_Failure();
+
+      PSENDX (L2R, l2r_deactivate_req);
+
+      break;
+    }
+  }
+
+  PFREE (l2r_connect_cnf);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_connect_ind     |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_CONNECT_IND primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_connect_ind
+                                (T_L2R_CONNECT_IND *l2r_connect_ind)
+{
+  TRACE_FUNCTION ("psa_l2r_connect_ind()");
+
+  if (!psaCC_ctbIsValid(raShrdPrm.cId))
+  {
+    TRACE_ERROR ("raShrdPrm.cId invalid");
+    PFREE (l2r_connect_ind);
+    return;
+  }
+
+  switch (l2rShrdPrm.state)
+  {
+    case L2R_CONNECT:
+    {
+      l2rShrdPrm.state = L2R_CONNECTED;
+
+      cmhCC_L2R_or_TRA_Activated( DTI_ENTITY_L2R, raShrdPrm.cId );
+
+      break;
+    }
+
+    case L2R_CONNECTED:
+    case L2R_ENABLE:
+    case L2R_ENABLED:
+    /*    case L2R_DISABLE:*/
+    {
+      PALLOC (l2r_disc_req, L2R_DISC_REQ);
+
+      l2rShrdPrm.state = L2R_DISCONNECT;
+
+      cmhL2R_Failure();
+
+      PSENDX (L2R, l2r_disc_req);
+
+      break;
+    }
+
+    case L2R_ACTIVATE:
+    {
+      PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+      l2rShrdPrm.state = L2R_DEACTIVATE;
+
+      cmhL2R_Failure();
+
+      PSENDX (L2R, l2r_deactivate_req);
+
+      break;
+    }
+
+    default:
+    {
+      cmhL2R_Failure();
+
+      break;
+    }
+  }
+
+  PFREE (l2r_connect_ind);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_deactivate_cnf  |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_DEACTIVATE_CNF primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_deactivate_cnf
+                          (T_L2R_DEACTIVATE_CNF *l2r_deactivate_cnf)
+{
+  TRACE_FUNCTION ("psa_l2r_deactivate_cnf()");
+
+  switch (l2rShrdPrm.state)
+  {
+    default:
+    {
+      cmhL2R_Failure();
+    }
+    case L2R_DEACTIVATE:
+    {
+      l2rShrdPrm.state = L2R_DEACTIVATED;
+
+      cmhL2R_Deactivated();
+
+      break;
+    }
+
+  }
+
+  PFREE (l2r_deactivate_cnf);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_disc_cnf        |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_DISC_CNF primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_disc_cnf (T_L2R_DISC_CNF *l2r_disc_cnf)
+{
+  TRACE_FUNCTION ("psa_l2r_disc_cnf()");
+
+  switch (l2rShrdPrm.state)
+  {
+    default:
+    {
+      cmhL2R_Failure();
+    }
+    case L2R_DISCONNECT:
+    {
+      PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+      l2rShrdPrm.state = L2R_DEACTIVATE;
+
+      PSENDX (L2R, l2r_deactivate_req);
+
+      break;
+    }
+
+  }
+
+  PFREE (l2r_disc_cnf);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_disc_ind        |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_DISC_IND primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_disc_ind (T_L2R_DISC_IND *l2r_disc_ind)
+{
+  TRACE_FUNCTION ("psa_l2r_disc_ind()");
+
+#if defined (FF_WAP) || defined (FF_SAT_E)
+  if (Wap_Call)
+  {
+
+    /*
+     *  Start terminate the whole PPP Stack if PPP activ
+     */
+    if((pppShrdPrm.state EQ PPP_ESTABLISHED) OR (pppShrdPrm.state EQ PPP_ESTABLISH))
+      cmhPPP_Terminate( DWN );
+  }
+  else
+#endif /* of WAP or SAT E */
+  {
+    switch (l2rShrdPrm.state)
+    {
+      default:
+      {
+        cmhL2R_Failure();
+      }
+      case L2R_ENABLED:
+      {
+        T_DTI_CONN_LINK_ID link_id = dti_cntrl_get_link_id( DTI_ENTITY_L2R, DTI_INSTANCE_NOTPRESENT, DTI_SUB_NO_NOTPRESENT );
+        dti_cntrl_set_dti_id_to_reconnect(EXTRACT_DTI_ID(link_id));
+        dti_cntrl_entity_disconnected( link_id, DTI_ENTITY_L2R );
+      }
+          /* NO BREAK ! */
+      case L2R_CONNECTED:
+      /*      case L2R_DISABLE:*/
+      {
+        PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+        l2rShrdPrm.state = L2R_DEACTIVATE;
+
+        PSENDX (L2R, l2r_deactivate_req);
+
+        break;
+      }
+    }
+  }
+
+  PFREE (l2r_disc_ind);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_error_ind       |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_ERROR_IND primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_error_ind (T_L2R_ERROR_IND *l2r_error_ind)
+{
+  T_DTI_CONN_LINK_ID link_id;
+
+  TRACE_FUNCTION ("psa_l2r_error_ind()");
+
+#if defined (FF_WAP) || defined (FF_SAT_E)
+
+  if (Wap_Call)
+  {
+
+    /*
+     *  Start terminate the whole PPP Stack if PPP have established call
+     *  or by establish call.
+     */
+
+    if((pppShrdPrm.state EQ PPP_ESTABLISHED) OR (pppShrdPrm.state EQ PPP_ESTABLISH))
+      cmhPPP_Terminate( DWN );
+
+    PFREE (l2r_error_ind);
+    return;
+  }
+
+#endif /* of WAP or SAT E */
+
+
+  link_id = dti_cntrl_get_link_id( DTI_ENTITY_L2R, DTI_INSTANCE_NOTPRESENT, DTI_SUB_NO_NOTPRESENT );
+
+  if (dti_cntrl_is_dti_channel_connected (DTI_ENTITY_L2R, EXTRACT_DTI_ID(link_id)) EQ TRUE)
+  {
+    dti_cntrl_entity_disconnected( link_id, DTI_ENTITY_L2R );
+  }
+  {
+    PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+    l2rShrdPrm.set_prm[l2rShrdPrm.owner].err_cause = l2r_error_ind->cause;
+
+    l2rShrdPrm.state = L2R_DEACTIVATE;
+
+    cmhL2R_Failure();
+
+    PSENDX (L2R, l2r_deactivate_req);
+  }
+
+  PFREE (l2r_error_ind);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_reset_ind       |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_RESET_IND primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_reset_ind (T_L2R_RESET_IND *l2r_reset_ind)
+{
+  TRACE_FUNCTION ("psa_l2r_reset_ind()");
+
+  switch (l2rShrdPrm.state)
+  {
+    case L2R_CONNECTED:
+    case L2R_ENABLE:
+    case L2R_ENABLED:
+    /*    case L2R_DISABLE:*/
+    case L2R_ACTIVATE:
+    case L2R_CONNECT:
+    {
+      l2rShrdPrm.set_prm[l2rShrdPrm.owner].reset++;
+
+      break;
+    }
+    /*
+    case L2R_ACTIVATE:
+    case L2R_CONNECT:
+    {
+      PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+      l2rShrdPrm.state = L2R_DEACTIVATE;
+
+      cmhL2R_Failure();
+
+      PSENDX (L2R, l2r_deactivate_req);
+
+      break;
+    }
+    */
+    default:
+    {
+      cmhL2R_Failure();
+
+      break;
+    }
+  }
+
+  PFREE (l2r_reset_ind);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_statistic_ind   |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_STATISTIC_IND primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_statistic_ind
+                             (T_L2R_STATISTIC_IND *l2r_statistic_ind)
+{
+  TRACE_FUNCTION ("psa_l2r_statistic_ind()");
+
+  l2rShrdPrm.set_prm_use.error_rate = l2r_statistic_ind->error_rate;
+
+  PFREE (l2r_statistic_ind);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_dti_cnf         |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_DTI_CNF primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_dti_cnf (T_L2R_DTI_CNF *l2r_dti_cnf)
+{
+  TRACE_FUNCTION ("psa_l2r_dti_cnf()");
+
+  /* store the current DTI id for the case of redirection */
+  raShrdPrm.dti_id = EXTRACT_DTI_ID(l2r_dti_cnf->link_id);        
+
+  switch (l2rShrdPrm.state)
+  {
+    case L2R_ESCAPE:
+    {
+      if (l2r_dti_cnf->dti_conn NEQ l2rShrdPrm.uart_conn)
+      {
+        cmhL2R_Failure();
+      }
+      l2rEntStat.isTempDisconnected = TRUE;
+      dti_cntrl_entity_disconnected( l2r_dti_cnf->link_id, DTI_ENTITY_L2R );
+
+      l2rShrdPrm.state = L2R_CONNECTED;
+      break;
+    }
+
+    case L2R_ENABLE:
+    {
+      if (l2r_dti_cnf->dti_conn NEQ l2rShrdPrm.uart_conn)
+      {
+        PALLOC (l2r_disc_req, L2R_DISC_REQ);
+
+        l2rShrdPrm.state = L2R_DISCONNECT;
+
+        cmhL2R_Failure();
+
+        PSENDX (L2R, l2r_disc_req);
+      }
+      else
+      {
+#if defined(FF_WAP) OR defined(FF_GPF_TCPIP) OR defined (FF_SAT_E)
+        T_ACI_WAP_STATES act_state = Wap_Not_Init;
+        if(is_gpf_tcpip_call()) {
+          GPF_TCPIP_STATEMENT(act_state = TCPIP_Activation);
+        }
+        else {
+          act_state = IPA_Activated;
+        }
+#endif
+        l2rShrdPrm.state = L2R_ENABLED;
+
+#if defined(FF_WAP) OR defined(FF_GPF_TCPIP) OR defined (FF_SAT_E)
+        if (Wap_Call AND wap_state EQ act_state)
+        {
+          dti_cntrl_entity_connected( l2r_dti_cnf->link_id, DTI_ENTITY_L2R, DTI_OK );
+        }
+#ifdef FF_SAT_E        
+        else if (psa_search_SATSrcId() >= 0)/* sat class c  connection SIM-L2R */
+        {
+          dti_cntrl_entity_connected( l2r_dti_cnf->link_id, DTI_ENTITY_L2R, DTI_OK );
+        }
+#endif  /* FF_SAT_E */
+        else
+        {
+          TRACE_EVENT(" error: wrong WAP state ");
+        }
+#else   /* WAP OR FF_GPF_TCPIP or SAT E */
+      dti_cntrl_entity_connected( l2r_dti_cnf->link_id, DTI_ENTITY_L2R, DTI_OK );
+#endif  /* of WAP OR FF_GPF_TCPIP or SAT E */
+      }
+
+      break;
+    }
+
+/*    case L2R_DISABLE:
+    {
+      if (l2r_dti_cnf->dti_conn NEQ l2rShrdPrm.uart_conn)
+      {
+        PALLOC (l2r_disc_req, L2R_DISC_REQ);
+
+        l2rShrdPrm.state = L2R_DISCONNECT;
+
+        cmhL2R_Failure();
+
+        PSENDX (L2R, l2r_disc_req);
+      }
+      else
+      {
+        l2rShrdPrm.state = L2R_CONNECTED;
+
+        cmhL2R_TRA_Disabled();
+      }
+
+      break;
+    }*/
+
+    case L2R_DETACH:
+    {
+      if (l2r_dti_cnf->dti_conn NEQ l2rShrdPrm.uart_conn)
+      {
+        cmhL2R_Failure();
+      }
+
+      {
+        PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+        l2rShrdPrm.state = L2R_DEACTIVATE;
+        /* Set the flag to reconnect the registered device to ACI */
+        dti_cntrl_set_dti_id_to_reconnect(EXTRACT_DTI_ID(l2r_dti_cnf->link_id));
+        dti_cntrl_entity_disconnected( l2r_dti_cnf->link_id, DTI_ENTITY_L2R );
+        PSENDX (L2R, l2r_deactivate_req);
+      }
+
+      break;
+    }
+
+    case L2R_DISCONNECT:
+    case L2R_DEACTIVATE:
+    {
+      break;
+    }
+
+    default:
+    {
+      PALLOC (l2r_disc_req, L2R_DISC_REQ);
+
+      l2rShrdPrm.state = L2R_DISCONNECT;
+
+      cmhL2R_Failure();
+
+      PSENDX (L2R, l2r_disc_req);
+
+      break;
+    }
+  }
+
+  PFREE (l2r_dti_cnf);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_dti_ind        |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_DTI_IND primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_dti_ind (T_L2R_DTI_IND *l2r_dti_ind)
+{
+  TRACE_FUNCTION ("psa_l2r_dti_ind()");
+
+  /* store the current DTI id for the case of redirection */
+  raShrdPrm.dti_id = EXTRACT_DTI_ID(l2r_dti_ind->link_id);        
+
+  switch (l2rShrdPrm.state)
+  {
+    case L2R_ENABLED:
+    {
+      l2rEntStat.isTempDisconnected = TRUE;
+      dti_cntrl_entity_disconnected( l2r_dti_ind->link_id, DTI_ENTITY_L2R );
+
+      l2rShrdPrm.state = L2R_CONNECTED;
+
+      break;
+    }
+
+    case L2R_CONNECTED:
+    case L2R_ENABLE:
+    {
+      PALLOC (l2r_disc_req, L2R_DISC_REQ);
+
+      l2rShrdPrm.state = L2R_DISCONNECT;
+
+      cmhL2R_Failure();
+
+      PSENDX (L2R, l2r_disc_req);
+
+      break;
+    }
+
+    case L2R_ACTIVATE:
+    case L2R_CONNECT:
+    {
+      PALLOC (l2r_deactivate_req, L2R_DEACTIVATE_REQ);
+
+      l2rShrdPrm.state = L2R_DEACTIVATE;
+
+      cmhL2R_Failure();
+
+      PSENDX (L2R, l2r_deactivate_req);
+
+      break;
+    }
+
+    default:
+    {
+      cmhL2R_Failure();
+
+      break;
+    }
+  }
+
+  PFREE (l2r_dti_ind);
+}
+
+/*
++-------------------------------------------------------------------+
+| PROJECT : GSM-PS (6147)         MODULE  : PSA_L2R                 |
+|                                 ROUTINE : psa_l2r_xid_ind         |
++-------------------------------------------------------------------+
+
+  PURPOSE : processes the L2R_XID_IND primitive send by L2R.
+
+*/
+
+GLOBAL const void psa_l2r_xid_ind (T_L2R_XID_IND *l2r_xid_ind)
+{
+#define X l2rShrdPrm.set_prm_use
+
+  TRACE_FUNCTION ("psa_l2r_xid_ind()");
+
+  X.rlp_vers = l2r_xid_ind->rlp_vers;
+  X.k_ms_iwf = l2r_xid_ind->k_ms_iwf;
+  X.k_iwf_ms = l2r_xid_ind->k_iwf_ms;
+  X.t1       = l2r_xid_ind->t1;
+  X.t2       = l2r_xid_ind->t2;
+  X.n2       = l2r_xid_ind->n2;
+  X.pt       = l2r_xid_ind->pt;
+  X.p0       = l2r_xid_ind->p0;
+  X.p1       = l2r_xid_ind->p1;
+  X.p2       = l2r_xid_ind->p2;
+
+  PFREE (l2r_xid_ind);
+
+#undef X
+}
+#endif /* DTI */
+
+/*==== EOF =========================================================*/
+