fml/fmltest.c

   1 /*
   2  * FML interpreter. Europagate, 1995
   3  *
   4  * $Log: fmltest.c,v $
   5  * Revision 1.1.1.1  1995/02/06 13:48:10  adam
   6  * First version of the FML interpreter. It's slow and memory isn't
   7  * freed properly. In particular, the FML nodes aren't released yet.
   8  *
   9  */
  10
  11 #include <stdio.h>
  12 #include "fml.h"
  13
  14 int main (int argc, char **argv)
  15 {
  16     Fml fml;
  17
  18     fml = fml_open ();
  19     if (argc >= 2 && (!strcmp (argv[1], "d") ||
  20                       !strcmp (argv[1], "debug")))
  21     {
  22         fml->debug = 1;
  23     }
  24     fml_preprocess (fml);
  25     fml_exec (fml);
  26     return 0;
  27 }