2 * FML interpreter. Europagate, 1995
5 * Revision 1.4 1995/02/23 08:32:04 adam
8 * Revision 1.2 1995/02/10 15:50:55 adam
9 * MARC interface implemented. Minor bugs fixed. fmltest can
10 * be used to format single MARC records. New function '\list'
13 * Revision 1.1 1995/02/09 16:06:07 adam
14 * FML can be called from the outside multiple times by the functions:
15 * fml_exec_call and fml_exec_call_str.
16 * An interactive parameter (-i) to fmltest starts a shell-like
17 * interface to FML by using the fml_exec_call_str function.
26 static const char **str_args;
28 static int str_reader (void)
31 while (! (c = **str_args))
41 void fml_exec_call_argv (Fml fml, const char **argv)
43 int (*old_func)(void) = fml->read_func;
45 fml->read_func = str_reader;
47 eof_mark = fml->eof_mark;
49 fml->read_func = old_func;
53 void fml_exec_call_str (Fml fml, const char *str)
55 int (*old_func)(void) = fml->read_func;
61 fml->read_func = str_reader;
63 eof_mark = fml->eof_mark;
65 fml->read_func = old_func;