/* This file is part of the YAZ toolkit.
- * Copyright (C) 1995-2012 Index Data
+ * Copyright (C) 1995-2013 Index Data
* See the file LICENSE for details.
*/
#if HAVE_CONFIG_H
#include <yaz/wrbuf.h>
#include <string.h>
#include <yaz/log.h>
-
-#if YAZ_HAVE_XML2
+#include <yaz/record_render.h>
#include <yaz/base64.h>
#include <yaz/marcdisp.h>
+#include <yaz/proto.h>
+#include <yaz/prt-ext.h>
+
+#if YAZ_HAVE_XML2
#include <libxml/parser.h>
#include <libxml/tree.h>
+#endif
+
+void test1(void)
+{
+ int buflen;
+ for (buflen = 0; buflen < 256; buflen++)
+ {
+ char buf[256];
+ char buf_a[1024];
+ char buf_b[1024];
+ int i;
+ for (i = 0; i < buflen; i++)
+ buf[i] = 1 + i;
+ buf[i] = 0;
+
+ yaz_base64encode(buf, buf_a);
-void test(void)
+ YAZ_CHECK(yaz_base64decode(buf_a, buf_b) == 0);
+
+ YAZ_CHECK(strcmp(buf, buf_b) == 0);
+ }
+}
+
+void test2(void)
{
- char base_enc[] =
+ char base_enc[] =
"MDA3NjZuYW0gIDIyMDAyNjU4YSA0NTAwMDAxMDAxMjAwMDAwMDAzMDAwNjAwMDEyMDA1MDAx"
"NzAwMDE4MDA4MDA0MTAwMDM1MDEwMDAxNzAwMDc2MDIwMDAxNTAwMDkzMDM1MDAxODAwMTA4"
"MDQwMDAxODAwMTI2MDQ5MDAwOTAwMTQ0MDUwMDAyNjAwMTUzMDgyMDAxNzAwMTc5MTAwMDAx"
"bmQgaW5kZXguHiAwH2FDT01NT04gTElTUCAoQ29tcHV0ZXIgcHJvZ3JhbSBsYW5ndWFnZSke"
"H2xVQUhJTEweHQ==";
- char bin_marc[] =
+ char bin_marc[] =
"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";
int marc_size = strlen(bin_marc);
char out_rec[1000];
+ yaz_marc_t marc = yaz_marc_create();
+ WRBUF buf = wrbuf_alloc();
+
yaz_base64decode(base_enc, out_rec);
YAZ_CHECK(strcmp(out_rec, bin_marc) == 0);
- yaz_marc_t marc = yaz_marc_create();
yaz_marc_read_iso2709(marc, out_rec, marc_size);
- WRBUF buf = wrbuf_alloc();
yaz_marc_write_marcxml(marc, buf);
yaz_marc_destroy(marc);
wrbuf_destroy(buf);
}
-#endif
+
+static int test_render(const char *type_spec, int is_marc, const char *input,
+ const char *expected_output)
+{
+ ODR odr = odr_createmem(ODR_ENCODE);
+ const char *actual_output;
+ int actual_len;
+ int res = 0;
+ WRBUF wrbuf = wrbuf_alloc();
+
+ Z_NamePlusRecord *npr = odr_malloc(odr, sizeof(*npr));
+ npr->which = Z_NamePlusRecord_databaseRecord;
+ if (is_marc)
+ npr->u.databaseRecord = z_ext_record_usmarc(odr, input, strlen(input));
+ else
+ npr->u.databaseRecord = z_ext_record_xml(odr, input, strlen(input));
+
+ actual_output = yaz_record_render(npr, 0, wrbuf, type_spec, &actual_len);
+
+ if (actual_output && expected_output)
+ {
+ if (strlen(expected_output) == actual_len &&
+ !memcmp(expected_output, actual_output, actual_len))
+ res = 1;
+ else
+ {
+ yaz_log(YLOG_LOG, "Got result");
+ yaz_log(YLOG_LOG, "%.*s", actual_len, actual_output);
+ yaz_log(YLOG_LOG, "Expected result");
+ yaz_log(YLOG_LOG, "%s", expected_output);
+ }
+ }
+ else if (!actual_output && !expected_output)
+ res = 1;
+ else if (!actual_output && expected_output)
+ {
+ yaz_log(YLOG_LOG, "Got null result, but expected");
+ yaz_log(YLOG_LOG, "%s", expected_output);
+ }
+ else
+ {
+ yaz_log(YLOG_LOG, "Got result, but expected no result");
+ yaz_log(YLOG_LOG, "%.*s", actual_len, actual_output);
+ }
+ wrbuf_destroy(wrbuf);
+ odr_destroy(odr);
+ return res;
+}
int main(int argc, char **argv)
{
YAZ_CHECK_INIT(argc, argv);
YAZ_CHECK_LOG();
+ test1();
+ test2();
#if YAZ_HAVE_XML2
- test();
+ YAZ_CHECK(test_render("xml", 0, "<my/>", "<my/>"));
+
+ YAZ_CHECK(test_render(
+ "xml", 1,
+ "\x30\x30\x31\x33\x38\x6E\x61\x6D\x20\x20\x32\x32\x30\x30\x30\x37"
+ "\x33\x38\x61\x20\x34\x35\x30\x30\x30\x30\x31\x30\x30\x31\x33\x30"
+ "\x30\x30\x30\x30\x30\x30\x33\x30\x30\x30\x34\x30\x30\x30\x31\x33"
+ "\x31\x30\x30\x30\x30\x31\x37\x30\x30\x30\x31\x37\x32\x34\x35\x30"
+ "\x30\x33\x30\x30\x30\x30\x33\x34\x1E\x20\x20\x20\x31\x31\x32\x32"
+ "\x34\x34\x36\x36\x20\x1E\x44\x4C\x43\x1E\x31\x30\x1F\x61\x4A\x61"
+ "\x63\x6B\x20\x43\x6F\x6C\x6C\x69\x6E\x73\x1E\x31\x30\x1F\x61\x48"
+ "\x6F\x77\x20\x74\x6F\x20\x70\x72\x6F\x67\x72\x61\x6D\x20\x61\x20"
+ "\x63\x6F\x6D\x70\x75\x74\x65\x72\x1E\x1D",
+ "<record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
+ " <leader>00138nam a22000738a 4500</leader>\n"
+ " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
+ " <controlfield tag=\"003\">DLC</controlfield>\n"
+ " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">Jack Collins</subfield>\n"
+ " </datafield>\n"
+ " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">How to program a computer</subfield>\n"
+ " </datafield>\n"
+ "</record>\n"));
+
+ YAZ_CHECK(test_render("xml", 0, "<my/>", "<my/>"));
+
+ YAZ_CHECK(test_render(
+ "xml; base64=/my/text()", 0,
+ "<my>"
+ "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
+ "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
+ "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
+ "</my>",
+ "<?xml version=\"1.0\"?>\n"
+ "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
+ " <leader>00138nam a22000738a 4500</leader>\n"
+ " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
+ " <controlfield tag=\"003\">DLC</controlfield>\n"
+ " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">Jack Collins</subfield>\n"
+ " </datafield>\n"
+ " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">How to program a computer</subfield>\n"
+ " </datafield>\n"
+ "</record></my>\n"));
+
+ YAZ_CHECK(test_render(
+ "xml; charset=utf-8; base64=/my/text()", 0,
+ "<my>"
+ "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
+ "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
+ "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
+ "</my>",
+ "<?xml version=\"1.0\"?>\n"
+ "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
+ " <leader>00138nam a22000738a 4500</leader>\n"
+ " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
+ " <controlfield tag=\"003\">DLC</controlfield>\n"
+ " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">Jack Collins</subfield>\n"
+ " </datafield>\n"
+ " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">How to program a computer</subfield>\n"
+ " </datafield>\n"
+ "</record></my>\n"));
+
+ YAZ_CHECK(test_render(
+ "xml; base64=/my/text();charset=utf-8", 0,
+ "<my>"
+ "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
+ "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
+ "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
+ "</my>",
+ "<?xml version=\"1.0\"?>\n"
+ "<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
+ " <leader>00138nam a22000738a 4500</leader>\n"
+ " <controlfield tag=\"001\"> 11224466 </controlfield>\n"
+ " <controlfield tag=\"003\">DLC</controlfield>\n"
+ " <datafield tag=\"100\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">Jack Collins</subfield>\n"
+ " </datafield>\n"
+ " <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
+ " <subfield code=\"a\">How to program a computer</subfield>\n"
+ " </datafield>\n"
+ "</record></my>\n"));
+
+ YAZ_CHECK(test_render(
+ "txml;base64=/my/text();charset=utf-8", 0,
+ "<my>"
+ "MDAxMzhuYW0gIDIyMDAwNzM4YSA0NTAwMDAxMDAxMzAwMDAwMDAzMDAwNDAwMDEzMTAwMDAxNzAw"
+ "MDE3MjQ1MDAzMDAwMDM0HiAgIDExMjI0NDY2IB5ETEMeMTAfYUphY2sgQ29sbGlucx4xMB9hSG93"
+ "IHRvIHByb2dyYW0gYSBjb21wdXRlch4d"
+ "</my>",
+ "<?xml version=\"1.0\"?>\n"
+ "<my><r xmlns=\"http://www.indexdata.com/turbomarc\">\n"
+ " <l>00138nam a22000738a 4500</l>\n"
+ " <c001> 11224466 </c001>\n"
+ " <c003>DLC</c003>\n"
+ " <d100 i1=\"1\" i2=\"0\">\n"
+ " <sa>Jack Collins</sa>\n"
+ " </d100>\n"
+ " <d245 i1=\"1\" i2=\"0\">\n"
+ " <sa>How to program a computer</sa>\n"
+ " </d245>\n"
+ "</r></my>\n"));
+
+ YAZ_CHECK(test_render(
+ "xml; charset=utf-8; base64=/my/text()", 0,
+ "<my>"
+"MDA0OTJuYW0gYTIyMDAxNDU1YSA0NTAwMDAxMDAxMDAwMDAwMDA1MDAxNzAwMDEwMDA4MDA0MTAw"
+"MDI3MTAwMDA1MjAwMDY4MjQ1MDEwNDAwMTIwMjUwMDAxNDAwMjI0MjYwMDAyMzAwMjM4MzAwMDAx"
+"NjAwMjYxNjUwMDA1MTAwMjc3NjUwMDAxODAwMzI4HjAwMDI3NzQ4NR4yMDA1MTAyNjExMTQzNi4w"
+"HjA1MDQxM3MxODk0ICAgIGdyICAgICAgICAgICAgMDAwIDAgZ3JlIGQeMSAfYc6czrHPgc6/z43O"
+"tM63z4IsIM6az4nOvc+Dz4TOsc69z4TOr869zr/PgiDOmc+JHjEwH2HOlc67zrvOt869zrnOus+M"
+"zr0gzrrPgc+Fz4DPhM6/zrPPgc6xz4bOuc66z4zOvSDOu861zr7Ouc66z4zOvSAvH2POms+Jzr3P"
+"g8+ELiDOmS4gzpzOsc+Bzr/Pjc60zrfPgi4eICAyzrcgzrXOus60Lh4gIB9hzpHOuM6uzr3OsSwf"
+"YzE4OTQuHiAgH2EyNDggz4POtc67Lh4gMB9hR3JlZWsgbGFuZ3VhZ2UsIE1vZGVybh94RGlhbGVj"
+"dHMfdkRpY3Rpb25hcmllcx4gMB9hQ3J5cHRvZ3JhcGh5Lh4d"
+ "</my>",
+"<?xml version=\"1.0\"?>\n"
+"<my><record xmlns=\"http://www.loc.gov/MARC21/slim\">\n"
+" <leader>00492nam a22001455a 4500</leader>\n"
+" <controlfield tag=\"001\">000277485</controlfield>\n"
+" <controlfield tag=\"005\">20051026111436.0</controlfield>\n"
+" <controlfield tag=\"008\">050413s1894 gr 000 0 gre d</controlfield>\n"
+" <datafield tag=\"100\" ind1=\"1\" ind2=\" \">\n"
+" <subfield code=\"a\">Μαρούδης, Κωνσταντίνος Ιω</subfield>\n"
+" </datafield>\n"
+" <datafield tag=\"245\" ind1=\"1\" ind2=\"0\">\n"
+" <subfield code=\"a\">Ελληνικόν κρυπτογραφικόν λεξικόν /</subfield>\n"
+" <subfield code=\"c\">Κωνστ. Ι. Μαρούδης.</subfield>\n"
+" </datafield>\n"
+" <datafield tag=\"250\" ind1=\" \" ind2=\" \">\n"
+" <subfield code=\"η\"> εκδ.</subfield>\n"
+" </datafield>\n"
+" <datafield tag=\"260\" ind1=\" \" ind2=\" \">\n"
+" <subfield code=\"a\">Αθήνα,</subfield>\n"
+" <subfield code=\"c\">1894.</subfield>\n"
+" </datafield>\n"
+" <datafield tag=\"300\" ind1=\" \" ind2=\" \">\n"
+" <subfield code=\"a\">248 σελ.</subfield>\n"
+" </datafield>\n"
+" <datafield tag=\"650\" ind1=\" \" ind2=\"0\">\n"
+" <subfield code=\"a\">Greek language, Modern</subfield>\n"
+" <subfield code=\"x\">Dialects</subfield>\n"
+" <subfield code=\"v\">Dictionaries</subfield>\n"
+" </datafield>\n"
+" <datafield tag=\"650\" ind1=\" \" ind2=\"0\">\n"
+" <subfield code=\"a\">Cryptography.</subfield>\n"
+" </datafield>\n"
+"</record></my>\n"));
+
+
#endif
YAZ_CHECK_TERM;
}