#include "plugins/interface.h"
#include "parser/parse.h"

#include <glib.h>
#include <gmodule.h>

typedef struct {
    GModule *module;
    gchar *name;

    gboolean started;

    PluginSetupConfig config;
    PluginStartup startup;
    PluginShutdown shutdown;
} Plugin;

static gpointer load_sym(GModule *module, gchar *name, gchar *symbol,
			 gboolean allow_fail)
{
    gpointer var;
    if (!g_module_symbol(module, symbol, &var)) {
        if (!allow_fail)
	    g_warning("Failed to load symbol '%s' from plugin '%s'",
		      symbol, name);
        var = NULL;
    }
    return var;
}

static Plugin *plugin_new(gchar *name)
{
    Plugin *p;
    gchar *path;
   
    p = g_new(Plugin, 1);
    p->started = FALSE;

    path = g_build_filename(g_get_home_dir(), ".openbox", "plugins", name,
                            NULL);
    p->module = g_module_open(path, 0);
    g_free(path);

    if (p->module == NULL) {
        path = g_build_filename(PLUGINDIR, name, NULL);
        p->module = g_module_open(path, 0);
        g_free(path);
    }

    if (p->module == NULL) {
        g_warning(g_module_error());
        g_free(p);
        return NULL;
    }

    p->config = (PluginSetupConfig)load_sym(p->module, name,
                                            "plugin_setup_config", FALSE);
    p->startup = (PluginStartup)load_sym(p->module, name, "plugin_startup",
					 FALSE);
    p->shutdown = (PluginShutdown)load_sym(p->module, name, "plugin_shutdown",
					   FALSE);

    if (p->config == NULL || p->startup == NULL || p->shutdown == NULL) {
        g_module_close(p->module);
        g_free(p);
        return NULL;
    }

    p->name = g_strdup(name);
    return p;
}

static void plugin_free(Plugin *p)
{
    p->shutdown();

    g_free(p->name);
    g_module_close(p->module);
}


static GData *plugins = NULL;

void plugin_startup()
{
    g_datalist_init(&plugins);
}

void plugin_shutdown()
{
    g_datalist_clear(&plugins);
}

gboolean plugin_open(gchar *name, ObParseInst *i)
{
    Plugin *p;

    if (g_datalist_get_data(&plugins, name) != NULL)
        return TRUE;

    p = plugin_new(name);
    if (p == NULL) {
        g_warning("failed to load plugin '%s'", name);
        return FALSE;
    }
    p->config(i);

    g_datalist_set_data_full(&plugins, name, p, (GDestroyNotify) plugin_free);
    return TRUE;
}

static void foreach_start(GQuark key, Plugin *p, gpointer *foo)
{
    if (!p->started) {
        p->startup();
        p->started = TRUE;
    }
}

void plugin_startall()
{
    g_datalist_foreach(&plugins, (GDataForeachFunc)foreach_start, NULL);
}

void plugin_start(gchar *name)
{
    Plugin *p;

    if (!(p = g_datalist_get_data(&plugins, name))) {
        g_warning("Tried to start plugin '%s' but it is not loaded", name);
        return;
    }
    if (!p->started) {
        p->startup();
        p->started = TRUE;
    }
}

void plugin_loadall(ObParseInst *i)
{
    GIOChannel *io;
    GError *err;
    gchar *path, *name;

    path = g_build_filename(g_get_home_dir(), ".openbox", "pluginrc", NULL);
    err = NULL;
    io = g_io_channel_new_file(path, "r", &err);
    g_free(path);

    if (io == NULL) {
        path = g_build_filename(RCDIR, "pluginrc", NULL);
        err = NULL;
        io = g_io_channel_new_file(path, "r", &err);
        g_free(path);
    }

    if (io == NULL) {
        /* load the default plugins */
        plugin_open("placement", i);
    } else {
        /* load the plugins in the rc file */
        while (g_io_channel_read_line(io, &name, NULL, NULL, &err) ==
               G_IO_STATUS_NORMAL) {
            g_strstrip(name);
            if (name[0] != '\0' && name[0] != '#')
                plugin_open(name, i);
            g_free(name);
        }
        g_io_channel_unref(io);
    }
}