1 /* GMODULE - GLIB wrapper code for dynamic module loading
2 * Copyright (C) 1998, 2000 Tim Janik
4 * BeOS GMODULE implementation
5 * Copyright (C) 1999 Richard Offer and Shawn T. Amundson (amundson@gtk.org)
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.
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.
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.
27 #include <be/kernel/image.h> /* image (aka DSO) handling functions... */
30 * The BeOS doesn't use the same symantics as Unix's dlopen....
35 #endif /* RTLD_GLOBAL */
38 #endif /* RTLD_LAZY */
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....
52 * load_add_on() apparently does not support lazy or local binding. Need
53 * to confirm that the actual behavior is non-lazy/local. --ds
59 /* --- functions --- */
61 _g_module_open (const gchar
*file_name
,
67 handle
= load_add_on (file_name
);
70 gchar
*msg
= g_strdup_printf ("failed to load_add_on(%s): %s",
74 g_module_set_error (msg
);
80 return (gpointer
) handle
;
90 /* Is it always the first one? I'm guessing yes. */
91 status
= get_next_image_info (0, &cookie
, &info
);
93 return (gpointer
) info
.id
;
96 gchar
*msg
= g_strdup_printf ("failed to get_next_image_info(self): %s",
99 g_module_set_error (msg
);
107 _g_module_close (gpointer handle
,
113 if (unload_add_on ((image_id
) handle
) != B_OK
)
117 /* Try and get the name of the image. */
118 if (get_image_info ((image_id
) handle
, &info
) != B_OK
)
119 name
= g_strdup ("unknown");
121 name
= g_strdup (info
.name
);
123 msg
= g_strdup_printf ("failed to unload_add_on(%s): %s", name
, strerror (status
));
124 g_module_set_error (msg
);
131 _g_module_symbol (gpointer handle
,
132 const gchar
*symbol_name
)
137 int32 type
, name_len
;
139 gchar
*msg
, name
[256];
142 id
= (image_id
) handle
;
144 status
= get_image_info (id
, &info
);
147 msg
= g_strdup_printf ("failed to get_image_info(): %s", strerror (status
));
148 g_module_set_error (msg
);
154 l
= strlen (symbol_name
);
156 type
= B_SYMBOL_TYPE_ANY
;
158 status
= get_nth_image_symbol (id
, n
, name
, &name_len
, &type
, &p
);
159 while (status
== B_OK
)
161 if (p
&& strncmp (name
, symbol_name
, l
) == 0)
164 if (strcmp (name
, "_end") == 0)
166 msg
= g_strdup_printf ("unmatched symbol name `%s'", symbol_name
);
167 g_module_set_error (msg
);
174 type
= B_SYMBOL_TYPE_ANY
;
176 status
= get_nth_image_symbol (id
, n
, name
, &name_len
, &type
, &p
);
179 msg
= g_strdup_printf ("failed to get_image_symbol(%s): %s", symbol_name
, strerror (status
));
180 g_module_set_error (msg
);
187 _g_module_build_path (const gchar
*directory
,
188 const gchar
*module_name
)
190 g_warning ("_g_module_build_path() untested for BeOS!");
192 if (directory
&& *directory
)
194 if (strncmp (module_name
, "lib", 3) == 0)
195 return g_strconcat (directory
, "/", module_name
, NULL
);
197 return g_strconcat (directory
, "/lib", module_name
, "." G_MODULE_SUFFIX
, NULL
);
199 else if (strncmp (module_name
, "lib", 3) == 0)
200 return g_strdup (module_name
);
202 return g_strconcat ("lib", module_name
, "." G_MODULE_SUFFIX
, NULL
);