X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Fmarcdisp.c;h=2e3f96a333dfabc6b32867543c47e81932d59732;hb=05c274ef315384faafcc5900c17468f0ea2474e6;hp=f5d5553563074573121b6a1b33361d3969e71973;hpb=c6e47cbbff56f39f6d81b079ebaeac41d793d4d9;p=yaz-moved-to-github.git diff --git a/src/marcdisp.c b/src/marcdisp.c index f5d5553..2e3f96a 100644 --- a/src/marcdisp.c +++ b/src/marcdisp.c @@ -1,8 +1,13 @@ /* - * Copyright (c) 1995-2003, Index Data + * Copyright (c) 1995-2004, Index Data * See the file LICENSE for details. * - * $Id: marcdisp.c,v 1.1 2003-10-27 12:21:30 adam Exp $ + * $Id: marcdisp.c,v 1.8 2004-10-15 00:19:00 adam Exp $ + */ + +/** + * \file marcdisp.c + * \brief Implements MARC display - and conversion utilities */ #if HAVE_CONFIG_H @@ -20,6 +25,7 @@ struct yaz_marc_t_ { WRBUF m_wr; int xml; int debug; + yaz_iconv_t iconv_cd; }; yaz_marc_t yaz_marc_create(void) @@ -28,6 +34,7 @@ yaz_marc_t yaz_marc_create(void) mt->xml = YAZ_MARC_LINE; mt->debug = 0; mt->m_wr = wrbuf_alloc(); + mt->iconv_cd = 0; return mt; } @@ -41,64 +48,13 @@ void yaz_marc_destroy(yaz_marc_t mt) static void marc_cdata (yaz_marc_t mt, const char *buf, size_t len, WRBUF wr) { - size_t i; - for (i = 0; ixml) - { - switch (buf[i]) { - case '<': - wrbuf_puts(wr, "<"); - break; - case '>': - wrbuf_puts(wr, ">"); - break; - case '&': - wrbuf_puts(wr, "&"); - break; - case '"': - wrbuf_puts(wr, """); - break; - case '\'': - wrbuf_puts(wr, "'"); - break; - default: - wrbuf_putc(wr, buf[i]); - } - } - else - wrbuf_putc(wr, buf[i]); - } -} - -#if 0 -static void marc_cdata (yaz_marc_t mt, const char *buf, size_t len) -{ - if (!mt->cd) - marc_cdata2 (mt, buf, len); + if (mt->xml == YAZ_MARC_ISO2709) + wrbuf_iconv_write(wr, mt->iconv_cd, buf, len); + else if (mt->xml == YAZ_MARC_LINE) + wrbuf_iconv_write(wr, mt->iconv_cd, buf, len); else - { - char outbuf[12]; - size_t inbytesleft = len; - const char *inp = buf; - - while (inbytesleft) - { - size_t outbytesleft = sizeof(outbuf); - char *outp = outbuf; - size_t r = yaz_iconv (mt->cd, (char**) &inp, &inbytesleft, - &outp, &outbytesleft); - if (r == (size_t) (-1)) - { - int e = yaz_iconv_error(mt->cd); - if (e != YAZ_ICONV_E2BIG) - break; - } - marc_cdata2 (mt, outbuf, outp - outbuf); - } - } + wrbuf_iconv_write_cdata(wr, mt->iconv_cd, buf, len); } -#endif int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) { @@ -125,7 +81,7 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) } return -1; } - /* ballout if bsize is known and record_length is than that */ + /* ballout if bsize is known and record_length is less than that */ if (bsize != -1 && record_length > bsize) return -1; if (isdigit(buf[10])) @@ -142,12 +98,14 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) length_starting = atoi_n (buf+21, 1); length_implementation = atoi_n (buf+22, 1); - if (mt->xml) + if (mt->xml != YAZ_MARC_LINE) { char str[80]; int i; switch(mt->xml) { + case YAZ_MARC_ISO2709: + break; case YAZ_MARC_SIMPLEXML: wrbuf_puts (wr, "\n" - " %.24s\n", buf); + " "); +#if 1 + marc_cdata(mt, buf, 9, wr); + marc_cdata(mt, "a", 1, wr); /* set leader to signal unicode */ + marc_cdata(mt, buf+10, 14, wr); +#else + marc_cdata(mt, buf, 24, wr); /* leave header as is .. */ +#endif + wrbuf_printf(wr, "\n"); break; } } @@ -208,13 +174,72 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) wrbuf_puts (wr, "-->\n"); } + /* first pass. determine length of directory & base of data */ for (entry_p = 24; buf[entry_p] != ISO2709_FS; ) { entry_p += 3+length_data_entry+length_starting; if (entry_p >= record_length) return -1; } + if (mt->debug && base_address != entry_p+1) + { + wrbuf_printf (wr," \n", base_address, entry_p+1); + } base_address = entry_p+1; + + if (mt->xml == YAZ_MARC_ISO2709) + { + WRBUF wr_head = wrbuf_alloc(); + WRBUF wr_dir = wrbuf_alloc(); + WRBUF wr_tmp = wrbuf_alloc(); + + int data_p = 0; + /* second pass. create directory for ISO2709 output */ + for (entry_p = 24; buf[entry_p] != ISO2709_FS; ) + { + int data_length, data_offset, end_offset; + int i, sz1, sz2; + + wrbuf_write(wr_dir, buf+entry_p, 3); + entry_p += 3; + + data_length = atoi_n (buf+entry_p, length_data_entry); + entry_p += length_data_entry; + data_offset = atoi_n (buf+entry_p, length_starting); + entry_p += length_starting; + i = data_offset + base_address; + end_offset = i+data_length-1; + + while (buf[i] != ISO2709_RS && buf[i] != ISO2709_FS && + i < end_offset) + i++; + sz1 = 1+i - (data_offset + base_address); + if (mt->iconv_cd) + { + sz2 = wrbuf_iconv_write(wr_tmp, mt->iconv_cd, + buf + data_offset+base_address, sz1); + wrbuf_rewind(wr_tmp); + } + else + sz2 = sz1; + wrbuf_printf(wr_dir, "%0*d", length_data_entry, sz2); + wrbuf_printf(wr_dir, "%0*d", length_starting, data_p); + data_p += sz2; + } + wrbuf_putc(wr_dir, ISO2709_FS); + wrbuf_printf(wr_head, "%05d", data_p+1 + base_address); + wrbuf_write(wr_head, buf+5, 7); + wrbuf_printf(wr_head, "%05d", base_address); + wrbuf_write(wr_head, buf+17, 7); + + wrbuf_write(wr, wrbuf_buf(wr_head), 24); + wrbuf_write(wr, wrbuf_buf(wr_dir), wrbuf_len(wr_dir)); + wrbuf_free(wr_head, 1); + wrbuf_free(wr_dir, 1); + wrbuf_free(wr_tmp, 1); + } + /* third pass. create data output */ for (entry_p = 24; buf[entry_p] != ISO2709_FS; ) { int data_length; @@ -251,19 +276,25 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) wrbuf_puts (wr, " "); break; case YAZ_MARC_SIMPLEXML: - wrbuf_printf (wr, "xml) { + case YAZ_MARC_ISO2709: + wrbuf_putc(wr, buf[i]); + break; case YAZ_MARC_LINE: if (mt->debug) wrbuf_puts (wr, " Ind: "); - wrbuf_putc (wr, buf[i]); + wrbuf_putc(wr, buf[i]); break; case YAZ_MARC_SIMPLEXML: - wrbuf_printf (wr, " Indicator%d=\"%c\"", j+1, buf[i]); + wrbuf_printf(wr, " Indicator%d=\"", j+1); + marc_cdata(mt, buf+i, 1, wr); + wrbuf_printf(wr, "\""); break; case YAZ_MARC_OAIMARC: - wrbuf_printf (wr, " i%d=\"%c\"", j+1, buf[i]); + wrbuf_printf(wr, " i%d=\"", j+1); + marc_cdata(mt, buf+i, 1, wr); + wrbuf_printf(wr, "\""); break; case YAZ_MARC_MARCXML: - wrbuf_printf (wr, " ind%d=\"%c\"", j+1, buf[i]); + wrbuf_printf(wr, " ind%d=\"", j+1); + marc_cdata(mt, buf+i, 1, wr); + wrbuf_printf(wr, "\""); } } } - if (mt->xml) + if (mt->xml == YAZ_MARC_SIMPLEXML || mt->xml == YAZ_MARC_MARCXML + || mt->xml == YAZ_MARC_OAIMARC) { wrbuf_puts (wr, ">"); if (identifier_flag) wrbuf_puts (wr, "\n"); } - else + if (mt->xml == YAZ_MARC_LINE) { - if (mt->debug && !mt->xml) + if (mt->debug) wrbuf_puts (wr, " Fields: "); } if (identifier_flag) @@ -307,28 +348,34 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) i++; switch(mt->xml) { + case YAZ_MARC_ISO2709: + --i; + wrbuf_iconv_write(wr, mt->iconv_cd, + buf+i, identifier_length); + i += identifier_length; + break; case YAZ_MARC_LINE: wrbuf_puts (wr, " $"); - for (j = 1; j"); break; case YAZ_MARC_OAIMARC: wrbuf_puts (wr, " "); break; case YAZ_MARC_MARCXML: wrbuf_puts (wr, " "); break; } @@ -337,8 +384,13 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) buf[i] != ISO2709_FS && i < end_offset) i++; marc_cdata(mt, buf + i0, i - i0, wr); - - if (mt->xml) + + if (mt->xml == YAZ_MARC_ISO2709 && buf[i] != ISO2709_IDFS) + marc_cdata(mt, buf + i, 1, wr); + + if (mt->xml == YAZ_MARC_SIMPLEXML || + mt->xml == YAZ_MARC_MARCXML || + mt->xml == YAZ_MARC_OAIMARC) wrbuf_puts (wr, "\n"); } } @@ -347,9 +399,11 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) int i0 = i; while (buf[i] != ISO2709_RS && buf[i] != ISO2709_FS && i < end_offset) i++; - marc_cdata(mt, buf + i0, i - i0, wr); + marc_cdata(mt, buf + i0, i - i0, wr); + if (mt->xml == YAZ_MARC_ISO2709) + marc_cdata(mt, buf + i, 1, wr); } - if (!mt->xml) + if (mt->xml == YAZ_MARC_LINE) wrbuf_putc (wr, '\n'); if (i < end_offset) wrbuf_puts (wr, " \n"); @@ -388,6 +442,9 @@ int yaz_marc_decode_wrbuf (yaz_marc_t mt, const char *buf, int bsize, WRBUF wr) case YAZ_MARC_MARCXML: wrbuf_puts (wr, "\n"); break; + case YAZ_MARC_ISO2709: + wrbuf_putc (wr, ISO2709_RS); + break; } return record_length; } @@ -418,6 +475,11 @@ void yaz_marc_debug(yaz_marc_t mt, int level) mt->debug = level; } +void yaz_marc_iconv(yaz_marc_t mt, yaz_iconv_t cd) +{ + mt->iconv_cd = cd; +} + /* depricated */ int yaz_marc_decode(const char *buf, WRBUF wr, int debug, int bsize, int xml) {