2 * Copyright (c) 1995, Index Data.
3 * See the file LICENSE for details.
4 * Sebastian Hammer, Adam Dickmeiss
6 * $Log: d1_sumout.c,v $
7 * Revision 1.1 1996-06-10 08:56:03 quinn
21 static int *f_integer(data1_node *c, ODR o)
26 if (!c->child || c->child->which != DATA1N_data ||
27 c->child->u.data.len > 63)
29 r = odr_malloc(o, sizeof(*r));
30 sprintf(intbuf, "%.*s", 63, c->child->u.data.data);
35 static char *f_string(data1_node *c, ODR o)
39 if (!c->child || c->child->which != DATA1N_data)
41 r = odr_malloc(o, c->child->u.data.len+1);
42 memcpy(r, c->child->u.data.data, c->child->u.data.len);
43 r[c->child->u.data.len] = '\0';
47 Z_BriefBib *data1_nodetosummary(data1_node *n, int select, ODR o)
49 Z_BriefBib *res = odr_malloc(o, sizeof(*res));
52 assert(n->which == DATA1N_root);
53 if (strcmp(n->u.root.type, "summary"))
55 logf(LOG_WARN, "Attempt to convert a non-summary record");
59 res->title = "[UNKNOWN]";
63 res->bibliographicLevel = 0;
66 res->publicationPlace = 0;
67 res->publicationDate = 0;
68 res->targetSystemKey = 0;
69 res->satisfyingElement = 0;
75 for (c = n->child; c; c = c->next)
77 if (c->which != DATA1N_tag || !c->u.tag.element)
79 logf(LOG_WARN, "Malformed element in Summary record");
82 if (select && !c->u.tag.node_selected)
84 switch (c->u.tag.element->tag->value.numeric)
86 case 0: res->title = f_string(c, o); break;
87 case 1: res->author = f_string(c, o); break;
88 case 2: res->callNumber = f_string(c, o); break;
89 case 3: res->recordType = f_string(c, o); break;
90 case 4: res->bibliographicLevel = f_string(c, o); break;
91 case 5: abort(); /* TODO */
92 case 10: res->publicationPlace = f_string(c, o); break;
93 case 11: res->publicationDate = f_string(c, o); break;
94 case 12: res->targetSystemKey = f_string(c, o); break;
95 case 13: res->satisfyingElement = f_string(c, o); break;
96 case 14: res->rank = f_integer(c, o); break;
97 case 15: res->documentId = f_string(c, o); break;
98 case 16: res->abstract = f_string(c, o); break;
99 case 17: abort(); /* TODO */
101 logf(LOG_WARN, "Unknown element in Summary record.");