/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
* Copyright 2013 - 2020, nymea GmbH
* Contact: contact@nymea.io
*
* This file is part of nymea.
* This project including source code and documentation is protected by
* copyright law, and remains the property of nymea GmbH. All rights, including
* reproduction, publication, editing and translation, are reserved. The use of
* this project is subject to the terms of a license agreement to be concluded
* with nymea GmbH in accordance with the terms of use of nymea GmbH, available
* under https://nymea.io/license
*
* GNU Lesser General Public License Usage
* Alternatively, this project may be redistributed and/or modified under the
* terms of the GNU Lesser General Public License as published by the Free
* Software Foundation; version 3. This project 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public License
* along with this project. If not, see <https://www.gnu.org/licenses/>.
*
* For any further details and any questions please contact us under
* contact@nymea.io or see our FAQ/Licensing Information on
* https://nymea.io/license/faq
*
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */


#include "lifx.h"
#include "extern-plugininfo.h"

#include <QColor>
#include <QFile>
#include <QJsonDocument>
#include <QJsonArray>
#include <QJsonObject>

Lifx::Lifx(QObject *parent) :
    QObject(parent)
{
    m_reconnectTimer = new QTimer(this);
    m_reconnectTimer->setSingleShot(true);
    connect(m_reconnectTimer, &QTimer::timeout, this, &Lifx::onReconnectTimer);
    m_clientId = qrand();

    QFile file;
    file.setFileName("/tmp/products.json");
    if (!file.open(QIODevice::ReadOnly | QIODevice::Text)) {
        qCWarning(dcLifx()) << "Could not open products file" << file.errorString();
    }
    QJsonDocument productsJson = QJsonDocument::fromJson(file.readAll());
    file.close();

    if (!productsJson.isArray()) {
        qCWarning(dcLifx()) << "Products JSON is not a valid array";
    }
    QJsonArray productsArray = productsJson.array().first().toObject().value("products").toArray();
    foreach (QJsonValue value, productsArray) {
        QJsonObject object = value.toObject();
        LifxProduct product;
        product.pid = object["pid"].toInt();
        product.name = object["name"].toString();
        qCDebug(dcLifx()) << "Lifx product JSON, found product. PID:" << product.pid << "Name" << product.name;
        QJsonObject features = object["features"].toObject();
        product.color = features["color"].toBool();
        product.infrared = features["infrared"].toBool();
        product.matrix = features["matrix"].toBool();
        product.multizone = features["multizone"].toBool();
        product.minColorTemperature = features["temperature_range"].toArray().first().toInt();
        product.maxColorTemperature = features["temperature_range"].toArray().last().toInt();
        product.chain = features["chain"].toBool();
        m_lifxProducts.insert(product.pid, product);
    }
}

Lifx::~Lifx()
{
    if (m_socket) {
        m_socket->waitForBytesWritten(1000);
        m_socket->close();
    }
}

bool Lifx::enable()
{
    // Clean up
    if (m_socket) {
        delete m_socket;
        m_socket = nullptr;
    }

    // Bind udp socket and join multicast group
    m_socket = new QUdpSocket(this);
    m_port = 56700;
    m_host = QHostAddress("239.255.255.250");

    m_socket->setSocketOption(QAbstractSocket::MulticastTtlOption,QVariant(1));
    m_socket->setSocketOption(QAbstractSocket::MulticastLoopbackOption,QVariant(1));

    if(!m_socket->bind(QHostAddress::AnyIPv4, m_port, QUdpSocket::ShareAddress)){
        qCWarning(dcLifx()) << "could not bind to port" << m_port;
        delete m_socket;
        m_socket = nullptr;
        return false;
    }

    if(!m_socket->joinMulticastGroup(m_host)){
        qCWarning(dcLifx()) << "could not join multicast group" << m_host;
        delete m_socket;
        m_socket = nullptr;
        return false;
    }
    connect(m_socket, SIGNAL(error(QAbstractSocket::SocketError)), this, SLOT(error(QAbstractSocket::SocketError)));
    connect(m_socket, &QUdpSocket::readyRead, this, &Lifx::onReadyRead);
    return true;
}

void Lifx::discoverDevices()
{
    Message message;
    sendMessage(message);
}

int Lifx::setColorTemperature(int mirad, int msFadeTime)
{
    Q_UNUSED(mirad)
    Q_UNUSED(msFadeTime)
    int requestId = qrand();

    return requestId;
}

int Lifx::setColor(QColor color, int msFadeTime)
{
    Q_UNUSED(color)
    Q_UNUSED(msFadeTime)
    int requestId = qrand();

    return requestId;
}

int Lifx::setBrightness(int percentage, int msFadeTime)
{
    Q_UNUSED(percentage)
    Q_UNUSED(msFadeTime)
    int requestId = qrand();
    Message message;
    sendMessage(message);
    return requestId;
}

int Lifx::setPower(bool power, int msFadeTime)
{
    Q_UNUSED(power)
    Q_UNUSED(msFadeTime)
    int requestId = qrand();

    return requestId;
}

int Lifx::flash()
{
    int requestId = qrand();

    return requestId;
}

int Lifx::flash15s()
{
    int requestId = qrand();

    return requestId;
}

void Lifx::sendMessage(const Lifx::Message &message)
{
    QByteArray header;
    // -- FRAME --
    // Protocol number: must be 1024 (decimal)
    quint16 protocol = 1024;
    protocol |= (0x0001 << 4); //Message includes a target address: must be one (1)
    protocol |= (message.frame.Tagged << 5);   // Determines usage of the Frame Address target field
    protocol &= ~(0x0003); // Message origin indicator: must be zero (0)
    header.append(protocol >> 8);
    header.append(protocol & 0xff);

    //Source identifier: unique value set by the client, used by responses
    header.append(m_clientId);

    // -- FRAME ADDRESS --
    //Target - frame address starts with 64 bits


    //ADD RESERVED SECTION a reserved section of 48 bits (6 bytes)
    header.append(6, 0x00); //that must be all zeros.

    //ADD ACK and RES
    header.append(2, 0x01);

    //ADD SEQUENCE NUMBER 1Byte
    header.append(m_sequenceNumber++);

    //Protocol header. which begins with 64 reserved bits (8 bytes). Set these all to zero.
    header.append(8, 0x00); //that must be all zeros.

    //ADD MESSAGE TYPE
    header.append(static_cast<uint16_t>(LightMessages::SetColor));

    // Finally another reserved field of 16 bits (2 bytes).
    header.append(2, 0x00);

    //ADD SIZE
    header.append(((static_cast<uint16_t>(header.length()+1) & 0xff00) >> 8));
    header.append((static_cast<uint16_t>(header.length()+1) & 0x00ff));

    //Finally another reserved field of 16 bits (2 bytes).
    header.append(2, '0');

    QByteArray payload;

    QByteArray message;
    message.append(header);
    message.append(payload);
    message.append(message.length());
    //header = QByteArray::fromHex("0x310000340000000000000000000000000000000000000000000000000000000066000000005555FFFFFFFFAC0D00040000");
    m_socket->writeDatagram(message, m_host, m_port);
}

void Lifx::onStateChanged(QAbstractSocket::SocketState state)
{
    switch (state) {
    case QAbstractSocket::SocketState::ConnectedState:
        emit connectionChanged(true);
        break;
    case QAbstractSocket::SocketState::UnconnectedState:
        m_reconnectTimer->start(10 * 1000);
        emit connectionChanged(false);
        break;
    default:
        emit connectionChanged(false);
        break;
    }
}

void Lifx::onReadyRead()
{
    QByteArray data = m_socket->readAll();
    qCDebug(dcLifx()) << "Message received" << data;
}

void Lifx::onReconnectTimer()
{

}