path: root/shell/e-shell-registry.c

/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 8; tab-width: 8 -*- */
/* e-shell-registry.c
 *
 * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of version 2 of the GNU General Public
 * License as published by the Free Software Foundation.
 *
 * This program 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 this program; if not, write to the
 * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
 * Boston, MA 02110-1301, USA.
 */

#include "e-shell-registry.h"

static GList *loaded_modules;
static GHashTable *modules_by_name;
static GHashTable *modules_by_scheme;

static void
shell_registry_insert_items (GHashTable *hash_table,
                             const gchar *items,
                             EShellModule *shell_module)
{
    gpointer key;
    gchar **strv;
    gint ii;

    strv = g_strsplit_set (items, ":", -1);

    for (ii = 0; strv[ii] != NULL; ii++) {
        key = (gpointer) g_intern_string (strv[ii]);
        g_hash_table_insert (hash_table, key, shell_module);
    }

    g_strfreev (strv);
}

static void
shell_registry_query_module (EShell *shell,
                             const gchar *filename)
{
    EShellModule *shell_module;
    EShellModuleInfo *info;
    const gchar *string;

    shell_module = e_shell_module_new (shell, filename);

    if (!g_type_module_use (G_TYPE_MODULE (shell_module))) {
        g_critical ("Failed to load module: %s", filename);
        g_object_unref (shell_module);
        return;
    }

    loaded_modules = g_list_insert_sorted (
        loaded_modules, shell_module,
        (GCompareFunc) e_shell_module_compare);

    /* Bookkeeping */

    info = (EShellModuleInfo *) shell_module->priv;

    if ((string = info->name) != NULL)
        g_hash_table_insert (
            modules_by_name, (gpointer)
            g_intern_string (string), shell_module);

    if ((string = info->aliases) != NULL)
        shell_registry_insert_items (
            modules_by_name, string, shell_module);

    if ((string = info->schemes) != NULL)
        shell_registry_insert_items (
            modules_by_scheme, string, shell_module);
}

void
e_shell_registry_init (EShell *shell)
{
    GDir *dir;
    const gchar *dirname;
    const gchar *basename;
    GError *error = NULL;

    g_return_if_fail (E_IS_SHELL (shell));
    g_return_if_fail (loaded_modules == NULL);

    modules_by_name = g_hash_table_new (g_str_hash, g_str_equal);
    modules_by_scheme = g_hash_table_new (g_str_hash, g_str_equal);

    dirname = EVOLUTION_MODULEDIR;

    dir = g_dir_open (dirname, 0, &error);
    if (dir == NULL) {
        g_critical ("%s", error->message);
        g_error_free (error);
        return;
    }

    while ((basename = g_dir_read_name (dir)) != NULL) {
        gchar *filename;

        if (!g_str_has_suffix (basename, "." G_MODULE_SUFFIX))
            continue;

        filename = g_build_filename (dirname, basename, NULL);
        shell_registry_query_module (shell, filename);
        g_free (filename);
    }

    g_dir_close (dir);
}

GList *
e_shell_registry_list_modules (void)
{
    return loaded_modules;
}

const gchar *
e_shell_registry_get_canonical_name (const gchar *name)
{
    EShellModule *shell_module;

    /* Handle NULL arguments silently. */
    if (name == NULL)
        return NULL;

    shell_module = e_shell_registry_get_module_by_name (name);

    if (shell_module == NULL)
        return NULL;

    return G_TYPE_MODULE (shell_module)->name;
}

EShellModule *
e_shell_registry_get_module_by_name (const gchar *name)
{
    g_return_val_if_fail (name != NULL, NULL);

    return g_hash_table_lookup (modules_by_name, name);
}

EShellModule *
e_shell_registry_get_module_by_scheme (const gchar *scheme)
{
    g_return_val_if_fail (scheme != NULL, NULL);

    return g_hash_table_lookup (modules_by_scheme, scheme);
}