fml/fmltest.c

   1 /*
   2  * FML interpreter. Europagate, 1995
   3  *
   4  * $Log: fmltest.c,v $
   5  * Revision 1.1  1995/02/06 13:48:09  adam
   6  * Initial revision
   7  *
   8  */
   9
  10 #include <stdio.h>
  11 #include "fml.h"
  12
  13 int main (int argc, char **argv)
  14 {
  15     Fml fml;
  16
  17     fml = fml_open ();
  18     if (argc >= 2 && (!strcmp (argv[1], "d") ||
  19                       !strcmp (argv[1], "debug")))
  20     {
  21         fml->debug = 1;
  22     }
  23     fml_preprocess (fml);
  24     fml_exec (fml);
  25     return 0;
  26 }