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

/*
 * e-shell-module.c
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) version 3.
 *
 * 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with the program; if not, see <http://www.gnu.org/licenses/>  
 *
 *
 * Copyright (C) 1999-2008 Novell, Inc. (www.novell.com)
 *
 */

#include "e-shell-module.h"

#include <errno.h>
#include <gmodule.h>
#include <glib/gi18n.h>
#include <e-util/e-util.h>

#include <e-shell.h>

/* This is the symbol we look for when loading a module. */
#define INIT_SYMBOL "e_shell_module_init"

#define E_SHELL_MODULE_GET_PRIVATE(obj) \
    (G_TYPE_INSTANCE_GET_PRIVATE \
    ((obj), E_TYPE_SHELL_MODULE, EShellModulePrivate))

struct _EShellModulePrivate {

    /* Set during module initialization.  This must
     * come first in the struct so EShell can read it. */
    EShellModuleInfo info;

    GModule *module;
    gchar *filename;

    gpointer shell;  /* weak pointer */
    gchar *config_dir;
    gchar *data_dir;

    GType shell_view_type;
    GHashTable *events;

    /* Initializes the loaded type module. */
    void (*init) (GTypeModule *type_module);
};

enum {
    PROP_0,
    PROP_FILENAME,
    PROP_SHELL
};

enum {
    ACTIVITY_ADDED,
    LAST_SIGNAL
};

static gpointer parent_class;
static guint signals[LAST_SIGNAL];

static void
shell_module_set_filename (EShellModule *shell_module,
                           const gchar *filename)
{
    g_return_if_fail (shell_module->priv->filename == NULL);
    shell_module->priv->filename = g_strdup (filename);
}

static void
shell_module_set_shell (EShellModule *shell_module,
                        EShell *shell)
{
    g_return_if_fail (shell_module->priv->shell == NULL);

    shell_module->priv->shell = shell;

    g_object_add_weak_pointer (
        G_OBJECT (shell_module),
        &shell_module->priv->shell);
}

static void
shell_module_set_property (GObject *object,
                           guint property_id,
                           const GValue *value,
                           GParamSpec *pspec)
{
    switch (property_id) {
        case PROP_FILENAME:
            shell_module_set_filename (
                E_SHELL_MODULE (object),
                g_value_get_string (value));
            return;

        case PROP_SHELL:
            shell_module_set_shell (
                E_SHELL_MODULE (object),
                g_value_get_object (value));
            return;
    }

    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
shell_module_get_property (GObject *object,
                           guint property_id,
                           GValue *value,
                           GParamSpec *pspec)
{
    switch (property_id) {
        case PROP_FILENAME:
            g_value_set_string (
                value, e_shell_module_get_filename (
                E_SHELL_MODULE (object)));
            return;

        case PROP_SHELL:
            g_value_set_object (
                value, e_shell_module_get_shell (
                E_SHELL_MODULE (object)));
            return;
    }

    G_OBJECT_WARN_INVALID_PROPERTY_ID (object, property_id, pspec);
}

static void
shell_module_finalize (GObject *object)
{
    EShellModulePrivate *priv;

    priv = E_SHELL_MODULE_GET_PRIVATE (object);

    g_free (priv->filename);
    g_free (priv->data_dir);

    /* Chain up to parent's finalize() method. */
    G_OBJECT_CLASS (parent_class)->finalize (object);
}

static gboolean
shell_module_load (GTypeModule *type_module)
{
    EShellModulePrivate *priv;
    gpointer symbol;

    priv = E_SHELL_MODULE_GET_PRIVATE (type_module);

    g_return_val_if_fail (priv->filename != NULL, FALSE);
    priv->module = g_module_open (priv->filename, 0);

    if (priv->module == NULL)
        goto fail;

    if (!g_module_symbol (priv->module, INIT_SYMBOL, &symbol))
        goto fail;

    priv->init = symbol;
    priv->init (type_module);

    return TRUE;

fail:
    g_warning ("%s", g_module_error ());

    if (priv->module != NULL)
        g_module_close (priv->module);

    return FALSE;
}

static void
shell_module_unload (GTypeModule *type_module)
{
    EShellModulePrivate *priv;

    priv = E_SHELL_MODULE_GET_PRIVATE (type_module);

    g_module_close (priv->module);
    priv->module = NULL;

    priv->init = NULL;
}

static void
shell_module_class_init (EShellModuleClass *class)
{
    GObjectClass *object_class;
    GTypeModuleClass *type_module_class;

    parent_class = g_type_class_peek_parent (class);
    g_type_class_add_private (class, sizeof (EShellModulePrivate));

    object_class = G_OBJECT_CLASS (class);
    object_class->set_property = shell_module_set_property;
    object_class->get_property = shell_module_get_property;
    object_class->finalize = shell_module_finalize;

    type_module_class = G_TYPE_MODULE_CLASS (class);
    type_module_class->load = shell_module_load;
    type_module_class->unload = shell_module_unload;

    /**
     * EShellModule:filename
     *
     * The filename of the module.
     **/
    g_object_class_install_property (
        object_class,
        PROP_FILENAME,
        g_param_spec_string (
            "filename",
            _("Filename"),
            _("The filename of the module"),
            NULL,
            G_PARAM_READWRITE |
            G_PARAM_CONSTRUCT_ONLY));

    /**
     * EShellModule:shell
     *
     * The #EShell singleton.
     **/
    g_object_class_install_property (
        object_class,
        PROP_SHELL,
        g_param_spec_object (
            "shell",
            _("Shell"),
            _("The EShell singleton"),
            E_TYPE_SHELL,
            G_PARAM_READWRITE |
            G_PARAM_CONSTRUCT_ONLY));

    /**
     * EShellModule::activity-added
     * @shell_module: the #EShellModule that emitted the signal
     * @activity: an #EActivity
     *
     * Broadcasts a newly added activity.
     **/
    signals[ACTIVITY_ADDED] = g_signal_new (
        "activity-added",
        G_OBJECT_CLASS_TYPE (object_class),
        G_SIGNAL_RUN_LAST,
        0, NULL, NULL,
        g_cclosure_marshal_VOID__OBJECT,
        G_TYPE_NONE, 1,
        E_TYPE_ACTIVITY);
}

static void
shell_module_init (EShellModule *shell_module)
{
    shell_module->priv = E_SHELL_MODULE_GET_PRIVATE (shell_module);
}

GType
e_shell_module_get_type (void)
{
    static GType type = 0;

    if (G_UNLIKELY (type == 0)) {
        const GTypeInfo type_info = {
            sizeof (EShellModuleClass),
            (GBaseInitFunc) NULL,
            (GBaseFinalizeFunc) NULL,
            (GClassInitFunc) shell_module_class_init,
            (GClassFinalizeFunc) NULL,
            NULL,  /* class_data */
            sizeof (EShellModule),
            0,     /* n_preallocs */
            (GInstanceInitFunc) shell_module_init,
            NULL   /* value_table */
        };

        type = g_type_register_static (
            G_TYPE_TYPE_MODULE, "EShellModule", &type_info, 0);
    }

    return type;
}

/**
 * e_shell_module_new:
 * @shell: an #EShell
 * @filename: the name of the file containing the shell module
 *
 * Loads @filename as a #GTypeModule and tries to invoke a module
 * function named <function>e_shell_module_init</function>, passing
 * the newly loaded #GTypeModule as an argument.  The shell module is
 * responsible for defining such a function to perform the appropriate
 * initialization steps.
 *
 * Returns: a new #EShellModule
 **/
EShellModule *
e_shell_module_new (EShell *shell,
                    const gchar *filename)
{
    g_return_val_if_fail (filename != NULL, NULL);

    return g_object_new (
        E_TYPE_SHELL_MODULE, "shell", shell,
        "filename", filename, NULL);
}

/**
 * e_shell_module_compare:
 * @shell_module_a: an #EShellModule
 * @shell_module_b: an #EShellModule
 *
 * Using the <structfield>sort_order</structfield> field from both modules'
 * #EShellModuleInfo, compares @shell_module_a with @shell_mobule_b and
 * returns -1, 0 or +1 if @shell_module_a is found to be less than, equal
 * to or greater than @shell_module_b, respectively.
 *
 * Returns: -1, 0 or +1, for a less than, equal to or greater than result
 **/
gint
e_shell_module_compare (EShellModule *shell_module_a,
                        EShellModule *shell_module_b)
{
    gint a = shell_module_a->priv->info.sort_order;
    gint b = shell_module_b->priv->info.sort_order;

    return (a < b) ? -1 : (a > b);
}

/**
 * e_shell_module_get_config_dir:
 * @shell_module: an #EShellModule
 *
 * Returns the absolute path to the configuration directory for
 * @shell_module.  The string is owned by @shell_module and should
 * not be modified or freed.
 *
 * Returns: the module's configuration directory
 **/
const gchar *
e_shell_module_get_config_dir (EShellModule *shell_module)
{
    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), NULL);
    g_return_val_if_fail (shell_module->priv->config_dir != NULL, NULL);

    return shell_module->priv->config_dir;
}

/**
 * e_shell_module_get_data_dir:
 * @shell_module: an #EShellModule
 *
 * Returns the absolute path to the data directory for @shell_module.
 * The string is owned by @shell_module and should not be modified or
 * freed.
 *
 * Returns: the module's data directory
 **/
const gchar *
e_shell_module_get_data_dir (EShellModule *shell_module)
{
    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), NULL);
    g_return_val_if_fail (shell_module->priv->data_dir != NULL, NULL);

    return shell_module->priv->data_dir;
}

/**
 * e_shell_module_get_filename:
 * @shell_module: an #EShellModule
 *
 * Returns the name of the file from which @shell_module was loaded.
 * The string is owned by @shell_module and should not be modified or
 * freed.
 *
 * Returns: the module's file name
 **/
const gchar *
e_shell_module_get_filename (EShellModule *shell_module)
{
    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), NULL);

    return shell_module->priv->filename;
}

/**
 * e_shell_module_get_shell:
 * @shell_module: an #EShellModule
 *
 * Returns the #EShell that was passed to e_shell_module_new().
 *
 * Returns: the #EShell
 **/
EShell *
e_shell_module_get_shell (EShellModule *shell_module)
{
    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), NULL);

    return E_SHELL (shell_module->priv->shell);
}

/**
 * e_shell_module_get_shell_view_type:
 * @shell_module: an #EShellModule
 *
 * Returns the #GType of the #EShellView subclass for @shell_module.
 *
 * Returns: the #GType of an #EShellView subclass
 **/
GType
e_shell_module_get_shell_view_type (EShellModule *shell_module)
{
    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), 0);

    return shell_module->priv->shell_view_type;
}

/**
 * e_shell_module_add_activity:
 * @shell_module: an #EShellModule
 * @activity: an #EActivity
 *
 * Emits an #EShellModule::activity-added signal.
 **/
void
e_shell_module_add_activity (EShellModule *shell_module,
                             EActivity *activity)
{
    g_return_if_fail (E_IS_SHELL_MODULE (shell_module));
    g_return_if_fail (E_IS_ACTIVITY (activity));

    g_signal_emit (shell_module, signals[ACTIVITY_ADDED], 0, activity);
}

/**
 * e_shell_module_is_busy:
 * @shell_module: an #EShellModule
 *
 * Returns %TRUE if @shell_module is busy and cannot be shutdown at
 * present.  Each module must define what "busy" means to them and
 * determine an appropriate response.
 *
 * XXX This function is likely to change or disappear.  I'm toying with
 *     the idea of just having it check whether there are any unfinished
 *     #EActivity<!-- -->'s left, so we have a consistent and easily
 *     testable definition of what "busy" means.
 *
 * Returns: %TRUE if the module is busy
 **/
gboolean
e_shell_module_is_busy (EShellModule *shell_module)
{
    EShellModuleInfo *module_info;

    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), FALSE);

    module_info = &shell_module->priv->info;

    if (module_info->is_busy != NULL)
        return module_info->is_busy (shell_module);

    return FALSE;
}

/**
 * e_shell_module_shutdown:
 * @shell_module: an #EShellModule
 *
 * Alerts @shell_module to begin shutdown procedures.  If the module is
 * busy and cannot immediately shut down, the function returns %FALSE.
 * A %TRUE response implies @shell_module has successfully shut down.
 *
 * XXX This function is likely to change or disappear.  I'm toying with
 *     the idea of just having it check whether there are any unfinished
 *     #EActivity<!-- -->'s left, so we have a consistent and easily
 *     testable definition of what "busy" means.
 *
 * Returns: %TRUE if the module has shut down, %FALSE if the module is
 *          busy and cannot immediately shut down
 */
gboolean
e_shell_module_shutdown (EShellModule *shell_module)
{
    EShellModuleInfo *module_info;

    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), TRUE);

    module_info = &shell_module->priv->info;

    if (module_info->shutdown != NULL)
        return module_info->shutdown (shell_module);

    return TRUE;
}

/**
 * e_shell_migrate:
 * @shell_module: an #EShellModule
 * @major: major part of version to migrate from
 * @minor: minor part of version to migrate from
 * @micro: micro part of version to migrate from
 * @error: return location for a #GError, or %NULL
 *
 * Attempts to migrate data and settings from version %major.%minor.%micro.
 * Returns %TRUE if the migration was successful or if no action was
 * necessary.  Returns %FALSE and sets %error if the migration failed.
 *
 * Returns: %TRUE if successful, %FALSE otherwise
 **/
gboolean
e_shell_module_migrate (EShellModule *shell_module,
                        gint major,
                        gint minor,
                        gint micro,
                        GError **error)
{
    EShellModuleInfo *module_info;

    g_return_val_if_fail (E_IS_SHELL_MODULE (shell_module), TRUE);

    module_info = &shell_module->priv->info;

    if (module_info->migrate != NULL)
        return module_info->migrate (
            shell_module, major, minor, micro, error);

    return TRUE;
}

/**
 * e_shell_module_set_info:
 * @shell_module: an #EShellModule
 * @info: an #EShellModuleInfo
 * @shell_view_type: the #GType of a #EShellView subclass
 *
 * Registers basic configuration information about @shell_module that
 * the #EShell can use for processing command-line arguments.
 *
 * Configuration information should be registered from
 * @shell_module<!-- -->'s <function>e_shell_module_init</function>
 * initialization function.  See e_shell_module_new() for more information.
 **/
void
e_shell_module_set_info (EShellModule *shell_module,
                         const EShellModuleInfo *info,
                         GType shell_view_type)
{
    GTypeModule *type_module;
    EShellModuleInfo *module_info;
    const gchar *pathname;

    g_return_if_fail (E_IS_SHELL_MODULE (shell_module));
    g_return_if_fail (info != NULL);

    type_module = G_TYPE_MODULE (shell_module);
    module_info = &shell_module->priv->info;

    /* A module name is required. */
    g_return_if_fail (info->name != NULL);
    module_info->name = g_intern_string (info->name);
    g_type_module_set_name (type_module, module_info->name);

    module_info->aliases = g_intern_string (info->aliases);
    module_info->schemes = g_intern_string (info->schemes);
    module_info->sort_order = info->sort_order;

    module_info->is_busy = info->is_busy;
    module_info->shutdown = info->shutdown;
    module_info->migrate = info->migrate;

    /* Determine the user data directory for this module. */
    g_free (shell_module->priv->data_dir);
    shell_module->priv->data_dir = g_build_filename (
        e_get_user_data_dir (), module_info->name, NULL);

    /* Determine the user configuration directory for this module. */
    g_free (shell_module->priv->config_dir);
    shell_module->priv->config_dir = g_build_filename (
        shell_module->priv->data_dir, "config", NULL);

    /* Create the user configuration directory for this module,
     * which should also create the user data directory. */
    pathname = shell_module->priv->config_dir;
    if (g_mkdir_with_parents (pathname, 0777) != 0)
        g_critical (
            "Cannot create directory %s: %s",
            pathname, g_strerror (errno));

    shell_module->priv->shell_view_type = shell_view_type;
}