/* This file is part of MAUS: http://micewww.pp.rl.ac.uk:8080/projects/maus
 *
 * MAUS 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.
 *
 * MAUS 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 MAUS.  If not, see <http://www.gnu.org/licenses/>.
 *
 */

#include "src/input/InputCppDAQData/InputCppDAQData.hh"
#include "src/common_cpp/Utils/CppErrorHandler.hh"
#include "src/common_cpp/JsonCppProcessors/SpillProcessor.hh"
#include "src/common_cpp/Converter/DataConverters/CppJsonSpillConverter.hh"
#include "src/common_cpp/Converter/DataConverters/JsonCppSpillConverter.hh"
#include "Utils/Exception.hh"
#include "src/common_cpp/API/PyWrapInputBase.hh"

namespace MAUS {
PyMODINIT_FUNC init_InputCppDAQData(void) {
    PyWrapInputBase<MAUS::InputCppDAQData>::PyWrapInputBaseModInit(
                  "InputCppDAQData", "", "", "", "");
}

InputCppDAQData::InputCppDAQData() : InputBase<std::string>("InputCppDAQData") {
  _eventPtr = NULL;
  _eventsCount = 0;

  _v1290PartEventProc_cpp  = NULL;
  _v1724PartEventProc_cpp  = NULL;
  _v1731PartEventProc_cpp  = NULL;
  _v830FragmentProc_cpp    = NULL;
  _vLSBFragmentProc_cpp   = NULL;
  _DBBFragmentProc_cpp     = NULL;
  _DBBChainFragmentProc_cpp = NULL;
}


void InputCppDAQData::_childbirth(const std::string& jsonDataCards) {
  if ( _dataFileManager.GetNFiles() ) {
     throw(MAUS::Exception(Exception::recoverable, "STRING", "InputCppDAQData::_childbirth"));
  }

  //  JsonCpp setup
  Json::Value configJSON;   //  this will contain the configuration
  Json::Reader reader;

  // Check if the JSON document can be parsed, else return error only
  bool parsingSuccessful = reader.parse(jsonDataCards, configJSON);
  if (!parsingSuccessful) {
    throw(MAUS::Exception(Exception::recoverable, "STRING", "InputCppDAQData::_childbirth"));
  }

  // Comfigure the V830 (scaler) data processor.
  initProcessor(_v830FragmentProc_cpp, configJSON);

  // Comfigure the V1290 (TDC) data processor.
  initProcessor(_v1290PartEventProc_cpp,  configJSON);

  // Comfigure the V1724 (TOF and KL fADC) data processor.
  initProcessor(_v1724PartEventProc_cpp, configJSON);
  configureZeroSupression(_v1724PartEventProc_cpp, configJSON);

  // Comfigure the V1731 (CKOV and EMR fADC) data processor.
  initProcessor(_v1731PartEventProc_cpp, configJSON);
  configureZeroSupression(_v1731PartEventProc_cpp, configJSON);

  // Comfigure the VLSB (tracker board) data processor.
  initProcessor(_vLSBFragmentProc_cpp, configJSON);
  configureZeroSupression(_vLSBFragmentProc_cpp, configJSON);

  // Comfigure the DBB (EMR board) data processor.
  initProcessor(_DBBFragmentProc_cpp, configJSON);

  // Comfigure the DBB Chain (chain of 6 EMR boards) data processor.
  initProcessor(_DBBChainFragmentProc_cpp, configJSON);


  assert(configJSON.isMember("DAQ_cabling_file"));
  std::string map_file_name = configJSON["DAQ_cabling_file"].asString();
  char* pMAUS_ROOT_DIR = getenv("MAUS_ROOT_DIR");
  if (!pMAUS_ROOT_DIR) {
    Squeak::mout(Squeak::error) << "Could not find the $MAUS_ROOT_DIR environmental variable."
    << std::endl;
    Squeak::mout(Squeak::error) << "Did you try running: source env.sh ?" << std::endl;
    throw(MAUS::Exception(Exception::recoverable, "STRING", "InputCppDAQData::_childbirth"));
  }

  // Initialize the map by using text file.
  bool loaded = _map.InitFromFile(std::string(pMAUS_ROOT_DIR) + map_file_name);
  if (!loaded) {
    throw(MAUS::Exception(Exception::recoverable, "STRING", "InputCppDAQData::_childbirth"));
  }

  // Set the map (a static data member) of all the processors.
  MDarranger::set_DAQ_map(&_map);
}

bool InputCppDAQData::readNextEvent() {

  Squeak::mout(Squeak::error)
  << "ERROR : InputCppDAQData is a base imput class and can not be used to access the DAQ data!"
  << std::endl << "*** Use InputCppDAQOfflineData or InputCppDAQOnlineData instead. ***"
  << std::endl << std::endl;

  return false;
}

void InputCppDAQData::getCurEvent(MAUS::Data *data) {
  MAUS::Spill* spill = data->GetSpill();
  try {
    // Do the loop over the binary DAQ data.
    _dataProcessManager.Process(_eventPtr);
    // The data is now processed and is ready to be filled.
    unsigned int event_type = _dataProcessManager.GetEventType();
    spill->SetDaqEventType(event_type_to_str(event_type));
    spill->SetRunNumber(_dataProcessManager.GetRunNumber());
    spill->SetSpillNumber(_dataProcessManager.GetSpillNumber());

    if (event_type == PHYSICS_EVENT) {
      // Create a new DAQData object.
      MAUS::DAQData *daq_data = new MAUS::DAQData;
      // Set the DAQData object (a static data member) of all the processors.
      MDarranger::set_daq_data(daq_data);

      // Now fill the DAQData object with the data processed by all the processors.
      if (_DBBFragmentProc_cpp)
        _DBBFragmentProc_cpp->fill_daq_data();

      if (_DBBChainFragmentProc_cpp)
        _DBBChainFragmentProc_cpp->fill_daq_data();

      if (_v1731PartEventProc_cpp)
        _v1731PartEventProc_cpp->fill_daq_data();

      if (_v1724PartEventProc_cpp)
        _v1724PartEventProc_cpp->fill_daq_data();

      if (_v1290PartEventProc_cpp)
        _v1290PartEventProc_cpp->fill_daq_data();

      if (_v830FragmentProc_cpp)
        _v830FragmentProc_cpp->fill_daq_data();

      if (_vLSBFragmentProc_cpp)
        _vLSBFragmentProc_cpp->fill_daq_data();

      // Set the DAQData object of the spill.
      spill->SetDAQData(daq_data);
    }
  }
  // Deal with exceptions
  catch (MDexception & lExc) {
    Squeak::mout(Squeak::error) << lExc.GetDescription() << std::endl
    << "*** Unpacking exception in void  "
    << "InputCppDAQData::getCurEvent(MAUS::Data *data) : " << std::endl;
    Squeak::mout(Squeak::error) <<"DAQ Event skipped!" << std::endl << std::endl;

    std::stringstream ss;
    ss << _classname << " says:" << lExc.GetDescription() << "  Phys. Event " << std::endl
    << _dataProcessManager.GetPhysEventNumber() << " skipped!";
    MAUS::ErrorsMap errors = spill->GetErrors();
    errors["bad_data_input"] = ss.str();
    spill->SetErrors(errors);
  }
  catch (Exception exc) {
    Squeak::mout(Squeak::error) << exc.GetLocation() << ": "
    << exc.GetMessage() << std::endl
    << "*** MAUS exception in void  "
    << "InputCppDAQData::getCurEvent(MAUS::Data *data) : " << std::endl;
    Squeak::mout(Squeak::error) <<"DAQ Event skipped!" << std::endl << std::endl;

    std::stringstream ss;
    ss << exc.GetLocation() << " says:" << exc.GetMessage() << "  Phys. Event " << std::endl
    << _dataProcessManager.GetPhysEventNumber() << " skipped!";
    MAUS::ErrorsMap errors = spill->GetErrors();
    errors["bad_data_input"] = ss.str();
    spill->SetErrors(errors);
  }
  catch (std::exception & lExc) {
    Squeak::mout(Squeak::error) << lExc.what() << std::endl
    << "*** Standard exception in "
    << "void InputCppDAQData::getCurEvent(MAUS::Data *data) : " << std::endl;
    Squeak::mout(Squeak::error) <<"DAQ Event skipped!" << std::endl << std::endl;

    std::stringstream ss;
    ss << _classname << " says:" << lExc.what() << " Phys. Event "
    << _dataProcessManager.GetPhysEventNumber() << " skipped!";
    MAUS::ErrorsMap errors = spill->GetErrors();
    errors["bad_data_input"] = ss.str();
    spill->SetErrors(errors);
  }
  catch (...) {
    Squeak::mout(Squeak::error) << "*** void InputCppDAQData::getCurEvent(MAUS::Data *data) : "
    << "Unknown exception occurred." << std::endl;
    Squeak::mout(Squeak::error) << "DAQ Event skipped!" << std::endl << std::endl;

    std::stringstream ss;
    ss << _classname << " says: Unknown exception occurred. Phys. Event "
    << _dataProcessManager.GetPhysEventNumber() << " skipped!";
    MAUS::ErrorsMap errors = spill->GetErrors();
    errors["bad_data_input"] = ss.str();
    spill->SetErrors(errors);
  }
  this->resetAllProcessors();
}

std::string InputCppDAQData::getCurEvent() {

  MAUS::Data  *data_cpp  = new MAUS::Data;
  MAUS::Spill *spill_cpp = new MAUS::Spill;
  data_cpp->SetSpill(spill_cpp);
  this->getCurEvent(data_cpp);

  Json::Value* spill_json_out = MAUS::CppJsonSpillConverter().convert(data_cpp);
//   std::cerr << *spill_json_out << std::endl;
  _eventsCount++;

  Json::FastWriter xJSONWr;
  std::string output = xJSONWr.write(*spill_json_out);

  delete spill_json_out;
  delete data_cpp;

  return output;
}

void InputCppDAQData::_death() {
  // Free the memory.
  if (_v1290PartEventProc_cpp)    delete _v1290PartEventProc_cpp;
  if (_v1724PartEventProc_cpp)    delete _v1724PartEventProc_cpp;
  if (_v1731PartEventProc_cpp)    delete _v1731PartEventProc_cpp;
  if (_v830FragmentProc_cpp)      delete _v830FragmentProc_cpp;
  if (_vLSBFragmentProc_cpp)     delete _vLSBFragmentProc_cpp;
  if (_DBBFragmentProc_cpp)       delete _DBBFragmentProc_cpp;
  if (_DBBChainFragmentProc_cpp)  delete _DBBChainFragmentProc_cpp;
}

void InputCppDAQData::resetAllProcessors() {
  // Reset all the processors.
  if (_v1290PartEventProc_cpp)     _v1290PartEventProc_cpp->reset();
  if (_v1724PartEventProc_cpp)     _v1724PartEventProc_cpp->reset();
  if (_v1731PartEventProc_cpp)     _v1731PartEventProc_cpp->reset();
  if (_v830FragmentProc_cpp)       _v830FragmentProc_cpp->reset();
  if (_vLSBFragmentProc_cpp)       _vLSBFragmentProc_cpp->reset();
  if (_DBBFragmentProc_cpp)        _DBBFragmentProc_cpp->reset();
  if (_DBBChainFragmentProc_cpp)   _DBBChainFragmentProc_cpp->reset();
}

template <class procType>
bool InputCppDAQData::initProcessor(procType* &processor, Json::Value configJSON) {
  processor = new procType();
  string xName, xDataCard;
  xName = processor->get_equipment_name();
  xDataCard = "Enable_" + xName + "_Unpacking";

  // Enable or disable this equipment.
  assert(configJSON.isMember(xDataCard));
  bool enableThis = configJSON[xDataCard].asBool();

  if (enableThis) {
    // Get a pointer to the equipment fragment object from the static equipment map.
    unsigned int xFragType = MDequipMap::GetType(xName);
    MDfragment* xFragPtr = MDequipMap::GetFragmentPtr(xFragType);

    // Check is the data from this equipment is made of particle events.
    try {
      if (xFragPtr->IsMadeOfParticles()) {
        // Set a processor for particle events.
        _dataProcessManager.SetPartEventProc(xName, processor);
      } else {
        // Set a processor for the entire equipment fragment
        _dataProcessManager.SetFragmentProc(xName, processor);
      }
    }
    // Deal with exceptions
    catch (MDexception & lExc) {
      Squeak::mout(Squeak::error) << lExc.GetDescription() << std::endl
      << "*** Unpacking exception in InputCppDAQData::initProcessor() : " << endl;
    }
    return true;
  } else {
    this->disableEquipment(xName);
    return false;
  }
}

void InputCppDAQData::configureZeroSupression(ZeroSupressionFilter* processor,
                                              Json::Value configJSON) {
  string xName, xDataCard;
  xName = processor->get_equipment_name();
  xDataCard = "Do_" + xName + "_Zero_Suppression";

  // Enable or disable zero supression.
  assert(configJSON.isMember(xDataCard));
  bool zs = configJSON[xDataCard].asBool();
  processor->set_zero_supression(zs);

  if (zs) {
    xDataCard = xName + "_Zero_Suppression_Threshold";
    assert(configJSON.isMember(xDataCard));
    int zs_threshold = configJSON[xDataCard].asInt();
    processor->set_zs_threshold(zs_threshold);
  }
}

std::string InputCppDAQData::event_type_to_str(int pType) {
  std::string event_type;
  switch (pType) {
    case START_OF_BURST :
      event_type = "start_of_burst";
      break;

    case  END_OF_BURST:
      event_type = "end_of_burst";
      break;

    case PHYSICS_EVENT :
      event_type = "physics_event";
      break;

    case CALIBRATION_EVENT :
      event_type = "calibration_event";
      break;

    case START_OF_RUN :
      event_type = "start_of_run";
      break;

    case  END_OF_RUN:
      event_type = "end_of_run";
      break;

    default :
      std::stringstream xConv;
      xConv << pType << "unknown";
      event_type = xConv.str();
      break;
  }
  return event_type;
}
}