1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) 1995-2012 Index Data
3 * See the file LICENSE for details.
9 #include <yaz/record_conv.h>
11 #include <yaz/wrbuf.h>
14 #include <yaz/record_render.h>
18 #include <yaz/base64.h>
19 #include <yaz/marcdisp.h>
20 #include <yaz/proto.h>
21 #include <yaz/prt-ext.h>
23 #include <libxml/parser.h>
24 #include <libxml/tree.h>
29 "MDA3NjZuYW0gIDIyMDAyNjU4YSA0NTAwMDAxMDAxMjAwMDAwMDAzMDAwNjAwMDEyMDA1MDAx"
30 "NzAwMDE4MDA4MDA0MTAwMDM1MDEwMDAxNzAwMDc2MDIwMDAxNTAwMDkzMDM1MDAxODAwMTA4"
31 "MDQwMDAxODAwMTI2MDQ5MDAwOTAwMTQ0MDUwMDAyNjAwMTUzMDgyMDAxNzAwMTc5MTAwMDAx"
32 "ODAwMTk2MjQ1MDA2NzAwMjE0MjYwMDA1MjAwMjgxMjYzMDAwOTAwMzMzMzAwMDAyNzAwMzQy"
33 "NTAwMDAyNzAwMzY5NTA0MDA1MTAwMzk2NjUwMDA0NDAwNDQ3OTk5MDAwOTAwNDkxHm9jbTI4"
34 "MzM5ODYzHk9Db0xDHjE5OTQwMTA1MDc0NTIyLjAeOTMwNjA5czE5OTQgICAgY291ICAgICAg"
35 "YiAgICAwMDEgMCBlbmcgIB4gIB9hICAgOTMwMDkwNDcgHiAgH2EwMTMwMzA1NTI5HiAgH2Eo"
36 "b2NtKTI4MzM5ODYzHiAgH2FETEMfY0RMQx9kS0tVHiAgH2FLS1VKHjAwH2FRQTc2LjczLkMy"
37 "OB9iRzczIDE5OTQeMDAfYTAwNS4xMy8zHzIyMB4xIB9hR3JhaGFtLCBQYXVsLh4xMB9hT24g"
38 "TGlzcCA6H2JhZHZhbmNlZCB0ZWNobmlxdWVzIGZvciBjb21tb24gTGlzcCAvH2NQYXVsIEdy"
39 "YWhhbS4eICAfYUVuZ2xld29vZCBDbGlmZnMsIE4uSi4gOh9iUHJlbnRpY2UgSGFsbCwfYzE5"
40 "OTQuHiAgH2E5NDEwHiAgH2F4aWlpLCA0MTMgcC4gOx9jMjMgY20uHiAgH2EiQW4gQWxhbiBS"
41 "LiBBcHQgYm9vay4iHiAgH2FJbmNsdWRlcyBiaWJsaW9ncmFwaGljYWwgcmVmZXJlbmNlcyBh"
42 "bmQgaW5kZXguHiAwH2FDT01NT04gTElTUCAoQ29tcHV0ZXIgcHJvZ3JhbSBsYW5ndWFnZSke"
46 "00766nam 22002658a 4500001001200000003000600012005001700018008004100035010001700076020001500093035001800108040001800126049000900144050002600153082001700179100001800196245006700214260005200281263000900333300002700342500002700369504005100396650004400447999000900491\036ocm28339863\036OCoLC\03619940105074522.0\036930609s1994 cou b 001 0 eng \036 \037a 93009047 \036 \037a0130305529\036 \037a(ocm)28339863\036 \037aDLC\037cDLC\037dKKU\036 \037aKKUJ\03600\037aQA76.73.C28\037bG73 1994\03600\037a005.13/3\037220\0361 \037aGraham, Paul.\03610\037aOn Lisp :\037badvanced techniques for common Lisp /\037cPaul Graham.\036 \037aEnglewood Cliffs, N.J. :\037bPrentice Hall,\037c1994.\036 \037a9410\036 \037axiii, 413 p. ;\037c23 cm.\036 \037a\"An Alan R. Apt book.\"\036 \037aIncludes bibliographical references and index.\036 0\037aCOMMON LISP (Computer program language)\036\037lUAHILL\036\035";
48 int marc_size = strlen(bin_marc);
50 yaz_marc_t marc = yaz_marc_create();
51 WRBUF buf = wrbuf_alloc();
53 yaz_base64decode(base_enc, out_rec);
54 YAZ_CHECK(strcmp(out_rec, bin_marc) == 0);
56 yaz_marc_read_iso2709(marc, out_rec, marc_size);
58 yaz_marc_write_marcxml(marc, buf);
60 yaz_marc_destroy(marc);
66 static int test_render(const char *type_spec, int is_marc, const char *input,
67 const char *expected_output)
69 ODR odr = odr_createmem(ODR_ENCODE);
70 const char *actual_output;
73 WRBUF wrbuf = wrbuf_alloc();
75 Z_NamePlusRecord *npr = odr_malloc(odr, sizeof(*npr));
76 npr->which = Z_NamePlusRecord_databaseRecord;
78 npr->u.databaseRecord = z_ext_record_usmarc(odr, input, strlen(input));
80 npr->u.databaseRecord = z_ext_record_xml(odr, input, strlen(input));
82 actual_output = yaz_record_render(npr, 0, wrbuf, type_spec, &actual_len);
84 if (actual_output && expected_output)
86 if (strlen(expected_output) == actual_len &&
87 !memcmp(expected_output, actual_output, actual_len))
91 yaz_log(YLOG_LOG, "Got result");
92 yaz_log(YLOG_LOG, "%.*s", actual_len, actual_output);
93 yaz_log(YLOG_LOG, "Expected result");
94 yaz_log(YLOG_LOG, "%s", expected_output);
97 else if (!actual_output && !expected_output)
99 else if (!actual_output && expected_output)
101 yaz_log(YLOG_LOG, "Got null result, but expected");
102 yaz_log(YLOG_LOG, "%s", expected_output);
106 yaz_log(YLOG_LOG, "Got result, but expected no result");
107 yaz_log(YLOG_LOG, "%.*s", actual_len, actual_output);
109 wrbuf_destroy(wrbuf);
114 int main(int argc, char **argv)
116 YAZ_CHECK_INIT(argc, argv);
120 YAZ_CHECK(test_render("xml", 0, "<my/>", "<my/>"));
122 YAZ_CHECK(test_render(
124 "\x30\x30\x31\x33\x38\x6E\x61\x6D\x20\x20\x32\x32\x30\x30\x30\x37"
125 "\x33\x38\x61\x20\x34\x35\x30\x30\x30\x30\x31\x30\x30\x31\x33\x30"
126 "\x30\x30\x30\x30\x30\x30\x33\x30\x30\x30\x34\x30\x30\x30\x31\x33"
127 "\x31\x30\x30\x30\x30\x31\x37\x30\x30\x30\x31\x37\x32\x34\x35\x30"
128 "\x30\x33\x30\x30\x30\x30\x33\x34\x1E\x20\x20\x20\x31\x31\x32\x32"
129 "\x34\x34\x36\x36\x20\x1E\x44\x4C\x43\x1E\x31\x30\x1F\x61\x4A\x61"
130 "\x63\x6B\x20\x43\x6F\x6C\x6C\x69\x6E\x73\x1E\x31\x30\x1F\x61\x48"
131 "\x6F\x77\x20\x74\x6F\x20\x70\x72\x6F\x67\x72\x61\x6D\x20\x61\x20"
132 "\x63\x6F\x6D\x70\x75\x74\x65\x72\x1E\x1D",
133 "<record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
134 " <leader>00138nam a22000738a 4500</leader>\n"
135 " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
136 " <controlfield tag=\"003\">DLC</controlfield>\n"
137 " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
138 " <subfield code=\"a\">Jack Collins</subfield>\n"
140 " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
141 " <subfield code=\"a\">How to program a computer</subfield>\n"
145 YAZ_CHECK(test_render("xml", 0, "<my/>", "<my/>"));
147 YAZ_CHECK(test_render(
148 "xml; base64=/my/text()", 0,
150 "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
151 "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
152 "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
154 "<?xml version=\"1.0\"?>\n"
155 "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
156 " <leader>00138nam a22000738a 4500</leader>\n"
157 " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
158 " <controlfield tag=\"003\">DLC</controlfield>\n"
159 " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
160 " <subfield code=\"a\">Jack Collins</subfield>\n"
162 " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
163 " <subfield code=\"a\">How to program a computer</subfield>\n"
165 "</record></my>\n"));
167 YAZ_CHECK(test_render(
168 "xml; charset=utf-8; base64=/my/text()", 0,
170 "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
171 "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
172 "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
174 "<?xml version=\"1.0\"?>\n"
175 "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
176 " <leader>00138nam a22000738a 4500</leader>\n"
177 " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
178 " <controlfield tag=\"003\">DLC</controlfield>\n"
179 " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
180 " <subfield code=\"a\">Jack Collins</subfield>\n"
182 " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
183 " <subfield code=\"a\">How to program a computer</subfield>\n"
185 "</record></my>\n"));
187 YAZ_CHECK(test_render(
188 "xml; base64=/my/text();charset=utf-8", 0,
190 "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
191 "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
192 "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
194 "<?xml version=\"1.0\"?>\n"
195 "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
196 " <leader>00138nam a22000738a 4500</leader>\n"
197 " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
198 " <controlfield tag=\"003\">DLC</controlfield>\n"
199 " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
200 " <subfield code=\"a\">Jack Collins</subfield>\n"
202 " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
203 " <subfield code=\"a\">How to program a computer</subfield>\n"
205 "</record></my>\n"));
207 YAZ_CHECK(test_render(
208 "txml;base64=/my/text();charset=utf-8", 0,
210 "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
211 "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
212 "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
214 "<?xml version=\"1.0\"?>\n"
215 "<my><r xmlns=\"http://www.indexdata.com/turbomarc\">\n"
216 " <l>00138nam a22000738a 4500</l>\n"
217 " <c001> 11224466 </c001>\n"
218 " <c003>DLC</c003>\n"
219 " <d100 i1=\"1\" i2=\"0\">\n"
220 " <sa>Jack Collins</sa>\n"
222 " <d245 i1=\"1\" i2=\"0\">\n"
223 " <sa>How to program a computer</sa>\n"
234 * c-file-style: "Stroustrup"
235 * indent-tabs-mode: nil
237 * vim: shiftwidth=4 tabstop=8 expandtab