/*
- * Copyright (c) 1995, Index Data.
+ * Copyright (c) 1995-1997, Index Data.
* See the file LICENSE for details.
* Sebastian Hammer, Adam Dickmeiss
*
* $Log: d1_tagset.c,v $
- * Revision 1.2 1995-11-01 13:54:49 quinn
+ * Revision 1.8 1998-05-18 13:07:07 adam
+ * Changed the way attribute sets are handled by the retriaval module.
+ * Extended Explain conversion / schema.
+ * Modified server and client to work with ASN.1 compiled protocol handlers.
+ *
+ * Revision 1.7 1998/02/11 11:53:35 adam
+ * Changed code so that it compiles as C++.
+ *
+ * Revision 1.6 1997/09/17 12:10:38 adam
+ * YAZ version 1.4.
+ *
+ * Revision 1.5 1997/09/05 09:50:57 adam
+ * Removed global data1_tabpath - uses data1_get_tabpath() instead.
+ *
+ * Revision 1.4 1995/11/13 09:27:38 quinn
+ * Fiddling with the variant stuff.
+ *
+ * Revision 1.3 1995/11/01 16:34:58 quinn
+ * Making data1 look for tables in data1_tabpath
+ *
+ * Revision 1.2 1995/11/01 13:54:49 quinn
* Minor adjustments
*
* Revision 1.1 1995/11/01 11:56:09 quinn
#include <ctype.h>
#include <string.h>
-#include <xmalloc.h>
#include <log.h>
+#include <tpath.h>
#include <data1.h>
* functions eventually.
*/
-data1_datatype data1_maptype(char *t)
+data1_datatype data1_maptype (data1_handle dh, char *t)
{
static struct
{
{"intunit", DATA1K_intunit},
{"int", DATA1K_int},
{"octetstring", DATA1K_octetstring},
- {0, -1}
+ {"null", DATA1K_null},
+ {NULL, (data1_datatype) -1}
};
int i;
return 0;
}
-data1_tag *data1_gettagbynum(data1_tagset *s, int type, int value)
+data1_tag *data1_gettagbynum (data1_handle dh, data1_tagset *s,
+ int type, int value)
{
data1_tag *r;
if (r->which == DATA1T_numeric && r->value.numeric == value)
return r;
/* scan included sets */
- if (s->children && (r = data1_gettagbynum(s->children, type, value)))
+ if (s->children && (r = data1_gettagbynum (dh, s->children,
+ type, value)))
return r;
}
return 0;
}
-data1_tag *data1_gettagbyname(data1_tagset *s, char *name)
+data1_tag *data1_gettagbyname (data1_handle dh, data1_tagset *s, char *name)
{
data1_tag *r;
return r;
}
/* scan included sets */
- if (s->children && (r = data1_gettagbyname(s->children, name)))
+ if (s->children && (r = data1_gettagbyname (dh, s->children, name)))
return r;
}
return 0;
}
-data1_tagset *data1_read_tagset(char *file)
+data1_tagset *data1_read_tagset (data1_handle dh, char *file)
{
+ NMEM mem = data1_nmem_get (dh);
char line[512], *r, cmd[512], args[512];
data1_tagset *res = 0, **childp;
data1_tag **tagp;
FILE *f;
- if (!(f = fopen(file, "r")))
+ if (!(f = yaz_path_fopen(data1_get_tabpath(dh), file, "r")))
{
logf(LOG_WARN|LOG_ERRNO, "%s", file);
return 0;
}
- if (!(res = xmalloc(sizeof(*res))))
- abort();
+ res = (data1_tagset *)nmem_malloc(mem, sizeof(*res));
res->name = 0;
res->type = 0;
res->tags = 0;
fclose(f);
return 0;
}
- if (!(rr = *tagp = xmalloc(sizeof(*rr))))
- abort();
-
+ rr = *tagp = (data1_tag *)nmem_malloc(mem, sizeof(*rr));
rr->tagset = res;
rr->next = 0;
rr->which = DATA1T_numeric;
* how to deal with local numeric tags?
*/
- if (!(rr->kind = data1_maptype(type)))
+ if (!(rr->kind = data1_maptype(dh, type)))
{
logf(LOG_WARN, "Unknown datatype %s in %s", type, file);
fclose(f);
{
char *e;
- if (!(*npp = xmalloc(sizeof(**npp))))
- abort();
+ *npp = (data1_name *)nmem_malloc(mem, sizeof(**npp));
if ((e = strchr(nm, '/')))
*(e++) = '\0';
- if (!((*npp)->name = xmalloc(strlen(nm)+1)))
- abort();
- strcpy((*npp)->name, nm);
+ (*npp)->name = nmem_strdup(mem, nm);
(*npp)->next = 0;
npp = &(*npp)->next;
nm = e;
fclose(f);
return 0;
}
- if (!(res->name = xmalloc(strlen(args)+1)))
- abort();
- strcpy(res->name, name);
+ res->name = nmem_strdup(mem, args);
}
else if (!strcmp(cmd, "reference"))
{
fclose(f);
return 0;
}
- if (!(*childp = data1_read_tagset(name)))
+ if (!(*childp = data1_read_tagset (dh, name)))
{
logf(LOG_WARN, "Inclusion failed in %s", file);
fclose(f);