#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]->count = 0;
    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)
{
    int i;
    printf("Installing handler @ %p [type: %s]\n", handler, type);

    for (i = 0; i < handlers_count; i++)
    {
        printf("comparing %s to %s\n", handlers[i]->type, type);
        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++;

                printf("type %s count: %d\n", type, handlers[i]->count);
                return handlers[i]->count - 1;
            }
            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;
    char *usr = calloc(1, 64);
    char *chan = calloc(1, 64);
    char *text = calloc(1, 512);
    int i, j;
    void (*handler)();

    for (i = 0; i < handlers_count; i++)
    {
        if (!strcmp(handlers[i]->type, type))
        {
            printf("handlers[%d]->count: %d\n", i, handlers[i]->count);
            printf("type: %s\n", type);

            for (j = 0; j < handlers[i]->count; j++)
            {
                printf("j: %d i: %d\n", j, i);

                handler = handlers[i]->evhands[j].handler;

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

                    (*handler)(bot, usr, text);
                    va_end(args);
                }
                else if (!strcmp(type, PRIVMSG_CHAN))
                {
                    va_start(args, type);

                    usr = va_arg(args, char*);
                    chan = va_arg(args, char*);
                    text = va_arg(args, char*);

                    (*handler)(bot, usr, chan, text);
                    va_end(args);
                }
                else if (!strcmp(type, JOIN))
                {
                    va_start(args, type);

                    chan = va_arg(args, char*);
                    usr = va_arg(args, char*);

                    (*handler)(bot, chan, usr);

                    va_end(args);
                }
                else if (!strcmp(type, IRC_CONNECTED)) 
                {
                    va_start(args, type);

                    text = va_arg(args, char*);

                    (*handler)(bot, text);
                    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);
}