plugins/perl-loader/boot.c

   1 /*
   2  * boot.c
   3  *
   4  */
   5
   6 #include <gnumeric-config.h>
   7 #include <gnumeric.h>
   8 #include <glib.h>
   9 #include <goffice/goffice.h>
  10 #include <gnm-plugin.h>
  11
  12 #include "perl-loader.h"
  13
  14 static GSList *stuff_to_free;
  15
  16 GNM_PLUGIN_MODULE_HEADER;
  17
  18 void
  19 gnm_perl_loader_free_later (gconstpointer data)
  20 {
  21         stuff_to_free = g_slist_prepend (stuff_to_free, (gpointer)data);
  22 }
  23
  24 GType perl_get_loader_type (GOErrorInfo **ret_error);
  25
  26 G_MODULE_EXPORT GType
  27 perl_get_loader_type (GOErrorInfo **ret_error)
  28 {
  29         GO_INIT_RET_ERROR_INFO (ret_error);
  30         return gnm_perl_plugin_loader_get_type ();
  31 }
  32
  33 G_MODULE_EXPORT void
  34 go_plugin_shutdown (GOPlugin *plugin, GOCmdContext *cc)
  35 {
  36         g_slist_free_full (stuff_to_free, g_free);
  37         stuff_to_free = NULL;
  38 }
  39
  40 G_MODULE_EXPORT void
  41 go_plugin_init (GOPlugin *plugin, GOCmdContext *cc)
  42 {
  43         GTypeModule *module = go_plugin_get_type_module (plugin);
  44         gnm_perl_plugin_loader_register_type (module);
  45 }