mcabber: mcabber/mcabber/modules.c annotate

author	Myhailo Danylenko <isbear@ukrpost.net>
date	Thu, 04 Mar 2010 13:03:20 +0200
parents
children	15e1f3957786

rev	line source
1735 5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	1 /*
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	2 * modules.c -- modules handling
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	3 *
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	4 * Copyright (C) 2010 Myhailo Danylenko <isbear@ukrpost.net>
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	5 *
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	6 * This program is free software; you can redistribute it and/or modify
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	7 * it under the terms of the GNU General Public License as published by
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	8 * the Free Software Foundation; either version 2 of the License, or (at
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	9 * your option) any later version.
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	10 *
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	11 * This program is distributed in the hope that it will be useful, but
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	12 * WITHOUT ANY WARRANTY; without even the implied warranty of
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	14 * General Public License for more details.
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	15 *
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	16 * You should have received a copy of the GNU General Public License
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	17 * along with this program; if not, write to the Free Software
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	19 * USA
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	20 */
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	21
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	22 #include <glib.h>
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	23 #include <gmodule.h>
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	24 #include <string.h>
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	25
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	26 #include "settings.h"
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	27 #include "config.h"
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	28 #include "modules.h"
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	29 #include "logprint.h"
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	30 #include "utils.h"
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	31
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	32 // Information about loaded module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	33 typedef struct {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	34 guint refcount;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	35 gboolean locked;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	36 gchar *name;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	37 GModule *module;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	38 GSList *dependencies;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	39 module_info_t *info;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	40 } loaded_module_t;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	41
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	42 // Registry of loaded modules
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	43 // FIXME This should be a hash table
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	44 // but this needs long thinking and will not affect external interfaces
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	45 static GSList *loaded_modules = NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	46
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	47 static gint module_list_comparator(gconstpointer arg1, gconstpointer arg2)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	48 {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	49 const loaded_module_t *module = arg1;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	50 const char *name = arg2;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	51 return g_strcmp0(module->name, name);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	52 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	53
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	54 // module_load(modulename, manual, force)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	55 // Tries to load specified module and any modules, that this module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	56 // depends on. Returns NULL on success or constant error string in a
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	57 // case of error. Error message not necessarily indicates error.
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	58 const gchar module_load(const gchar arg, gboolean manual, gboolean force)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	59 {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	60 GModule *mod;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	61 module_info_t *info;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	62 GSList *deps = NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	63
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	64 if (!arg \|\| !*arg)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	65 return "Missing module name";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	66
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	67 { // Check if module is already loaded
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	68 GSList *lmod = g_slist_find_custom(loaded_modules, arg, module_list_comparator);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	69
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	70 if (lmod) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	71 loaded_module_t *module = lmod->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	72
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	73 if (manual) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	74 if (!module->locked) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	75 module->locked = TRUE;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	76 module->refcount += 1;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	77 return force ? NULL : "Module is already automatically loaded, marked as manually loaded";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	78 } else
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	79 return force ? NULL : "Module is already loaded";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	80 } else {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	81 module->refcount += 1;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	82 return NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	83 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	84 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	85 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	86
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	87 { // Load module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	88 gchar *mdir = expand_filename(settings_opt_get("modules_dir"));
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	89 gchar *path = g_module_build_path(mdir ? mdir : PKGLIB_DIR, arg);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	90 g_free(mdir);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	91 mod = g_module_open(path, G_MODULE_BIND_LAZY);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	92 g_free(path);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	93 if (!mod)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	94 return g_module_error();
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	95 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	96
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	97 { // Obtain module information structure
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	98 gchar *varname = g_strdup_printf("info_%s", arg);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	99 gpointer var = NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	100
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	101 // convert to a valid symbol name
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	102 g_strcanon(varname, "abcdefghijklmnopqrstuvwxyz0123456789", '_');
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	103
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	104 if (!g_module_symbol(mod, varname, &var)) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	105 if (!force) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	106 g_free(varname);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	107 return "Module provides no information structure";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	108 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	109
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	110 scr_LogPrint(LPRINT_LOGNORM, "Forced to ignore error: Module provides no information structure.");
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	111 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	112
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	113 g_free(varname);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	114 info = var;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	115 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	116
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	117 // Version check
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	118 if (info && info->mcabber_version && *(info->mcabber_version)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	119 && (strcmp(info->mcabber_version, PACKAGE_VERSION) > 0)) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	120 if (!force) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	121 g_module_close(mod);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	122 return "Module requires newer version of mcabber";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	123 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	124
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	125 scr_LogPrint(LPRINT_LOGNORM, "Forced to ignore error: Module requires newer version of mcabber.");
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	126 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	127
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	128 // Load dependencies
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	129 if (info && info->requires) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	130 const gchar **dep;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	131
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	132 for (dep = info->requires; *dep; ++dep) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	133 const gchar err = module_load(dep, FALSE, FALSE);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	134
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	135 if (err) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	136 GSList *mel;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	137 scr_LogPrint(LPRINT_LOGNORM, "Error loading dependency module %s: %s.", *dep, err);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	138
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	139 // Unload already loaded dependencies
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	140 for (mel = deps; mel; mel = mel->next) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	141 gchar *ldmname = mel->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	142 err = module_unload(ldmname, FALSE, FALSE);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	143 scr_LogPrint(LPRINT_LOGNORM, "Error unloading dependency module %s: %s.", ldmname, err);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	144 g_free(ldmname);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	145 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	146 g_slist_free(deps);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	147
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	148 // Unload module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	149 if (!g_module_close(mod))
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	150 scr_LogPrint(LPRINT_LOGNORM, "Error unloading module %s: %s.", arg, g_module_error());
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	151 return "Dependency problems";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	152 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	153
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	154 deps = g_slist_append(deps, g_strdup(*dep));
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	155 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	156 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	157
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	158 { // Register module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	159 loaded_module_t *module = g_new(loaded_module_t, 1);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	160
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	161 module->refcount = 1;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	162 module->locked = manual;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	163 module->name = g_strdup(arg);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	164 module->module = mod;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	165 module->info = info;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	166 module->dependencies = deps;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	167
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	168 loaded_modules = g_slist_prepend(loaded_modules, module);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	169 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	170
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	171 // Run initialization routine
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	172 if (info && info->init)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	173 info->init();
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	174
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	175 // XXX Run hk_loaded_module hook (and move this line there)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	176 scr_LogPrint(LPRINT_LOGNORM, "Loaded module %s.", arg);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	177
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	178 return NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	179 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	180
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	181 // module_unload(modulename, manual, force)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	182 // Unload specified module and any automatically loaded modules
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	183 // that are no more required.
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	184 const gchar module_unload(const gchar arg, gboolean manual, gboolean force)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	185 {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	186 GSList *lmod;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	187 loaded_module_t *module;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	188 module_info_t *info;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	189
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	190 if (!arg \|\| !*arg)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	191 return "Missing module name";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	192
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	193 lmod = g_slist_find_custom(loaded_modules, arg, module_list_comparator);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	194 if (!lmod)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	195 return "Module not found";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	196
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	197 module = lmod->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	198
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	199 // Check if user can unload this module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	200 if (manual) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	201 if (!module->locked) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	202 if (force)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	203 scr_LogPrint(LPRINT_LOGNORM, "Forced to ignore error: Manually unloading automatically loaded module.");
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	204 else
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	205 return "Module is not loaded manually";
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	206 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	207 module->locked = FALSE;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	208 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	209
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	210 // Check refcount
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	211 module->refcount -= 1;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	212 if (module->refcount > 0) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	213 if (force)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	214 scr_LogPrint(LPRINT_LOGNORM, "Forced to ignore error: Refcount is not zero (%u).", module->refcount);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	215 else
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	216 return manual ? "Module is required by some other modules" : NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	217 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	218
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	219 info = module->info;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	220
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	221 // Run uninitialization routine
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	222 if (info && info->uninit)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	223 info->uninit();
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	224 // XXX Prevent uninitialization routine to be called again
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	225 module->info = NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	226
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	227 // Unload module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	228 if (!g_module_close(module->module))
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	229 return g_module_error(); // XXX destroy structure?
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	230
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	231 { // Unload dependencies
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	232 GSList *dep;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	233 for (dep = module->dependencies; dep; dep = dep->next) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	234 gchar *ldmname = dep->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	235 const gchar *err = module_unload(ldmname, FALSE, FALSE);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	236 if (err) // XXX
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	237 scr_LogPrint(LPRINT_LOGNORM, "Error unloading automatically loaded module %s: %s.", ldmname, err);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	238 g_free(ldmname);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	239 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	240 g_slist_free(module->dependencies);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	241 module->dependencies = NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	242 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	243
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	244 // Destroy structure
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	245 loaded_modules = g_slist_delete_link(loaded_modules, lmod);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	246 g_free(module->name);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	247 g_free(module);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	248
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	249 scr_LogPrint(LPRINT_LOGNORM, "Unloaded module %s.", arg);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	250
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	251 return NULL;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	252 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	253
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	254 // module_list_print(void)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	255 // Prints into status buffer and log list of the currently loaded
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	256 // modules.
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	257 void module_list_print(void)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	258 {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	259 GSList *mel;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	260 gsize maxlen = 0;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	261 gchar *format;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	262 GString *message;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	263
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	264 if (!loaded_modules) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	265 scr_LogPrint(LPRINT_LOGNORM, "No modules loaded.");
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	266 return;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	267 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	268
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	269 // Counnt maximum module name length
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	270 for (mel = loaded_modules; mel; mel = mel -> next) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	271 loaded_module_t *module = mel->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	272 gsize len = strlen(module->name);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	273 if (len > maxlen)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	274 maxlen = len;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	275 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	276
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	277 // Create format string
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	278 format = g_strdup_printf("%%-%us %%2u (%%c)", maxlen);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	279
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	280 // Fill the message to be printed
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	281 message = g_string_new("Loaded modules:\n");
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	282 for (mel = loaded_modules; mel; mel = mel -> next) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	283 loaded_module_t *module = mel->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	284 GSList *dep;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	285
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	286 g_string_append_printf(message, format, module->name, module->refcount, module->locked ? 'M' : 'A');
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	287
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	288 // Append loaded module dependencies
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	289 if (module->dependencies) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	290 g_string_append(message, " depends: ");
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	291
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	292 for (dep = module->dependencies; dep; dep = dep->next) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	293 const gchar *name = dep->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	294 g_string_append(message, name);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	295 g_string_append(message, ", ");
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	296 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	297
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	298 // Chop extra ", "
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	299 g_string_truncate(message, message->len - 2);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	300 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	301
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	302 g_string_append_c(message, '\n');
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	303 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	304
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	305 // Chop extra "\n"
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	306 g_string_truncate(message, message->len - 1);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	307
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	308 scr_LogPrint(LPRINT_LOGNORM, "%s", message->str);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	309
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	310 g_string_free(message, TRUE);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	311 g_free(format);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	312 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	313
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	314 // modules_init()
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	315 // Initializes module system.
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	316 void modules_init(void)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	317 {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	318 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	319
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	320 // modules_deinit()
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	321 // Unloads all the modules.
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	322 void modules_deinit(void)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	323 {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	324 GSList *mel;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	325
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	326 // We need only manually loaded modules
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	327 for (mel = loaded_modules; mel; mel = mel->next) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	328 loaded_module_t *module = mel->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	329 if (module->locked)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	330 break;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	331 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	332
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	333 while (mel) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	334 loaded_module_t *module = mel->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	335 const gchar *err;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	336
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	337 // Find next manually loaded module to treat
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	338 for (mel = mel->next; mel; mel = mel->next) {
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	339 loaded_module_t *module = mel->data;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	340 if (module->locked)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	341 break;
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	342 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	343
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	344 // Unload module
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	345 scr_LogPrint(LPRINT_LOGNORM, "Unloading module %s.", module->name);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	346 err = module_unload(module->name, TRUE, FALSE);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	347 if (err)
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	348 scr_LogPrint(LPRINT_LOGNORM, "* Module unloading failed: %s.", err);
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	349 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	350 }
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	351
5093b5ca1572 New modules loading scheme Myhailo Danylenko <isbear@ukrpost.net> parents: diff changeset	352 /* vim: set expandtab cindent cinoptions=>2\:2(0 ts=2 sw=2: For Vim users... */

1735

5093b5ca1572 New modules loading scheme