Initial revision
[egate.git] / fml / fml.h
1 /*
2  * FML interpreter. Europagate, 1995
3  *
4  * $Log: fml.h,v $
5  * Revision 1.1  1995/02/06 13:48:09  adam
6  * Initial revision
7  *
8  */
9
10 typedef struct Fml_record {
11     struct fml_node *list;
12     struct fml_sym_tab *sym_tab;
13
14     struct fml_atom *atom_free_list;
15     struct fml_node *node_free_list;
16
17     int escape_char;
18     int eof_mark;
19     char *white_chars;
20     char comment_char;
21     int (*read_func)(void);
22     void (*err_handle)(int no);
23
24     int debug;
25 } *Fml;
26
27 Fml fml_open (void);
28 int fml_preprocess (Fml fml);
29 void fml_exec (Fml fml);
30
31 #define FML_ERR_NOMEM 1
32