var Transform = require("stream").Transform;
var EventEmitter = require("events").EventEmitter;
var Types = require("types");
var Buffer = require("buffer");


//A stream Transform implementation returning full netbeans messages
function MessageTransform(opts) {
    "use strict";
    Transform.call(this,opts);

    var buffer;

    this._transform = function(data, encoding, callback) {
        var endpos = data.indexOf("\n");

        if (endpos > -1) {
            if (buffer !== undefined) {
                this.push(buffer);
                buffer = undefined;
            }

            if (endpos > 0) {
                this.push(data.substr(0, endpos));
            }
            callback();

            if (endpos < data.length - 1) {
                buffer = data.substr(endpos + 1);
            }
        }
        else {
            buffer = buffer.concat(data);
        }
    };

    this._flush = function (callback) {
        buffer = undefined;
        callback(); 
    };
}

//Main netbeans object. Needs the socket of the incomming connexion and an authentication callback
//This callback just get the password sent by Vim. It must return true to allow connexion
function Controler(socket, authentication) {
    "use strict";

    EventEmitter.call(this);

    var self = this;
    var callbacks = new Map();
    var currentSeqno = 0;
    var connected = false;

    /* TODO check if this is needed */
    socket.setEncoding("utf8");

    var messageTransform = new MessageTransform();

    messageTransform.on("data",function (message) {

        /* The first message must be an authentication one */
        if (message.startsWith("AUTH ") && authentication(message.substring(message.indexOf(" ") + 1))) {
            connected = true;

            messageTransform.removeAllListeners("data");
            messageTransform.on("data", function(message) {

                try {
                    var iName = 0;      /*Index of the name separator in case of an Event */
                    var iSeqno = 0;     /*Index of the seqno separator in case of an Event */

                    /* Header of the message */
                    for (var i = 0 ; i < message.length && message[i] !== " "; ++i) {
                        if (message[i] === ":") {
                            iName = i;
                        }
                        else if (message[i] === "=") {
                            iSeqno = i;
                        }
                    }

                    var isEvent = false;
                    var args = [];
                    var seqno = 0;

                    if (iName > 0 && iSeqno > 0) {
                        isEvent = true;
                        args.push("event");
                        args.push(Number.parseInt(message.substr(0, iName), 10));
                        args.push(message.substring(iName + 1, iSeqno));
                        //args.push(Number.parseInt(message.substring(iSeqno + 1, i), 10));
                    }
                    else if (iName === 0 && iSeqno === 0) {
                        seqno = Number.parseInt(message.substr(0, i), 10);
                    }
                    else {
                        throw "Unknown message type";
                    }

                    var argStartOffset = ++i;

                    //Arguments of the message
                    for ( ; i < message.length ; ++i) {
                        if (message[i] === "\"" || message[i] === "!") {
                            var parsedString = "";
                            i += 1;

                            while (i < message.length && message[i] !== "\"") {
                                if (message[i] === "\\") {
                                    i += 1;

                                    if (i < message.length) {
                                        throw "Unfinished string in message";
                                    }
                                    else {
                                        switch (message[i]) {
                                            case "n" :
                                                parsedString += "\n";
                                            break;
                                            case "\\" :
                                                parsedString += "\\";
                                            break;
                                            case "\"" :
                                                parsedString += "\"";
                                            break;
                                            case "r" :
                                                parsedString += "\r";
                                            break;
                                            case "t" :
                                                parsedString += "\t";
                                            break;
                                            default :
                                                throw "Invalid escaped character in string";
                                        }
                                    }
                                }
                                else {
                                    parsedString += message[i];
                                }

                                ++i;
                            }

                            args.push(parsedString);

                            i += 1;
                        }
                        else {
                            while (i < message.length && message[i] !== " ") {
                                i += 1;
                            }

                            if (i - argStartOffset === 1 && (message[i] === "T" || message[i] === "F")) {
                                args.push(message[i] === "T");
                            }
                            else {
                                var argument = message.substr(argStartOffset, i);

                                if (Number.NaN(argument)) {
                                    if (argument.contains("/")) {
                                        args.push(argument.split("/"));
                                    }
                                    else {
                                        args.push(argument);
                                    }                                
                                }
                                else {
                                    args.push(Number.parseInt(argument));
                                }
                            }
                        }
                    }

                    if (isEvent) {
                        //Emit the event
                        self.emit(...args);
                    }
                    else if (callbacks.has(seqno)) {
                        callbacks.get(seqno)(...args);
                        callbacks.delete(seqno);
                    }
                    else {
                        throw "Received reply to unknown function call";
                    }
                }
                catch (ex) {
                    self.emit("error", ex.message);
                }

            });
        }
        else {
            //TODO send a message to client ?
            socket.end();
        }
    });

    messageTransform.on("error", function (error) {

    });

    messageTransform.on("end",function () {

    });

    messageTransform.on("close", function () {

    });

    //Send a command message.
    //Needs the name of the buffer, the buffer id and the parameters of the command
    this.sendCommand = function(name, buffer) {
        let seqno = currentSeqno;
        currentSeqno += 1;

        var data = buffer + ":" + name + ":" + seqno;

        for (var i = 2 ; i < arguments.length ; ++i) {
            data += " " + arguments[i];
        }

        data += "\n";

        socket.write(data);
    };

    //Call a function.
    //Needs the name of the function, the bufferid, the parametres of the command and the callback to retreive the reply
    this.callFunction = function(name, buffer) {
        let seqno = currentSeqno;
        currentSeqno += 1;

        var lastArg = arguments.length - 1;

        if (typeof(arguments[lastArg]) === "function") {
            callbacks[currentSeqno] = arguments[lastArg];            
            lastArg -= 1;
        }

        var data = buffer + ":" + name + "/" + seqno;

        for (var i = 2 ; i < lastArg ; ++i) {
            data += " " + arguments[i];
        }

        data += "\n";

        socket.write(data);

    };

    socket.pipe(messageTransform);
}

InternalClient.prototype = EventEmitter;

//Wrapper around the controler exposing functions and commands as methods
//Needs the incomming connexon socket and an authentication callback that get the password and return true to allow connexion
function Client(socket, authentication) {
    "use strict";

    var client = new Controler(socket, authentication);
    var buffId = 0;
    
    /* GLOBAL COMMANDS */

    //Bring Vim to the front (GVim only)
    this.raise = function () {
        client.sendCommand("raise", 0);
    };

    //Set an exiting delay, allowing the controler to handle things
    this.setExitDelay = function (seconds) {
        client.sendCommand("setExitDelay", 0, seconds);
    };

    //Set key binding. Absolutely not documented feature...
    this.specialKeys = function (keys) {
        client.sendCommand("specialKeys", 0,Types.string(keys)); 
    };
    
    //Create a new buffer. Return the buffer created
    this.create = function() {
        var buffer = new Buffer(client, buffId);
        buffId += 1;
        client.sendCommand("create", buffId);
        return buffer;
    };

    //Associate already opened buffer on Vim to a controler owned buffer
    //Return the newly created buffer
    this.putBufferNumber = function (pathname) {
        var buffer = new Buffer(client, buffId);
        buffId += 1;
        client.sendCommand("putBufferNumber", buffId, Types.string(pathname)); //TODO : May be better on the buffer
        return buffer;
    };

    //Associate already opened buffer on Vim to a controler owned buffer and bring it to front
    //Return the newly created buffer
    this.setBufferNumber = function (pathname) {
        var buffer = new Buffer(client, buffId);
        buffId += 1;
        client.sendCommand("setBufferNumber", buffId, Types.string(pathname)); 
        return buffer;
    };

    /* GLOBAL FUNCTIONS */

    //Ask Vim to save and exit
    this.saveAndExit = function (callback) {
        client.callFunction("saveAndExit", 0, callback);
    };

    //Get the numbr of modified buffers
    this.getModified = function (callback) {
        client.callFunction("getModified", 0, callback);
    };
}

module.exports.Controler = Client;