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

diff --git a/fml/fmltest.c b/fml/fmltest.c
index 3b7d7d7..7664473 100644
--- a/fml/fmltest.c
+++ b/fml/fmltest.c
@@ -2,7 +2,11 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmltest.c,v $
- * Revision 1.7  1995/02/23 08:32:06  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
@@ -36,6 +40,7 @@
 
 #include <fmlmarc.h>
 
+char *prog;
 static FILE *inf;
 
 static int inf_read (void)
@@ -47,9 +52,13 @@ int main (int argc, char **argv)
 {
     Fml fml;
     int nfiles = 0;
+    int marc_show = 0;
     int interactive = 0;
-    Iso2709Rec rec = NULL;
+    const char *iso2709_fname = NULL;
+    const char *format_func = NULL;
+    int number_of_records = 10000;
 
+    prog = *argv;
     fml = fml_open ();
     while (-- argc > 0)
     {
@@ -62,32 +71,29 @@ int main (int argc, char **argv)
                 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 > 1)
+                if (argc > 2)
                 {
-                    char *buf;
-                    FILE *inf;
-                    ++argv;
+	    	    iso2709_fname = *++argv;
+	    	    --argc;
+	    	    format_func = *++argv;
                     --argc;
-
-                    inf = fopen (*argv, "r");
-                    if (!inf)
-                    {
-                        fprintf (stderr, "cannot open record `%s'\n", *argv);
-                        exit (1);
-                    }
-                    if ((buf = iso2709_read (inf)))
-                    {
-                        rec = iso2709_cvt (buf);
-                        free (buf);
-                    }
-                    else
-                    {
-                        fprintf (stderr, "no record in `%s'\n", *argv);
-                        exit (1);
-                    }
-                    fclose (inf);
+                }
+                else
+                {
+                    fprintf (stderr, "missing marcfile and format\n");
+                    exit (1);
                 }
             }
             else
@@ -116,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)
@@ -134,19 +171,8 @@ int main (int argc, char **argv)
                     break;
                 if ((cp = strchr (arg, '\n')))
                     *cp = '\0';
-                if (*arg == '!' && rec)
-                {
-                    nargv[0] = arg+1;
-                    nargv[1] = " ";
-                    nargv[2] = marc_to_str (fml, rec);
-                    printf ("passing '%s'\n", nargv[2]);
-                    nargv[3] = NULL;
-                }
-                else
-                {
-                    nargv[0] = arg;
-                    nargv[1] = NULL;
-                }
+                nargv[0] = arg;
+                nargv[1] = NULL;
                 fml_exec_call_argv (fml, nargv);
             }
         }