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
|
/* 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
*/
/*
* This module generates SOIF (Simple Object Interchange Format) records
* from d1-nodes. nested elements are flattened out, depth first, by
* concatenating the tag names at each level.
*/
#if HAVE_CONFIG_H
#include <config.h>
#endif
#include <yaz/wrbuf.h>
#include <yaz/snprintf.h>
#include <idzebra/data1.h>
static int nodetoelement(data1_node *n, int select, const char *prefix, WRBUF b)
{
data1_node *c;
char tmp[1024];
for (c = n->child; c; c = c->next)
{
char *tag;
if (c->which == DATA1N_tag)
{
if (select && !c->u.tag.node_selected)
continue;
if (c->u.tag.element && c->u.tag.element->tag)
tag = c->u.tag.element->tag->names->name; /* first name */
else
tag = c->u.tag.tag; /* local string tag */
if (prefix)
yaz_snprintf(tmp, sizeof(tmp), "%s-%s", prefix, tag);
else
yaz_snprintf(tmp, sizeof(tmp), "%s", tag);
if (nodetoelement(c, select, tmp, b) < 0)
return 0;
}
else if (c->which == DATA1N_data)
{
char *p = c->u.data.data;
int l = c->u.data.len;
wrbuf_puts(b, prefix);
wrbuf_printf(b, "{%d}:\t", l);
wrbuf_write(b, p, l);
wrbuf_putc(b, '\n');
}
}
return 0;
}
char *data1_nodetosoif(data1_handle dh, data1_node *n, int select, int *len)
{
WRBUF b = data1_get_wrbuf(dh);
wrbuf_rewind(b);
if (n->which != DATA1N_root)
return 0;
wrbuf_printf(b, "@%s{\n", n->u.root.type);
if (nodetoelement(n, select, 0, b))
return 0;
wrbuf_puts(b, "}\n");
*len = wrbuf_len(b);
return wrbuf_buf(b);
}
/*
* Local variables:
* c-basic-offset: 4
* c-file-style: "Stroustrup"
* indent-tabs-mode: nil
* End:
* vim: shiftwidth=4 tabstop=8 expandtab
*/
|
