X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=fml%2Ffmltest.c;h=996460723569ce7c70cc331374c6794ae68df89c;hb=4938d0c2e8f4e1eec397c2bfbbc7e23fd150c369;hp=13dda1ee69d84fd18a650d64311afeb99fc2f5c6;hpb=372b7a22555387ae193ed303132342e654319420;p=egate.git diff --git a/fml/fmltest.c b/fml/fmltest.c index 13dda1e..9964607 100644 --- a/fml/fmltest.c +++ b/fml/fmltest.c @@ -1,8 +1,61 @@ /* + * Copyright (c) 1995, the EUROPAGATE consortium (see below). + * + * The EUROPAGATE consortium members are: + * + * University College Dublin + * Danmarks Teknologiske Videnscenter + * An Chomhairle Leabharlanna + * Consejo Superior de Investigaciones Cientificas + * + * Permission to use, copy, modify, distribute, and sell this software and + * its documentation, in whole or in part, for any purpose, is hereby granted, + * provided that: + * + * 1. This copyright and permission notice appear in all copies of the + * software and its documentation. Notices of copyright or attribution + * which appear at the beginning of any file must remain unchanged. + * + * 2. The names of EUROPAGATE or the project partners may not be used to + * endorse or promote products derived from this software without specific + * prior written permission. + * + * 3. Users of this software (implementors and gateway operators) agree to + * inform the EUROPAGATE consortium of their use of the software. This + * information will be used to evaluate the EUROPAGATE project and the + * software, and to plan further developments. The consortium may use + * the information in later publications. + * + * 4. Users of this software agree to make their best efforts, when + * documenting their use of the software, to acknowledge the EUROPAGATE + * consortium, and the role played by the software in their work. + * + * THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND, + * EXPRESS, IMPLIED, OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY + * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. + * IN NO EVENT SHALL THE EUROPAGATE CONSORTIUM OR ITS MEMBERS BE LIABLE + * FOR ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF + * ANY KIND, OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA + * OR PROFITS, WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND + * ON ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE + * USE OR PERFORMANCE OF THIS SOFTWARE. + * + */ +/* * FML interpreter. Europagate, 1995 * * $Log: fmltest.c,v $ - * Revision 1.5 1995/02/10 15:50:56 adam + * Revision 1.9 1995/05/16 09:39:35 adam + * LICENSE. + * + * 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. @@ -33,6 +86,7 @@ #include +char *prog; static FILE *inf; static int inf_read (void) @@ -44,9 +98,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) { @@ -59,32 +117,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 @@ -113,6 +168,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) @@ -131,19 +217,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); } }