/* -*- c++ -*- */
/*
 * Copyright 2007 Free Software Foundation, Inc.
 * 
 * This file is part of GNU Radio
 * 
 * GNU Radio is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 3, or (at your option)
 * any later version.
 * 
 * GNU Radio is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 */

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <mb_mblock.h>
#include <mb_runtime.h>
#include <mb_protocol_class.h>
#include <mb_exception.h>
#include <mb_msg_queue.h>
#include <mb_message.h>
#include <mb_msg_accepter.h>
#include <mb_class_registry.h>
#include <pmt.h>
#include <stdio.h>
#include <string.h>
#include <iostream>
#include <fstream>

// Include the symbols needed for communication with USRP server
#include <symbols_usrp_server_cs.h>
#include <symbols_usrp_channel.h>
#include <symbols_usrp_low_level_cs.h>
#include <symbols_usrp_rx.h>

static bool verbose = true;

class test_usrp_rx : public mb_mblock
{
  mb_port_sptr 	d_rx;
  mb_port_sptr 	d_cs;
  pmt_t		d_rx_chan;	// returned tx channel handle

  enum state_t {
    INIT,
    OPENING_USRP,
    ALLOCATING_CHANNEL,
    RECEIVING,
    CLOSING_CHANNEL,
    CLOSING_USRP,
  };

  state_t	d_state;

  std::ofstream d_ofile;

  long d_n_overruns;

  long d_samples_recvd;
  long d_samples_to_recv;

 public:
  test_usrp_rx(mb_runtime *runtime, const std::string &instance_name, pmt_t user_arg);
  ~test_usrp_rx();
  void initial_transition();
  void handle_message(mb_message_sptr msg);

 protected:
  void open_usrp();
  void close_usrp();
  void allocate_channel();
  void send_packets();
  void enter_receiving();
  void build_and_send_next_frame();
  void handle_response_recv_raw_samples(pmt_t invocation_handle);
  void enter_closing_channel();
};

test_usrp_rx::test_usrp_rx(mb_runtime *runtime, const std::string &instance_name, pmt_t user_arg)
  : mb_mblock(runtime, instance_name, user_arg),
    d_n_overruns(0),
    d_samples_recvd(0),
    d_samples_to_recv(10e6)
{ 
  
  d_rx = define_port("rx0", "usrp-rx", false, mb_port::INTERNAL);
  d_cs = define_port("cs", "usrp-server-cs", false, mb_port::INTERNAL);
  
  // Pass a dictionary to usrp_server which specifies which interface to use, the stub or USRP
  pmt_t usrp_dict = pmt_make_dict();

  // Specify the RBF to use
  pmt_dict_set(usrp_dict,
               pmt_intern("rbf"),
               pmt_intern("nanocell9.rbf"));

  pmt_dict_set(usrp_dict,
               pmt_intern("decim-rx"),
               pmt_from_long(128));

  define_component("server", "usrp_server", usrp_dict);

  connect("self", "rx0", "server", "rx0");
  connect("self", "cs", "server", "cs");

}

test_usrp_rx::~test_usrp_rx()
{
}

void
test_usrp_rx::initial_transition()
{
  open_usrp();
}

void
test_usrp_rx::handle_message(mb_message_sptr msg)
{
  pmt_t	event = msg->signal();
  pmt_t data = msg->data();

  pmt_t handle = PMT_F;
  pmt_t status = PMT_F;
  std::string error_msg;
  
  switch(d_state){
    
    //----------------------------- OPENING_USRP ----------------------------//
    // We only expect a response from opening the USRP which should be succesful
    // or failed.
    case OPENING_USRP:
      if (pmt_eq(event, s_response_open)){
        status = pmt_nth(1, data);
        if (pmt_eq(status, PMT_T)){
          allocate_channel();
          return;
        }
        else {
          error_msg = "failed to open usrp:";
          goto bail;
        }
      }
      goto unhandled;
      
    //----------------------- ALLOCATING CHANNELS --------------------//
    // Allocate an RX channel to perform the overrun test.
    case ALLOCATING_CHANNEL:
      if (pmt_eq(event, s_response_allocate_channel)){
        status = pmt_nth(1, data);
        d_rx_chan = pmt_nth(2, data);

        if (pmt_eq(status, PMT_T)){
          enter_receiving();
          return;
        }
        else {
          error_msg = "failed to allocate channel:";
          goto bail;
        }
      }
      goto unhandled;

    //--------------------------- RECEIVING ------------------------------//
    // In the receiving state, we receive samples until the specified amount
    // while counting the number of overruns.
    case RECEIVING:
      if (pmt_eq(event, s_response_recv_raw_samples)){
        status = pmt_nth(1, data);

        if (pmt_eq(status, PMT_T)){
          handle_response_recv_raw_samples(data);
          return;
        }
        else {
          error_msg = "bad response-xmit-raw-frame:";
          goto bail;
        }
      }
      goto unhandled;
    
    //------------------------- CLOSING CHANNEL ----------------------------//
    // Check deallocation response for the RX channel 
    case CLOSING_CHANNEL:
      if (pmt_eq(event, s_response_deallocate_channel)){
        status = pmt_nth(1, data);

        if (pmt_eq(status, PMT_T)){
          close_usrp();
          return;
        }
        else {
          error_msg = "failed to deallocate channel:";
          goto bail;
        }
      }

      // Alternately, we ignore all response recv samples while waiting for the
      // channel to actually close
      if (pmt_eq(event, s_response_recv_raw_samples))
        return;

      goto unhandled;

    //--------------------------- CLOSING USRP ------------------------------//
    // Once we have received a successful USRP close response, we shutdown all
    // mblocks and exit.
    case CLOSING_USRP:
      if (pmt_eq(event, s_response_close)){
        status = pmt_nth(1, data);

        if (pmt_eq(status, PMT_T)){
          std::cout << "\nOverruns: " << d_n_overruns << std::endl;
          fflush(stdout);
          shutdown_all(PMT_T);
          return;
        }
        else {
          error_msg = "failed to close USRP:";
          goto bail;
        }
      }
      goto unhandled;

    default:
      goto unhandled;
  }
  return;

 // An error occured, print it, and shutdown all m-blocks
 bail:
  std::cerr << error_msg << data
	    << "status = " << status << std::endl;
  shutdown_all(PMT_F);
  return;

 // Received an unhandled message for a specific state
 unhandled:
  if(verbose && !pmt_eq(event, pmt_intern("%shutdown")))
    std::cout << "test_usrp_inband_tx: unhandled msg: " << msg
              << "in state "<< d_state << std::endl;
}


void
test_usrp_rx::open_usrp()
{
  pmt_t which_usrp = pmt_from_long(0);

  d_cs->send(s_cmd_open, pmt_list2(PMT_NIL, which_usrp));
  d_state = OPENING_USRP;
  
  if(verbose)
    std::cout << "[TEST_USRP_INBAND_OVERRUN] Opening the USRP\n";
}

void
test_usrp_rx::close_usrp()
{
  d_cs->send(s_cmd_close, pmt_list1(PMT_NIL));
  d_state = CLOSING_USRP;
  
  if(verbose)
    std::cout << "[TEST_USRP_INBAND_OVERRUN] Closing the USRP\n";
}

void
test_usrp_rx::allocate_channel()
{
  long capacity = (long) 16e6;
  d_rx->send(s_cmd_allocate_channel, pmt_list2(PMT_T, pmt_from_long(capacity)));
  d_state = ALLOCATING_CHANNEL;
  
  if(verbose)
    std::cout << "[TEST_USRP_INBAND_OVERRUN] Requesting RX channel allocation\n";
}

void
test_usrp_rx::enter_receiving()
{
  d_state = RECEIVING;

  d_rx->send(s_cmd_start_recv_raw_samples,
             pmt_list2(PMT_F,
                       d_rx_chan));

  if(verbose)
    std::cout << "[TEST_USRP_INBAND_OVERRUN] Receiving...\n";
}

void
test_usrp_rx::handle_response_recv_raw_samples(pmt_t data)
{
  pmt_t invocation_handle = pmt_nth(0, data);
  pmt_t status = pmt_nth(1, data);
  pmt_t v_samples = pmt_nth(2, data);
  pmt_t timestamp = pmt_nth(3, data);
  pmt_t properties = pmt_nth(4, data);

  d_samples_recvd += pmt_length(v_samples) / 4;

  // Check for overrun
  if(!pmt_is_dict(properties)) {
    std::cout << "[TEST_USRP_INBAND_OVERRUN] Recv samples dictionary is improper\n";
    return;
  }

  if(pmt_t overrun = pmt_dict_ref(properties, 
                                  pmt_intern("overrun"), 
                                  PMT_NIL)) {
    if(pmt_eqv(overrun, PMT_T)) {
      d_n_overruns++;

      if(verbose && 0)
        std::cout << "[TEST_USRP_INBAND_OVERRUN] Underrun\n";
    }
    else {
    if(verbose && 0)
      std::cout << "[TEST_USRP_INBAND_OVERRUN] No overrun\n" << overrun <<std::endl;
    }
  } else {

    if(verbose && 0)
      std::cout << "[TEST_USRP_INBAND_OVERRUN] No overrun\n";
  }

  // Check if the number samples we have received meets the test
  if(d_samples_recvd >= d_samples_to_recv) {
    d_rx->send(s_cmd_stop_recv_raw_samples, pmt_list2(PMT_NIL, d_rx_chan));
    enter_closing_channel();
    return;
  }

}

void
test_usrp_rx::enter_closing_channel()
{
  d_state = CLOSING_CHANNEL;
  
  sleep(2);
  
  d_rx->send(s_cmd_deallocate_channel, pmt_list2(PMT_NIL, d_rx_chan));
  
  if(verbose)
    std::cout << "[TEST_USRP_INBAND_OVERRUN] Deallocating RX channel\n";
}

REGISTER_MBLOCK_CLASS(test_usrp_rx);


// ----------------------------------------------------------------

int
main (int argc, char **argv)
{
  // handle any command line args here

  mb_runtime_sptr rt = mb_make_runtime();
  pmt_t result = PMT_NIL;

  rt->run("top", "test_usrp_rx", PMT_F, &result);
}