Minor changes.
[egate.git] / fml / fmlcall.c
1 /*
2  * FML interpreter. Europagate, 1995
3  *
4  * fmlcall.c,v
5  * Revision 1.1  1995/02/09  16:06:07  adam
6  * FML can be called from the outside multiple times by the functions:
7  * fml_exec_call and fml_exec_call_str.
8  * An interactive parameter (-i) to fmltest starts a shell-like
9  * interface to FML by using the fml_exec_call_str function.
10  *
11  */
12 #include <assert.h>
13 #include <stdlib.h>
14 #include <stdio.h>
15
16 #include "fmlp.h"
17
18 void fml_exec_call (Fml fml)
19 {
20     struct fml_node *fn;
21
22     fml_node_stat (fml);
23     fn = fml_tokenize (fml);
24
25     fml_exec_group (fn, fml);
26     fml_node_delete (fml, fn);
27 }
28