+ while ((de = readdir(dir)))
+ {
+ size_t dlen = strlen(de->d_name);
+ if (dlen >= 5 &&
+ !memcmp(de->d_name, "mod-", 4) &&
+ !strcmp(de->d_name + dlen - 3, ".so"))
+ {
+ void *mod_p, *fl;
+ char fname[FILENAME_MAX*2+1];
+ sprintf(fname, "%.*s/%.*s",
+ FILENAME_MAX, module_path,
+ FILENAME_MAX, de->d_name);
+ mod_p = dlopen(fname, RTLD_NOW|RTLD_GLOBAL);
+ if (mod_p && (fl = dlsym(mod_p, "idzebra_filter")))
+ {
+ yaz_log(YLOG_LOG, "Loaded filter module %s", fname);
+ recTypeClass_add(rts, fl, nmem, mod_p);
+ }
+ else if (mod_p)
+ {
+ const char *err = dlerror();
+ yaz_log(YLOG_WARN, "dlsym failed %s %s",
+ fname, err ? err : "none");
+ dlclose(mod_p);
+ }
+ else
+ {
+ const char *err = dlerror();
+ yaz_log(YLOG_WARN, "dlopen failed %s %s",
+ fname, err ? err : "none");
+
+ }
+ }
+ }
+ closedir(dir);
+ }
+ }
+#endif
+}
+
+static void recTypeClass_add(struct recTypeClass **rts, RecType *rt,
+ NMEM nmem, void *module_handle)
+{
+ while (*rt)
+ {
+ struct recTypeClass *r = (struct recTypeClass *)
+ nmem_malloc (nmem, sizeof(*r));
+
+ r->next = *rts;
+ *rts = r;
+
+ yaz_log(YLOG_LOG, "Adding filter %s", (*rt)->name);
+ r->module_handle = module_handle;
+ module_handle = 0; /* so that we only store module_handle once */
+ r->recType = *rt;
+
+ rt++;
+ }
+}
+
+void recTypeClass_info(RecTypeClass rtc, void *cd,
+ void (*cb)(void *cd, const char *s))
+{
+ for (; rtc; rtc = rtc->next)
+ (*cb)(cd, rtc->recType->name);
+}
+
+void recTypeClass_destroy(RecTypeClass rtc)
+{
+ for (; rtc; rtc = rtc->next)
+ {
+#if HAVE_DLFCN_H
+ if (rtc->module_handle)
+ dlclose(rtc->module_handle);
+#endif
+ }