X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=retrieval%2Fd1_tagset.c;fp=retrieval%2Fd1_tagset.c;h=0000000000000000000000000000000000000000;hp=1abd9fe0aa55161b4f02494ed2790b74ea90a9a9;hb=95a7ea9b644c520d7d7b7c5d0c71ca44dd58a225;hpb=6866fce7b026f5ce8b75945f72a844d7b44abd85 diff --git a/retrieval/d1_tagset.c b/retrieval/d1_tagset.c deleted file mode 100644 index 1abd9fe..0000000 --- a/retrieval/d1_tagset.c +++ /dev/null @@ -1,303 +0,0 @@ -/* - * Copyright (c) 1995-1999, Index Data. - * See the file LICENSE for details. - * Sebastian Hammer, Adam Dickmeiss - * - * $Log: d1_tagset.c,v $ - * Revision 1.15 2002-04-04 20:49:46 adam - * New functions yaz_is_abspath, yaz_path_fopen_base - * - * Revision 1.14 1999/11/30 13:47:12 adam - * Improved installation. Moved header files to include/yaz. - * - * Revision 1.13 1999/10/21 12:06:29 adam - * Retrieval module no longer uses ctype.h - functions. - * - * Revision 1.12 1999/08/27 09:40:32 adam - * Renamed logf function to yaz_log. Removed VC++ project files. - * - * Revision 1.11 1998/10/19 14:16:36 adam - * Fixed data1_gettagbyname. Bug introduced by previous revision. - * - * Revision 1.10 1998/10/15 08:29:17 adam - * Tag set type may be specified in reference to it using "tagset" - * directive in .abs-files and "include" directive in .tag-files. - * - * Revision 1.9 1998/10/13 16:09:53 adam - * Added support for arbitrary OID's for tagsets, schemas and attribute sets. - * Added support for multiple attribute set references and tagset references - * from an abstract syntax file. - * Fixed many bad logs-calls in routines that read the various - * specifications regarding data1 (*.abs,*.att,...) and made the messages - * consistent whenever possible. - * Added extra 'lineno' argument to function readconf_line. - * - * 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 - * Added Retrieval (data management) functions en masse. - * - * - */ - -#include -#include -#include - -#include -#include - -/* - * We'll probably want to add some sort of hashed index to these lookup- - * functions eventually. - */ - -data1_datatype data1_maptype (data1_handle dh, char *t) -{ - static struct - { - char *tname; - data1_datatype type; - } types[] = - { - {"structured", DATA1K_structured}, - {"string", DATA1K_string}, - {"numeric", DATA1K_numeric}, - {"oid", DATA1K_oid}, - {"bool", DATA1K_bool}, - {"generalizedtime", DATA1K_generalizedtime}, - {"intunit", DATA1K_intunit}, - {"int", DATA1K_int}, - {"octetstring", DATA1K_octetstring}, - {"null", DATA1K_null}, - {NULL, (data1_datatype) -1} - }; - int i; - - for (i = 0; types[i].tname; i++) - if (!data1_matchstr(types[i].tname, t)) - return types[i].type; - return DATA1K_unknown; -} - -data1_tag *data1_gettagbynum (data1_handle dh, data1_tagset *s, - int type, int value) -{ - data1_tag *r; - - for (; s; s = s->next) - { - /* scan local set */ - if (type == s->type) - for (r = s->tags; r; r = r->next) - if (r->which == DATA1T_numeric && r->value.numeric == value) - return r; - /* scan included sets */ - if (s->children && - (r = data1_gettagbynum (dh, s->children, type, value))) - return r; - } - return 0; -} - -data1_tag *data1_gettagbyname (data1_handle dh, data1_tagset *s, - const char *name) -{ - data1_tag *r; - - for (; s; s = s->next) - { - /* scan local set */ - for (r = s->tags; r; r = r->next) - { - data1_name *np; - - for (np = r->names; np; np = np->next) - if (!data1_matchstr(np->name, name)) - return r; - } - /* scan included sets */ - if (s->children && (r = data1_gettagbyname (dh, s->children, name))) - return r; - } - return 0; -} - -data1_tagset *data1_empty_tagset (data1_handle dh) -{ - data1_tagset *res = - (data1_tagset *) nmem_malloc(data1_nmem_get (dh), sizeof(*res)); - res->name = 0; - res->reference = VAL_NONE; - res->tags = 0; - res->type = 0; - res->children = 0; - res->next = 0; - return res; -} - -data1_tagset *data1_read_tagset (data1_handle dh, const char *file, int type) -{ - NMEM mem = data1_nmem_get (dh); - data1_tagset *res = 0; - data1_tagset **childp; - data1_tag **tagp; - FILE *f; - int lineno = 0; - int argc; - char *argv[50], line[512]; - - if (!(f = data1_path_fopen(dh, file, "r"))) - { - yaz_log(LOG_WARN|LOG_ERRNO, "%s", file); - return 0; - } - res = data1_empty_tagset (dh); - res->type = type; - childp = &res->children; - tagp = &res->tags; - - while ((argc = readconf_line(f, &lineno, line, 512, argv, 50))) - { - char *cmd = *argv; - if (!strcmp(cmd, "tag")) - { - int value; - char *names, *type, *nm; - data1_tag *rr; - data1_name **npp; - - if (argc != 4) - { - yaz_log(LOG_WARN, "%s:%d: Bad # args to tag", file, lineno); - continue; - } - value = atoi(argv[1]); - names = argv[2]; - type = argv[3]; - - rr = *tagp = (data1_tag *)nmem_malloc(mem, sizeof(*rr)); - rr->tagset = res; - rr->next = 0; - rr->which = DATA1T_numeric; - rr->value.numeric = value; - /* - * how to deal with local numeric tags? - */ - - if (!(rr->kind = data1_maptype(dh, type))) - { - yaz_log(LOG_WARN, "%s:%d: Unknown datatype %s", - file, lineno, type); - fclose(f); - return 0; - } - - /* read namelist */ - nm = names; - npp = &rr->names; - do - { - char *e; - - *npp = (data1_name *)nmem_malloc(mem, sizeof(**npp)); - if ((e = strchr(nm, '/'))) - *(e++) = '\0'; - (*npp)->name = nmem_strdup(mem, nm); - (*npp)->next = 0; - npp = &(*npp)->next; - nm = e; - } - while (nm); - tagp = &rr->next; - } - else if (!strcmp(cmd, "name")) - { - if (argc != 2) - { - yaz_log(LOG_WARN, "%s:%d: Bad # args to name", file, lineno); - continue; - } - res->name = nmem_strdup(mem, argv[1]); - } - else if (!strcmp(cmd, "reference")) - { - char *name; - - if (argc != 2) - { - yaz_log(LOG_WARN, "%s:%d: Bad # args to reference", - file, lineno); - continue; - } - name = argv[1]; - if ((res->reference = oid_getvalbyname(name)) == VAL_NONE) - { - yaz_log(LOG_WARN, "%s:%d: Unknown tagset ref '%s'", - file, lineno, name); - continue; - } - } - else if (!strcmp(cmd, "type")) - { - if (argc != 2) - { - yaz_log (LOG_WARN, "%s:%d: Bad # args to type", file, lineno); - continue; - } - if (!res->type) - res->type = atoi(argv[1]); - } - else if (!strcmp(cmd, "include")) - { - char *name; - int type = 0; - - if (argc < 2) - { - yaz_log(LOG_WARN, "%s:%d: Bad # args to include", - file, lineno); - continue; - } - name = argv[1]; - if (argc == 3) - type = atoi(argv[2]); - *childp = data1_read_tagset (dh, name, type); - if (!(*childp)) - { - yaz_log(LOG_WARN, "%s:%d: Inclusion failed for tagset %s", - file, lineno, name); - continue; - } - childp = &(*childp)->next; - } - else - { - yaz_log(LOG_WARN, "%s:%d: Unknown directive '%s'", - file, lineno, cmd); - } - } - fclose(f); - return res; -}