X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=util%2Fiso2709dump.c;h=1536fd775498332b07872b40208376eaded84429;hb=28721a4e39c970cb2d13109baf5bb0f2e43a15a1;hp=fd1056e28c8a901c009c7e6b3e4148fed3c116c6;hpb=96a9d6aeb02795cecf237b892c8ac28073e4a785;p=egate.git

diff --git a/util/iso2709dump.c b/util/iso2709dump.c
index fd1056e..1536fd7 100644
--- a/util/iso2709dump.c
+++ b/util/iso2709dump.c
@@ -4,7 +4,23 @@
  * Europagate, 1994-1995.
  *
  * $Log: iso2709dump.c,v $
- * Revision 1.5  1995/02/22 21:32:36  adam
+ * Revision 1.10  1995/03/31 09:43:24  adam
+ * Removed test display.
+ *
+ * Revision 1.9  1995/03/30  14:22:18  adam
+ * More work on new MARC anchor functions.
+ *
+ * Revision 1.8  1995/03/30  07:33:37  adam
+ * New 2709 function: iso2709_mk.
+ * First implementation of iso2709_a_insert.
+ *
+ * Revision 1.7  1995/03/28  16:07:07  adam
+ * New function: iso2709_out. This function is the reverse of iso2709_cvt.
+ *
+ * Revision 1.6  1995/03/27  12:52:18  adam
+ * A little more verbose in marc dump.
+ *
+ * Revision 1.5  1995/02/22  21:32:36  adam
  * Changed header.
  *
  * Revision 1.3  1995/02/10  17:05:18  adam
@@ -24,20 +40,193 @@
 
 #include <stdio.h>
 #include <stdlib.h>
+#include <errno.h>
 
 #include <iso2709.h>
 
+static char *prog;
+
+static Iso2709Rec copy_rec (Iso2709Rec rec_in)
+{
+    Iso2709Rec rec_out;
+    Iso2709Anchor a_in, a_out;
+    char *tag, *indicator, *identifier, *data;
+
+    rec_out = iso2709_mk();
+
+    a_in = iso2709_a_mk (rec_in);
+    a_out = iso2709_a_mk (rec_out);
+
+    do {
+        if (!iso2709_a_info_field (a_in, &tag, &indicator, &identifier, &data))
+	    break;
+        iso2709_a_insert (a_out, tag, indicator, identifier, data);
+    } while (iso2709_a_next (a_in));
+    iso2709_a_rm (a_in);
+    iso2709_a_rm (a_out);
+    return rec_out;
+}
+
 int main (int argc, char **argv)
 {
     char *buf;
-    Iso2709Rec rec;
+    int no = 0;
+    int start_pos = 0;
+    int end_pos = 99999;
+    char *output_file = NULL;
+    char *input_file = NULL;
+    char *filter = NULL;
+    int verbose = 0;
+    int quiet = 0;
+    FILE *outf = NULL;
+    FILE *inf = stdin;
 
-    while ((buf = iso2709_read (stdin)))
+    prog = *argv;
+    while (--argc > 0)
+    {
+        if (**++argv == '-')
+        {
+            switch (argv[0][1])
+            {
+            case 'h':
+            case 'H':
+                fprintf (stderr, "iso2709dump [options] [file]\n");
+                fprintf (stderr, "If no file is specified stdin is used\n");
+                fprintf (stderr, "Options:\n");
+                fprintf (stderr, " -p no        Starting position\n");
+                fprintf (stderr, " -l end       Ending position\n");
+                fprintf (stderr, " -o file      Raw MARC output file\n");
+                fprintf (stderr, " -v           Verbose\n");
+                fprintf (stderr, " -q           Quiet mode\n");
+                exit (1);
+            case 'p':
+                if (argv[0][2])
+                    start_pos = atoi (argv[0]+2);
+                else if (argc > 0)
+                {
+                    --argc;
+                    start_pos = atoi (*++argv);
+                }
+                else
+                {
+                    fprintf (stderr, "%s: missing start pos\n", prog);
+                    exit (1);
+                }
+                break;
+            case 'l':
+                if (argv[0][2])
+                    end_pos = atoi (argv[0]+2);
+                else if (argc > 0)
+                {
+                    --argc;
+                    end_pos = atoi (*++argv);
+                }
+                else
+                {
+                    fprintf (stderr, "%s: missing end pos\n", prog);
+                    exit (1);
+                }
+                break;
+            case 'o':
+                if (argv[0][2])
+                    output_file = argv[0]+2;
+                else if (argc > 0)
+                {
+                    --argc;
+                    output_file = *++argv;
+                }
+                else
+                {
+                    fprintf (stderr, "%s: missing output file\n", prog);
+                    exit (1);
+                }
+                break;
+            case 'v':
+                verbose = 1;
+                break;
+            case 'q':
+                quiet = 1;
+                break;
+	    case 'f':
+                if (argv[0][2])
+                    filter = argv[0]+2;
+                else if (argc > 0)
+                {
+                    --argc;
+                    filter = *++argv;
+                }
+                else
+                {
+                    fprintf (stderr, "%s: missing filter\n", prog);
+                    exit (1);
+                }
+                break;
+            default:
+                fprintf (stderr, "%s: unknown option %s; use -h for help\n",
+                         prog, *argv);
+                exit (1);
+            }
+        }
+        else
+            input_file = *argv;
+    }
+    if (input_file)
+    {
+        inf = fopen (input_file, "r");
+        if (!inf)
+        {
+            fprintf (stderr, "%s: cannot open %s: %s\n",
+                     prog, input_file, strerror (errno));
+            exit (1);
+        }
+    }
+    if (output_file)
+    {
+        outf = fopen (output_file, "w");
+        if (!outf)
+        {
+            fprintf (stderr, "%s: cannot open %s: %s\n",
+                     prog, output_file, strerror (errno));
+            exit (1);
+        }
+    }
+    while ((buf = iso2709_read (inf)))
     {
-        rec = iso2709_cvt (buf);
-        iso2709_display (rec, stderr);
+        if (no >= start_pos && no <= end_pos)
+        {
+            char *obuf;
+            int olen;
+            Iso2709Rec rec_input;
+            Iso2709Rec rec_output;
+            
+            rec_input = iso2709_cvt (buf);
+            if (!quiet)
+                printf ("------- %d --------\n", no);
+            if (!rec_input)
+            {
+                if (!quiet)
+                    printf ("Bad record\n");
+                fprintf (stderr, "%s: bad record at position %d\n", prog, no);
+                break;
+            }
+            olen = iso2709_out (rec_input, &obuf, 0);
+	    rec_output = copy_rec (rec_input);
+            if (!quiet)
+                iso2709_display (rec_input, stdout);
+            if (outf && fwrite (obuf, 1, olen, outf) != olen)
+            {
+                fprintf (stderr, "%s: write fail of %s: %s\n",
+                         prog, output_file, strerror (errno));
+                exit (1);
+            }
+            free (obuf);
+            iso2709_rm (rec_input);
+	    iso2709_rm (rec_output);
+        }
         free (buf);
-        iso2709_rm (rec);
+        no++;
     }
+    if (outf)
+        fclose (outf);
     return 0;
 }