retrieval/d1_varset.c

   1 /*
   2  * Copyright (c) 1995, Index Data.
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: d1_varset.c,v $
   7  * Revision 1.2  1995-11-01 13:54:50  quinn
   8  * Minor adjustments
   9  *
  10  * Revision 1.1  1995/11/01  11:56:09  quinn
  11  * Added Retrieval (data management) functions en masse.
  12  *
  13  *
  14  */
  15
  16 #include <string.h>
  17 #include <stdlib.h>
  18
  19 #include <readconf.h>
  20 #include <oid.h>
  21 #include <log.h>
  22
  23 #include <data1.h>
  24
  25 data1_vartype *data1_getvartypebyct(data1_varset *set, char *class, char *type)
  26 {
  27     data1_varclass *c;
  28     data1_vartype *t;
  29
  30     for (c = set->classes; c; c = c->next)
  31         if (!data1_matchstr(c->name, class))
  32         {
  33             for (t = c->types; t; t = t->next)
  34                 if (!data1_matchstr(t->name, type))
  35                     return t;
  36             logf(LOG_WARN, "Unknown variant type %s in class %s", type, class);
  37             return 0;
  38         }
  39     logf(LOG_WARN, "Unknown variant class %s", class);
  40     return 0;
  41 }
  42
  43 data1_varset *data1_read_varset(char *file)
  44 {
  45     data1_varset *res = xmalloc(sizeof(*res));
  46     data1_varclass **classp = &res->classes, *class = 0;
  47     data1_vartype **typep = 0;
  48     FILE *f;
  49     int argc;
  50     char *argv[50],line[512];
  51
  52     res->name = 0;
  53     res->reference = VAL_NONE;
  54     res->classes = 0;
  55
  56     if (!(f = fopen(file, "r")))
  57     {
  58         logf(LOG_WARN|LOG_ERRNO, "%s", file);
  59         return 0;
  60     }
  61     while ((argc = readconf_line(f, line, 512, argv, 50)))
  62         if (!strcmp(argv[0], "class"))
  63         {
  64             data1_varclass *r;
  65
  66             if (argc != 3)
  67             {
  68                 logf(LOG_FATAL, "%s: malformed class directive", file);
  69                 fclose(f);
  70                 return 0;
  71             }
  72             *classp = r = class = xmalloc(sizeof(*r));
  73             r->set = res;
  74             r->class = atoi(argv[1]);
  75             r->name = xmalloc(strlen(argv[2])+1);
  76             strcpy(r->name, argv[2]);
  77             r->types = 0;
  78             typep = &r->types;
  79             r->next = 0;
  80             classp = &r->next;
  81         }
  82         else if (!strcmp(argv[0], "type"))
  83         {
  84             data1_vartype *r;
  85
  86             if (!typep)
  87             {
  88                 logf(LOG_WARN, "%s: class directive must precede type", file);
  89                 fclose(f);
  90                 return 0;
  91             }
  92             if (argc != 4)
  93             {
  94                 logf(LOG_WARN, "%s: Malformed type directive", file);
  95                 fclose(f);
  96                 return 0;
  97             }
  98             *typep = r = xmalloc(sizeof(*r));
  99             r->name = xmalloc(strlen(argv[2])+1);
 100             strcpy(r->name, argv[2]);
 101             r->class = class;
 102             r->type = atoi(argv[1]);
 103             if (!(r->datatype = data1_maptype(argv[3])))
 104             {
 105                 logf(LOG_WARN, "%s: Unknown datatype '%s'", file, argv[3]);
 106                 fclose(f);
 107                 return 0;
 108             }
 109             r->next = 0;
 110             typep = &r->next;
 111         }
 112         else if (!strcmp(argv[0], "name"))
 113         {
 114             if (argc != 2)
 115             {
 116                 logf(LOG_WARN, "%s name: Expected 1 argument", file);
 117                 fclose(f);
 118                 return 0;
 119             }
 120             res->name = xmalloc(strlen(argv[1])+1);
 121             strcpy(res->name, argv[1]);
 122         }
 123         else if (!strcmp(argv[0], "reference"))
 124         {
 125             if (argc != 2)
 126             {
 127                 logf(LOG_WARN, "%s: reference: Expected 1 argument", file);
 128                 fclose(f);
 129                 return 0;
 130             }
 131             if ((res->reference = oid_getvalbyname(argv[1])) == VAL_NONE)
 132             {
 133                 logf(LOG_WARN, "Unknown reference '%s' in %s", argv[1], file);
 134                 fclose(f);
 135                 return 0;
 136             }
 137         }
 138         else
 139             logf(LOG_WARN, "varset: Unknown directive '%s' in %s", argv[0],
 140                 file);
 141
 142     fclose(f);
 143     return res;
 144 }