#include "irc.h"
#include "util.h"
#include "events.h"
#include "module.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdarg.h>

#ifdef _WIN32
#include <ctype.h>

#define SPF sprintf_s
#else
#define SPF sprintf
#endif

struct handler *privmsg_self;
struct handler *privmsg_chan;
struct handler *chan_join;
struct handler *irc_connected;

int handlers_count = 0;
struct handler *handlers[512];

// TODO:
// redo this module, unified api

void init_event_type(char *type)
{
    handlers[handlers_count] = calloc(1, sizeof(struct handler));
    handlers[handlers_count]->type = type;
    handlers[handlers_count]->evhands = calloc(128, sizeof(struct ev_handler));

    handlers_count++;
}

void init_events()
{
    init_event_type(PRIVMSG_SELF);
    init_event_type(PRIVMSG_CHAN);
    init_event_type(JOIN);
    init_event_type(IRC_CONNECTED);
}

MY_API int add_handler(char *type, void *handler)
{
    printf("Installing handler @ %p [type: %s]\n", handler, type);

    for (int i = 0; i < handlers_count; i++)
    {
        if (!strcmp(handlers[i]->type, type))
        {
            if (handlers[i]->count < 128)
            {
                handlers[i]->evhands[handlers[i]->count].id = handlers[i]->count;
                handlers[i]->evhands[handlers[i]->count].handler = handler;

                handlers[i]->count++;
                return 0;
            }
            else
            {
                printf("Handler array is full, cannot add more handlers.\n");
                return -1;
            }
        }
    }
}

void del_handler(int num, char *type)
{
}

void fire_handler(struct irc_conn *bot, char *type, ...)
{
    va_list args;
    va_start(args, type);

    for (int i = 0; i < handlers_count; i++)
    {
        if (!strcmp(handlers[i]->type, type))
        {
            for (int j = 0; j < handlers[i]->count; j++)
            {
                void (*handler)() = handlers[i]->evhands[j].handler;

                if (!strcmp(type, PRIVMSG_SELF))
                {
                    char *usr = va_arg(args, char*);
                    char *text = va_arg(args, char*);

                    handler(bot, usr, text);
                    va_end(args);

                    return;
                }
                else if (!strcmp(type, PRIVMSG_CHAN))
                {
                    char *usr = va_arg(args, char*);
                    char *chan = va_arg(args, char*);
                    char *text = va_arg(args, char*);

                    handler(bot, usr, chan, text);
                    va_end(args);

                    return;
                }
                else if (!strcmp(type, JOIN))
                {
                    char *chan = va_arg(args, char*);
                    char *usr = va_arg(args, char*);

                    handler(bot, chan, usr);

                    va_end(args);
                    return;
                }
                else if (!strcmp(type, IRC_CONNECTED)) 
                {
                    char *text = va_arg(args, char*);

                    handler(bot, text);
                    va_end(args);

                    return;

                }
            }
        }
    }
    
    va_end(args);
}

/*
void handle_chan_privmsg(struct irc_conn *bot, char *user, char *chan, char *text)
{
	int i;
    void (*handler)();

    for (i = 0; i < privmsg_chan->count; i++)
    {
        if ((handler = privmsg_chan->handlers[i]) != NULL)
            (*handler)(bot, user, chan, text);
    }
}

void handle_self_privmsg(struct irc_conn *bot, char *user, char *text)
{
    void (*handler)();
    int i;
    char *cmd, *arg, *modpath;
    cmd = text;
    arg = skip(cmd, ' ');

    modpath = (char *)malloc(sizeof(char)*500);

    for (i = 0; i < privmsg_self->count; i++)
    {
        handler = privmsg_self->handlers[i];
        ((void(*)())handler)(bot, user, text);
    }

    if (!strcmp("JOIN", cmd))
    {
        printf("dbug: cmp (%s :  %s)\n", (char*)bot->admin, user);

        if (!strcmp(bot->admin, user))
        {
            irc_raw(bot, "JOIN :%s", arg);
        }
        else
        {
            irc_notice(bot, user, "You are unauthorized to use this command.");
        }
    }
    else if (!strcmp("PART", cmd))
    {
        if (!strcmp(bot->admin, user))
        {
            irc_raw(bot, "PART %s :Admin made me leave.", arg);
        }
        else
        {
            irc_notice(bot, user, "You are unauthorized to use this command.");
        }
    }
    else if (!strcmp("PRINT_HANDLERS", cmd))
    {
        if (!strcmp(bot->admin, user))
        {
            for (i = 0; i < privmsg_chan->count; i++)
            {
                irc_notice(bot, user, "handler[%i:%s]: %p", i, privmsg_chan->type, privmsg_chan->handlers[i]);
            }

            for (i = 0; i < privmsg_self->count; i++)
            {
                irc_notice(bot, user, "handler[%i:%s]: %p", i, privmsg_self->type, privmsg_self->handlers[i]);
            }

            for (i = 0; i < irc_connected->count; i++)
            {
                irc_notice(bot, user, "handler[%i:%s]: %p", i , irc_connected->type, irc_connected->handlers[i]);
            }
        }
    }
    else if (!strcmp("LOADMOD", cmd))
    {
        if (!strcmp(bot->admin, user))
        {
            irc_notice(bot, user, "Loading module: mods/%s.so", arg);
            SPF(modpath, "./mods/%s.so", arg);
			load_module(bot, user, PRIVMSG_SELF, modpath);
        }
        else
        {
            irc_notice(bot, user, "You are unauthorized to use this command.");
        }
    }

    free(modpath);
}


void handle_join(struct irc_conn *bot, char *user, char *chan)
{
	int i;
    void (*handler)();

    for (i = 0; i < chan_join->count; i++)
    {
        handler = chan_join->handlers[i];
        ((void(*)())handler)(bot, user, chan);
    }
}
*/


void free_events()
{
    //free(handlers);
}