//
// Copyright 2010 Ettus Research LLC
//
// This program 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 of the License, or
// (at your option) any later version.
//
// This program 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, see <http://www.gnu.org/licenses/>.
//

#include "usrp1_impl.hpp"
#include "fpga_regs_standard.h"
#include "../dsp_utils.hpp"
#include <uhd/usrp/dsp_props.hpp>
#include <boost/bind.hpp>
#include <iostream>
#include <cstdio>

using namespace uhd;
using namespace uhd::usrp;

/***********************************************************************
 * RX DDC Initialization
 **********************************************************************/
void usrp1_impl::rx_ddc_init(void)
{
    _rx_ddc_proxy = wax_obj_proxy::make(
        boost::bind(&usrp1_impl::rx_ddc_get, this, _1, _2),
        boost::bind(&usrp1_impl::rx_ddc_set, this, _1, _2));

    rx_ddc_set(DSP_PROP_HOST_RATE, double(64e6/10));
}

/***********************************************************************
 * RX DDC Get
 **********************************************************************/
void usrp1_impl::rx_ddc_get(const wax::obj &key, wax::obj &val)
{
    switch(key.as<dsp_prop_t>()){
    case DSP_PROP_NAME:
        val = std::string("usrp1 ddc0");
        return;

    case DSP_PROP_OTHERS:
        val = prop_names_t();
        return;

    case DSP_PROP_FREQ_SHIFT:
        val = _ddc_freq;
        return;

    case DSP_PROP_CODEC_RATE:
        val = _clock_ctrl->get_master_clock_freq();
        return;

    case DSP_PROP_HOST_RATE:
        val = _clock_ctrl->get_master_clock_freq()/_ddc_decim;
        return;

    default: UHD_THROW_PROP_GET_ERROR();
    }

}

/***********************************************************************
 * RX DDC Set
 **********************************************************************/
unsigned int compute_freq_word(double master, double target)
{
    static const int NBITS = 14;
    int   v = (int) rint (target / master * pow(2.0, 32.0));
 
    if (0)
      v = (v >> (32 - NBITS)) << (32 - NBITS);    // keep only top NBITS
 
    double actual_freq = v * master / pow(2.0, 32.0);
 
    if (0)
      fprintf (stderr,
               "compute_freq_control_word_fpga: target = %g  actual = %g  delta = %g\n",
               target, actual_freq, actual_freq - target);
 
    return (unsigned int) v;
}

void usrp1_impl::rx_ddc_set(const wax::obj &key, const wax::obj &val)
{
    switch(key.as<dsp_prop_t>()) {
    case DSP_PROP_FREQ_SHIFT: {
            double new_freq = val.as<double>();
            _iface->poke32(FR_RX_FREQ_0, compute_freq_word(64e6, new_freq));
            _ddc_freq = new_freq;
            return;
        }
    case DSP_PROP_HOST_RATE: {
            //FIXME: Stop and resume streaming during set?
            unsigned int rate =
                    _clock_ctrl->get_master_clock_freq() / val.as<double>();

            if ((rate & 0x01) || (rate < 4) || (rate > 256)) {
                std::cerr << "Decimation must be even and between 4 and 256"
                          << std::endl;
                return;
            }

            _ddc_decim = rate;
            _iface->poke32(FR_DECIM_RATE, _ddc_decim/2 - 1);
        }
        return;

    default: UHD_THROW_PROP_SET_ERROR();
    }

}

/***********************************************************************
 * TX DUC Initialization
 **********************************************************************/
void usrp1_impl::tx_duc_init(void)
{
    _tx_duc_proxy = wax_obj_proxy::make(
                          boost::bind(&usrp1_impl::tx_duc_get, this, _1, _2),
                          boost::bind(&usrp1_impl::tx_duc_set, this, _1, _2));

    //initial config and update
    tx_duc_set(DSP_PROP_HOST_RATE, double(64e6/10));
}

/***********************************************************************
 * TX DUC Get
 **********************************************************************/
void usrp1_impl::tx_duc_get(const wax::obj &key, wax::obj &val)
{
    switch(key.as<dsp_prop_t>()) {
    case DSP_PROP_NAME:
        val = std::string("usrp1 duc0");
        return;

    case DSP_PROP_OTHERS:
        val = prop_names_t(); //empty
        return;

    case DSP_PROP_FREQ_SHIFT:
        val = _duc_freq;
        return;

    case DSP_PROP_CODEC_RATE:
        val = MASTER_CLOCK_RATE;
        return;

    case DSP_PROP_HOST_RATE:
        val = _clock_ctrl->get_master_clock_freq() * 2 / _duc_interp;
        return;

    default: UHD_THROW_PROP_GET_ERROR();
    }

}

/***********************************************************************
 * TX DUC Set
 **********************************************************************/
void usrp1_impl::tx_duc_set(const wax::obj &key, const wax::obj &val)
{
    switch(key.as<dsp_prop_t>()) {

    case DSP_PROP_FREQ_SHIFT: {
            double new_freq = val.as<double>();
            _codec_ctrl->set_duc_freq(new_freq);
            _duc_freq = new_freq;
            return;
        }
    case DSP_PROP_HOST_RATE: {
            unsigned int rate =
                    _clock_ctrl->get_master_clock_freq() * 2 / val.as<double>();

            if ((rate & 0x01) || (rate < 8) || (rate > 512)) {
                std::cerr << "Interpolation rate must be even and between 8 and 512"
                          << std::endl;
                return;
            }

            _duc_interp = rate;
            _iface->poke32(FR_INTERP_RATE, _duc_interp / 4 - 1);
            return;
        }
    default: UHD_THROW_PROP_SET_ERROR();
    }

}