1 /* $Id: recctrl.c,v 1.11 2004-09-30 07:23:15 adam Exp $
2 Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
5 This file is part of the Zebra server.
7 Zebra is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with Zebra; see the file LICENSE.zebra. If not, write to the
19 Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
31 #include <idzebra/recctrl.h>
35 struct recTypeClass *next;
39 struct recTypeInstance {
41 struct recTypeInstance *next;
48 struct recTypeInstance *entries;
51 #ifdef IDZEBRA_STATIC_TEXT
52 extern RecType idzebra_filter_text[];
54 #ifdef IDZEBRA_STATIC_GRS_XML
56 extern RecType idzebra_filter_grs_xml[];
59 #ifdef IDZEBRA_STATIC_GRS_REGX
60 extern RecType idzebra_filter_grs_regx[];
62 #ifdef IDZEBRA_STATIC_GRS_MARC
63 extern RecType idzebra_filter_grs_marc[];
65 #ifdef IDZEBRA_STATIC_GRS_DANBIB
66 extern RecType idzebra_filter_grs_danbib[];
69 static void recTypeClass_add (struct recTypeClass **rts, RecType *rt,
70 NMEM nmem, void *module_handle);
72 RecTypeClass recTypeClass_create (Res res, NMEM nmem)
74 struct recTypeClass *rts = 0;
75 const char *module_path = res_get_def(res, "modulePath",
78 extern RecType idzebra_filter_grs_sgml[];
79 recTypeClass_add (&rts, idzebra_filter_grs_sgml, nmem, 0);
80 #ifdef IDZEBRA_STATIC_TEXT
81 recTypeClass_add (&rts, idzebra_filter_text, nmem, 0);
83 #ifdef IDZEBRA_STATIC_GRS_XML
85 recTypeClass_add (&rts, idzebra_filter_grs_xml, nmem, 0);
88 #ifdef IDZEBRA_STATIC_GRS_REGX
89 recTypeClass_add (&rts, idzebra_filter_grs_regx, nmem, 0);
91 #ifdef IDZEBRA_STATIC_GRS_MARC
92 recTypeClass_add (&rts, idzebra_filter_grs_marc, nmem, 0);
94 #ifdef IDZEBRA_STATIC_GRS_DANBIB
95 recTypeClass_add (&rts, idzebra_filter_grs_danbib, nmem, 0);
100 DIR *dir = opendir(module_path);
101 yaz_log(LOG_LOG, "searching filters in %s", module_path);
106 while ((de = readdir(dir)))
108 size_t dlen = strlen(de->d_name);
109 if ((de->d_type == DT_REG || de->d_type == DT_LNK)
111 !memcmp(de->d_name, "mod-", 4) &&
112 !strcmp(de->d_name + dlen - 3, ".so"))
115 char fname[FILENAME_MAX*2+1];
116 sprintf(fname, "%.*s/%.*s",
117 FILENAME_MAX, module_path,
118 FILENAME_MAX, de->d_name);
119 mod_p = dlopen(fname, RTLD_NOW|RTLD_GLOBAL);
120 if (mod_p && (fl = dlsym(mod_p, "idzebra_filter")))
122 yaz_log(LOG_LOG, "Loaded filter module %s", fname);
123 recTypeClass_add(&rts, fl, nmem, mod_p);
127 const char *err = dlerror();
128 yaz_log(LOG_WARN, "dlsym failed %s %s",
129 fname, err ? err : "none");
134 const char *err = dlerror();
135 yaz_log(LOG_WARN, "dlopen failed %s %s",
136 fname, err ? err : "none");
147 static void recTypeClass_add (struct recTypeClass **rts, RecType *rt,
148 NMEM nmem, void *module_handle)
152 struct recTypeClass *r = (struct recTypeClass *)
153 nmem_malloc (nmem, sizeof(*r));
158 yaz_log(LOG_LOG, "Adding filter %s", (*rt)->name);
159 r->module_handle = module_handle;
160 module_handle = 0; /* so that we only store module_handle once */
167 void recTypeClass_info(RecTypeClass rtc, void *cd,
168 void (*cb)(void *cd, const char *s))
170 for (; rtc; rtc = rtc->next)
171 (*cb)(cd, rtc->recType->name);
174 void recTypeClass_destroy(RecTypeClass rtc)
176 for (; rtc; rtc = rtc->next)
178 if (rtc->module_handle)
179 dlclose(rtc->module_handle);
183 RecTypes recTypes_init(RecTypeClass rtc, data1_handle dh)
185 RecTypes rts = (RecTypes) nmem_malloc(data1_nmem_get(dh), sizeof(*rts));
187 struct recTypeInstance **rti = &rts->entries;
191 for (; rtc; rtc = rtc->next)
193 *rti = nmem_malloc(data1_nmem_get(dh), sizeof(**rti));
194 (*rti)->recType = rtc->recType;
195 (*rti)->init_flag = 0;
202 void recTypes_destroy (RecTypes rts)
204 struct recTypeInstance *rti;
206 for (rti = rts->entries; rti; rti = rti->next)
209 (*(rti->recType)->destroy)(rti->clientData);
213 RecType recType_byName (RecTypes rts, Res res, const char *name,
216 struct recTypeInstance *rti;
218 for (rti = rts->entries; rti; rti = rti->next)
220 size_t slen = strlen(rti->recType->name);
221 if (!strncmp (rti->recType->name, name, slen)
222 && (name[slen] == '\0' || name[slen] == '.'))
228 (*(rti->recType)->init)(res, rti->recType);
230 *clientDataP = rti->clientData;
234 if (rti->recType->config)
235 (*(rti->recType)->config)(rti->clientData, res, name+slen);