retrieval/d1_attset.c

   1 /*
   2  * Copyright (c) 1995-1997, Index Data.
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: d1_attset.c,v $
   7  * Revision 1.7  1997-09-17 12:10:34  adam
   8  * YAZ version 1.4.
   9  *
  10  * Revision 1.6  1997/09/05 09:50:56  adam
  11  * Removed global data1_tabpath - uses data1_get_tabpath() instead.
  12  *
  13  * Revision 1.5  1996/05/09 07:27:43  quinn
  14  * Multiple local attributes values supported.
  15  *
  16  * Revision 1.4  1996/02/21  15:23:36  quinn
  17  * Reversed fclose and return;
  18  *
  19  * Revision 1.3  1995/12/13  17:14:26  quinn
  20  * *** empty log message ***
  21  *
  22  * Revision 1.2  1995/11/01  16:34:55  quinn
  23  * Making data1 look for tables in data1_tabpath
  24  *
  25  * Revision 1.1  1995/11/01  11:56:07  quinn
  26  * Added Retrieval (data management) functions en masse.
  27  *
  28  *
  29  */
  30
  31 #include <ctype.h>
  32 #include <stdio.h>
  33 #include <assert.h>
  34 #include <stdlib.h>
  35
  36 #include <log.h>
  37 #include <d1_attset.h>
  38 #include <data1.h>
  39 #include <tpath.h>
  40
  41 data1_att *data1_getattbyname(data1_handle dh, data1_attset *s, char *name)
  42 {
  43     data1_att *r;
  44
  45     for (; s; s = s->next)
  46     {
  47         /* scan local set */
  48         for (r = s->atts; r; r = r->next)
  49             if (!data1_matchstr(r->name, name))
  50                 return r;
  51         /* scan included sets */
  52         if (s->children && (r = data1_getattbyname (dh, s->children, name)))
  53             return r;
  54     }
  55     return 0;
  56 }
  57
  58 data1_attset *data1_read_attset(data1_handle dh, char *file)
  59 {
  60     char line[512], *r, cmd[512], args[512];
  61     data1_attset *res = 0, **childp;
  62     data1_att **attp;
  63     FILE *f;
  64     NMEM mem = data1_nmem_get (dh);
  65
  66     if (!(f = yaz_path_fopen(data1_get_tabpath(dh), file, "r")))
  67     {
  68         logf(LOG_WARN|LOG_ERRNO, "%s", file);
  69         return 0;
  70     }
  71
  72     res = nmem_malloc(mem, sizeof(*res));
  73     res->name = 0;
  74     res->reference = VAL_NONE;
  75     res->ordinal = -1;
  76     res->atts = 0;
  77     res->children = res->next = 0;
  78     childp = &res->children;
  79     attp = &res->atts;
  80
  81     for (;;)
  82     {
  83         while ((r = fgets(line, 512, f)))
  84         {
  85             while (*r && isspace(*r))
  86                 r++;
  87             if (*r && *r != '#')
  88                 break;
  89         }
  90         if (!r)
  91         {
  92             fclose(f);
  93             return res;
  94         }
  95         if (sscanf(r, "%s %[^\n]", cmd, args) < 2)
  96             *args = '\0';
  97         if (!strcmp(cmd, "att"))
  98         {
  99             int num, rr;
 100             char name[512], localstr[512];
 101             data1_att *t;
 102             data1_local_attribute *locals;
 103
 104             if ((rr = sscanf(args, "%511d %s %511s", &num, name, localstr)) < 2)
 105             {
 106                 logf(LOG_WARN, "Not enough arguments to att in '%s' in %s",
 107                     args, file);
 108                 fclose(f);
 109                 return 0;
 110             }
 111             if (rr < 3) /* no local attributes given */
 112             {
 113                 locals = nmem_malloc(mem, sizeof(*locals));
 114                 locals->local = num;
 115                 locals->next = 0;
 116             }
 117             else /* parse the string "local{,local}" */
 118             {
 119                 char *p = localstr;
 120                 data1_local_attribute **ap = &locals;
 121                 do
 122                 {
 123                     *ap = nmem_malloc(mem, sizeof(**ap));
 124                     (*ap)->local = atoi(p);
 125                     (*ap)->next = 0;
 126                     ap = &(*ap)->next;
 127                 }
 128                 while ((p = strchr(p, ',')) && *(++p));
 129             }
 130             t = *attp = nmem_malloc(mem, sizeof(*t));
 131             t->parent = res;
 132             t->name = nmem_strdup(mem, name);
 133             t->value = num;
 134             t->locals = locals;
 135             t->next = 0;
 136             attp = &t->next;
 137         }
 138         else if (!strcmp(cmd, "name"))
 139         {
 140             char name[512];
 141
 142             if (!sscanf(args, "%s", name))
 143             {
 144                 logf(LOG_WARN, "%s malformed name directive in %s", file);
 145                 fclose(f);
 146                 return 0;
 147             }
 148             res->name = nmem_strdup(mem, args);
 149         }
 150         else if (!strcmp(cmd, "reference"))
 151         {
 152             char name[512];
 153
 154             if (!sscanf(args, "%s", name))
 155             {
 156                 logf(LOG_WARN, "%s malformed reference directive in %s", file);
 157                 fclose(f);
 158                 return 0;
 159             }
 160             if ((res->reference = oid_getvalbyname(name)) == VAL_NONE)
 161             {
 162                 logf(LOG_WARN, "Unknown attset name '%s' in %s", name, file);
 163                 fclose(f);
 164                 return 0;
 165             }
 166         }
 167         else if (!strcmp(cmd, "ordinal"))
 168         {
 169             if (!sscanf(args, "%d", &res->ordinal))
 170             {
 171                 logf(LOG_WARN, "%s malformed ordinal directive in %s", file);
 172                 fclose(f);
 173                 return 0;
 174             }
 175         }
 176         else if (!strcmp(cmd, "include"))
 177         {
 178             char name[512];
 179
 180             if (!sscanf(args, "%s", name))
 181             {
 182                 logf(LOG_WARN, "%s malformed reference directive in %s", file);
 183                 fclose(f);
 184                 return 0;
 185             }
 186             if (!(*childp = data1_read_attset (dh, name)))
 187             {
 188                 logf(LOG_WARN, "Inclusion failed in %s", file);
 189                 fclose(f);
 190                 return 0;
 191             }
 192             childp = &(*childp)->next;
 193         }
 194         else
 195         {
 196             logf(LOG_WARN, "Unknown directive '%s' in %s", cmd, file);
 197             fclose(f);
 198             return 0;
 199         }
 200     }
 201 }