module-dialog.c 26.5 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
/* The GIMP -- an image manipulation program
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * module_db.c (C) 1999 Austin Donnelly <austin@gimp.org>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

21 22
#include "config.h"

Tor Lillqvist's avatar
Tor Lillqvist committed
23 24
#include <glib.h>

25 26
#include <stdio.h>
#include <string.h>
Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
27
#include <sys/types.h>
28
#include <sys/stat.h>
29
#ifdef HAVE_UNISTD_H
30
#include <unistd.h>
31 32
#endif
#include <time.h>
33 34 35

#include "appenv.h"
#include "module_db.h"
36
#include "gimpsignal.h"
37 38
#include "gimprc.h"
#include "datafiles.h"
39
#include "gimpset.h"
40
#include "gimpui.h"
41

42
#include "libgimp/gimpenv.h"
43
#include "libgimp/gimpmodule.h"
44
#include "libgimp/gimpintl.h"
45

46 47
/* export this to gimprc.c */
char *module_db_load_inhibit = NULL;
48 49

typedef enum {
50 51 52 53
  ST_MODULE_ERROR,         /* missing module_load function or other error    */
  ST_LOADED_OK,            /* happy and running (normal state of affairs)    */
  ST_LOAD_FAILED,          /* module_load returned GIMP_MODULE_UNLOAD        */
  ST_UNLOAD_REQUESTED,     /* sent unload request, waiting for callback      */
54 55 56 57
  ST_UNLOADED_OK           /* callback arrived, module not in memory anymore */
} module_state;

static const char * const statename[] = {
58 59 60 61 62
  N_("Module error"),
  N_("Loaded OK"),
  N_("Load failed"),
  N_("Unload requested"),
  N_("Unloaded OK")
63 64
};

Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
65 66 67
#ifdef __EMX__
extern void gimp_color_selector_register();
extern void gimp_color_selector_unregister();
Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
68 69
extern void gimp_color_display_register();
extern void gimp_color_display_unregister();
Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
70 71
extern void dialog_register();
extern void dialog_unregister();
72

Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
73 74 75
static struct main_funcs_struc {
  gchar *name;
  void (*func)();
76 77 78
} 

gimp_main_funcs[] = {
Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
79 80
  { "gimp_color_selector_register", gimp_color_selector_register },
  { "gimp_color_selector_unregister", gimp_color_selector_unregister },
Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
81 82
  { "gimp_color_display_register", gimp_color_display_register },
  { "gimp_color_display_unregister", gimp_color_display_unregister },
Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
83 84
  { "dialog_register", dialog_register },
  { "dialog_unregister", dialog_unregister },
Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
85 86 87 88
  { NULL, NULL }
};
#endif

89

90
/* one of these objects is kept per-module */
91
typedef struct {
92 93 94 95 96 97 98 99 100
  GtkObject       object;
  gchar          *fullpath;     /* path to the module                        */
  module_state    state;        /* what's happened to the module             */
  gboolean        ondisk;       /* TRUE if file still exists                 */
  gboolean        load_inhibit; /* user requests not to load at boot time    */
  gint            refs;         /* how many time we're running in the module */
  /* stuff from now on may be NULL depending on the state the module is in   */
  GimpModuleInfo *info;         /* returned values from module_init          */
  GModule        *module;       /* handle on the module                      */
101 102 103 104 105
  gchar          *last_module_error;
  GimpModuleInitFunc   *init;
  GimpModuleUnloadFunc *unload;
} module_info;

106 107

static guint module_info_get_type (void);
108 109
#define MODULE_INFO_TYPE    module_info_get_type()
#define MODULE_INFO(obj)    GTK_CHECK_CAST (obj, MODULE_INFO_TYPE, module_info)
110 111 112
#define IS_MODULE_INFO(obj) GTK_CHECK_TYPE (obj, MODULE_INFO_TYPE)


113
#define NUM_INFO_LINES 7
114 115

typedef struct {
116 117 118
  GtkWidget   *table;
  GtkWidget   *label[NUM_INFO_LINES];
  GtkWidget   *button_label;
119
  module_info *last_update;
120 121 122
  GtkWidget   *button;
  GtkWidget   *list;
  GtkWidget   *load_inhibit_check;
123 124
} browser_st;

125 126
/* global set of module_info pointers */
static GimpSet *modules;
127
static GimpSetHandlerId modules_handler;
128

129 130 131 132
/* If the inhibit state of any modules changes, we might need to
 * re-write the modulerc. */
static gboolean need_to_rewrite_modulerc = FALSE;

133

134 135
/* debug control: */

136
/*#define DUMP_DB*/
137 138 139 140 141 142 143 144 145
/*#define DEBUG*/

#ifdef DEBUG
#undef DUMP_DB
#define DUMP_DB
#define TRC(x) printf x
#else
#define TRC(x)
#endif
146 147 148


/* prototypes */
149 150 151 152
static void         module_initialize    (char *filename);
static void         mod_load             (module_info *mod, gboolean verbose);
static void         mod_unload           (module_info *mod, gboolean verbose);
static module_info *module_find_by_path  (const char *fullpath);
153
#ifdef DUMP_DB
154
static void         print_module_info    (gpointer data, gpointer user_data);
155
#endif
156 157 158 159 160 161 162
static void browser_popdown_callback     (GtkWidget *w, gpointer client_data);
static void browser_destroy_callback     (GtkWidget *w, gpointer client_data);
static void browser_info_update          (module_info *, browser_st *);
static void browser_info_add             (GimpSet *, module_info *, browser_st *);
static void browser_info_remove          (GimpSet *, module_info *, browser_st *);
static void browser_info_init            (browser_st *st, GtkWidget *table);
static void browser_select_callback      (GtkWidget *widget, GtkWidget *child);
163
static void browser_load_unload_callback (GtkWidget *widget, gpointer data);
164 165
static void browser_refresh_callback     (GtkWidget *widget, gpointer data);
static void make_list_item               (gpointer data, gpointer user_data);
166

167 168
static void gimp_module_ref              (module_info *mod);
static void gimp_module_unref            (module_info *mod);
169 170


171 172 173 174 175 176 177

/**************************************************************/
/* Exported functions */

void
module_db_init (void)
{
178 179 180 181 182 183 184
  char *filename;

  /* load the modulerc file */
  filename = gimp_personal_rc_file ("modulerc");
  parse_gimprc_file (filename);
  g_free (filename);

185 186
  /* Load and initialize gimp modules */

187
  modules = gimp_set_new (MODULE_INFO_TYPE, FALSE);
188

189 190 191 192
  if (g_module_supported ())
    datafiles_read_directories (module_path,
				module_initialize, 0 /* no flags */);
#ifdef DUMP_DB
193
  gimp_set_foreach (modules, print_module_info, NULL);
194 195 196
#endif
}

Marc Lehmann's avatar
Marc Lehmann committed
197
static void
198 199
free_a_single_module (gpointer data, 
		      gpointer user_data)
Marc Lehmann's avatar
Marc Lehmann committed
200 201 202
{
  module_info *mod = data;

203 204 205 206
  if (mod->module && mod->unload && mod->state == ST_LOADED_OK)
    {
      mod_unload (mod, FALSE);
    }
Marc Lehmann's avatar
Marc Lehmann committed
207 208 209
}

static void
210 211
add_to_inhibit_string (gpointer data, 
		       gpointer user_data)
Marc Lehmann's avatar
Marc Lehmann committed
212 213
{
  module_info *mod = data;
214
  GString *str = user_data;
215

216
  if (mod->load_inhibit)
Marc Lehmann's avatar
Marc Lehmann committed
217
    {
218 219
      str = g_string_append_c (str, G_SEARCHPATH_SEPARATOR);
      str = g_string_append (str, mod->fullpath);
Marc Lehmann's avatar
Marc Lehmann committed
220 221 222
    }
}

223

224
static gboolean
225 226 227 228 229 230
module_db_write_modulerc (void)
{
  GString *str;
  gchar *p;
  char *filename;
  FILE *fp;
231
  gboolean saved = FALSE;
232 233 234 235 236 237 238 239 240

  str = g_string_new (NULL);
  gimp_set_foreach (modules, add_to_inhibit_string, str);
  if (str->len > 0)
    p = str->str + 1;
  else
    p = "";

  filename = gimp_personal_rc_file ("modulerc");
241
  fp = fopen (filename, "wt");
242 243 244 245 246
  g_free (filename);
  if (fp)
    {
      fprintf (fp, "(module-load-inhibit \"%s\")\n", p);
      fclose (fp);
247
      saved = TRUE;
248 249 250
    }

  g_string_free (str, TRUE);
251
  return (saved);
252 253 254
}


Marc Lehmann's avatar
Marc Lehmann committed
255 256 257
void
module_db_free (void)
{
258 259 260 261 262 263 264
  if (need_to_rewrite_modulerc)
  {
      if (module_db_write_modulerc ())
      {
	  need_to_rewrite_modulerc = FALSE;
      }
  }
Marc Lehmann's avatar
Marc Lehmann committed
265 266
  gimp_set_foreach (modules, free_a_single_module, NULL);
}
267

268

269 270 271 272 273 274 275
GtkWidget *
module_db_browser_new (void)
{
  GtkWidget *shell;
  GtkWidget *hbox;
  GtkWidget *vbox;
  GtkWidget *listbox;
276
  GtkWidget *button;
277 278
  browser_st *st;

279 280
  shell = gimp_dialog_new (_("Module DB"), "module_db_dialog",
			   gimp_standard_help_func,
281
			   "dialogs/module_browser.html",
282 283
			   GTK_WIN_POS_NONE,
			   FALSE, TRUE, FALSE,
284

285
			   _("OK"), browser_popdown_callback,
286
			   NULL, NULL, NULL, TRUE, TRUE,
287 288

			   NULL);
289

290 291
  vbox = gtk_vbox_new (FALSE, 5);
  gtk_container_set_border_width (GTK_CONTAINER (vbox), 5);
292
  gtk_container_add (GTK_CONTAINER (GTK_DIALOG (shell)->vbox), vbox);
293
  gtk_widget_show (vbox);
294 295 296 297 298

  listbox = gtk_scrolled_window_new (NULL, NULL);
  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (listbox),
				  GTK_POLICY_AUTOMATIC,
				  GTK_POLICY_AUTOMATIC);
299
  gtk_box_pack_start (GTK_BOX (vbox), listbox, TRUE, TRUE, 0);
300 301 302 303 304
  gtk_widget_set_usize (listbox, 125, 100);
  gtk_widget_show (listbox);

  st = g_new0 (browser_st, 1);

305 306 307 308
  st->list = gtk_list_new ();
  gtk_list_set_selection_mode (GTK_LIST (st->list), GTK_SELECTION_BROWSE);
  gtk_scrolled_window_add_with_viewport (GTK_SCROLLED_WINDOW (listbox),
					 st->list);
309

310
  gimp_set_foreach (modules, make_list_item, st);
311

312
  gtk_widget_show (st->list);
313

314
  st->table = gtk_table_new (5, NUM_INFO_LINES + 1, FALSE);
315
  gtk_table_set_col_spacings (GTK_TABLE (st->table), 4);  
316
  gtk_box_pack_start (GTK_BOX (vbox), st->table, FALSE, FALSE, 0);
317 318
  gtk_widget_show (st->table);

319 320 321
  hbox = gtk_hbutton_box_new ();
  gtk_button_box_set_layout (GTK_BUTTON_BOX (hbox), GTK_BUTTONBOX_SPREAD);

322
  gtk_widget_show (hbox);
323
  gtk_box_pack_start (GTK_BOX (vbox), hbox, TRUE, FALSE, 5);
324 325 326 327 328 329 330 331 332 333

  button = gtk_button_new_with_label (_("Refresh"));
  gtk_widget_show (button);
  gtk_signal_connect (GTK_OBJECT (button), "clicked",
		      browser_refresh_callback, st);
  gtk_box_pack_start (GTK_BOX (hbox), button, TRUE, TRUE, 0);

  st->button = gtk_button_new_with_label ("");
  st->button_label = GTK_BIN (st->button)->child;
  gtk_box_pack_start (GTK_BOX (hbox), st->button, TRUE, TRUE, 0);
334 335 336 337
  gtk_widget_show (st->button);
  gtk_signal_connect (GTK_OBJECT (st->button), "clicked",
		      browser_load_unload_callback, st);

338
  browser_info_init (st, st->table);
339
  browser_info_update (st->last_update, st);
340

341
  gtk_object_set_user_data (GTK_OBJECT (st->list), st);
342

343
  gtk_signal_connect (GTK_OBJECT (st->list), "select_child",
344 345
		      browser_select_callback, NULL);

346 347
  /* hook the gimpset signals so we can refresh the display
   * appropriately. */
348
  modules_handler =
349
    gimp_set_add_handler (modules, "modified", browser_info_update, st);
350

351 352 353 354 355 356 357 358
  gtk_signal_connect (GTK_OBJECT (modules), "add", 
		      browser_info_add, st);
  gtk_signal_connect (GTK_OBJECT (modules), "remove", 
		      browser_info_remove, st);

  gtk_signal_connect (GTK_OBJECT (shell), "destroy",
		      browser_destroy_callback, st);

359 360 361 362
  return shell;
}


363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382
/**************************************************************/
/* module_info object glue */


typedef struct {
  GtkObjectClass parent_class;
} module_infoClass;

enum {
  MODIFIED,
  LAST_SIGNAL
};
static guint module_info_signals[LAST_SIGNAL];


static void
module_info_destroy (GtkObject *object)
{
  module_info *mod = MODULE_INFO (object);

383 384 385
  /* if this trips, then we're onto some serious lossage in a moment */
  g_return_if_fail (mod->refs == 0);

386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461
  if (mod->last_module_error)
    g_free (mod->last_module_error);
  g_free (mod->fullpath);
}

static void
module_info_class_init (module_infoClass *klass)
{
  GtkObjectClass *object_class;
  GtkType type;

  object_class = GTK_OBJECT_CLASS(klass);

  type = object_class->type;

  object_class->destroy = module_info_destroy;

  module_info_signals[MODIFIED] =
      gimp_signal_new ("modified", 0, type, 0, gimp_sigtype_void);

  gtk_object_class_add_signals(object_class, module_info_signals, LAST_SIGNAL);
}

static void
module_info_init (module_info *mod)
{
  /* don't need to do anything */
}

static guint
module_info_get_type (void)
{
  static guint module_info_type = 0;

  if (!module_info_type)
    {
      static const GtkTypeInfo module_info_info =
      {
	"module_info",
	sizeof (module_info),
	sizeof (module_infoClass),
	(GtkClassInitFunc) module_info_class_init,
	(GtkObjectInitFunc) module_info_init,
	/* reserved_1 */ NULL,
        /* reserved_2 */ NULL,
        (GtkClassInitFunc) NULL,
      };

      module_info_type = gtk_type_unique (gtk_object_get_type(),
					  &module_info_info);
    }

  return module_info_type;
}

/* exported API: */

static void
module_info_modified (module_info *mod)
{
  gtk_signal_emit (GTK_OBJECT (mod), module_info_signals[MODIFIED]);
}

static module_info *
module_info_new (void)
{
  return MODULE_INFO (gtk_type_new (module_info_get_type ()));
}

static void
module_info_free (module_info *mod)
{
  gtk_object_unref (GTK_OBJECT (mod));
}


462 463 464 465
/**************************************************************/
/* helper functions */


466
/* name must be of the form lib*.so (Unix) or *.dll (Win32) */
467 468 469 470 471 472
static gboolean
valid_module_name (const char *filename)
{
  const char *basename;
  int len;

473
  basename = g_basename (filename);
474 475 476

  len = strlen (basename);

Manish Singh's avatar
Manish Singh committed
477
#if !defined(G_OS_WIN32) && !defined(G_WITH_CYGWIN) && !defined(__EMX__)
478 479 480 481 482 483 484 485
  if (len < 3 + 1 + 3)
    return FALSE;

  if (strncmp (basename, "lib", 3))
    return FALSE;

  if (strcmp (basename + len - 3, ".so"))
    return FALSE;
486
#else
487
  if (len < 1 + 4)
488 489
      return FALSE;

490
  if (g_strcasecmp (basename + len - 4, ".dll"))
491 492
    return FALSE;
#endif
493 494 495 496 497

  return TRUE;
}


498
static gboolean
499 500
module_inhibited (const char *fullpath, 
		  const char *inhibit_list)
501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531
{
  char *p;
  int pathlen;
  const char *start, *end;

  /* common case optimisation: the list is empty */
  if (!inhibit_list || *inhibit_list == '\000')
    return FALSE;

  p = strstr (inhibit_list, fullpath);
  if (!p)
    return FALSE;

  /* we have a substring, but check for colons either side */
  start = p;
  while (start != inhibit_list && *start != G_SEARCHPATH_SEPARATOR)
      start--;
  if (*start == G_SEARCHPATH_SEPARATOR)
      start++;

  end = strchr (p, G_SEARCHPATH_SEPARATOR);
  if (!end)
    end = inhibit_list + strlen (inhibit_list);

  pathlen = strlen (fullpath);
  if ((end - start) == pathlen)
    return TRUE;
  else
    return FALSE;
}

532 533 534 535 536 537 538 539 540

static void
module_initialize (char *filename)
{
  module_info *mod;

  if (!valid_module_name (filename))
    return;

541 542 543 544
  /* don't load if we already know about it */
  if (module_find_by_path (filename))
    return;

545
  mod = module_info_new ();
546 547

  mod->fullpath = g_strdup (filename);
548
  mod->ondisk = TRUE;
549 550 551 552 553 554 555
  mod->state = ST_MODULE_ERROR;

  mod->info = NULL;
  mod->module = NULL;
  mod->last_module_error = NULL;
  mod->init = NULL;
  mod->unload = NULL;
556

557 558 559 560 561 562 563 564
  /* Count of times main gimp is within the module.  Normally, this
   * will be 1, and we assume that the module won't call its
   * unload callback until it is satisfied that it's not in use any
   * more.  refs can be 2 temporarily while we're running the module's
   * unload function, to stop the module attempting to unload
   * itself. */
  mod->refs = 0;

565 566 567 568 569
  mod->load_inhibit = module_inhibited (mod->fullpath, module_db_load_inhibit);
  if (!mod->load_inhibit)
    {
      if ((be_verbose == TRUE) || (no_splash == TRUE))
	g_print (_("load module: \"%s\"\n"), filename);
570

571 572 573 574 575 576 577 578
      mod_load (mod, TRUE);
    }
  else
    {
      if ((be_verbose == TRUE) || (no_splash == TRUE))
	g_print (_("skipping module: \"%s\"\n"), filename);
      mod->state = ST_UNLOADED_OK;
    }
579 580

  gimp_set_add (modules, mod);
581 582 583
}

static void
584 585
mod_load (module_info *mod, 
	  gboolean     verbose)
586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605
{
  gpointer symbol;

  g_return_if_fail (mod->module == NULL);

  mod->module = g_module_open (mod->fullpath, G_MODULE_BIND_LAZY);
  if (!mod->module)
    {
      mod->state = ST_MODULE_ERROR;

      if (mod->last_module_error)
	g_free (mod->last_module_error);
      mod->last_module_error = g_strdup (g_module_error ());

      if (verbose)
	g_warning (_("module load error: %s: %s"),
		   mod->fullpath, mod->last_module_error);
      return;
    }

Asbjørn Pettersen's avatar
Asbjørn Pettersen committed
606 607 608 609 610 611
#ifdef __EMX__
  if (g_module_symbol (mod->module, "gimp_main_funcs", &symbol))
    {
      *(struct main_funcs_struc **)symbol = gimp_main_funcs;
    }
#endif
612 613 614 615 616 617 618
  /* find the module_init symbol */
  if (!g_module_symbol (mod->module, "module_init", &symbol))
    {
      mod->state = ST_MODULE_ERROR;

      if (mod->last_module_error)
	g_free (mod->last_module_error);
Sven Neumann's avatar
Sven Neumann committed
619
      mod->last_module_error = g_strdup ("missing module_init() symbol");
620 621

      if (verbose)
Sven Neumann's avatar
Sven Neumann committed
622
	g_warning ("%s: module_init() symbol not found", mod->fullpath);
623 624 625 626 627 628 629 630 631 632

      g_module_close (mod->module);
      mod->module = NULL;
      mod->info = NULL;
      return;
    }

  /* run module's initialisation */
  mod->init = symbol;
  mod->info = NULL;
633
  gimp_module_ref (mod); /* loaded modules are assumed to have a ref of 1 */
634 635 636
  if (mod->init (&mod->info) == GIMP_MODULE_UNLOAD)
  {
    mod->state = ST_LOAD_FAILED;
637
    gimp_module_unref (mod);
638 639 640 641 642 643
    mod->info = NULL;
    return;
  }

  /* module is now happy */
  mod->state = ST_LOADED_OK;
644
  TRC (("loaded module %s, state at %p\n", mod->fullpath, mod));
645 646 647 648 649 650

  /* do we have an unload function? */
  if (g_module_symbol (mod->module, "module_unload", &symbol))
    mod->unload = symbol;
  else
    mod->unload = NULL;
651

652 653 654 655 656 657 658 659 660 661
}


static void
mod_unload_completed_callback (void *data)
{
  module_info *mod = data;

  g_return_if_fail (mod->state == ST_UNLOAD_REQUESTED);

662 663 664
  /* lose the ref we gave this module when we loaded it,
   * since the module's now happy to be unloaded. */
  gimp_module_unref (mod);
665 666 667
  mod->info = NULL;

  mod->state = ST_UNLOADED_OK;
668

669 670
  TRC (("module unload completed callback for %p\n", mod));

671
  module_info_modified (mod);
672 673 674
}

static void
675 676
mod_unload (module_info *mod, 
	    gboolean     verbose)
677 678 679 680 681 682 683 684 685
{
  g_return_if_fail (mod->module != NULL);
  g_return_if_fail (mod->unload != NULL);

  if (mod->state == ST_UNLOAD_REQUESTED)
    return;

  mod->state = ST_UNLOAD_REQUESTED;

686 687 688
  TRC (("module unload requested for %p\n", mod));

  /* Send the unload request.  Need to ref the module so we don't
689 690 691
   * accidentally unload it while this call is in progress (eg if the
   * callback is called before the unload function returns). */
  gimp_module_ref (mod);
692
  mod->unload (mod->info->shutdown_data, mod_unload_completed_callback, mod);
693
  gimp_module_unref (mod);
694 695 696 697 698 699
}



#ifdef DUMP_DB
static void
700 701
print_module_info (gpointer data, 
		   gpointer user_data)
702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730
{
  module_info *i = data;

  printf ("\n%s: %s\n",
	  i->fullpath, statename[i->state]);
  printf ("  module:%p  lasterr:%s  init:%p  unload:%p\n",
	  i->module, i->last_module_error? i->last_module_error : "NONE",
	  i->init, i->unload);
  if (i->info)
  {
    printf ("  shutdown_data: %p\n"
	    "  purpose:   %s\n"
	    "  author:    %s\n"
	    "  version:   %s\n"
	    "  copyright: %s\n"
	    "  date:      %s\n",
	    i->info->shutdown_data,
	    i->info->purpose, i->info->author, i->info->version,
	    i->info->copyright, i->info->date);
  }
}
#endif



/**************************************************************/
/* UI functions */

static void
731 732
browser_popdown_callback (GtkWidget *w, 
			  gpointer   client_data)
733 734 735 736
{
  gtk_widget_destroy (GTK_WIDGET (client_data));
}

737
static void
738 739
browser_destroy_callback (GtkWidget *w, 
			  gpointer   client_data)
740 741
{
  gtk_signal_disconnect_by_data (GTK_OBJECT (modules), client_data);
742
  gimp_set_remove_handler (modules, modules_handler);
743 744 745
  g_free (client_data);
}

746
static void
747 748
browser_load_inhibit_callback (GtkWidget *w, 
			       gpointer   data)
749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764
{
  browser_st *st = data;
  gboolean new_value;

  g_return_if_fail (st->last_update != NULL);

  new_value = ! GTK_TOGGLE_BUTTON (w)->active;

  if (new_value == st->last_update->load_inhibit)
    return;

  st->last_update->load_inhibit = new_value;
  module_info_modified (st->last_update);

  need_to_rewrite_modulerc = TRUE;
}
765 766

static void
767 768
browser_info_update (module_info *mod, 
		     browser_st  *st)
769 770
{
  int i;
771 772 773 774 775 776 777 778 779 780 781 782 783
  const char *text[NUM_INFO_LINES - 1];
  char *status;

  /* only update the info if we're actually showing it */
  if (mod != st->last_update)
    return;

  if (!mod)
  {
    for (i=0; i < NUM_INFO_LINES; i++)
      gtk_label_set_text (GTK_LABEL (st->label[i]), "");
    gtk_label_set_text (GTK_LABEL(st->button_label), _("<No modules>"));
    gtk_widget_set_sensitive (GTK_WIDGET (st->button), FALSE);
784
    gtk_widget_set_sensitive (GTK_WIDGET (st->load_inhibit_check), FALSE);
785 786
    return;
  }
787 788 789 790 791 792 793 794

  if (mod->info)
  {
    text[0] = mod->info->purpose;
    text[1] = mod->info->author;
    text[2] = mod->info->version;
    text[3] = mod->info->copyright;
    text[4] = mod->info->date;
795
    text[5] = mod->ondisk? _("on disk") : _("only in memory");
796 797 798 799 800 801 802 803
  }
  else
  {
    text[0] = "--";
    text[1] = "--";
    text[2] = "--";
    text[3] = "--";
    text[4] = "--";
804
    text[5] = mod->ondisk? _("on disk") : _("nowhere (click 'refresh')");
805 806
  }

807

808
  if (mod->state == ST_MODULE_ERROR && mod->last_module_error)
809
    status = g_strdup_printf ("%s (%s)", gettext (statename[mod->state]),
810
			      mod->last_module_error);
811 812
  else
  {
813
    status = g_strdup (gettext (statename[mod->state]));
814 815
  }

816
  for (i=0; i < NUM_INFO_LINES - 1; i++)
817
  {
818
    gtk_label_set_text (GTK_LABEL (st->label[i]), gettext (text[i]));
819 820
  }

821 822 823
  gtk_label_set_text (GTK_LABEL (st->label[NUM_INFO_LINES-1]), status);

  g_free (status);
824

825 826 827 828
  gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (st->load_inhibit_check),
				!mod->load_inhibit);
  gtk_widget_set_sensitive (GTK_WIDGET (st->load_inhibit_check), TRUE);

829 830 831 832 833
  /* work out what the button should do (if anything) */
  switch (mod->state) {
  case ST_MODULE_ERROR:
  case ST_LOAD_FAILED:
  case ST_UNLOADED_OK:
834 835
    gtk_label_set_text (GTK_LABEL(st->button_label), _("Load"));
    gtk_widget_set_sensitive (GTK_WIDGET (st->button), mod->ondisk);
836 837 838 839 840 841 842
    break;

  case ST_UNLOAD_REQUESTED:
    gtk_widget_set_sensitive (GTK_WIDGET (st->button), FALSE);
    break;

  case ST_LOADED_OK:
843
    gtk_label_set_text (GTK_LABEL(st->button_label), _("Unload"));
844 845 846 847 848 849 850
    gtk_widget_set_sensitive (GTK_WIDGET (st->button),
			      mod->unload? TRUE : FALSE);
    break;    
  }
}

static void
851 852
browser_info_init (browser_st *st, 
		   GtkWidget  *table)
853 854 855 856
{
  GtkWidget *label;
  int i;
  char *text[] = {
857 858 859 860 861 862 863
    N_("Purpose:"),
    N_("Author:"),
    N_("Version:"),
    N_("Copyright:"),
    N_("Date:"),
    N_("Location:"),
    N_("State:")
864 865 866 867 868 869 870 871 872
  };

  for (i=0; i < sizeof(text) / sizeof(char *); i++)
  {
    label = gtk_label_new (gettext (text[i]));
    gtk_misc_set_alignment (GTK_MISC (label), 1.0, 0.5);
    gtk_table_attach (GTK_TABLE (table), label, 0, 1, i, i+1,
		      GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 2);
    gtk_widget_show (label);
873 874 875 876 877 878

    st->label[i] = gtk_label_new ("");
    gtk_misc_set_alignment (GTK_MISC (st->label[i]), 0.0, 0.5);
    gtk_table_attach (GTK_TABLE (st->table), st->label[i], 1, 2, i, i+1,
		      GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 2);
    gtk_widget_show (st->label[i]);
879
  }
880 881 882 883 884 885 886 887 888

  st->load_inhibit_check =
      gtk_check_button_new_with_label (_("Autoload during startup"));
  gtk_widget_show (st->load_inhibit_check);
  gtk_table_attach (GTK_TABLE (table), st->load_inhibit_check,
		    0, 2, i, i+1,
		    GTK_SHRINK | GTK_FILL, GTK_SHRINK | GTK_FILL, 0, 2);
  gtk_signal_connect (GTK_OBJECT (st->load_inhibit_check), "toggled",
		      browser_load_inhibit_callback, st);
889 890 891
}

static void
892 893
browser_select_callback (GtkWidget *widget, 
			 GtkWidget *child)
894 895 896 897 898 899 900 901 902 903 904 905
{
  module_info *i;
  browser_st *st;

  i = gtk_object_get_user_data (GTK_OBJECT (child));
  st = gtk_object_get_user_data (GTK_OBJECT (widget));

  if (st->last_update == i)
    return;

  st->last_update = i;

906
  browser_info_update (st->last_update, st);
907 908 909 910
}


static void
911 912
browser_load_unload_callback (GtkWidget *widget, 
			      gpointer   data)
913 914 915 916 917 918 919 920
{
  browser_st *st = data;

  if (st->last_update->state == ST_LOADED_OK)
    mod_unload (st->last_update, FALSE);
  else
    mod_load (st->last_update, FALSE);

921
  module_info_modified (st->last_update);
922 923 924 925
}


static void
926 927
make_list_item (gpointer data, 
		gpointer user_data)
928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945
{
  module_info *info = data;
  browser_st *st = user_data;
  GtkWidget *list_item;

  if (!st->last_update)
    st->last_update = info;

  list_item = gtk_list_item_new_with_label (info->fullpath);

  gtk_widget_show (list_item);
  gtk_object_set_user_data (GTK_OBJECT (list_item), info);

  gtk_container_add (GTK_CONTAINER (st->list), list_item);
}


static void
946 947 948
browser_info_add (GimpSet     *set, 
		  module_info *mod, 
		  browser_st  *st)
949 950 951 952 953 954
{
  make_list_item (mod, st);
}


static void
955 956 957
browser_info_remove (GimpSet     *set, 
		     module_info *mod, 
		     browser_st  *st)
958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989
{
  GList *dlist, *free_list;
  GtkWidget *list_item;
  module_info *i;

  dlist = gtk_container_children (GTK_CONTAINER (st->list));
  free_list = dlist;

  while (dlist)
  {
    list_item = dlist->data;

    i = gtk_object_get_user_data (GTK_OBJECT (list_item));
    g_return_if_fail (i != NULL);

    if (i == mod)
    {
      gtk_container_remove (GTK_CONTAINER (st->list), list_item);
      g_list_free(free_list);
      return;
    }

    dlist = dlist->next;
  }

  g_warning ("tried to remove module that wasn't in brower's list");
  g_list_free(free_list);
}



static void
990 991
module_db_module_ondisk (gpointer data, 
			 gpointer user_data)
992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013
{
  module_info *mod = data;
  struct stat statbuf;
  int ret;
  int old_ondisk = mod->ondisk;
  GSList **kill_list = user_data;

  ret = stat (mod->fullpath, &statbuf);
  if (ret != 0)
    mod->ondisk = FALSE;
  else
    mod->ondisk = TRUE;

  /* if it's not on the disk, and it isn't in memory, mark it to be
   * removed later. */
  if (!mod->ondisk && !mod->module)
  {
    *kill_list = g_slist_append (*kill_list, mod);
    mod = NULL;
  }

  if (mod && mod->ondisk != old_ondisk)
1014
    module_info_modified (mod);
1015 1016 1017 1018
}


static void
1019 1020
module_db_module_remove (gpointer data, 
			 gpointer user_data)
1021 1022 1023 1024 1025
{
  module_info *mod = data;

  gimp_set_remove (modules, mod);

1026
  module_info_free (mod);
1027 1028 1029 1030 1031
}



typedef struct {
1032
  const char  *search_key;
1033 1034 1035 1036
  module_info *found;
} find_by_path_closure;

static void
1037 1038
module_db_path_cmp (gpointer data, 
		    gpointer user_data)
1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062
{
  module_info *mod = data;
  find_by_path_closure *cl = user_data;

  if (!strcmp (mod->fullpath, cl->search_key))
    cl->found = mod;
}

static module_info *
module_find_by_path (const char *fullpath)
{
  find_by_path_closure cl;

  cl.found = NULL;
  cl.search_key = fullpath;

  gimp_set_foreach (modules, module_db_path_cmp, &cl);

  return cl.found;
}



static void
1063 1064
browser_refresh_callback (GtkWidget *widget, 
			  gpointer   data)
1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076
{
  GSList *kill_list = NULL;

  /* remove modules we don't have on disk anymore */
  gimp_set_foreach (modules, module_db_module_ondisk, &kill_list);
  g_slist_foreach (kill_list, module_db_module_remove, NULL);
  g_slist_free (kill_list);
  kill_list = NULL;

  /* walk filesystem and add new things we find */
  datafiles_read_directories (module_path,
			      module_initialize, 0 /* no flags */);
1077
}
1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097


static void
gimp_module_ref (module_info *mod)
{
  g_return_if_fail (mod->refs >= 0);
  g_return_if_fail (mod->module != NULL);
  mod->refs++;
}

static void
gimp_module_unref (module_info *mod)
{
  g_return_if_fail (mod->refs > 0);
  g_return_if_fail (mod->module != NULL);

  mod->refs--;

  if (mod->refs == 0)
  {
1098
    TRC (("module %p refs hit 0, g_module_closing it\n", mod));
1099 1100 1101 1102 1103 1104
    g_module_close (mod->module);
    mod->module = NULL;
  }
}

/* End of module_db.c */