/*
----
This file is part of SECONDO.

Copyright (C) 2015,
Faculty of Mathematics and Computer Science,
Database Systems for New Applications.

SECONDO 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 2 of the License, or
(at your option) any later version.

SECONDO 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 SECONDO; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
----

*/

#include <include/Base64.h>
#include "WriteToKafkaOperator.h"
#include "ReadFromKafkaOperator.h"
#include "KafkaClient.h"
#include "log.hpp"

using namespace std;

namespace kafka {

    void writeTypeString(std::string brokersParam, string topic,
                         string typeString);

    ListExpr writeToKafkaTM(ListExpr args) {
        if (!nl->HasLength(args, 3)) {
            return listutils::typeError(" wrong number of args ");
        }

        ListExpr tupleStreamArg = nl->First(args);
        // the list is coded as (<type> <query part>)
        if (!nl->HasLength(tupleStreamArg, 2)) {
            return listutils::typeError(
                    "internal error, tupleStreamArg invalid");
        }

        if (!Stream<Tuple>::checkType(nl->First(tupleStreamArg))) {
            return listutils::typeError(" stream(Tuple) expected ");
        }

        std::string typeString;
        nl->WriteToString(typeString, nl->First(tupleStreamArg));
        cout << "typeString: " << typeString << endl;

        ListExpr brokerArg = nl->Second(args);
        ListExpr errorBroker = validateBrokerArg(brokerArg);
        if (errorBroker)
            return errorBroker;
        string broker = nl->StringValue(nl->Second(brokerArg));

        ListExpr topicArg = nl->Third(args);
        ListExpr error = validateTopicArg(topicArg);
        if (error)
            return error;
        string topic = nl->StringValue(nl->Second(topicArg));
        std::string topicTypeString = readTypeString(broker, topic);
        cout << "topicTypeString: " << topicTypeString << endl;

        if (topicTypeString.empty()) {
            writeTypeString(broker, topic, typeString);
        } else if (topicTypeString.compare(typeString)) {
            return listutils::typeError("The kafka topic has a"
                                        " different type");
        }

        return nl->First(tupleStreamArg);
    }

    void
    writeTypeString(std::string brokersParam, string topic, string typeString) {
        LOG(INFO) << "Writing Type Sting: " << typeString << " to topic "
                  << topic;

        KafkaWriterClient kafkaProducerClient;
        kafkaProducerClient.Open(brokersParam, topic);
        kafkaProducerClient.Write(typeString);
        kafkaProducerClient.Close();

        LOG(DEBUG) << "Writing Type Sting done";
    }

    class KafkaKonsumerLI {
    public :
// streamArg is the stream argument , brokerSt, topicSt the string argument
        KafkaKonsumerLI(Word streamArg, CcString *brokerSt, CcString *topicSt)
                : stream(streamArg), topic(" ") {
            def = topicSt->IsDefined();
            if (def) {
                topic = topicSt->GetValue();
                string broker = brokerSt->GetValue();
                kafkaProducerClient.Open(broker, topic);
            }
            stream.open();
        }

        ~ KafkaKonsumerLI() {
            stream.close();
            if (def) {
                kafkaProducerClient.Close();
            }
        }

        Tuple *getNext() {
            Tuple *k = stream.request();
            if (k) {
                writeToKafka(k);
                return k;
            }
            return 0;
        }

        void writeToKafka(Tuple *k) {
            if (def) {
                kafkaProducerClient.Write(k->WriteToBinStr());
            }
        }

    private :
        Stream<Tuple> stream;
        string topic;
        KafkaWriterClient kafkaProducerClient;
        bool def;
    };


    int writeToKafkaVM(Word *args, Word &result, int message,
                       Word &local, Supplier s) {
        KafkaKonsumerLI *li = (KafkaKonsumerLI *) local.addr;
        switch (message) {
            case OPEN :
                LOG(DEBUG) << "writeToKafkaVM open";
                if (li) {
                    delete li;
                }
                local.addr = new KafkaKonsumerLI(args[0],
                                                 (CcString *) args[1].addr,
                                                 (CcString *) args[2].addr);
                LOG(DEBUG) << "writeToKafkaVM opened";
                return 0;
            case REQUEST :
                result.addr = li ? li->getNext() : 0;
                return result.addr ? YIELD : CANCEL;
            case CLOSE :
                LOG(DEBUG) << "writeToKafkaVM closing";
                if (li) {
                    delete li;
                    local.addr = 0;
                }
                LOG(DEBUG) << "writeToKafkaVM closed";
                return 0;
        }
        return 0;
    }


    OperatorSpec writeToKafkaOpSpec(
            "stream ( Tuple ) x Brokers x KafkaTopic -> stream ( Topic ) ",
            "_ writetokafka[host,topic]",
            "All tuples in the stream are written out to Kafka topic. "
            "Host - host name of Kafka broker eg. \"localhost\" or in case of "
            "multiple brokers comma-separated list of hosts, "
            "eg. \"host1:port1,host2:port2,...\" ",
            "query plz feed writetokafka(\"localhost\",\"KT\") count "
    );

    Operator writeToKafkaOp(
            "writetokafka",
            writeToKafkaOpSpec.getStr(),
            writeToKafkaVM,
            Operator::SimpleSelect,
            writeToKafkaTM
    );


}