/********************************************************************************
 *    Copyright (C) 2014 GSI Helmholtzzentrum fuer Schwerionenforschung GmbH    *
 *                                                                              *
 *              This software is distributed under the terms of the             * 
 *         GNU Lesser General Public Licence version 3 (LGPL) version 3,        *  
 *                  copied verbatim in the file "LICENSE"                       *
 ********************************************************************************/
/**
 * FairMQDevice.cxx
 *
 * @since 2012-10-25
 * @author D. Klein, A. Rybalchenko
 */

#include <boost/thread.hpp>

#include "FairMQSocket.h"
#include "FairMQDevice.h"
#include "FairMQLogger.h"

FairMQDevice::FairMQDevice()
    : fNumIoThreads(1)
    , fNumInputs(0)
    , fNumOutputs(0)
    , fPayloadInputs(new vector<FairMQSocket*>())
    , fPayloadOutputs(new vector<FairMQSocket*>())
    , fLogIntervalInMs(1000)
    , fTransportFactory(NULL)
{
}

void FairMQDevice::Init()
{
    LOG(INFO) << ">>>>>>> Init <<<<<<<";
    LOG(INFO) << "numIoThreads: " << fNumIoThreads;

    for (int i = 0; i < fNumInputs; ++i)
    {
        fInputAddress.push_back("ipc://default"); // default value, can be overwritten in configuration
        fInputMethod.push_back("connect"); // default value, can be overwritten in configuration
        fInputSocketType.push_back("sub"); // default value, can be overwritten in configuration
        fInputSndBufSize.push_back(10000); // default value, can be overwritten in configuration
        fInputRcvBufSize.push_back(10000); // default value, can be overwritten in configuration
    }

    for (int i = 0; i < fNumOutputs; ++i)
    {
        fOutputAddress.push_back("ipc://default"); // default value, can be overwritten in configuration
        fOutputMethod.push_back("bind");    // default value, can be overwritten in configuration
        fOutputSocketType.push_back("pub"); // default value, can be overwritten in configuration
        fOutputSndBufSize.push_back(10000); // default value, can be overwritten in configuration
        fOutputRcvBufSize.push_back(10000); // default value, can be overwritten in configuration
    }
}

void FairMQDevice::InitInput()
{
    LOG(INFO) << ">>>>>>> InitInput <<<<<<<";

    for (int i = 0; i < fNumInputs; ++i)
    {
        FairMQSocket* socket = fTransportFactory->CreateSocket(fInputSocketType.at(i), i, fNumIoThreads);

        socket->SetOption("snd-hwm", &fInputSndBufSize.at(i), sizeof(fInputSndBufSize.at(i)));
        socket->SetOption("rcv-hwm", &fInputRcvBufSize.at(i), sizeof(fInputRcvBufSize.at(i)));

        fPayloadInputs->push_back(socket);

        try
        {
            if (fInputMethod.at(i) == "bind")
            {
                fPayloadInputs->at(i)->Bind(fInputAddress.at(i));
            }
            else
            {
                fPayloadInputs->at(i)->Connect(fInputAddress.at(i));
            }
        }
        catch (std::out_of_range& e)
        {
            LOG(ERROR) << e.what();
        }
    }
}

void FairMQDevice::InitOutput()
{
    LOG(INFO) << ">>>>>>> InitOutput <<<<<<<";

    for (int i = 0; i < fNumOutputs; ++i)
    {
        FairMQSocket* socket = fTransportFactory->CreateSocket(fOutputSocketType.at(i), i, fNumIoThreads);

        socket->SetOption("snd-hwm", &fOutputSndBufSize.at(i), sizeof(fOutputSndBufSize.at(i)));
        socket->SetOption("rcv-hwm", &fOutputRcvBufSize.at(i), sizeof(fOutputRcvBufSize.at(i)));

        fPayloadOutputs->push_back(socket);

        try
        {
            if (fOutputMethod.at(i) == "bind")
            {
                fPayloadOutputs->at(i)->Bind(fOutputAddress.at(i));
            }
            else
            {
                fPayloadOutputs->at(i)->Connect(fOutputAddress.at(i));
            }
        }
        catch (std::out_of_range& e)
        {
            LOG(ERROR) << e.what();
        }
    }
}

void FairMQDevice::Run()
{
}

void FairMQDevice::Pause()
{
}

// Method for setting properties represented as a string.
void FairMQDevice::SetProperty(const int key, const string& value, const int slot /*= 0*/)
{
    switch (key)
    {
        case Id:
            fId = value;
            break;
        case InputAddress:
            fInputAddress.erase(fInputAddress.begin() + slot);
            fInputAddress.insert(fInputAddress.begin() + slot, value);
            break;
        case OutputAddress:
            fOutputAddress.erase(fOutputAddress.begin() + slot);
            fOutputAddress.insert(fOutputAddress.begin() + slot, value);
            break;
        case InputMethod:
            fInputMethod.erase(fInputMethod.begin() + slot);
            fInputMethod.insert(fInputMethod.begin() + slot, value);
            break;
        case OutputMethod:
            fOutputMethod.erase(fOutputMethod.begin() + slot);
            fOutputMethod.insert(fOutputMethod.begin() + slot, value);
            break;
        case InputSocketType:
            fInputSocketType.erase(fInputSocketType.begin() + slot);
            fInputSocketType.insert(fInputSocketType.begin() + slot, value);
            break;
        case OutputSocketType:
            fOutputSocketType.erase(fOutputSocketType.begin() + slot);
            fOutputSocketType.insert(fOutputSocketType.begin() + slot, value);
            break;
        default:
            FairMQConfigurable::SetProperty(key, value, slot);
            break;
    }
}

// Method for setting properties represented as an integer.
void FairMQDevice::SetProperty(const int key, const int value, const int slot /*= 0*/)
{
    switch (key)
    {
        case NumIoThreads:
            fNumIoThreads = value;
            break;
        case NumInputs:
            fNumInputs = value;
            break;
        case NumOutputs:
            fNumOutputs = value;
            break;
        case LogIntervalInMs:
            fLogIntervalInMs = value;
            break;
        case InputSndBufSize:
            fInputSndBufSize.erase(fInputSndBufSize.begin() + slot);
            fInputSndBufSize.insert(fInputSndBufSize.begin() + slot, value);
            break;
        case InputRcvBufSize:
            fInputRcvBufSize.erase(fInputRcvBufSize.begin() + slot);
            fInputRcvBufSize.insert(fInputRcvBufSize.begin() + slot, value);
            break;
        case OutputSndBufSize:
            fOutputSndBufSize.erase(fOutputSndBufSize.begin() + slot);
            fOutputSndBufSize.insert(fOutputSndBufSize.begin() + slot, value);
            break;
        case OutputRcvBufSize:
            fOutputRcvBufSize.erase(fOutputRcvBufSize.begin() + slot);
            fOutputRcvBufSize.insert(fOutputRcvBufSize.begin() + slot, value);
            break;
        default:
            FairMQConfigurable::SetProperty(key, value, slot);
            break;
    }
}

// Method for getting properties represented as an string.
string FairMQDevice::GetProperty(const int key, const string& default_ /*= ""*/, const int slot /*= 0*/)
{
    switch (key)
    {
        case Id:
            return fId;
        case InputAddress:
            return fInputAddress.at(slot);
        case OutputAddress:
            return fOutputAddress.at(slot);
        case InputMethod:
            return fInputMethod.at(slot);
        case OutputMethod:
            return fOutputMethod.at(slot);
        case InputSocketType:
            return fInputSocketType.at(slot);
        case OutputSocketType:
            return fOutputSocketType.at(slot);
        default:
            return FairMQConfigurable::GetProperty(key, default_, slot);
    }
}

// Method for getting properties represented as an integer.
int FairMQDevice::GetProperty(const int key, const int default_ /*= 0*/, const int slot /*= 0*/)
{
    switch (key)
    {
        case NumIoThreads:
            return fNumIoThreads;
        case LogIntervalInMs:
            return fLogIntervalInMs;
        case InputSndBufSize:
            return fInputSndBufSize.at(slot);
        case InputRcvBufSize:
            return fInputRcvBufSize.at(slot);
        case OutputSndBufSize:
            return fOutputSndBufSize.at(slot);
        case OutputRcvBufSize:
            return fOutputRcvBufSize.at(slot);
        default:
            return FairMQConfigurable::GetProperty(key, default_, slot);
    }
}

void FairMQDevice::SetTransport(FairMQTransportFactory* factory)
{
    fTransportFactory = factory;
}

void FairMQDevice::LogSocketRates()
{
    timestamp_t t0;
    timestamp_t t1;

    timestamp_t timeSinceLastLog_ms;

    vector<unsigned long> bytesInput(fNumInputs);
    vector<unsigned long> messagesInput(fNumInputs);
    vector<unsigned long> bytesOutput(fNumOutputs);
    vector<unsigned long> messagesOutput(fNumOutputs);

    vector<unsigned long> bytesInputNew(fNumInputs);
    vector<unsigned long> messagesInputNew(fNumInputs);
    vector<unsigned long> bytesOutputNew(fNumOutputs);
    vector<unsigned long> messagesOutputNew(fNumOutputs);

    vector<double> megabytesPerSecondInput(fNumInputs);
    vector<double> messagesPerSecondInput(fNumInputs);
    vector<double> megabytesPerSecondOutput(fNumOutputs);
    vector<double> messagesPerSecondOutput(fNumOutputs);

    // Temp stuff for process termination
    // bool receivedSomething = false;
    // bool sentSomething = false;
    // int didNotReceiveFor = 0;
    // int didNotSendFor = 0;
    // End of temp stuff

    int i = 0;
    for (vector<FairMQSocket*>::iterator itr = fPayloadInputs->begin(); itr != fPayloadInputs->end(); itr++)
    {
        bytesInput.at(i) = (*itr)->GetBytesRx();
        messagesInput.at(i) = (*itr)->GetMessagesRx();
        ++i;
    }

    i = 0;
    for (vector<FairMQSocket*>::iterator itr = fPayloadOutputs->begin(); itr != fPayloadOutputs->end(); itr++)
    {
        bytesOutput.at(i) = (*itr)->GetBytesTx();
        messagesOutput.at(i) = (*itr)->GetMessagesTx();
        ++i;
    }

    t0 = get_timestamp();

    while (true)
    {
        try
        {
            t1 = get_timestamp();

            timeSinceLastLog_ms = (t1 - t0) / 1000.0L;

            i = 0;

            for (vector<FairMQSocket*>::iterator itr = fPayloadInputs->begin(); itr != fPayloadInputs->end(); itr++)
            {
                bytesInputNew.at(i) = (*itr)->GetBytesRx();
                megabytesPerSecondInput.at(i) = ((double)(bytesInputNew.at(i) - bytesInput.at(i)) / (1024. * 1024.)) / (double)timeSinceLastLog_ms * 1000.;
                bytesInput.at(i) = bytesInputNew.at(i);
                messagesInputNew.at(i) = (*itr)->GetMessagesRx();
                messagesPerSecondInput.at(i) = (double)(messagesInputNew.at(i) - messagesInput.at(i)) / (double)timeSinceLastLog_ms * 1000.;
                messagesInput.at(i) = messagesInputNew.at(i);

                LOG(DEBUG) << "#" << fId << "." << (*itr)->GetId() << ": " << messagesPerSecondInput.at(i) << " msg/s, " << megabytesPerSecondInput.at(i) << " MB/s";

                // Temp stuff for process termination
                // if ( !receivedSomething && messagesPerSecondInput.at(i) > 0 ) {
                //      receivedSomething = true;
                //    }
                //    if ( receivedSomething && messagesPerSecondInput.at(i) == 0 ) {
                //      cout << "Did not receive anything on socket " << i << " for " << didNotReceiveFor++ << " seconds." << endl;
                //    } else {
                //      didNotReceiveFor = 0;
                //    }
                // End of temp stuff

                ++i;
            }

            i = 0;

            for (vector<FairMQSocket*>::iterator itr = fPayloadOutputs->begin(); itr != fPayloadOutputs->end(); itr++)
            {
                bytesOutputNew.at(i) = (*itr)->GetBytesTx();
                megabytesPerSecondOutput.at(i) = ((double)(bytesOutputNew.at(i) - bytesOutput.at(i)) / (1024. * 1024.)) / (double)timeSinceLastLog_ms * 1000.;
                bytesOutput.at(i) = bytesOutputNew.at(i);
                messagesOutputNew.at(i) = (*itr)->GetMessagesTx();
                messagesPerSecondOutput.at(i) = (double)(messagesOutputNew.at(i) - messagesOutput.at(i)) / (double)timeSinceLastLog_ms * 1000.;
                messagesOutput.at(i) = messagesOutputNew.at(i);

                LOG(DEBUG) << "#" << fId << "." << (*itr)->GetId() << ": " << messagesPerSecondOutput.at(i) << " msg/s, " << megabytesPerSecondOutput.at(i)
                           << " MB/s";

                // Temp stuff for process termination
                // if ( !sentSomething && messagesPerSecondOutput.at(i) > 0 ) {
                //      sentSomething = true;
                //    }
                //    if ( sentSomething && messagesPerSecondOutput.at(i) == 0 ) {
                //      cout << "Did not send anything on socket " << i << " for " << didNotSendFor++ << " seconds." << endl;
                //    } else {
                //      didNotSendFor = 0;
                //    }
                // End of temp stuff

                ++i;
            }

            // Temp stuff for process termination
            // if (receivedSomething && didNotReceiveFor > 5) {
            //    cout << "stopping because nothing was received for 5 seconds." << endl;
            //    ChangeState(STOP);
            //  }
            //  if (sentSomething && didNotSendFor > 5) {
            //    cout << "stopping because nothing was sent for 5 seconds." << endl;
            //    ChangeState(STOP);
            //  }
            // End of temp stuff

            t0 = t1;
            boost::this_thread::sleep(boost::posix_time::milliseconds(fLogIntervalInMs));
        }
        catch (boost::thread_interrupted&)
        {
            cout << "rateLogger interrupted" << endl;
            break;
        }
    }

    LOG(INFO) << ">>>>>>> stopping rateLogger <<<<<<<";
}

void FairMQDevice::ListenToCommands()
{
}

void FairMQDevice::Shutdown()
{
    LOG(INFO) << ">>>>>>> closing inputs <<<<<<<";
    for (vector<FairMQSocket*>::iterator itr = fPayloadInputs->begin(); itr != fPayloadInputs->end(); itr++)
    {
        (*itr)->Close();
    }

    LOG(INFO) << ">>>>>>> closing outputs <<<<<<<";
    for (vector<FairMQSocket*>::iterator itr = fPayloadOutputs->begin(); itr != fPayloadOutputs->end(); itr++)
    {
        (*itr)->Close();
    }
}

FairMQDevice::~FairMQDevice()
{
    for (vector<FairMQSocket*>::iterator itr = fPayloadInputs->begin(); itr != fPayloadInputs->end(); itr++)
    {
        delete (*itr);
    }

    for (vector<FairMQSocket*>::iterator itr = fPayloadOutputs->begin(); itr != fPayloadOutputs->end(); itr++)
    {
        delete (*itr);
    }

    delete fPayloadInputs;
    delete fPayloadOutputs;
}