X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=fml%2Ffmltest.c;h=7664473769c057c1b883c9413b6b9e15f33b2df1;hb=b9bf72fa7af887225b50f567f91c06ce4353d0c8;hp=9c944e1b0966fc1a0b63aec7121e3178dd88a139;hpb=5f82d212861388cc73741917b38f67d773d01549;p=egate.git

diff --git a/fml/fmltest.c b/fml/fmltest.c
index 9c944e1..7664473 100644
--- a/fml/fmltest.c
+++ b/fml/fmltest.c
@@ -2,7 +2,19 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmltest.c,v $
- * Revision 1.4  1995/02/09 16:06:08  adam
+ * Revision 1.8  1995/03/02 08:06:10  adam
+ * Fml function strsub implemented. New test files marc[45].fml.
+ * New test options in fmltest.
+ *
+ * Revision 1.7  1995/02/23  08:32:06  adam
+ * Changed header.
+ *
+ * Revision 1.5  1995/02/10  15:50:56  adam
+ * MARC interface implemented. Minor bugs fixed. fmltest can
+ * be used to format single MARC records. New function '\list'
+ * implemented.
+ *
+ * Revision 1.4  1995/02/09  16:06:08  adam
  * FML can be called from the outside multiple times by the functions:
  * fml_exec_call and fml_exec_call_str.
  * An interactive parameter (-i) to fmltest starts a shell-like
@@ -24,8 +36,11 @@
 
 #include <stdio.h>
 #include <string.h>
-#include "fml.h"
+#include <stdlib.h>
 
+#include <fmlmarc.h>
+
+char *prog;
 static FILE *inf;
 
 static int inf_read (void)
@@ -37,8 +52,13 @@ int main (int argc, char **argv)
 {
     Fml fml;
     int nfiles = 0;
+    int marc_show = 0;
     int interactive = 0;
+    const char *iso2709_fname = NULL;
+    const char *format_func = NULL;
+    int number_of_records = 10000;
 
+    prog = *argv;
     fml = fml_open ();
     while (-- argc > 0)
     {
@@ -50,12 +70,35 @@ int main (int argc, char **argv)
             else if (argv[0][1] == 'm')
                 fml->debug |= 2;
             else if (argv[0][1] == 'i')
-            {
                 interactive = 1;
+            else if (argv[0][1] == 's')
+                marc_show = 1;
+            else if (argv[0][1] == 'n')
+            {
+            	if (argc > 1)
+            	{
+            	    number_of_records = atoi (*++argv);
+          	    --argc;
+          	}
+            }
+            else if (argv[0][1] == '2')
+            {
+                if (argc > 2)
+                {
+	    	    iso2709_fname = *++argv;
+	    	    --argc;
+	    	    format_func = *++argv;
+                    --argc;
+                }
+                else
+                {
+                    fprintf (stderr, "missing marcfile and format\n");
+                    exit (1);
+                }
             }
             else
             {
-                fprintf (stderr, "uknown option `%s'\n", *argv);
+                fprintf (stderr, "unknown option `%s'\n", *argv);
                 exit (1);
             }
         }
@@ -65,7 +108,7 @@ int main (int argc, char **argv)
             inf = fopen (*argv, "r");
             if (!inf)
             {
-                fprintf (stderr, "cannot open `%s'\n", *argv);
+                fprintf (stderr, "cannot open FML file `%s'\n", *argv);
                 exit (1);
             }
             fml->read_func = inf_read;
@@ -79,6 +122,37 @@ int main (int argc, char **argv)
         fml_preprocess (fml);
         fml_exec (fml);
     }
+    else if (iso2709_fname)
+    {
+    	FILE *inf;
+	char *buf;
+        const char *nargv[5];
+        Iso2709Rec rec;
+        int no = 0;
+
+	inf = fopen (iso2709_fname, "r");
+	if (!inf)
+	{
+	    fprintf (stderr, "cannot open %s\n", iso2709_fname);
+	    exit (1);
+	}
+	while (no < number_of_records && (buf = iso2709_read (inf)))
+	{
+	    rec = iso2709_cvt (buf);
+	    free (buf);
+  	    nargv[0] = "\\";
+	    nargv[1] = format_func;
+	    nargv[2] = " \\list";
+	    nargv[4] = NULL;
+	    nargv[3]= marc_to_str (fml, rec);
+	    if (marc_show)
+	        printf ("\n[%s]\n", nargv[3]);
+	    iso2709_rm (rec);
+            fml_exec_call_argv (fml, nargv);
+            no++;
+	}
+	fclose (inf);
+    }
     else
     {
         if (interactive)
@@ -88,6 +162,7 @@ int main (int argc, char **argv)
             while (1)
             {
                 char *cp;
+                const char *nargv[4];
 
                 printf ("\nFML>");
                 fflush (stdout);
@@ -96,7 +171,9 @@ int main (int argc, char **argv)
                     break;
                 if ((cp = strchr (arg, '\n')))
                     *cp = '\0';
-                fml_exec_call_str (fml, arg);
+                nargv[0] = arg;
+                nargv[1] = NULL;
+                fml_exec_call_argv (fml, nargv);
             }
         }
     }