1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
/* This file is part of the Zebra server.
Copyright (C) Index Data
Zebra is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any later
version.
Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*/
#if HAVE_CONFIG_H
#include <config.h>
#endif
#include <assert.h>
#include <string.h>
#include <stdlib.h>
#include <yaz/log.h>
#include <yaz/proto.h>
#include <idzebra/data1.h>
static Odr_int *f_integer(data1_node *c, ODR o)
{
char intbuf[64];
if (!c->child || c->child->which != DATA1N_data ||
c->child->u.data.len >= sizeof(intbuf))
return 0;
memcpy(intbuf, c->child->u.data.data, c->u.data.len);
intbuf[c->u.data.len] = '\0';
return odr_intdup(o, atoi(intbuf));
}
static char *f_string(data1_node *c, ODR o)
{
char *r;
if (!c->child || c->child->which != DATA1N_data)
return 0;
r = (char *)odr_malloc(o, c->child->u.data.len + 1);
memcpy(r, c->child->u.data.data, c->child->u.data.len);
r[c->child->u.data.len] = '\0';
return r;
}
Z_BriefBib *data1_nodetosummary(data1_handle dh, data1_node *n,
int select, ODR o)
{
Z_BriefBib *res = (Z_BriefBib *)odr_malloc(o, sizeof(*res));
data1_node *c;
assert(n->which == DATA1N_root);
if (strcmp(n->u.root.type, "summary"))
{
yaz_log(YLOG_WARN, "Attempt to convert a non-summary record");
return 0;
}
res->title = "[UNKNOWN]";
res->author = 0;
res->callNumber = 0;
res->recordType = 0;
res->bibliographicLevel = 0;
res->num_format = 0;
res->format = 0;
res->publicationPlace = 0;
res->publicationDate = 0;
res->targetSystemKey = 0;
res->satisfyingElement = 0;
res->rank = 0;
res->documentId = 0;
res->abstract = 0;
res->otherInfo = 0;
for (c = n->child; c; c = c->next)
{
if (c->which != DATA1N_tag || !c->u.tag.element)
{
yaz_log(YLOG_WARN, "Malformed element in Summary record");
return 0;
}
if (select && !c->u.tag.node_selected)
continue;
switch (c->u.tag.element->tag->value.numeric)
{
case 0: res->title = f_string(c, o); break;
case 1: res->author = f_string(c, o); break;
case 2: res->callNumber = f_string(c, o); break;
case 3: res->recordType = f_string(c, o); break;
case 4: res->bibliographicLevel = f_string(c, o); break;
case 5: abort(); /* TODO */
case 10: res->publicationPlace = f_string(c, o); break;
case 11: res->publicationDate = f_string(c, o); break;
case 12: res->targetSystemKey = f_string(c, o); break;
case 13: res->satisfyingElement = f_string(c, o); break;
case 14: res->rank = f_integer(c, o); break;
case 15: res->documentId = f_string(c, o); break;
case 16: res->abstract = f_string(c, o); break;
case 17: abort(); /* TODO */
default:
yaz_log(YLOG_WARN, "Unknown element in Summary record.");
}
}
return res;
}
/*
* Local variables:
* c-basic-offset: 4
* c-file-style: "Stroustrup"
* indent-tabs-mode: nil
* End:
* vim: shiftwidth=4 tabstop=8 expandtab
*/
|
