data1/d1_sumout.c

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