forked from AuroraMiddleware/gtk
2005-12-16 Matthias Clasen <mclasen@redhat.com> * gtk/gtkfilesystem.c (gtk_file_system_module_load): * gtk/gtkimmodule.c (gtk_im_module_load): * gtk/gtkthemes.c (gtk_theme_engine_load): * gtk/gtkmodules.c (find_module): Use G_MODULE_BIND_LAZY when opening modules.
543 lines
13 KiB
C
543 lines
13 KiB
C
/* GTK - The GIMP Toolkit
|
|
* Copyright 1998-2002 Tim Janik, Red Hat, Inc., and others.
|
|
* Copyright (C) 2003 Alex Graveley
|
|
*
|
|
* This library 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) any later version.
|
|
*
|
|
* This library 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 this library; if not, write to the
|
|
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
* Boston, MA 02111-1307, USA.
|
|
*/
|
|
|
|
#include <config.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include "gtkmodules.h"
|
|
#include "gtksettings.h"
|
|
#include "gtkdebug.h"
|
|
#include "gtkprivate.h" /* GTK_LIBDIR */
|
|
#include "gtkintl.h"
|
|
|
|
#include <gmodule.h>
|
|
#include <pango/pango-utils.h> /* For pango_split_file_list */
|
|
|
|
typedef struct _GtkModuleInfo GtkModuleInfo;
|
|
struct _GtkModuleInfo
|
|
{
|
|
GModule *module;
|
|
gint ref_count;
|
|
GtkModuleInitFunc init_func;
|
|
GtkModuleDisplayInitFunc display_init_func;
|
|
GSList *names;
|
|
};
|
|
|
|
static GSList *gtk_modules = NULL;
|
|
|
|
static gboolean default_display_opened = FALSE;
|
|
|
|
/* Saved argc, argv for delayed module initialization
|
|
*/
|
|
static gint gtk_argc = 0;
|
|
static gchar **gtk_argv = NULL;
|
|
|
|
static gchar **
|
|
get_module_path (void)
|
|
{
|
|
const gchar *module_path_env;
|
|
const gchar *exe_prefix;
|
|
const gchar *home_dir;
|
|
gchar *home_gtk_dir = NULL;
|
|
gchar *module_path;
|
|
gchar *default_dir;
|
|
static gchar **result = NULL;
|
|
|
|
if (result)
|
|
return result;
|
|
|
|
home_dir = g_get_home_dir();
|
|
if (home_dir)
|
|
home_gtk_dir = g_build_filename (home_dir, ".gtk-2.0", NULL);
|
|
|
|
module_path_env = g_getenv ("GTK_PATH");
|
|
exe_prefix = g_getenv ("GTK_EXE_PREFIX");
|
|
|
|
if (exe_prefix)
|
|
default_dir = g_build_filename (exe_prefix, "lib", "gtk-2.0", NULL);
|
|
else
|
|
default_dir = g_build_filename (GTK_LIBDIR, "gtk-2.0", NULL);
|
|
|
|
if (module_path_env && home_gtk_dir)
|
|
module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
|
|
module_path_env, home_gtk_dir, default_dir, NULL);
|
|
else if (module_path_env)
|
|
module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
|
|
module_path_env, default_dir, NULL);
|
|
else if (home_gtk_dir)
|
|
module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
|
|
home_gtk_dir, default_dir, NULL);
|
|
else
|
|
module_path = g_build_path (G_SEARCHPATH_SEPARATOR_S,
|
|
default_dir, NULL);
|
|
|
|
g_free (home_gtk_dir);
|
|
g_free (default_dir);
|
|
|
|
result = pango_split_file_list (module_path);
|
|
g_free (module_path);
|
|
|
|
return result;
|
|
}
|
|
|
|
/**
|
|
* _gtk_get_module_path:
|
|
* @type: the type of the module, for instance 'modules', 'engines', immodules'
|
|
*
|
|
* Determines the search path for a particular type of module.
|
|
*
|
|
* Return value: the search path for the module type. Free with g_strfreev().
|
|
**/
|
|
gchar **
|
|
_gtk_get_module_path (const gchar *type)
|
|
{
|
|
gchar **paths = get_module_path();
|
|
gchar **path;
|
|
gchar **result;
|
|
gint count = 0;
|
|
|
|
for (path = paths; *path; path++)
|
|
count++;
|
|
|
|
result = g_new (gchar *, count * 4 + 1);
|
|
|
|
count = 0;
|
|
for (path = get_module_path (); *path; path++)
|
|
{
|
|
gint use_version, use_host;
|
|
|
|
for (use_version = TRUE; use_version >= FALSE; use_version--)
|
|
for (use_host = TRUE; use_host >= FALSE; use_host--)
|
|
{
|
|
gchar *tmp_dir;
|
|
|
|
if (use_version && use_host)
|
|
tmp_dir = g_build_filename (*path, GTK_BINARY_VERSION, GTK_HOST, type, NULL);
|
|
else if (use_version)
|
|
tmp_dir = g_build_filename (*path, GTK_BINARY_VERSION, type, NULL);
|
|
else if (use_host)
|
|
tmp_dir = g_build_filename (*path, GTK_HOST, type, NULL);
|
|
else
|
|
tmp_dir = g_build_filename (*path, type, NULL);
|
|
|
|
result[count++] = tmp_dir;
|
|
}
|
|
}
|
|
|
|
result[count++] = NULL;
|
|
|
|
return result;
|
|
}
|
|
|
|
/* Like g_module_path, but use .la as the suffix
|
|
*/
|
|
static gchar*
|
|
module_build_la_path (const gchar *directory,
|
|
const gchar *module_name)
|
|
{
|
|
gchar *filename;
|
|
gchar *result;
|
|
|
|
if (strncmp (module_name, "lib", 3) == 0)
|
|
filename = (gchar *)module_name;
|
|
else
|
|
filename = g_strconcat ("lib", module_name, ".la", NULL);
|
|
|
|
if (directory && *directory)
|
|
result = g_build_filename (directory, filename, NULL);
|
|
else
|
|
result = g_strdup (filename);
|
|
|
|
if (filename != module_name)
|
|
g_free (filename);
|
|
|
|
return result;
|
|
}
|
|
|
|
/**
|
|
* _gtk_find_module:
|
|
* @name: the name of the module
|
|
* @type: the type of the module, for instance 'modules', 'engines', immodules'
|
|
*
|
|
* Looks for a dynamically module named @name of type @type in the standard GTK+
|
|
* module search path.
|
|
*
|
|
* Return value: the pathname to the found module, or %NULL if it wasn't found.
|
|
* Free with g_free().
|
|
**/
|
|
gchar *
|
|
_gtk_find_module (const gchar *name,
|
|
const gchar *type)
|
|
{
|
|
gchar **paths;
|
|
gchar **path;
|
|
gchar *module_name = NULL;
|
|
|
|
if (g_path_is_absolute (name))
|
|
return g_strdup (name);
|
|
|
|
paths = _gtk_get_module_path (type);
|
|
for (path = paths; *path; path++)
|
|
{
|
|
gchar *tmp_name;
|
|
|
|
tmp_name = g_module_build_path (*path, name);
|
|
if (g_file_test (tmp_name, G_FILE_TEST_EXISTS))
|
|
{
|
|
module_name = tmp_name;
|
|
goto found;
|
|
}
|
|
g_free(tmp_name);
|
|
|
|
tmp_name = module_build_la_path (*path, name);
|
|
if (g_file_test (tmp_name, G_FILE_TEST_EXISTS))
|
|
{
|
|
module_name = tmp_name;
|
|
goto found;
|
|
}
|
|
g_free(tmp_name);
|
|
}
|
|
|
|
found:
|
|
g_strfreev (paths);
|
|
return module_name;
|
|
}
|
|
|
|
static GModule *
|
|
find_module (const gchar *name)
|
|
{
|
|
GModule *module;
|
|
gchar *module_name;
|
|
|
|
module_name = _gtk_find_module (name, "modules");
|
|
if (!module_name)
|
|
{
|
|
/* As last resort, try loading without an absolute path (using system
|
|
* library path)
|
|
*/
|
|
module_name = g_module_build_path (NULL, name);
|
|
}
|
|
|
|
module = g_module_open (module_name, G_MODULE_BIND_LAZY | G_MODULE_BIND_LOCAL);
|
|
g_free(module_name);
|
|
|
|
return module;
|
|
}
|
|
|
|
static gint
|
|
cmp_module (GtkModuleInfo *info,
|
|
GModule *module)
|
|
{
|
|
return info->module != module;
|
|
}
|
|
|
|
static GSList *
|
|
load_module (GSList *module_list,
|
|
const gchar *name)
|
|
{
|
|
GtkModuleInitFunc modinit_func;
|
|
GtkModuleInfo *info = NULL;
|
|
GModule *module = NULL;
|
|
GSList *l;
|
|
gboolean success = FALSE;
|
|
|
|
if (g_module_supported ())
|
|
{
|
|
for (l = gtk_modules; l; l = l->next)
|
|
{
|
|
info = l->data;
|
|
if (g_slist_find_custom (info->names, name,
|
|
(GCompareFunc)strcmp))
|
|
{
|
|
info->ref_count++;
|
|
|
|
success = TRUE;
|
|
}
|
|
}
|
|
|
|
if (!success)
|
|
{
|
|
module = find_module (name);
|
|
|
|
if (module)
|
|
{
|
|
if (!g_module_symbol (module, "gtk_module_init", (gpointer *) &modinit_func) ||
|
|
!modinit_func)
|
|
g_module_close (module);
|
|
else
|
|
{
|
|
success = TRUE;
|
|
info = (GtkModuleInfo *) g_slist_find_custom (gtk_modules, module,
|
|
(GCompareFunc)cmp_module);
|
|
if (!info)
|
|
{
|
|
info = g_new0 (GtkModuleInfo, 1);
|
|
|
|
info->names = g_slist_prepend (info->names, g_strdup (name));
|
|
info->module = module;
|
|
info->ref_count = 1;
|
|
info->init_func = modinit_func;
|
|
g_module_symbol (module, "gtk_module_display_init",
|
|
(gpointer *) &info->display_init_func);
|
|
|
|
gtk_modules = g_slist_append (gtk_modules, info);
|
|
|
|
/* display_init == NULL indicates a non-multihead aware module.
|
|
* For these, we delay the call to init_func until first display is
|
|
* opened, see default_display_notify_cb().
|
|
* For multihead aware modules, we call init_func immediately,
|
|
* and also call display_init_func on all opened displays.
|
|
*/
|
|
if (default_display_opened || info->display_init_func)
|
|
(* info->init_func) (>k_argc, >k_argv);
|
|
|
|
if (info->display_init_func)
|
|
{
|
|
GSList *displays, *iter;
|
|
displays = gdk_display_manager_list_displays (gdk_display_manager_get ());
|
|
for (iter = displays; iter; iter = iter->next)
|
|
{
|
|
GdkDisplay *display = iter->data;
|
|
(* info->display_init_func) (display);
|
|
}
|
|
g_slist_free (displays);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
GTK_NOTE (MODULES, g_print ("Module already loaded, ignoring: %s\n", name));
|
|
info->names = g_slist_prepend (info->names, g_strdup (name));
|
|
info->ref_count++;
|
|
/* remove new reference count on module, we already have one */
|
|
g_module_close (module);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (success)
|
|
{
|
|
if (!g_slist_find (module_list, info))
|
|
{
|
|
module_list = g_slist_prepend (module_list, info);
|
|
}
|
|
}
|
|
else
|
|
g_message ("Failed to load module \"%s\": %s", name, g_module_error ());
|
|
|
|
return module_list;
|
|
}
|
|
|
|
|
|
static void
|
|
gtk_module_info_unref (GtkModuleInfo *info)
|
|
{
|
|
GSList *l;
|
|
|
|
info->ref_count--;
|
|
|
|
if (info->ref_count == 0)
|
|
{
|
|
GTK_NOTE (MODULES,
|
|
g_print ("Unloading module: %s", g_module_name (info->module)));
|
|
|
|
gtk_modules = g_slist_remove (gtk_modules, info);
|
|
g_module_close (info->module);
|
|
for (l = info->names; l; l = l->next)
|
|
g_free (l->data);
|
|
g_slist_free (info->names);
|
|
g_free (info);
|
|
}
|
|
}
|
|
|
|
static GSList *
|
|
load_modules (const char *module_str)
|
|
{
|
|
gchar **module_names;
|
|
GSList *module_list = NULL;
|
|
gint i;
|
|
|
|
GTK_NOTE (MODULES, g_print ("Loading module list: %s", module_str));
|
|
|
|
module_names = pango_split_file_list (module_str);
|
|
for (i = 0; module_names[i]; i++)
|
|
module_list = load_module (module_list, module_names[i]);
|
|
|
|
module_list = g_slist_reverse (module_list);
|
|
g_strfreev (module_names);
|
|
|
|
return module_list;
|
|
}
|
|
|
|
static void
|
|
default_display_notify_cb (GdkDisplayManager *display_manager)
|
|
{
|
|
GSList *slist;
|
|
|
|
/* Initialize non-multihead-aware modules when the
|
|
* default display is first set to a non-NULL value.
|
|
*/
|
|
|
|
if (!gdk_display_get_default () || default_display_opened)
|
|
return;
|
|
|
|
default_display_opened = TRUE;
|
|
|
|
for (slist = gtk_modules; slist; slist = slist->next)
|
|
{
|
|
if (slist->data)
|
|
{
|
|
GtkModuleInfo *info = slist->data;
|
|
|
|
if (!info->display_init_func)
|
|
(* info->init_func) (>k_argc, >k_argv);
|
|
}
|
|
}
|
|
}
|
|
|
|
static void
|
|
display_closed_cb (GdkDisplay *display,
|
|
gboolean is_error)
|
|
{
|
|
GdkScreen *screen;
|
|
GtkSettings *settings;
|
|
gint i;
|
|
|
|
for (i = 0; i < gdk_display_get_n_screens (display); i++)
|
|
{
|
|
screen = gdk_display_get_screen (display, i);
|
|
|
|
settings = gtk_settings_get_for_screen (screen);
|
|
|
|
g_object_set_data_full (G_OBJECT (settings),
|
|
I_("gtk-modules"),
|
|
NULL, NULL);
|
|
}
|
|
}
|
|
|
|
|
|
static void
|
|
display_opened_cb (GdkDisplayManager *display_manager,
|
|
GdkDisplay *display)
|
|
{
|
|
GSList *slist;
|
|
GdkScreen *screen;
|
|
GtkSettings *settings;
|
|
gint i;
|
|
|
|
for (slist = gtk_modules; slist; slist = slist->next)
|
|
{
|
|
if (slist->data)
|
|
{
|
|
GtkModuleInfo *info = slist->data;
|
|
|
|
if (info->display_init_func)
|
|
(* info->display_init_func) (display);
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < gdk_display_get_n_screens (display); i++)
|
|
{
|
|
GValue value = { 0, };
|
|
|
|
g_value_init (&value, G_TYPE_STRING);
|
|
|
|
screen = gdk_display_get_screen (display, i);
|
|
|
|
if (gdk_screen_get_setting (screen, "gtk-modules", &value))
|
|
{
|
|
settings = gtk_settings_get_for_screen (screen);
|
|
_gtk_modules_settings_changed (settings, g_value_get_string (&value));
|
|
g_value_unset (&value);
|
|
}
|
|
}
|
|
|
|
/* Since closing display doesn't actually release the resources yet,
|
|
* we have to connect to the ::closed signal.
|
|
*/
|
|
g_signal_connect (display, "closed", G_CALLBACK (display_closed_cb), NULL);
|
|
}
|
|
|
|
void
|
|
_gtk_modules_init (gint *argc,
|
|
gchar ***argv,
|
|
const gchar *gtk_modules_args)
|
|
{
|
|
GdkDisplayManager *display_manager;
|
|
gint i;
|
|
|
|
g_assert (gtk_argv == NULL);
|
|
|
|
if (argc && argv)
|
|
{
|
|
/* store argc and argv for later use in mod initialization */
|
|
gtk_argc = *argc;
|
|
gtk_argv = g_new (gchar *, *argc + 1);
|
|
for (i = 0; i < gtk_argc; i++)
|
|
gtk_argv [i] = g_strdup ((*argv) [i]);
|
|
gtk_argv [*argc] = NULL;
|
|
}
|
|
|
|
display_manager = gdk_display_manager_get ();
|
|
g_signal_connect (display_manager, "notify::default-display",
|
|
G_CALLBACK (default_display_notify_cb),
|
|
NULL);
|
|
g_signal_connect (display_manager, "display-opened",
|
|
G_CALLBACK (display_opened_cb),
|
|
NULL);
|
|
|
|
/* Modules specified in the GTK_MODULES environment variable
|
|
* or on the command line are always loaded, so we'll just leak
|
|
* the refcounts.
|
|
*/
|
|
g_slist_free (load_modules (gtk_modules_args));
|
|
}
|
|
|
|
static void
|
|
settings_destroy_notify (gpointer data)
|
|
{
|
|
GSList *iter, *modules = data;
|
|
|
|
for (iter = modules; iter; iter = iter->next)
|
|
{
|
|
GtkModuleInfo *info = iter->data;
|
|
gtk_module_info_unref (info);
|
|
}
|
|
g_slist_free (modules);
|
|
}
|
|
|
|
void
|
|
_gtk_modules_settings_changed (GtkSettings *settings,
|
|
const gchar *modules)
|
|
{
|
|
GSList *new_modules = NULL;
|
|
|
|
/* load/ref before unreffing existing */
|
|
if (modules && modules[0])
|
|
new_modules = load_modules (modules);
|
|
|
|
g_object_set_data_full (G_OBJECT (settings),
|
|
I_("gtk-modules"),
|
|
new_modules,
|
|
settings_destroy_notify);
|
|
}
|