5 #include <glib-object.h>
11 static unsigned initialized;
12 static struct avl_table *package_tree;
14 static char *str_cpy_lower(char *dst, const char *src)
18 for (i = 0; src[i]; i++)
19 dst[i] = tolower(src[i]);
25 G_DEFINE_TYPE(UPkgModule, upkg_module, G_TYPE_TYPE_MODULE);
27 static void dl_print_errors(const char *prefix)
30 while (err = lt_dlerror()) {
31 if (prefix) fprintf(stderr, "%s: ", prefix);
36 static gboolean module_load(GTypeModule *m)
38 UPkgModule *mod = UPKG_MODULE(m);
39 int (*init_func)(GTypeModule *);
41 mod->dl = lt_dlopenext(G_TYPE_MODULE(m)->name);
43 dl_print_errors(__func__);
47 init_func = lt_dlsym(mod->dl, "init");
48 if (!init_func || init_func(m) != 0) {
49 dl_print_errors(__func__);
57 static void module_unload(GTypeModule *m)
59 UPkgModule *mod = UPKG_MODULE(m);
61 if (lt_dlclose(mod->dl) != 0) {
62 dl_print_errors(__func__);
66 static void upkg_module_init(UPkgModule *mod)
70 static void upkg_module_class_init(UPkgModuleClass *class)
72 GTypeModuleClass *modclass = G_TYPE_MODULE_CLASS(class);
74 modclass->load = module_load;
75 modclass->unload = module_unload;
78 UPkgModule *upkg_module_new(const char *name)
86 name2 = malloc(strlen(name)+1);
91 UPkgModule *mod = g_object_new(UPKG_MODULE_TYPE, NULL);
97 G_TYPE_MODULE(mod)->name = str_cpy_lower(name2, name);
101 static int modcmp(const void *a, const void *b, void *_data)
103 GTypeModule *ma = G_TYPE_MODULE(a);
104 GTypeModule *mb = G_TYPE_MODULE(b);
106 return strcmp(ma->name, mb->name);
109 int module_init(void)
112 package_tree = avl_create(modcmp, NULL, NULL);
114 fprintf(stderr, "%s: failed to create package tree.\n", __func__);
118 if (lt_dlinit() != 0) {
119 avl_destroy(package_tree, NULL);
120 dl_print_errors(__func__);
131 int module_exit(void)
136 if (lt_dlexit() != 0) {
137 dl_print_errors(__func__);
142 GType module_get_class(const char *package, const char *class)
144 char buf[strlen(package) + strlen(class) + 1];
145 GTypeModule search = { .name = str_cpy_lower(buf, package) };
147 GTypeModule *mod = avl_find(package_tree, &search);
151 mod = G_TYPE_MODULE(upkg_module_new(package));
156 p = avl_probe(package_tree, mod);
163 if (!g_type_module_use(mod))
166 str_cpy_lower(buf+strlen(package), class);
167 buf[0] = toupper(buf[0]);
168 buf[strlen(package)] = toupper(buf[strlen(package)]);
169 return g_type_from_name(buf);