gmodule/libgplugin_a.c

   1 /* libgplugin_a.c - test plugin for testgmodule
   2  * Copyright (C) 1998 Tim Janik
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17  * Boston, MA 02111-1307, USA.
  18  */
  19
  20 /*
  21  * Modified by the GLib Team and others 1997-2000.  See the AUTHORS
  22  * file for a list of people on the GLib Team.  See the ChangeLog
  23  * files for a list of changes.  These files are distributed with
  24  * GLib at ftp://ftp.gtk.org/pub/gtk/.
  25  */
  26
  27 #include        <gmodule.h>
  28 #include        <stdlib.h>
  29
  30 G_MODULE_EXPORT void
  31 gplugin_a_func (void)
  32 {
  33   g_print ("GPluginA: Hello world\n");
  34 }
  35
  36 G_MODULE_EXPORT void
  37 gplugin_clash_func (void)
  38 {
  39   g_print ("GPluginA: Hello plugin clash\n");
  40 }
  41
  42 G_MODULE_EXPORT void
  43 g_clash_func (void)
  44 {
  45   g_print ("GPluginA: Hello global clash\n");
  46 }
  47
  48 G_MODULE_EXPORT void
  49 gplugin_say_boo_func (void)
  50 {
  51   g_print ("GPluginA: BOOH!\n");
  52 }
  53
  54 G_MODULE_EXPORT void
  55 gplugin_a_module_func (GModule *module)
  56 {
  57   void (*f) (void) = NULL;
  58   gchar *string;
  59   gchar *basename = g_path_get_basename (g_module_name (module));
  60
  61   string = "gplugin_say_boo_func";
  62   g_print ("GPluginA: retrive symbol `%s' from \"%s\"\n",
  63            string, basename);
  64   g_free (basename);
  65   if (!g_module_symbol (module, string, (gpointer) &f))
  66     {
  67       g_print ("error: %s\n", g_module_error ());
  68       exit (1);
  69     }
  70
  71   g_print ("GPluginA: call that function(%p): ", f);
  72   f ();
  73 }