/*
+-----------------------------------------------------------------------------
|  Project :  GSM-F&D (8411)
|  Modul   :  FAD_KERP
+-----------------------------------------------------------------------------
|  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 Modul defines the functions for processing
|             of incomming primitives for the component
|             Fax Adaptation 3.45 of the mobile station
+-----------------------------------------------------------------------------
*/

#ifndef FAD_KERP_C
#define FAD_KERP_C
#endif

#define ENTITY_FAD

/*==== INCLUDES ===================================================*/

#include <string.h>
#include "typedefs.h"
#include "pconst.cdg"
#include "vsi.h"
#include "macdef.h"
#include "pconst.cdg"
#include "custom.h"
#include "gsm.h"
#include "cnf_fad.h"
#include "mon_fad.h"
#include "prim.h"
#include "pei.h"
#include "tok.h"
#include "ccdapi.h"
#include "fad.h"

#ifdef _TARGET_
  #include "ra_l1int.h"
#endif

/*==== CONST =======================================================*/

/*==== TYPES =======================================================*/

/*==== VAR EXPORT ==================================================*/

/*==== VAR LOCAL ===================================================*/

/*==== FUNCTIONS ===================================================*/

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP             |
| STATE   : code                      ROUTINE : ker_fad_activate_req |
+--------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_ACTIVATE_REQ received from T30.

*/

GLOBAL void ker_fad_activate_req (T_FAD_ACTIVATE_REQ *fad_activate_req)
{
  TRACE_EVENT ("ker_fad_activate_req()");
  PACCESS (fad_activate_req);

  /*******************************/
  /*
   *  Initialize Shared Fax/Data memory
   */

  fad_data = &fad_data_base[0];
  ker_init ();
  snd_init ();
  rcv_init ();

  /*
   *  reset RBM
   */
  rbm_reset ();

  fad_data_magic_num = FAD_DATA_MAGIC_NUM;  /* memory is initialized */

  /*******************************/

  if (GET_STATE (KER) EQ KER_NULL)
  {
    sig_ker_snd_activate_req (fad_activate_req);
    sbm_init (FRAME_SIZE);
    rbm_init (fad_activate_req->frames_per_prim);
    sig_ker_snd_sync_req (FALSE);
    {
    PALLOC (fad_activate_cnf, FAD_ACTIVATE_CNF);
    /*
     * calculate the RX and TX buffersizes and notify it
     * to T30
     */
    fad_activate_cnf->buf_size_rx
      = fad_activate_req->frames_per_prim * FRAME_SIZE * RBM_PQ_MAX_PRIM;
    fad_activate_cnf->buf_size_tx
      = fad_activate_req->frames_per_prim * FRAME_SIZE * SBM_MAX_PRIMS;
    PSENDX (T30, fad_activate_cnf);
    }
    SET_STATE (KER, IDLE);

#ifdef _TARGET_
    {
    T_RA_DATATRANS_REQ RA_datatrans_req;
    l1i_ra_datatrans_req(&RA_datatrans_req);
    }
#endif

  }

  PFREE (fad_activate_req);
}


/*
+----------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP               |
| STATE   : code                      ROUTINE : ker_fad_deactivate_req |
+----------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_DEACTIVATE_REQ received from T30.

*/

GLOBAL void ker_fad_deactivate_req (T_FAD_DEACTIVATE_REQ *fad_deactivate_req)
{
  TRACE_EVENT ("ker_fad_deactivate_req()");

  PACCESS (fad_deactivate_req);

  sig_ker_snd_sync_req (FALSE);
  rbm_deinit(TRUE);
  SET_STATE (KER, KER_NULL);

  {
  PALLOC (fad_deactivate_cnf, FAD_DEACTIVATE_CNF);
  PSENDX (T30, fad_deactivate_cnf);
  }

  PFREE (fad_deactivate_req);
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP             |
| STATE   : code                      ROUTINE : ker_fad_modify_req   |
+--------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_MODIFY_REQ received from T30.

*/

GLOBAL void ker_fad_modify_req (T_FAD_MODIFY_REQ *fad_modify_req)
{
  TRACE_EVENT ("ker_fad_modify_req()");
  PACCESS (fad_modify_req);

  if (GET_STATE (KER) NEQ KER_NULL)
  {
    fad_data->snd.trans_rate = fad_modify_req->trans_rate;
    fad_data->rcv.FlagFound = 0;
    TRACE_EVENT_P1("MODIFY %d bps", fad_data->snd.trans_rate);
  }

  PFREE (fad_modify_req);
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP             |
| STATE   : code                      ROUTINE : ker_fad_data_req     |
+--------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_DATA_REQ received from T30.

*/

GLOBAL void ker_fad_data_req (T_FAD_DATA_REQ *fad_data_req)
{
  T_SBM *sbm = &fad_data->sbm;
  USHORT err_cause = 0;

#ifdef _SIMULATION_
  TRACE_FUNCTION ("ker_fad_data_req()");
#endif

  PACCESS (fad_data_req);

  switch (GET_STATE (KER))
  {
  case KER_NULL:
    err_cause = ERR_LOCAL_DATA_NULL;
    break;

  case IDLE:
    if (fad_data_req->trans_rate EQ R_BCS)
    {
      SET_STATE (KER, BCS_REC);
      sig_ker_snd_preamble_req (fad_data_req);
    }
    else
    {
      if (fad_data_req->trans_rate EQ R_7200)
      {
        sbm->syncCycle = SYNC_CYCLE_7200;
        sbm->framesUntilSync = (SYNC_CYCLE_7200-1);
      }
      else if (fad_data_req->trans_rate EQ R_12000)
      {
        sbm->syncCycle = SYNC_CYCLE_12000;
        sbm->framesUntilSync = (SYNC_CYCLE_12000-1);
      }

      SET_STATE (KER, MSG_REC);
      sig_ker_snd_train_req (fad_data_req, TRUE);
    }
    break;

  case BCS_REC:
    if (fad_data_req->trans_rate EQ R_BCS)
      sig_ker_snd_bcs_req (fad_data_req);
    else
      err_cause = ERR_LOCAL_MSG_RATE;
    break;

  case MSG_REC_TCF:
    err_cause = ERR_LOCAL_DATA_TCF_SND;
    break;

  case MSG_REC:
    if (fad_data_req->trans_rate NEQ R_BCS)
      sig_ker_snd_msg_req (fad_data_req);
    else
      err_cause = ERR_LOCAL_BCS_RATE;
    break;

  case BCS_TRA:
    if (fad_data_req->trans_rate EQ R_BCS)
      fad_data->snd.fad_data_req = fad_data_req; /* store data, send later */
    break;

  case MSG_TRA_TCF:
     err_cause = ERR_LOCAL_DATA_TCF_RCV;
   break;

  case MSG_TRA:
    err_cause = ERR_LOCAL_DATA_MSG;
    break;

  default:
    err_cause = ERR_LOCAL_DATA_UNDEF;
    break;
  }

  if (err_cause)
  {
    ker_SetError (err_cause);
    sig_ker_snd_sync_req (FALSE);
    SET_STATE (KER, IDLE);
    PFREE (fad_data_req);
  }

}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP             |
| STATE   : code                      ROUTINE : ker_fad_snd_tcf_req  |
+--------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_SND_TCF_REQ received from T30.

*/

GLOBAL void ker_fad_snd_tcf_req (T_FAD_SND_TCF_REQ *fad_snd_tcf_req)
{
  T_SBM *sbm = &fad_data->sbm;

  TRACE_FUNCTION ("ker_fad_snd_tcf_req()");
  PACCESS        (fad_snd_tcf_req);

  if (GET_STATE (KER) EQ IDLE)
  {
    SET_STATE (KER, MSG_REC_TCF);

    if (fad_snd_tcf_req->trans_rate EQ R_7200)
    {
      sbm->syncCycle = SYNC_CYCLE_7200;
      sbm->framesUntilSync = (SYNC_CYCLE_7200-1);
    }
    else if (fad_snd_tcf_req->trans_rate EQ R_12000)
    {
      sbm->syncCycle = SYNC_CYCLE_12000;
      sbm->framesUntilSync = (SYNC_CYCLE_12000-1);
    }

    sig_ker_snd_tcf_req ();
  }

  PFREE (fad_snd_tcf_req);
}


/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP             |
| STATE   : code                      ROUTINE : ker_fad_rcv_tcf_req  |
+--------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_RCV_TCF_REQ received from T30.

*/

GLOBAL void ker_fad_rcv_tcf_req (T_FAD_RCV_TCF_REQ *fad_rcv_tcf_req)
{
  T_SBM *sbm = &fad_data->sbm;

  TRACE_FUNCTION ("ker_fad_rcv_tcf_req()");

  PACCESS        (fad_rcv_tcf_req);

  if (GET_STATE (KER) EQ IDLE)
  {
    if (fad_rcv_tcf_req->trans_rate EQ R_7200)
    {
      sbm->syncCycle = SYNC_CYCLE_7200;
      sbm->framesUntilSync = (SYNC_CYCLE_7200-1);
    }
    else if (fad_rcv_tcf_req->trans_rate EQ R_12000)
    {
      sbm->syncCycle = SYNC_CYCLE_12000;
      sbm->framesUntilSync = (SYNC_CYCLE_12000-1);
    }

    SET_STATE (KER, MSG_TRA_TCF);
    sig_ker_rcv_await_tcf_req ();
  }

  PFREE (fad_rcv_tcf_req);
}

/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP             |
| STATE   : code                      ROUTINE : ker_fad_ready_req    |
+--------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_READY_REQ received from T30.

*/

GLOBAL void ker_fad_ready_req (T_FAD_READY_REQ *fad_ready_req)
{

  TRACE_FUNCTION ("ker_fad_ready_req()");
  PACCESS        (fad_ready_req);

  /* PZ 25.5.99
  if (GET_STATE (KER) EQ MSG_TRA)
    sig_ker_rcv_ready_req ();
  */
  sig_ker_rcv_ready_req ();

  PFREE (fad_ready_req);
}


/*
+--------------------------------------------------------------------+
| PROJECT : GSM-F&D (8411)            MODULE  : FAD_KERP             |
| STATE   : code                      ROUTINE : ker_fad_ignore_req   |
+--------------------------------------------------------------------+

  PURPOSE : Process primitive FAD_IGNORE_REQ received from T30.

*/

GLOBAL void ker_fad_ignore_req (T_FAD_IGNORE_REQ *fad_ignore_req)
{
  TRACE_FUNCTION ("ker_fad_ignore_req()");
  PACCESS        (fad_ignore_req);

  if (GET_STATE (KER) EQ MSG_TRA)
    fad_data->ker.forward_data = FALSE;

  PFREE (fad_ignore_req);
}