gmodule/gmodule-beos.c

   1 /* GMODULE - GLIB wrapper code for dynamic module loading
   2  * Copyright (C) 1998, 2000 Tim Janik
   3  *
   4  * BeOS GMODULE implementation
   5  * Copyright (C) 1999 Richard Offer and Shawn T. Amundson (amundson@gtk.org)
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the
  19  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20  * Boston, MA 02111-1307, USA.
  21  */
  22
  23 /*
  24  * MT safe
  25  */
  26
  27 #include <be/kernel/image.h> /* image (aka DSO) handling functions... */
  28
  29 /*
  30  * The BeOS doesn't use the same symantics as Unix's dlopen....
  31  *
  32  */
  33 #ifndef RTLD_GLOBAL
  34 #define RTLD_GLOBAL     0
  35 #endif  /* RTLD_GLOBAL */
  36 #ifndef RTLD_LAZY
  37 #define RTLD_LAZY       1
  38 #endif  /* RTLD_LAZY */
  39 #ifndef RTLD_NOW
  40 #define RTLD_NOW        0
  41 #endif  /* RTLD_NOW */
  42
  43
  44 /*
  45  * Points to Ponder
  46  *
  47  * You can load the same DSO more than once, in which case you'll have
  48  * different image_id's. While this means that we don't have to worry about
  49  * reference counts, it could lead to problems in the future....
  50  * richard.
  51  */
  52
  53 #include <Errors.h>
  54 #include <stdio.h>
  55
  56 /* --- functions --- */
  57 static gpointer
  58 _g_module_open (const gchar *file_name,
  59                 gboolean     bind_lazy)
  60 {
  61   image_id handle;
  62
  63   handle = load_add_on (file_name);
  64   if (handle < B_OK)
  65     {
  66       gchar *msg = g_strdup_printf ("failed to load_add_on(%s): %s",
  67                                     file_name,
  68                                     strerror (handle));
  69
  70       g_module_set_error (msg);
  71       g_free (msg);
  72
  73       return NULL;
  74     }
  75
  76   return (gpointer) handle;
  77 }
  78
  79 static gpointer
  80 _g_module_self (void)
  81 {
  82   image_info info;
  83   int32 cookie = 0;
  84   status_t status;
  85
  86   /* Is it always the first one?  I'm guessing yes. */
  87   status = get_next_image_info (0, &cookie, &info);
  88   if (status == B_OK)
  89     return (gpointer) info.id;
  90   else
  91     {
  92       gchar *msg = g_strdup_printf ("failed to get_next_image_info(self): %s",
  93                                     strerror (status));
  94
  95       g_module_set_error (msg);
  96       g_free (msg);
  97
  98       return NULL;
  99     }
 100 }
 101
 102 static void
 103 _g_module_close (gpointer handle,
 104                  gboolean is_unref)
 105 {
 106   image_info info;
 107   gchar *name;
 108
 109   if (unload_add_on ((image_id) handle) != B_OK)
 110     {
 111       gchar *msg;
 112
 113       /* Try and get the name of the image. */
 114       if (get_image_info ((image_id) handle, &info) != B_OK)
 115         name = g_strdup ("unknown");
 116       else
 117         name = g_strdup (info.name);
 118
 119       msg = g_strdup_printf ("failed to unload_add_on(%s): %s", name, strerror (status));
 120       g_module_set_error (msg);
 121       g_free (msg);
 122       g_free (name);
 123     }
 124 }
 125
 126 static gpointer
 127 _g_module_symbol (gpointer     handle,
 128                   const gchar *symbol_name)
 129 {
 130   image_id id;
 131   status_t status;
 132   image_info info;
 133   int32 type, name_len;
 134   void *p;
 135   gchar *msg, name[256];
 136   gint n, l;
 137
 138   id = (image_id) handle;
 139
 140   status = get_image_info (id, &info);
 141   if (status != B_OK)
 142     {
 143       msg = g_strdup_printf ("failed to get_image_info(): %s", strerror (status));
 144       g_module_set_error (msg);
 145       g_free (msg);
 146
 147       return NULL;
 148     }
 149
 150   l = strlen (symbol_name);
 151   name_len = 256;
 152   type = B_SYMBOL_TYPE_ANY;
 153   n = 0;
 154   status = get_nth_image_symbol (id, n, name, &name_len, &type, &p);
 155   while (status == B_OK)
 156     {
 157       if (p && strncmp (name, symbol_name, l) == 0)
 158         return p;
 159
 160       if (strcmp (name, "_end") == 0)
 161         {
 162           msg = g_strdup_printf ("unmatched symbol name `%s'", symbol_name);
 163           g_module_set_error (msg);
 164           g_free (msg);
 165
 166           return NULL;
 167         }
 168
 169       name_len = 256;
 170       type = B_SYMBOL_TYPE_ANY;
 171       n++;
 172       status = get_nth_image_symbol (id, n, name, &name_len, &type, &p);
 173     }
 174
 175   msg = g_strdup_printf ("failed to get_image_symbol(%s): %s", symbol_name, strerror (status));
 176   g_module_set_error (msg);
 177   g_free (msg);
 178
 179   return NULL;
 180 }
 181
 182 static gchar*
 183 _g_module_build_path (const gchar *directory,
 184                       const gchar *module_name)
 185 {
 186   g_warning ("_g_module_build_path() untested for BeOS!");
 187
 188   if (directory && *directory)
 189     {
 190       if (strncmp (module_name, "lib", 3) == 0)
 191         return g_strconcat (directory, "/", module_name, NULL);
 192       else
 193         return g_strconcat (directory, "/lib", module_name, ".so", NULL);
 194     }
 195   else if (strncmp (module_name, "lib", 3) == 0)
 196     return g_strdup (module_name);
 197   else
 198     return g_strconcat ("lib", module_name, ".so", NULL);
 199 }