X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=fml%2Ffml.h;h=508b94291c65d5e0fcfe390b4517f3dd61444a95;hb=4938d0c2e8f4e1eec397c2bfbbc7e23fd150c369;hp=c65e428ce6f62b97545fde344bd5b9c0806fa0b2;hpb=345de2254e0c2f8c5f40951d0509e8f5ddbc11a9;p=egate.git

diff --git a/fml/fml.h b/fml/fml.h
index c65e428..508b942 100644
--- a/fml/fml.h
+++ b/fml/fml.h
@@ -2,11 +2,25 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fml.h,v $
- * Revision 1.1  1995/02/06 13:48:09  adam
- * Initial revision
+ * Revision 1.3  1995/02/10 15:50:55  adam
+ * MARC interface implemented. Minor bugs fixed. fmltest can
+ * be used to format single MARC records. New function '\list'
+ * implemented.
+ *
+ * Revision 1.2  1995/02/09  16:06:06  adam
+ * FML can be called from the outside multiple times by the functions:
+ * fml_exec_call and fml_exec_call_str.
+ * An interactive parameter (-i) to fmltest starts a shell-like
+ * interface to FML by using the fml_exec_call_str function.
+ *
+ * Revision 1.1.1.1  1995/02/06  13:48:10  adam
+ * First version of the FML interpreter. It's slow and memory isn't
+ * freed properly. In particular, the FML nodes aren't released yet.
  *
  */
 
+#ifndef FML_H
+#define FML_H
 typedef struct Fml_record {
     struct fml_node *list;
     struct fml_sym_tab *sym_tab;
@@ -26,7 +40,12 @@ typedef struct Fml_record {
 
 Fml fml_open (void);
 int fml_preprocess (Fml fml);
+
 void fml_exec (Fml fml);
+void fml_exec_call (Fml fml);
+void fml_exec_call_str (Fml fml, const char *str);
+void fml_exec_call_argv (Fml fml, const char **argv);
 
 #define FML_ERR_NOMEM 1
 
+#endif