#include "openair1/PHY/defs.h"
#include "openair2/PHY_INTERFACE/IF_Module.h"
#include "openair1/PHY/extern.h"
#include "LAYER2/MAC/extern.h"
#include "LAYER2/MAC/proto.h"
#include "common/ran_context.h"

#define MAX_IF_MODULES 100

IF_Module_t *if_inst[MAX_IF_MODULES];
Sched_Rsp_t Sched_INFO[MAX_IF_MODULES][MAX_NUM_CCs];

extern int oai_nfapi_harq_indication(nfapi_harq_indication_t *harq_ind);
extern int oai_nfapi_crc_indication(nfapi_crc_indication_t *crc_ind);
extern int oai_nfapi_cqi_indication(nfapi_cqi_indication_t *cqi_ind);
extern int oai_nfapi_rx_ind(nfapi_rx_indication_t *ind);
extern uint8_t nfapi_pnf;

void handle_rach(UL_IND_t *UL_info) {
  int i;

  if (UL_info->rach_ind.number_of_preambles>0) {

    AssertFatal(UL_info->rach_ind.number_of_preambles==1,"More than 1 preamble not supported\n");
    UL_info->rach_ind.number_of_preambles=0;
    LOG_E(MAC,"Frame %d, Subframe %d Calling initiate_ra_proc\n",UL_info->frame,UL_info->subframe);
    initiate_ra_proc(UL_info->module_id,
		     UL_info->CC_id,
		     UL_info->frame,
		     UL_info->subframe,
		     UL_info->rach_ind.preamble_list[0].preamble_rel8.preamble,
		     UL_info->rach_ind.preamble_list[0].preamble_rel8.timing_advance,
		     UL_info->rach_ind.preamble_list[0].preamble_rel8.rnti
#ifdef Rel14
		     ,0
#endif
		     );
  }

#ifdef Rel14
  if (UL_info->rach_ind_br.number_of_preambles>0) {

    AssertFatal(UL_info->rach_ind_br.number_of_preambles<5,"More than 4 preambles not supported\n");
    for (i=0;i<UL_info->rach_ind_br.number_of_preambles;i++) {
      AssertFatal(UL_info->rach_ind_br.preamble_list[i].preamble_rel13.rach_resource_type>0,
		  "Got regular PRACH preamble, not BL/CE\n");
      LOG_D(MAC,"Frame %d, Subframe %d Calling initiate_ra_proc (CE_level %d)\n",UL_info->frame,UL_info->subframe,
	    UL_info->rach_ind_br.preamble_list[i].preamble_rel13.rach_resource_type-1);
      initiate_ra_proc(UL_info->module_id,
		       UL_info->CC_id,
		       UL_info->frame,
		       UL_info->subframe,
		       UL_info->rach_ind_br.preamble_list[i].preamble_rel8.preamble,
		       UL_info->rach_ind_br.preamble_list[i].preamble_rel8.timing_advance,
		       UL_info->rach_ind_br.preamble_list[i].preamble_rel8.rnti,
		       UL_info->rach_ind_br.preamble_list[i].preamble_rel13.rach_resource_type);
    }
    UL_info->rach_ind.number_of_preambles=0;
  }
#endif
}

void handle_sr(UL_IND_t *UL_info) {

  int i;

  for (i=0;i<UL_info->sr_ind.number_of_srs;i++) 
    SR_indication(UL_info->module_id,
		  UL_info->CC_id,
		  UL_info->frame,
		  UL_info->subframe,
		  UL_info->sr_ind.sr_pdu_list[i].rx_ue_information.rnti,
		  UL_info->sr_ind.sr_pdu_list[i].ul_cqi_information.ul_cqi);

  UL_info->sr_ind.number_of_srs=0;
}

void handle_cqi(UL_IND_t *UL_info) {

  int i;

  if (nfapi_pnf == 1)
  {
    if (UL_info->cqi_ind.number_of_cqis>0)
    {
      LOG_D(PHY,"UL_info->cqi_ind.number_of_cqis:%d\n", UL_info->cqi_ind.number_of_cqis);
      nfapi_cqi_indication_t ind;

      ind.header.message_id = NFAPI_RX_CQI_INDICATION;
      ind.sfn_sf = UL_info->frame<<4 | UL_info->subframe;
      ind.cqi_indication_body = UL_info->cqi_ind;

      oai_nfapi_cqi_indication(&ind);
    }
  }

  for (i=0;i<UL_info->cqi_ind.number_of_cqis;i++) 
    cqi_indication(UL_info->module_id,
		   UL_info->CC_id,
		   UL_info->frame,
		   UL_info->subframe,
		   UL_info->cqi_ind.cqi_pdu_list[i].rx_ue_information.rnti,
		   &UL_info->cqi_ind.cqi_pdu_list[i].cqi_indication_rel9,
		   UL_info->cqi_ind.cqi_raw_pdu_list[i].pdu,
		   &UL_info->cqi_ind.cqi_pdu_list[i].ul_cqi_information);

  UL_info->cqi_ind.number_of_cqis=0;
}

void handle_harq(UL_IND_t *UL_info) {

  int i;

  //if (UL_info->harq_ind.number_of_harqs>0)

  if (nfapi_pnf == 1 && UL_info->harq_ind.number_of_harqs>0) // PNF
  {
    LOG_E(PHY, "UL_info->harq_ind.number_of_harqs:%d Send to VNF\n", UL_info->harq_ind.number_of_harqs);

    nfapi_harq_indication_t ind;

    ind.header.message_id = NFAPI_HARQ_INDICATION;
    ind.sfn_sf = UL_info->frame<<4 | UL_info->subframe;

    int retval = oai_nfapi_harq_indication(&ind);

    if (retval!=0)
    {
      LOG_E(PHY, "Failed to encode NFAPI HARQ_IND retval:%d\n", retval);
    }
  }

  for (i=0;i<UL_info->harq_ind.number_of_harqs;i++) 
    harq_indication(UL_info->module_id,
		    UL_info->CC_id,
		    UL_info->frame,
		    UL_info->subframe,
		    &UL_info->harq_ind.harq_pdu_list[i]);

  UL_info->harq_ind.number_of_harqs=0;
}

void handle_ulsch(UL_IND_t *UL_info) {

  int i,j;

  if(nfapi_pnf == 1)
  {
    if (UL_info->crc_ind.crc_indication_body.number_of_crcs>0)
    {
      LOG_D(PHY,"UL_info->crc_ind.crc_indication_body.number_of_crcs:%d\n", UL_info->crc_ind.crc_indication_body.number_of_crcs);

      oai_nfapi_crc_indication(&UL_info->crc_ind);
    }
  }


  if (nfapi_pnf == 1 && UL_info->rx_ind.rx_indication_body.number_of_pdus>0)
  {
    LOG_D(PHY,"UL_info->rx_ind.number_of_pdus:%d\n", UL_info->rx_ind.rx_indication_body.number_of_pdus);
    oai_nfapi_rx_ind(&UL_info->rx_ind);
  }

  for (i=0;i<UL_info->rx_ind.rx_indication_body.number_of_pdus;i++) {
    for (j=0;j<UL_info->crc_ind.crc_indication_body.number_of_crcs;j++) {
      // find crc_indication j corresponding rx_indication i
      LOG_D(PHY,"UL_info->crc_ind.crc_indication_body.crc_pdu_list[%d].rx_ue_information.rnti:%04x UL_info->rx_ind.rx_indication_body.rx_pdu_list[%d].rx_ue_information.rnti:%04x\n", j, UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].rx_ue_information.rnti, i, UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti);
      if (UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].rx_ue_information.rnti ==
          UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti) {
        LOG_D(PHY, "UL_info->crc_ind.crc_indication_body.crc_pdu_list[%d].crc_indication_rel8.crc_flag:%d\n", j, UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].crc_indication_rel8.crc_flag);
        if (UL_info->crc_ind.crc_indication_body.crc_pdu_list[j].crc_indication_rel8.crc_flag == 1) { // CRC error indication
          LOG_D(MAC,"Frame %d, Subframe %d Calling rx_sdu (CRC error) \n",UL_info->frame,UL_info->subframe);
          rx_sdu(UL_info->module_id,
              UL_info->CC_id,
              UL_info->frame,
              UL_info->subframe,
              UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti,
		 (uint8_t *)NULL,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.length,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.timing_advance,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.ul_cqi);
	}
	else {
	  LOG_D(MAC,"Frame %d, Subframe %d Calling rx_sdu (CRC ok) \n",UL_info->frame,UL_info->subframe);
	  rx_sdu(UL_info->module_id,
		 UL_info->CC_id,
		 UL_info->frame,
		 UL_info->subframe,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_ue_information.rnti,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].data,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.length,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.timing_advance,
		 UL_info->rx_ind.rx_indication_body.rx_pdu_list[i].rx_indication_rel8.ul_cqi);
	}
	break;
      } //if (UL_info->crc_ind.crc_pdu_list[j].rx_ue_information.rnti ==
	//    UL_info->rx_ind.rx_pdu_list[i].rx_ue_information.rnti) {
    } //    for (j=0;j<UL_info->crc_ind.crc_indication_body.number_of_crcs;j++) {
    AssertFatal(j<UL_info->crc_ind.crc_indication_body.number_of_crcs,"Couldn't find matchin CRC indication\n");
  } //   for (i=0;i<UL_info->rx_ind.number_of_pdus;i++) {
    
  if (NFAPI_SFNSF2SFN(UL_info->rx_ind.sfn_sf) == UL_info->frame && NFAPI_SFNSF2SF(UL_info->rx_ind.sfn_sf) == UL_info->subframe && UL_info->rx_ind.rx_indication_body.number_of_pdus>0)
  {
    UL_info->rx_ind.rx_indication_body.number_of_pdus = 0;
    LOG_D(PHY, "UL_INFO:SFN/SF:%d/%d ZEROING rx_ind.number_of_pdus:%d \n", UL_info->frame, UL_info->subframe, UL_info->rx_ind.rx_indication_body.number_of_pdus);
  }

  if (NFAPI_SFNSF2SFN(UL_info->rx_ind.sfn_sf) == UL_info->frame && NFAPI_SFNSF2SF(UL_info->rx_ind.sfn_sf) == UL_info->subframe && UL_info->crc_ind.crc_indication_body.number_of_crcs>0)
  {
    LOG_D(PHY, "UL_INFO:SFN/SF:%d/%d crcs:%d Reset to zero\n", UL_info->frame, UL_info->subframe, UL_info->crc_ind.crc_indication_body.number_of_crcs);
    UL_info->crc_ind.crc_indication_body.number_of_crcs=0;
  }
}

/****************************************************************************/
/* debug utility functions begin                                            */
/****************************************************************************/

//#define DUMP_FAPI

#ifdef DUMP_FAPI

#define C do { size = 0; put(0); } while (0)
#define A(...) do { char t[4096]; sprintf(t, __VA_ARGS__); append_string(t); } while (0)

static char *s;
static int size;
static int maxsize;

static void put(char x)
{
  if (size == maxsize) {
    maxsize += 32768;
    s = realloc(s, maxsize); if (s == NULL) abort();
  }
  s[size++] = x;
}

static void append_string(char *t)
{
  size--;
  while (*t) put(*t++);
  put(0);
}

static void dump_ul(UL_IND_t *u)
{
  int i;

  C;
  A("XXXX UL  mod %d CC %d f.sf %d.%d\n",
    u->module_id, u->CC_id, u->frame, u->subframe);

  A("XXXX     harq_ind %d\n", u->harq_ind.number_of_harqs);
      for (i = 0; i < u->harq_ind.number_of_harqs; i++) {
        nfapi_harq_indication_pdu_t *v = &u->harq_ind.harq_pdu_list[i];
  A("XXXX         rnti %d\n", v->rx_ue_information.rnti);
  A("XXXX         tb1 %d tb2 %d\n", v->harq_indication_fdd_rel8.harq_tb1,
                                    v->harq_indication_fdd_rel8.harq_tb2);
  A("XXXX         number_of_ack_nack %d\n",
                          v->harq_indication_fdd_rel9.number_of_ack_nack);
  A("XXXX         harq[0] = %d\n", v->harq_indication_fdd_rel9.harq_tb_n[0]);
  A("XXXX         ul_cqi %d channel %d\n", v->ul_cqi_information.ul_cqi,
                                           v->ul_cqi_information.channel);
      }

  A("XXXX     crc_ind  %d\n", u->crc_ind.crc_indication_body.number_of_crcs);

  A("XXXX     sr_ind   %d\n", u->sr_ind.number_of_srs);

  A("XXXX     cqi_ind  %d\n", u->cqi_ind.number_of_cqis);

  A("XXXX     rach_ind %d\n", u->rach_ind.number_of_preambles);

  A("XXXX     rx_ind   %d\n", u->rx_ind.rx_indication_body.number_of_pdus);

  LOG_I(PHY, "XXXX UL\nXXXX UL\n%s", s);
}

static char *DL_PDU_TYPE(int x)
{
  switch (x) {
  case NFAPI_DL_CONFIG_DCI_DL_PDU_TYPE: return "NFAPI_DL_CONFIG_DCI_DL_PDU_TYPE";
  case NFAPI_DL_CONFIG_BCH_PDU_TYPE: return "NFAPI_DL_CONFIG_BCH_PDU_TYPE";
  case NFAPI_DL_CONFIG_MCH_PDU_TYPE: return "NFAPI_DL_CONFIG_MCH_PDU_TYPE";
  case NFAPI_DL_CONFIG_DLSCH_PDU_TYPE: return "NFAPI_DL_CONFIG_DLSCH_PDU_TYPE";
  case NFAPI_DL_CONFIG_PCH_PDU_TYPE: return "NFAPI_DL_CONFIG_PCH_PDU_TYPE";
  case NFAPI_DL_CONFIG_PRS_PDU_TYPE: return "NFAPI_DL_CONFIG_PRS_PDU_TYPE";
  case NFAPI_DL_CONFIG_CSI_RS_PDU_TYPE: return "NFAPI_DL_CONFIG_CSI_RS_PDU_TYPE";
  case NFAPI_DL_CONFIG_EPDCCH_DL_PDU_TYPE: return "NFAPI_DL_CONFIG_EPDCCH_DL_PDU_TYPE";
  case NFAPI_DL_CONFIG_MPDCCH_PDU_TYPE: return "NFAPI_DL_CONFIG_MPDCCH_PDU_TYPE";
  case NFAPI_DL_CONFIG_NBCH_PDU_TYPE: return "NFAPI_DL_CONFIG_NBCH_PDU_TYPE";
  case NFAPI_DL_CONFIG_NPDCCH_PDU_TYPE: return "NFAPI_DL_CONFIG_NPDCCH_PDU_TYPE";
  case NFAPI_DL_CONFIG_NDLSCH_PDU_TYPE: return "NFAPI_DL_CONFIG_NDLSCH_PDU_TYPE";
  }
  return "UNKNOWN";
}

static char *UL_PDU_TYPE(int x)
{
  switch (x) {
  case NFAPI_UL_CONFIG_ULSCH_PDU_TYPE: return "NFAPI_UL_CONFIG_ULSCH_PDU_TYPE";
  case NFAPI_UL_CONFIG_ULSCH_CQI_RI_PDU_TYPE: return "NFAPI_UL_CONFIG_ULSCH_CQI_RI_PDU_TYPE";
  case NFAPI_UL_CONFIG_ULSCH_HARQ_PDU_TYPE: return "NFAPI_UL_CONFIG_ULSCH_HARQ_PDU_TYPE";
  case NFAPI_UL_CONFIG_ULSCH_CQI_HARQ_RI_PDU_TYPE: return "NFAPI_UL_CONFIG_ULSCH_CQI_HARQ_RI_PDU_TYPE";
  case NFAPI_UL_CONFIG_UCI_CQI_PDU_TYPE: return "NFAPI_UL_CONFIG_UCI_CQI_PDU_TYPE";
  case NFAPI_UL_CONFIG_UCI_SR_PDU_TYPE: return "NFAPI_UL_CONFIG_UCI_SR_PDU_TYPE";
  case NFAPI_UL_CONFIG_UCI_HARQ_PDU_TYPE: return "NFAPI_UL_CONFIG_UCI_HARQ_PDU_TYPE";
  case NFAPI_UL_CONFIG_UCI_SR_HARQ_PDU_TYPE: return "NFAPI_UL_CONFIG_UCI_SR_HARQ_PDU_TYPE";
  case NFAPI_UL_CONFIG_UCI_CQI_HARQ_PDU_TYPE: return "NFAPI_UL_CONFIG_UCI_CQI_HARQ_PDU_TYPE";
  case NFAPI_UL_CONFIG_UCI_CQI_SR_PDU_TYPE: return "NFAPI_UL_CONFIG_UCI_CQI_SR_PDU_TYPE";
  case NFAPI_UL_CONFIG_UCI_CQI_SR_HARQ_PDU_TYPE: return "NFAPI_UL_CONFIG_UCI_CQI_SR_HARQ_PDU_TYPE";
  case NFAPI_UL_CONFIG_SRS_PDU_TYPE: return "NFAPI_UL_CONFIG_SRS_PDU_TYPE";
  case NFAPI_UL_CONFIG_HARQ_BUFFER_PDU_TYPE: return "NFAPI_UL_CONFIG_HARQ_BUFFER_PDU_TYPE";
  case NFAPI_UL_CONFIG_ULSCH_UCI_CSI_PDU_TYPE: return "NFAPI_UL_CONFIG_ULSCH_UCI_CSI_PDU_TYPE";
  case NFAPI_UL_CONFIG_ULSCH_UCI_HARQ_PDU_TYPE: return "NFAPI_UL_CONFIG_ULSCH_UCI_HARQ_PDU_TYPE";
  case NFAPI_UL_CONFIG_ULSCH_CSI_UCI_HARQ_PDU_TYPE: return "NFAPI_UL_CONFIG_ULSCH_CSI_UCI_HARQ_PDU_TYPE";
  case NFAPI_UL_CONFIG_NULSCH_PDU_TYPE: return "NFAPI_UL_CONFIG_NULSCH_PDU_TYPE";
  case NFAPI_UL_CONFIG_NRACH_PDU_TYPE: return "NFAPI_UL_CONFIG_NRACH_PDU_TYPE";
  }
  return "UNKNOWN";
}

static void dump_dl(Sched_Rsp_t *d)
{
  int i;

  C;
  A("XXXX DL  mod %d CC %d f.sf %d.%d\n",
    d->module_id, d->CC_id, d->frame, d->subframe);

      if (d->DL_req != NULL) {
        nfapi_dl_config_request_body_t *v=&d->DL_req->dl_config_request_body;
        nfapi_dl_config_request_pdu_t *p = v->dl_config_pdu_list;
  A("XXXX     DL_req sfnsf %d\n", d->DL_req->sfn_sf);
  A("XXXX     PDCCH size   %d\n", v->number_pdcch_ofdm_symbols);
  A("XXXX     DCIs         %d\n", v->number_dci);
  A("XXXX     PDUs         %d\n", v->number_pdu);
  A("XXXX     rntis        %d\n", v->number_pdsch_rnti);
  A("XXXX     pcfich power %d\n", v->transmission_power_pcfich);
        for (i = 0; i < v->number_pdu; i++) {
  A("XXXX         pdu %d\n", i);
  A("XXXX             type %d %s\n", p[i].pdu_type, DL_PDU_TYPE(p[i].pdu_type));
          switch (p[i].pdu_type) {
          case NFAPI_DL_CONFIG_DCI_DL_PDU_TYPE: {
            nfapi_dl_config_dci_dl_pdu_rel8_t *q =
                &p[i].dci_dl_pdu.dci_dl_pdu_rel8;
  A("XXXX                 dci format %d\n", q->dci_format);
  A("XXXX                 cce idx    %d\n", q->cce_idx);
  A("XXXX                 agg lvl    %d\n", q->aggregation_level);
  A("XXXX                 rnti       %d\n", q->rnti);
  A("XXXX                 rb coding  %8.8x\n", q->resource_block_coding);
  A("XXXX                 mcs_1      %d\n", q->mcs_1);
  A("XXXX                 rv_1       %d\n", q->redundancy_version_1);
  A("XXXX                 ndi_1      %d\n", q->new_data_indicator_1);
  A("XXXX                 harq pid   %d\n", q->harq_process);
  A("XXXX                 tpc        %d\n", q->tpc);
  A("XXXX                 tbs idx    %d\n", q->transport_block_size_index);
  A("XXXX                 dl pow off %d\n", q->downlink_power_offset);
  A("XXXX                 rnti type  %d\n", q->rnti_type);
  A("XXXX                 xmit pow   %d\n", q->transmission_power);
            break;
          }}
        }
      }

      if (d->UL_req != NULL) {
        nfapi_ul_config_request_body_t *v=&d->UL_req->ul_config_request_body;
  A("XXXX     UL_req sfnsf %d (%d.%d)\n", d->UL_req->sfn_sf,
    d->UL_req->sfn_sf/16, d->UL_req->sfn_sf%16);
  A("XXXX     PDUs         %d\n", v->number_of_pdus);
  A("XXXX     ra freq      %d\n", v->rach_prach_frequency_resources);
  A("XXXX     srs?         %d\n", v->srs_present);
        for (i = 0; i < v->number_of_pdus; i++) {
          nfapi_ul_config_request_pdu_t *p = &v->ul_config_pdu_list[i];
  A("XXXX         pdu %d\n", i);
  A("XXXX             type %d %s\n", p->pdu_type, UL_PDU_TYPE(p->pdu_type));
          switch(p->pdu_type) {
          case NFAPI_UL_CONFIG_UCI_HARQ_PDU_TYPE: {
            nfapi_ul_config_uci_harq_pdu *q = &p->uci_harq_pdu;
            nfapi_ul_config_harq_information_rel9_fdd_t *h =
                &q->harq_information.harq_information_rel9_fdd;
  A("XXXX                 rnti          %d\n",
    q->ue_information.ue_information_rel8.rnti);
  A("XXXX                 harq size     %d\n", h->harq_size);
  A("XXXX                 ack_nack_mode %d\n", h->ack_nack_mode);
  A("XXXX                 # pucch res   %d\n", h->number_of_pucch_resources);
  A("XXXX                 n_pucch_1_0   %d\n", h->n_pucch_1_0);
  A("XXXX                 n_pucch_1_1   %d\n", h->n_pucch_1_1);
  A("XXXX                 n_pucch_1_2   %d\n", h->n_pucch_1_2);
  A("XXXX                 n_pucch_1_3   %d\n", h->n_pucch_1_3);
            break;
          }
          case NFAPI_UL_CONFIG_UCI_SR_PDU_TYPE: {
            nfapi_ul_config_uci_sr_pdu *q = &p->uci_sr_pdu;
            nfapi_ul_config_sr_information_rel8_t *h =
                &q->sr_information.sr_information_rel8;
  A("XXXX                 rnti          %d\n",
    q->ue_information.ue_information_rel8.rnti);
  A("XXXX                 pucch_index   %d\n", h->pucch_index);
          }}
        }
      }

  LOG_I(PHY, "XXXX DL\nXXXX DL\n%s", s);
}

#undef C
#undef A

#endif /* DUMP_FAPI */

/****************************************************************************/
/* debug utility functions end                                              */
/****************************************************************************/

void UL_indication(UL_IND_t *UL_info)
{

  AssertFatal(UL_info!=NULL,"UL_INFO is null\n");

#ifdef DUMP_FAPI
  dump_ul(UL_info);
#endif

  module_id_t  module_id   = UL_info->module_id;
  int          CC_id       = UL_info->CC_id;
  Sched_Rsp_t  *sched_info = &Sched_INFO[module_id][CC_id];
  IF_Module_t  *ifi        = if_inst[module_id];
  eNB_MAC_INST *mac        = RC.mac[module_id];

  LOG_D(PHY,"UL_Indication: frame %d, subframe %d, module_id %d, CC_id %d\n",
	UL_info->frame,UL_info->subframe,
	module_id,CC_id);

  if (nfapi_pnf != 1)
  {
    if (ifi->CC_mask==0) {
      ifi->current_frame    = UL_info->frame;
      ifi->current_subframe = UL_info->subframe;
    }
    else {
      AssertFatal(UL_info->frame != ifi->current_frame,"CC_mask %x is not full and frame has changed\n",ifi->CC_mask);
      AssertFatal(UL_info->subframe != ifi->current_subframe,"CC_mask %x is not full and subframe has changed\n",ifi->CC_mask);
    }
    ifi->CC_mask |= (1<<CC_id);
  }


  // clear DL/UL info for new scheduling round
  clear_nfapi_information(RC.mac[module_id],CC_id,
			  UL_info->frame,UL_info->subframe);

  LOG_D(PHY, "UL_info[rx_ind:%d number_of_harqs:%d number_of_crcs:%d number_of_cqis:%d number_of_preambles:%d]\n", UL_info->rx_ind.rx_indication_body.number_of_pdus, UL_info->harq_ind.number_of_harqs, UL_info->crc_ind.crc_indication_body.number_of_crcs, UL_info->cqi_ind.number_of_cqis, UL_info->rach_ind.number_of_preambles);

  handle_rach(UL_info);

  handle_sr(UL_info);

  handle_cqi(UL_info);

  handle_harq(UL_info);

  // clear HI prior to handling ULSCH
  mac->HI_DCI0_req[CC_id].hi_dci0_request_body.number_of_hi                     = 0;
  
  handle_ulsch(UL_info);

  if (nfapi_pnf != 1)
  {
    if (ifi->CC_mask == ((1<<MAX_NUM_CCs)-1)) {

      eNB_dlsch_ulsch_scheduler(module_id,
          (UL_info->frame+((UL_info->subframe>5)?1:0)) % 1024,
          (UL_info->subframe+4)%10);

      ifi->CC_mask            = 0;

      sched_info->module_id   = module_id;
      sched_info->CC_id       = CC_id;
      sched_info->frame       = (UL_info->frame + ((UL_info->subframe>5) ? 1 : 0)) % 1024;
      sched_info->subframe    = (UL_info->subframe+4)%10;
      sched_info->DL_req      = &mac->DL_req[CC_id];
      sched_info->HI_DCI0_req = &mac->HI_DCI0_req[CC_id];
      if ((mac->common_channels[CC_id].tdd_Config==NULL) ||
          (is_UL_sf(&mac->common_channels[CC_id],(sched_info->subframe+4)%10)>0)) 
        sched_info->UL_req      = &mac->UL_req[CC_id];
      else
        sched_info->UL_req      = NULL;

      sched_info->TX_req      = &mac->TX_req[CC_id];

#ifdef DUMP_FAPI
      dump_dl(sched_info);
#endif

      if (ifi->schedule_response)
      {
        AssertFatal(ifi->schedule_response!=NULL,
            "schedule_response is null (mod %d, cc %d)\n",
            module_id,
            CC_id);
        ifi->schedule_response(sched_info);
      }

      LOG_D(PHY,"Schedule_response: frame %d, subframe %d (dl_pdus %d / %p)\n",sched_info->frame,sched_info->subframe,sched_info->DL_req->dl_config_request_body.number_pdu,
          &sched_info->DL_req->dl_config_request_body.number_pdu);
    }						 
  }
}

IF_Module_t *IF_Module_init(int Mod_id){

  AssertFatal(Mod_id<MAX_MODULES,"Asking for Module %d > %d\n",Mod_id,MAX_IF_MODULES);

  LOG_D(PHY,"Installing callbacks for IF_Module - UL_indication\n");

  if (if_inst[Mod_id]==NULL) {
    if_inst[Mod_id] = (IF_Module_t*)malloc(sizeof(IF_Module_t));
    memset((void*)if_inst[Mod_id],0,sizeof(IF_Module_t));

    if_inst[Mod_id]->CC_mask=0;
    if_inst[Mod_id]->UL_indication = UL_indication;

    AssertFatal(pthread_mutex_init(&if_inst[Mod_id]->if_mutex,NULL)==0,
        "allocation of if_inst[%d]->if_mutex fails\n",Mod_id);
  }
  return if_inst[Mod_id];
}

void IF_Module_kill(int Mod_id) {

  AssertFatal(Mod_id>MAX_MODULES,"Asking for Module %d > %d\n",Mod_id,MAX_IF_MODULES);
  if (if_inst[Mod_id]!=NULL) free(if_inst[Mod_id]);

}