retrieval/d1_sumout.c

   1 /*
   2  * Copyright (c) 1995, Index Data.
   3  * See the file LICENSE for details.
   4  * Sebastian Hammer, Adam Dickmeiss
   5  *
   6  * $Log: d1_sumout.c,v $
   7  * Revision 1.2  1997-09-17 12:10:38  adam
   8  * YAZ version 1.4.
   9  *
  10  * Revision 1.1  1996/06/10 08:56:03  quinn
  11  * Work on Summary.
  12  *
  13  *
  14  */
  15
  16 #include <assert.h>
  17 #include <string.h>
  18 #include <stdlib.h>
  19
  20 #include <log.h>
  21 #include <proto.h>
  22 #include <data1.h>
  23
  24 static int *f_integer(data1_node *c, ODR o)
  25 {
  26     int *r;
  27     char intbuf[64];
  28
  29     if (!c->child || c->child->which != DATA1N_data ||
  30         c->child->u.data.len > 63)
  31         return 0;
  32     r = odr_malloc(o, sizeof(*r));
  33     sprintf(intbuf, "%.*s", 63, c->child->u.data.data);
  34     *r = atoi(intbuf);
  35     return r;
  36 }
  37
  38 static char *f_string(data1_node *c, ODR o)
  39 {
  40     char *r;
  41
  42     if (!c->child || c->child->which != DATA1N_data)
  43         return 0;
  44     r = odr_malloc(o, c->child->u.data.len+1);
  45     memcpy(r, c->child->u.data.data, c->child->u.data.len);
  46     r[c->child->u.data.len] = '\0';
  47     return r;
  48 }
  49
  50 Z_BriefBib *data1_nodetosummary (data1_handle dh, data1_node *n,
  51                                  int select, ODR o)
  52 {
  53     Z_BriefBib *res = odr_malloc(o, sizeof(*res));
  54     data1_node *c;
  55
  56     assert(n->which == DATA1N_root);
  57     if (strcmp(n->u.root.type, "summary"))
  58     {
  59         logf(LOG_WARN, "Attempt to convert a non-summary record");
  60         return 0;
  61     }
  62
  63     res->title = "[UNKNOWN]";
  64     res->author = 0;
  65     res->callNumber = 0;
  66     res->recordType = 0;
  67     res->bibliographicLevel = 0;
  68     res->num_format = 0;
  69     res->format = 0;
  70     res->publicationPlace = 0;
  71     res->publicationDate = 0;
  72     res->targetSystemKey = 0;
  73     res->satisfyingElement = 0;
  74     res->rank = 0;
  75     res->documentId = 0;
  76     res->abstract = 0;
  77     res->otherInfo = 0;
  78
  79     for (c = n->child; c; c = c->next)
  80     {
  81         if (c->which != DATA1N_tag || !c->u.tag.element)
  82         {
  83             logf(LOG_WARN, "Malformed element in Summary record");
  84             return 0;
  85         }
  86         if (select && !c->u.tag.node_selected)
  87             continue;
  88         switch (c->u.tag.element->tag->value.numeric)
  89         {
  90             case 0: res->title = f_string(c, o); break;
  91             case 1: res->author = f_string(c, o); break;
  92             case 2: res->callNumber = f_string(c, o); break;
  93             case 3: res->recordType = f_string(c, o); break;
  94             case 4: res->bibliographicLevel = f_string(c, o); break;
  95             case 5: abort();   /* TODO */
  96             case 10: res->publicationPlace = f_string(c, o); break;
  97             case 11: res->publicationDate = f_string(c, o); break;
  98             case 12: res->targetSystemKey = f_string(c, o); break;
  99             case 13: res->satisfyingElement = f_string(c, o); break;
 100             case 14: res->rank = f_integer(c, o); break;
 101             case 15: res->documentId = f_string(c, o); break;
 102             case 16: res->abstract = f_string(c, o); break;
 103             case 17: abort(); /* TODO */
 104             default:
 105                 logf(LOG_WARN, "Unknown element in Summary record.");
 106         }
 107     }
 108     return res;
 109 }