X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=util%2Fmarcdump.c;h=7cc154ec62ace766fcd34b9bed7b368ca634b151;hp=e1e9e9a87a7a1461f0dab5c5c9d26d444a5c07a1;hb=59526fbbf2e3b54ce94b3e79e6c7fef9e4f456fb;hpb=2004bbd9b3bbce5eb8ecc49520255b3d0bf578b9

diff --git a/util/marcdump.c b/util/marcdump.c
index e1e9e9a..7cc154e 100644
--- a/util/marcdump.c
+++ b/util/marcdump.c
@@ -1,10 +1,38 @@
 /*
- * Copyright (c) 1995, Index Data
+ * Copyright (c) 1995-2001, Index Data
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: marcdump.c,v $
- * Revision 1.4  1995-11-01 13:55:05  quinn
+ * Revision 1.13  2001-02-10 01:21:59  adam
+ * Dumper only keeps one record at a time in memory.
+ *
+ * Revision 1.12  2000/10/02 11:07:45  adam
+ * Added peer_name member for bend_init handler. Changed the YAZ
+ * client so that tcp: can be avoided in target spec.
+ *
+ * Revision 1.11  2000/07/04 08:53:22  adam
+ * Fixed bug.
+ *
+ * Revision 1.10  2000/02/29 13:44:55  adam
+ * Check for config.h (currently not generated).
+ *
+ * Revision 1.9  1999/11/30 13:47:12  adam
+ * Improved installation. Moved header files to include/yaz.
+ *
+ * Revision 1.8  1999/05/26 07:49:35  adam
+ * C++ compilation.
+ *
+ * Revision 1.7  1998/02/11 11:53:36  adam
+ * Changed code so that it compiles as C++.
+ *
+ * Revision 1.6  1997/12/12 06:32:33  adam
+ * Added include of string.h.
+ *
+ * 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
@@ -18,11 +46,18 @@
  *
  */
 
+#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 <yaz/marcdisp.h>
+#include <yaz/yaz-util.h>
+#include <yaz/xmalloc.h>
+#include <yaz/options.h>
 
 #ifndef SEEK_SET
 #define SEEK_SET 0
@@ -33,50 +68,92 @@
  
 int main (int argc, char **argv)
 {
-    FILE *inf;
-    long file_size;
-    char *buf;
     int r;
+    char *arg;
+    int verbose = 0;
+    FILE *inf;
+    char buf[100001];
+    char *prog = *argv;
+    int no = 0;
+    FILE *cfile = 0;
 
-    if (argc < 2)
-    {
-        fprintf (stderr, "usage\n%s <file>\n", *argv);
-	exit (1);
-    }
-    inf = fopen (argv[1], "r");
-    if (!inf)
-    {
-        fprintf (stderr, "%s: cannot open %s:%s\n",
-		 *argv, argv[1], strerror (errno));
-        exit (1);
-    }
-    if (fseek (inf, 0L, SEEK_END))
+    while ((r = options("vc:", argv, argc, &arg)) != -2)
     {
-        fprintf (stderr, "%s: cannot seek in %s:%s\n",
-		 *argv, argv[1], strerror (errno));
-        exit (1);
+	int count;
+	no++;
+        switch (r)
+        {
+	case 'c':
+	    if (cfile)
+		fclose (cfile);
+	    cfile = fopen (arg, "w");
+	    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 (cfile)
+		fprintf (cfile, "char *marc_records[] = {\n");
+	    while (1)
+	    {
+		int len;
+		
+		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 = marc_display_ex (buf, stdout, verbose);
+		if (r <= 0)
+		    break;
+		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 (cfile)
+		fprintf (cfile, "};\n");
+            break;
+        case 'v':
+	    verbose++;
+            break;
+        default:
+            fprintf (stderr, "Usage: %s [-c cfile] [-v] file...\n", prog);
+            exit (1);
+        }
     }
-    file_size = ftell (inf);    
-    if (fseek (inf, 0L, SEEK_SET))
+    if (cfile)
+	fclose (cfile);
+    if (!no)
     {
-        fprintf (stderr, "%s: cannot seek in %s:%s\n",
-		 *argv, argv[1], strerror (errno));
-        exit (1);
-    }
-    buf = xmalloc (file_size);
-    if (!buf)
-    {
-        fprintf (stderr, "%s: cannot xmalloc: %s\n",
-		 *argv, strerror (errno));
-        exit (1);
-    }
-    if (fread (buf, 1, file_size, inf) != file_size)
-    {
-        fprintf (stderr, "%s: cannot read %s: %s\n",
-		 *argv, argv[1], strerror (errno));
-        exit (1);
+	fprintf (stderr, "Usage: %s [-v] file...\n", prog);
+	exit (1);
     }
-    while ((r = marc_display (buf, stdout)) > 0)
-        buf += r;
     exit (0);
 }