2 * FML interpreter. Europagate, 1995
5 * Revision 1.3 1995/02/09 13:07:15 adam
6 * Nodes are freed now. Many bugs fixed.
8 * Revision 1.2 1995/02/07 16:09:24 adam
9 * The \ character is no longer INCLUDED when terminating a token.
10 * Major changes in tokenization routines. Bug fixes in expressions
11 * with lists (fml_sub0).
13 * Revision 1.1.1.1 1995/02/06 13:48:10 adam
14 * First version of the FML interpreter. It's slow and memory isn't
15 * freed properly. In particular, the FML nodes aren't released yet.
24 static int inf_read (void)
29 int main (int argc, char **argv)
40 if (argv[0][1] == 'd')
42 else if (argv[0][1] == 'm')
46 fprintf (stderr, "uknown option `%s'\n", *argv);
53 inf = fopen (*argv, "r");
56 fprintf (stderr, "cannot open `%s'\n", *argv);
59 fml->read_func = inf_read;