/**
 *  Throttle.cpp
 *  
 *  Implementation for Throttle class.
 *  
 *  @author Michael van der Werve <michael.vanderwerve@mailerq.com>
 *  @copyright 2020 Copernica BV
 */

/**
 *  Includes
 */
#include "includes.h"
#include "basicpublishframe.h"
#include "basicheaderframe.h"
#include "bodyframe.h"
#include <iostream>

/**
 *  Begin of namespaces
 */
namespace AMQP { 

/**
 *  Constructor
 *  @param  channel 
 *  @param  throttle
 */
Throttle::Throttle(Channel &channel, size_t throttle) : _implementation(channel._implementation), _throttle(throttle)
{
    // activate confirm-select mode
    auto &deferred = channel.confirmSelect()
        .onAck([this](uint64_t deliveryTag, bool multiple) { onAck(deliveryTag, multiple); })
        .onNack([this](uint64_t deliveryTag, bool multiple, bool /* requeue*/) { onNack(deliveryTag, multiple); });

    // we might have failed, in which case we throw
    if (!deferred) throw std::runtime_error("could not enable publisher confirms");

    // we wrap a handling error callback that calls our member function
    _implementation->onError([this](const char *message) { reportError(message); });  
}

/**
 *  Called when the deliverytag(s) are acked/nacked
 *  @param  deliveryTag
 *  @param  multiple
 */
void Throttle::onAck(uint64_t deliveryTag, bool multiple)
{
    // number of messages exposed
    if (multiple) _open.erase(_open.begin(), _open.upper_bound(deliveryTag));

    // otherwise, we remove the single element
    else _open.erase(deliveryTag);

    // if there is more room now, we can flush some items
    if (_open.size() < _throttle) flush(_throttle - _open.size());

    // leap out if there are still messages or we shouldn't close yet
    if (!_open.empty() || !_close) return;

    // close the channel, and forward the callbacks to the installed handler
    _implementation->close()
        .onSuccess([this]() { _close->reportSuccess(); })
        .onError([this](const char *message) { _close->reportError(message); });
}

/**
 *  Send method for a frame
 *  @param  id
 *  @param  frame
 */
bool Throttle::send(uint64_t id, const Frame &frame)
{
    // if there is already a queue, we always append it
    if (!_queue.empty() || (_open.size() >= _throttle && _last != id))
    {
        // add the element to the queue
        _queue.emplace(id, frame);

        // we have successfully added the message
        return true;
    }

    // there is no queue and we have space, we send it directly
    _last = id;

    // we have now send this id
    _open.insert(id);

    // and we're going to send it over the channel directly
    return _implementation->send(frame);
}

/**
 *  Method that is called to report an error
 *  @param  message
 */
void Throttle::reportError(const char *message)
{
    // pop all elements from the queue (older compilers dont support reassign)
    while (_queue.size()) _queue.pop();

    // we can also forget all open messages, won't hear from them any more
    _open.clear();

    // reset tracking, since channel is fully broken
    _last = 0;
    _current = 1;

    // if a callback is set, call the handler with the message
    if (_errorCallback) _errorCallback(message);
}

/**
 *  Publish a message to an exchange. See amqpcpp/channel.h for more details on the flags. 
 *  Delays actual publishing depending on the publisher confirms sent by RabbitMQ.
 * 
 *  @param  exchange    the exchange to publish to
 *  @param  routingkey  the routing key
 *  @param  envelope    the full envelope to send
 *  @param  message     the message to send
 *  @param  size        size of the message
 *  @param  flags       optional flags
 */
bool Throttle::publish(const std::string &exchange, const std::string &routingKey, const Envelope &envelope, int flags)
{
    // @todo do not copy the entire buffer to individual frames

    // fail if we're closing the channel, no more publishes allowed
    if (_close) return false;
    
    // send the publish frame
    if (!send(_current, BasicPublishFrame(_implementation->id(), exchange, routingKey, (flags & mandatory) != 0, (flags & immediate) != 0))) return false;

    // send header
    if (!send(_current, BasicHeaderFrame(_implementation->id(), envelope))) return false;

    // connection and channel still usable?
    if (!_implementation->usable()) return false;

    // the max payload size is the max frame size minus the bytes for headers and trailer
    uint32_t maxpayload = _implementation->maxPayload();
    uint64_t bytessent = 0;

    // the buffer
    const char *data = envelope.body();
    uint64_t bytesleft = envelope.bodySize();

    // split up the body in multiple frames depending on the max frame size
    while (bytesleft > 0)
    {
        // size of this chunk
        uint64_t chunksize = std::min(static_cast<uint64_t>(maxpayload), bytesleft);

        // send out a body frame
        if (!send(_current, BodyFrame(_implementation->id(), data + bytessent, (uint32_t)chunksize))) return false;

        // update counters
        bytessent += chunksize;
        bytesleft -= chunksize;
    }

    // we're done, we move to the next deliverytag
    ++_current;

    // we succeeded
    return true;
}

/**
 *  Flush the throttle
 *  @param  max
 */
size_t Throttle::flush(size_t max)
{
    // how many have we published
    size_t published = 0;

    // keep sending more messages while there is a queue
    while (!_queue.empty())
    {
        // get the front element from the queue
        auto &front = _queue.front();

        // if the front has a different tag, we might not be allowed to continue
        if (front.first != _last)
        {
            // this is an extra publish, check if this puts us over the edge, in which case we 
            // did one less (unless max = 0, which means do a full flush)
            if (max > 0 && published >= max) return published;

            // we are going to publish an extra message
            ++published;

            // we now go to publish a new element
            _last = front.first;

            // insert it into the set as well
            _open.insert(_last);
        }

        // send the buffer over the implementation
        _implementation->send(std::move(front.second));

        // and remove the message
        _queue.pop();
    }

    // return number of published messages.
    return published;
}

/**
 *  Close the throttle channel (closes the underlying channel)
 *  @return Deferred&
 */
Deferred &Throttle::close()
{
    // if this was already set to be closed, return that
    if (_close) return *_close;

    // create the deferred
    _close = std::make_shared<Deferred>(_implementation->usable());

    // if there are open messages or there is a queue, they will still get acked and we will then forward it
    if (_open.size() > 0 || !_queue.empty()) return *_close;

    // there are no open messages, we can close the channel directly.
    _implementation->close()
        .onSuccess([this]() { _close->reportSuccess(); })
        .onError([this](const char *message) { _close->reportError(message); });

    // return the created deferred
    return *_close;
}

/**
 *  Install an error callback
 *  @param  callback
 */
void Throttle::onError(const ErrorCallback &callback)
{
    // we store the callback
    _errorCallback = callback;

    // check the callback
    if (!callback) return;

    // if the channel is no longer usable, report that
    if (!_implementation->usable()) return callback("Channel is no longer usable");

    // specify that we're already closing
    if (_close) callback("Wrapped channel is closing down");
}

/**
 *  End of namespaces
 */
}