/***
    This file is part of snapcast
    Copyright (C) 2014-2020  Johannes Pohl

    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/>.
***/

#ifndef NOMINMAX
#define NOMINMAX
#endif // NOMINMAX

#include "controller.hpp"
#include "decoder/pcm_decoder.hpp"
#if defined(HAS_OGG) && (defined(HAS_TREMOR) || defined(HAS_VORBIS))
#include "decoder/ogg_decoder.hpp"
#endif
#if defined(HAS_FLAC)
#include "decoder/flac_decoder.hpp"
#endif
#if defined(HAS_OPUS)
#include "decoder/opus_decoder.hpp"
#endif
#include "browseZeroConf/browse_mdns.hpp"
#include "common/aixlog.hpp"
#include "common/snap_exception.hpp"
#include "message/client_settings.hpp"
#include "message/hello.hpp"
#include "message/time.hpp"
#include "time_provider.hpp"

#include <algorithm>
#include <iostream>
#include <memory>
#include <string>

using namespace std;

static constexpr auto LOG_TAG = "Controller";

Controller::Controller(boost::asio::io_context& io_context, const ClientSettings& settings, std::unique_ptr<MetadataAdapter> meta)
    : io_context_(io_context), timer_(io_context), settings_(settings), stream_(nullptr), decoder_(nullptr), player_(nullptr), meta_(std::move(meta)),
      serverSettings_(nullptr)
{
}


void Controller::getNextMessage()
{
    clientConnection_->getNextMessage([this](const boost::system::error_code& ec, std::unique_ptr<msg::BaseMessage> response) {
        if (!ec)
        {
            if (response->type == message_type::kWireChunk)
            {
                if (stream_ && decoder_)
                {
                    // auto wireChunk = msg::message_cast<msg::WireChunk>(std::move(response));
                    auto pcmChunk = msg::message_cast<msg::PcmChunk>(std::move(response));
                    pcmChunk->format = sampleFormat_;
                    // std::make_unique<msg::PcmChunk>(sampleFormat_, *wireChunk);
                    // pcmChunk->deserialize(baseMessage, buffer);
                    // LOG(TRACE, LOG_TAG) << "chunk: " << pcmChunk->payloadSize << ", sampleFormat: " << sampleFormat_.getFormat() << "\n";
                    if (decoder_->decode(pcmChunk.get()))
                    {
                        // LOG(TRACE, LOG_TAG) << ", decoded: " << pcmChunk->payloadSize << ", Duration: " << pcmChunk->durationMs()
                        //                     << ", sec: " << pcmChunk->timestamp.sec << ", usec: " << pcmChunk->timestamp.usec / 1000 << ", type: " <<
                        //                     pcmChunk->type
                        //                     << "\n";
                        stream_->addChunk(std::move(pcmChunk));
                    }
                }
            }
            else if (response->type == message_type::kTime)
            {
                // should not be called, because timeSync messages are sent as request, so that the response will go there
                LOG(DEBUG, LOG_TAG) << "Received time sync message\n";
                auto reply = msg::message_cast<msg::Time>(std::move(response));
                TimeProvider::getInstance().setDiff(reply->latency, reply->received - reply->sent); // ToServer(diff / 2);
            }
            else if (response->type == message_type::kServerSettings)
            {
                serverSettings_ = msg::message_cast<msg::ServerSettings>(std::move(response));
                LOG(INFO, LOG_TAG) << "ServerSettings - buffer: " << serverSettings_->getBufferMs() << ", latency: " << serverSettings_->getLatency()
                                   << ", volume: " << serverSettings_->getVolume() << ", muted: " << serverSettings_->isMuted() << "\n";
                if (stream_ && player_)
                {
                    player_->setVolume(serverSettings_->getVolume() / 100.);
                    player_->setMute(serverSettings_->isMuted());
                    stream_->setBufferLen(std::max(0, serverSettings_->getBufferMs() - serverSettings_->getLatency() - settings_.player.latency));
                }
            }
            else if (response->type == message_type::kCodecHeader)
            {
                headerChunk_ = msg::message_cast<msg::CodecHeader>(std::move(response));
                LOG(INFO, LOG_TAG) << "Codec: " << headerChunk_->codec << "\n";
                decoder_.reset(nullptr);
                stream_ = nullptr;
                player_.reset(nullptr);

                if (headerChunk_->codec == "pcm")
                    decoder_ = make_unique<decoder::PcmDecoder>();
#if defined(HAS_OGG) && (defined(HAS_TREMOR) || defined(HAS_VORBIS))
                else if (headerChunk_->codec == "ogg")
                    decoder_ = make_unique<decoder::OggDecoder>();
#endif
#if defined(HAS_FLAC)
                else if (headerChunk_->codec == "flac")
                    decoder_ = make_unique<decoder::FlacDecoder>();
#endif
#if defined(HAS_OPUS)
                else if (headerChunk_->codec == "opus")
                    decoder_ = make_unique<decoder::OpusDecoder>();
#endif
                else
                    throw SnapException("codec not supported: \"" + headerChunk_->codec + "\"");

                sampleFormat_ = decoder_->setHeader(headerChunk_.get());
                LOG(NOTICE, LOG_TAG) << TAG("state") << "sampleformat: " << sampleFormat_.getFormat() << "\n";

                stream_ = make_shared<Stream>(sampleFormat_, settings_.player.sample_format);
                stream_->setBufferLen(std::max(0, serverSettings_->getBufferMs() - serverSettings_->getLatency() - settings_.player.latency));

                const auto& player_settings = settings_.player;
                const auto& player_name = settings_.player.player_name;
                player_ = nullptr;
#ifdef HAS_ALSA
                if (!player_ && (player_name.empty() || (player_name == "alsa")))
                    player_ = make_unique<AlsaPlayer>(io_context_, player_settings, stream_);
#endif
#ifdef HAS_OBOE
                if (!player_ && (player_name.empty() || (player_name == "oboe")))
                    player_ = make_unique<OboePlayer>(io_context_, player_settings, stream_);
#endif
#ifdef HAS_OPENSL
                if (!player_ && (player_name.empty() || (player_name == "opensl")))
                    player_ = make_unique<OpenslPlayer>(io_context_, player_settings, stream_);
#endif
#ifdef HAS_COREAUDIO
                if (!player_ && (player_name.empty() || (player_name == "coreaudio")))
                    player_ = make_unique<CoreAudioPlayer>(io_context_, player_settings, stream_);
#endif
#ifdef HAS_WASAPI
                if (!player_ && (player_name.empty() || (player_name == "wasapi")))
                    player_ = make_unique<WASAPIPlayer>(io_context_, player_settings, stream_);
#endif
                if (!player_)
                    throw SnapException("No audio player support");

                player_->setVolumeCallback([this](double volume, bool muted) {
                    auto settings = std::make_shared<msg::ClientSettings>();
                    settings->setVolume(static_cast<uint16_t>(volume * 100.));
                    settings->setMuted(muted);
                    clientConnection_->send(settings, [this](const boost::system::error_code& ec) {
                        if (ec)
                        {
                            LOG(ERROR, LOG_TAG) << "Failed to send client settings, error: " << ec.message() << "\n";
                            reconnect();
                            return;
                        }
                    });
                });
                player_->setVolume(serverSettings_->getVolume() / 100.);
                player_->setMute(serverSettings_->isMuted());
                player_->start();
            }
            else if (response->type == message_type::kStreamTags)
            {
                if (meta_)
                {
                    auto stream_tags = msg::message_cast<msg::StreamTags>(std::move(response));
                    meta_->push(stream_tags->msg);
                }
            }
            getNextMessage();
        }
        else
        {
            reconnect();
        }
    });
}


void Controller::sendTimeSyncMessage(int quick_syncs)
{
    auto timeReq = std::make_shared<msg::Time>();
    clientConnection_->sendRequest<msg::Time>(
        timeReq, 2s, [this, quick_syncs](const boost::system::error_code& ec, const std::unique_ptr<msg::Time>& response) mutable {
            if (ec)
            {
                LOG(ERROR, LOG_TAG) << "Time sync request failed: " << ec.message() << "\n";
                reconnect();
                return;
            }
            else
            {
                TimeProvider::getInstance().setDiff(response->latency, response->received - response->sent);
            }

            std::chrono::microseconds next = 1s;
            if (quick_syncs > 0)
            {
                if (--quick_syncs == 0)
                    LOG(INFO, LOG_TAG) << "diff to server [ms]: " << (float)TimeProvider::getInstance().getDiffToServer<chronos::usec>().count() / 1000.f
                                       << "\n";
                next = 100us;
            }
            timer_.expires_after(next);
            timer_.async_wait([this, quick_syncs](const boost::system::error_code& ec) {
                if (!ec)
                {
                    sendTimeSyncMessage(quick_syncs);
                }
            });
        });
}

void Controller::browseMdns(const MdnsHandler& handler)
{
#if defined(HAS_AVAHI) || defined(HAS_BONJOUR)
    try
    {
        BrowseZeroConf browser;
        mDNSResult avahiResult;
        if (browser.browse("_snapcast._tcp", avahiResult, 1000))
        {
            string host = avahiResult.ip;
            uint16_t port = avahiResult.port;
            if (avahiResult.ip_version == IPVersion::IPv6)
                host += "%" + cpt::to_string(avahiResult.iface_idx);
            handler({}, host, port);
            return;
        }
    }
    catch (const std::exception& e)
    {
        LOG(ERROR, LOG_TAG) << "Exception: " << e.what() << std::endl;
    }

    timer_.expires_after(500ms);
    timer_.async_wait([this, handler](const boost::system::error_code& ec) {
        if (!ec)
        {
            browseMdns(handler);
        }
        else
        {
            handler(ec, "", 0);
        }
    });
#else
    handler(boost::asio::error::operation_not_supported, "", 0);
#endif
}

void Controller::start()
{
    if (settings_.server.host.empty())
    {
        browseMdns([this](const boost::system::error_code& ec, const std::string& host, uint16_t port) {
            if (ec)
            {
                LOG(ERROR, LOG_TAG) << "Failed to browse MDNS, error: " << ec.message() << "\n";
            }
            else
            {
                settings_.server.host = host;
                settings_.server.port = port;
                LOG(INFO, LOG_TAG) << "Found server " << settings_.server.host << ":" << settings_.server.port << "\n";
                clientConnection_ = make_unique<ClientConnection>(io_context_, settings_.server);
                worker();
            }
        });
    }
    else
    {
        clientConnection_ = make_unique<ClientConnection>(io_context_, settings_.server);
        worker();
    }
}


// void Controller::stop()
// {
//     LOG(DEBUG, LOG_TAG) << "Stopping\n";
//     timer_.cancel();
// }

void Controller::reconnect()
{
    timer_.cancel();
    clientConnection_->disconnect();
    player_.reset();
    stream_.reset();
    decoder_.reset();
    timer_.expires_after(1s);
    timer_.async_wait([this](const boost::system::error_code& ec) {
        if (!ec)
        {
            worker();
        }
    });
}

void Controller::worker()
{
    clientConnection_->connect([this](const boost::system::error_code& ec) {
        if (!ec)
        {
            LOG(INFO, LOG_TAG) << "Connected!\n";

            string macAddress = clientConnection_->getMacAddress();
            if (settings_.host_id.empty())
                settings_.host_id = ::getHostId(macAddress);

            // Say hello to the server
            auto hello = std::make_shared<msg::Hello>(macAddress, settings_.host_id, settings_.instance);
            clientConnection_->send(hello, [this](const boost::system::error_code& ec) {
                if (ec)
                {
                    LOG(ERROR, LOG_TAG) << "Failed to send hello, error: " << ec.message() << "\n";
                    reconnect();
                    return;
                }
            });

            // // Do initial time sync with the server
            sendTimeSyncMessage(50);
            getNextMessage();
        }
        else
        {
            LOG(ERROR, LOG_TAG) << "Error: " << ec.message() << "\n";
            reconnect();
        }
    });
}