1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) Index Data
3 * See the file LICENSE for details.
6 * \file record_render.c
7 * \brief Render Z39.50 records (NamePlusRecord)
17 #include <yaz/marcdisp.h>
18 #include <yaz/record_render.h>
19 #include <yaz/yaz-iconv.h>
20 #include <yaz/proto.h>
21 #include <yaz/oid_db.h>
22 #include <yaz/nmem_xml.h>
23 #include <yaz/base64.h>
26 #include <libxml/xpath.h>
27 #include <libxml/xpathInternals.h>
30 static yaz_iconv_t iconv_create_charset(const char *record_charset,
39 char *to_set = "utf-8";
40 if (record_charset && *record_charset)
42 char *cp = charset_buf;
44 strncpy(charset_buf, record_charset, sizeof(charset_buf)-1);
45 charset_buf[sizeof(charset_buf)-1] = '\0';
48 while (*cp && *cp != ',' && *cp != '/')
52 *cp++ = '\0'; /* terminate from_set1 */
54 while (*cp && *cp != ',')
59 *cp++ = '\0'; /* terminate from_set1 or from_set2 */
68 if (yaz_marc_check_marc21_coding(from_set1, marc_buf, sz))
70 cd = yaz_iconv_open(to_set, from_set1);
75 *cd2 = yaz_iconv_open(to_set, from_set2);
82 static const char *return_marc_record(WRBUF wrbuf,
85 const char *buf, int sz,
86 const char *record_charset)
88 yaz_iconv_t cd = iconv_create_charset(record_charset, 0, buf, sz);
89 yaz_marc_t mt = yaz_marc_create();
90 const char *ret_string = 0;
93 yaz_marc_iconv(mt, cd);
94 yaz_marc_xml(mt, marc_type);
95 if (yaz_marc_decode_wrbuf(mt, buf, sz, wrbuf) > 0)
97 *len = wrbuf_len(wrbuf);
98 ret_string = wrbuf_cstr(wrbuf);
100 yaz_marc_destroy(mt);
106 static const char *return_opac_record(WRBUF wrbuf,
109 Z_OPACRecord *opac_rec,
110 const char *record_charset)
113 const char *marc_buf = 0;
115 yaz_marc_t mt = yaz_marc_create();
117 if (opac_rec->bibliographicRecord)
119 Z_External *ext = opac_rec->bibliographicRecord;
120 if (ext->which == Z_External_octet)
122 marc_buf = (const char *) ext->u.octet_aligned->buf;
123 marc_sz = ext->u.octet_aligned->len;
126 cd = iconv_create_charset(record_charset, &cd2, marc_buf, marc_sz);
129 yaz_marc_iconv(mt, cd);
130 yaz_marc_xml(mt, marc_type);
133 yaz_opac_decode_wrbuf2(mt, opac_rec, wrbuf, cd2);
135 yaz_opac_decode_wrbuf(mt, opac_rec, wrbuf);
137 yaz_marc_destroy(mt);
142 yaz_iconv_close(cd2);
143 *len = wrbuf_len(wrbuf);
144 return wrbuf_cstr(wrbuf);
147 static const char *return_string_record(WRBUF wrbuf,
149 const char *buf, int sz,
150 const char *record_charset)
152 yaz_iconv_t cd = iconv_create_charset(record_charset, 0, 0, 0);
156 wrbuf_iconv_write(wrbuf, cd, buf, sz);
157 wrbuf_iconv_reset(wrbuf, cd);
159 buf = wrbuf_cstr(wrbuf);
160 sz = wrbuf_len(wrbuf);
167 static const char *return_record_wrbuf(WRBUF wrbuf, int *len,
168 Z_NamePlusRecord *npr,
169 int marctype, const char *charset)
171 Z_External *r = (Z_External *) npr->u.databaseRecord;
172 const Odr_oid *oid = r->direct_reference;
175 /* render bibliographic record .. */
176 if (r->which == Z_External_OPAC)
178 return return_opac_record(wrbuf, marctype, len,
181 if (r->which == Z_External_sutrs)
182 return return_string_record(wrbuf, len,
183 (char*) r->u.sutrs->buf,
186 else if (r->which == Z_External_octet)
188 if (oid_oidcmp(oid, yaz_oid_recsyn_xml)
189 && oid_oidcmp(oid, yaz_oid_recsyn_application_xml)
190 && oid_oidcmp(oid, yaz_oid_recsyn_mab)
191 && oid_oidcmp(oid, yaz_oid_recsyn_html))
193 const char *ret_buf = return_marc_record(
194 wrbuf, marctype, len,
195 (const char *) r->u.octet_aligned->buf,
196 r->u.octet_aligned->len,
200 /* not ISO2709. Return fail unless raw (ISO2709) is wanted */
201 if (yaz_oid_is_iso2709(oid) && marctype != YAZ_MARC_ISO2709)
204 return return_string_record(wrbuf, len,
205 (const char *) r->u.octet_aligned->buf,
206 r->u.octet_aligned->len,
209 else if (r->which == Z_External_grs1)
211 yaz_display_grs1(wrbuf, r->u.grs1, 0);
212 return return_string_record(wrbuf, len,
220 static const char *get_record_format(WRBUF wrbuf, int *len,
221 Z_NamePlusRecord *npr,
222 int marctype, const char *charset,
225 const char *res = return_record_wrbuf(wrbuf, len, npr, marctype, charset);
229 /* try to XML format res */
231 xmlKeepBlanksDefault(0); /* get get xmlDocFormatMemory to work! */
232 doc = xmlParseMemory(res, *len);
237 xmlDocDumpFormatMemory(doc, &xml_mem, &xml_size, 1);
239 wrbuf_write(wrbuf, (const char *) xml_mem, xml_size);
242 res = wrbuf_cstr(wrbuf);
243 *len = wrbuf_len(wrbuf);
251 static int replace_node(NMEM nmem, xmlNode *ptr,
252 const char *type_spec, char *record_buf)
258 WRBUF wrbuf = wrbuf_alloc();
259 ODR odr = odr_createmem(ODR_ENCODE);
260 Z_NamePlusRecord *npr = odr_malloc(odr, sizeof(*npr));
261 npr->which = Z_NamePlusRecord_databaseRecord;
263 if (atoi_n_check(record_buf, 5, &m_len))
264 npr->u.databaseRecord =
265 z_ext_record_usmarc(odr, record_buf, strlen(record_buf));
267 npr->u.databaseRecord =
268 z_ext_record_xml(odr, record_buf, strlen(record_buf));
269 res = yaz_record_render(npr, 0, wrbuf, type_spec, &len);
272 xmlDoc *doc = xmlParseMemory(res, strlen(res));
275 xmlNode *nptr = xmlCopyNode(xmlDocGetRootElement(doc), 1);
276 xmlReplaceNode(ptr, nptr);
281 xmlNode *nptr = xmlNewText(BAD_CAST res);
282 xmlReplaceNode(ptr, nptr);
286 wrbuf_destroy(wrbuf);
292 static const char *base64_render(NMEM nmem, WRBUF wrbuf,
293 const char *buf, int *len,
294 const char *expr, const char *type_spec)
297 xmlDocPtr doc = xmlParseMemory(buf, *len);
302 xmlXPathContextPtr xpathCtx = xmlXPathNewContext(doc);
305 xmlXPathObjectPtr xpathObj =
306 xmlXPathEvalExpression((const xmlChar *) expr, xpathCtx);
309 xmlNodeSetPtr nodes = xpathObj->nodesetval;
313 for (i = 0; i < nodes->nodeNr; i++)
315 xmlNode *ptr = nodes->nodeTab[i];
316 if (ptr->type == XML_TEXT_NODE)
319 nmem_text_node_cdata(ptr, nmem);
320 char *output = nmem_malloc(
321 nmem, strlen(input) + 1);
322 if (yaz_base64decode(input, output) == 0)
324 if (!replace_node(nmem, ptr, type_spec, output))
328 /* unset below to avoid a bad reference in
329 xmlXPathFreeObject below */
330 nodes->nodeTab[i] = 0;
336 xmlXPathFreeObject(xpathObj);
338 xmlXPathFreeContext(xpathCtx);
340 xmlDocDumpMemory(doc, &buf_out, &len_out);
344 wrbuf_write(wrbuf, (const char *) buf_out, len_out);
345 buf = wrbuf_cstr(wrbuf);
355 const char *yaz_record_render(Z_NamePlusRecord *npr, const char *schema,
357 const char *type_spec, int *len)
361 char *base64_xpath = 0;
366 const char *cp = type_spec;
372 for (i = 0; cp[i] && cp[i] != ';' && cp[i] != ' ' && i < sizeof(type)-1;
387 if (!strncmp(cp + i, "charset=", 8))
390 i = i + 8; /* skip charset= */
393 for (j = 0; cp[i] && cp[i] != ';' && cp[i] != ' '; i++)
395 if (j < sizeof(charset)-1)
396 charset[j++] = cp[i];
400 else if (!strncmp(cp + i, "format=", 7))
406 for (j = 0; cp[i] && cp[i] != ';' && cp[i] != ' '; i++)
408 if (j < sizeof(format)-1)
413 else if (!strncmp(cp + i, "base64=", 7))
420 while (cp[i] && cp[i] != ';')
423 nmem = nmem_create();
424 base64_xpath = nmem_strdupn(nmem, cp + i0, i - i0);
427 if (!strcmp(type, "database"))
429 *len = (npr->databaseName ? strlen(npr->databaseName) : 0);
430 ret = npr->databaseName;
432 else if (!strcmp(type, "schema"))
434 *len = schema ? strlen(schema) : 0;
437 else if (!strcmp(type, "syntax"))
439 const char *desc = 0;
440 if (npr->which == Z_NamePlusRecord_databaseRecord)
442 Z_External *r = (Z_External *) npr->u.databaseRecord;
443 desc = yaz_oid_to_string(yaz_oid_std(), r->direct_reference, 0);
450 if (npr->which != Z_NamePlusRecord_databaseRecord)
452 else if (!strcmp(type, "render"))
454 ret = get_record_format(wrbuf, len, npr, YAZ_MARC_LINE, charset, format);
456 else if (!strcmp(type, "xml"))
458 ret = get_record_format(wrbuf, len, npr, YAZ_MARC_MARCXML, charset,
461 else if (!strcmp(type, "txml"))
463 ret = get_record_format(wrbuf, len, npr, YAZ_MARC_TURBOMARC, charset,
466 else if (!strcmp(type, "json"))
468 ret = get_record_format(wrbuf, len, npr, YAZ_MARC_JSON, charset,
471 else if (!strcmp(type, "raw"))
473 ret = get_record_format(wrbuf, len, npr, YAZ_MARC_ISO2709, charset,
476 else if (!strcmp(type, "ext"))
479 ret = (const char *) npr->u.databaseRecord;
481 else if (!strcmp(type, "opac"))
483 if (npr->u.databaseRecord->which == Z_External_OPAC)
484 ret = get_record_format(wrbuf, len, npr, YAZ_MARC_MARCXML, charset,
488 if (base64_xpath && *len != -1)
490 char *type_spec = nmem_malloc(nmem,
491 strlen(type) + strlen(charset) + 11);
492 strcpy(type_spec, type);
495 strcat(type_spec, "; charset=");
496 strcat(type_spec, charset);
498 ret = base64_render(nmem, wrbuf, ret, len, base64_xpath, type_spec);
507 * c-file-style: "Stroustrup"
508 * indent-tabs-mode: nil
510 * vim: shiftwidth=4 tabstop=8 expandtab