X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=util%2Fmarcdump.c;h=bd71b7df281d3c4b5fb64f115388261703bc56a5;hp=f6cc2acf774b1ee9eb93c639e505339803004c3a;hb=66d1e9b0dee9593f80022dcc3a30dab627f7b0bf;hpb=191f86396f357a0d26df67ce6b7d9ccb23f3e207

diff --git a/util/marcdump.c b/util/marcdump.c
index f6cc2ac..bd71b7d 100644
--- a/util/marcdump.c
+++ b/util/marcdump.c
@@ -1,32 +1,31 @@
 /*
- * Copyright (c) 1995, Index Data
+ * Copyright (c) 1995-2003, Index Data
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
- * $Log: marcdump.c,v $
- * Revision 1.5  1997-09-24 13:29:40  adam
- * Added verbose option -v to marcdump utility.
- *
- * Revision 1.4  1995/11/01 13:55:05  quinn
- * Minor adjustments
- *
- * Revision 1.3  1995/05/16  08:51:12  quinn
- * License, documentation, and memory fixes
- *
- * Revision 1.2  1995/05/15  11:56:56  quinn
- * Debuggng & adjustments.
- *
- * Revision 1.1  1995/04/10  10:28:47  quinn
- * Added copy of CCL and MARC display
- *
+ * $Id: marcdump.c,v 1.22 2003-02-25 18:35:49 adam Exp $
  */
 
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
+
 #include <stdio.h>
 #include <stdlib.h>
+#include <string.h>
 #include <errno.h>
-#include <marcdisp.h>
-#include <xmalloc.h>
-#include <options.h>
+
+#if HAVE_LOCALE_H
+#include <locale.h>
+#endif
+#if HAVE_LANGINFO_H
+#include <langinfo.h>
+#endif
+
+#include <yaz/marcdisp.h>
+#include <yaz/yaz-util.h>
+#include <yaz/xmalloc.h>
+#include <yaz/options.h>
 
 #ifndef SEEK_SET
 #define SEEK_SET 0
@@ -34,77 +33,174 @@
 #ifndef SEEK_END
 #define SEEK_END 2
 #endif
- 
+
+static void usage(const char *prog)
+{
+    fprintf (stderr, "Usage: %s [-c cfile] [-f from] [-t to] [-x] [-O] [-X] [-v] file...\n",
+             prog);
+} 
+
 int main (int argc, char **argv)
 {
-    int ret;
+    int r;
     char *arg;
     int verbose = 0;
     FILE *inf;
-    long file_size;
-    char *buf;
+    char buf[100001];
     char *prog = *argv;
-    int count = 0;
     int no = 0;
+    int xml = 0;
+    FILE *cfile = 0;
+    char *from = 0, *to = 0;
 
-    while ((ret = options("v", argv, argc, &arg)) != -2)
+    
+#if HAVE_LOCALE_H
+    setlocale(LC_CTYPE, "");
+#endif
+#if HAVE_LANGINFO_H
+#ifdef CODESET
+    to = nl_langinfo(CODESET);
+#endif
+#endif
+
+    while ((r = options("vc:xOXf:t:", argv, argc, &arg)) != -2)
     {
+	int count;
 	no++;
-        switch (ret)
+        switch (r)
         {
+        case 'f':
+            from = arg;
+            break;
+        case 't':
+            to = arg;
+            break;
+	case 'c':
+	    if (cfile)
+		fclose (cfile);
+	    cfile = fopen (arg, "w");
+	    break;
+        case 'x':
+            xml = YAZ_MARC_SIMPLEXML;
+            break;
+        case 'O':
+            xml = YAZ_MARC_OAIMARC;
+            break;
+        case 'X':
+            xml = YAZ_MARC_MARCXML;
+            break;
         case 0:
 	    inf = fopen (arg, "r");
+	    count = 0;
 	    if (!inf)
 	    {
 		fprintf (stderr, "%s: cannot open %s:%s\n",
 			 prog, arg, strerror (errno));
-		exit (1);
-	    }
-	    if (fseek (inf, 0L, SEEK_END))
-	    {
-		fprintf (stderr, "%s: cannot seek in %s:%s\n",
-			 prog, arg, strerror (errno));
-		exit (1);
-	    }
-	    file_size = ftell (inf);    
-	    if (fseek (inf, 0L, SEEK_SET))
-	    {
-		fprintf (stderr, "%s: cannot seek in %s:%s\n",
-			 prog, arg, strerror (errno));
-		exit (1);
-	    }
-	    buf = xmalloc (file_size);
-	    if (!buf)
-	    {
-		fprintf (stderr, "%s: cannot xmalloc: %s\n",
-			 prog, strerror (errno));
-		exit (1);
+		exit(1);
 	    }
-	    if (fread (buf, 1, file_size, inf) != file_size)
-	    {
-		fprintf (stderr, "%s: cannot read %s: %s\n",
-			 prog, arg, strerror (errno));
-		exit (1);
-	    }
-	    while ((ret = marc_display_ex (buf, stdout, verbose)) > 0)
-	    {
-		buf += ret;
-		count++;
+	    if (cfile)
+		fprintf (cfile, "char *marc_records[] = {\n");
+            if (1)
+            {
+                yaz_marc_t mt = yaz_marc_create();
+                yaz_iconv_t cd = 0;
+
+                if (from && to)
+                {
+                    cd = yaz_iconv_open(to, from);
+                    if (!cd)
+                    {
+                        fprintf(stderr, "conversion from %s to %s "
+                                "unsupported\n", from, to);
+                        exit(2);
+                    }
+                }
+                yaz_marc_xml(mt, xml);
+                yaz_marc_debug(mt, verbose);
+                while (1)
+                {
+                    int len;
+                    char *result;
+                    int rlen;
+                    
+                    r = fread (buf, 1, 5, inf);
+                    if (r < 5)
+                        break;
+                    len = atoi_n(buf, 5);
+                    if (len < 25 || len > 100000)
+                        break;
+                    len = len - 5;
+                    r = fread (buf + 5, 1, len, inf);
+                    if (r < len)
+                        break;
+                    r = yaz_marc_decode_buf (mt, buf, -1, &result, &rlen);
+                    if (r <= 0)
+                        break;
+                    if (!cd)
+                        fwrite (result, rlen, 1, stdout);
+                    else
+                    {
+                        char outbuf[12];
+                        size_t inbytesleft = rlen;
+                        const char *inp = result;
+                        
+                        while (inbytesleft)
+                        {
+                            size_t outbytesleft = sizeof(outbuf);
+                            char *outp = outbuf;
+                            size_t r = yaz_iconv (cd, (char**) &inp,
+                                                  &inbytesleft, 
+                                                  &outp, &outbytesleft);
+                            if (r == (size_t) (-1))
+                            {
+                                int e = yaz_iconv_error(cd);
+                                if (e != YAZ_ICONV_E2BIG)
+                                    break;
+                            }
+                            fwrite (outbuf, outp - outbuf, 1, stdout);
+                        }
+                    }
+
+                    if (cfile)
+                    {
+                        char *p = buf;
+                        int i;
+                        if (count)
+                            fprintf (cfile, ",");
+                        fprintf (cfile, "\n");
+                        for (i = 0; i < r; i++)
+                        {
+                            if ((i & 15) == 0)
+                                fprintf (cfile, "  \"");
+                            fprintf (cfile, "\\x%02X", p[i] & 255);
+                            
+                            if (i < r - 1 && (i & 15) == 15)
+                                fprintf (cfile, "\"\n");
+                            
+			}
+                        fprintf (cfile, "\"\n");
+                    }
+                }
+                count++;
+                if (cd)
+                    yaz_iconv_close(cd);
 	    }
-	    fclose (inf);
-	    xfree (buf);
+	    if (cfile)
+		fprintf (cfile, "};\n");
             break;
         case 'v':
 	    verbose++;
             break;
         default:
-            fprintf (stderr, "Usage: %s [-v] file...\n", prog);
+            usage(prog);
             exit (1);
         }
     }
+    if (cfile)
+	fclose (cfile);
     if (!no)
     {
-	fprintf (stderr, "Usage: %s [-v] file...\n", prog);
+        usage(prog);
 	exit (1);
     }
     exit (0);