X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=fml%2Ffmlp.h;h=99a2038e15f2bd0bd769b8292f0500d42b42cf14;hb=e2ca7150cc23d2ad81d0364544ebf0d94f260722;hp=9a4244e0ef1ece308b05705f1cbf7d8e54bce35e;hpb=372b7a22555387ae193ed303132342e654319420;p=egate.git

diff --git a/fml/fmlp.h b/fml/fmlp.h
index 9a4244e..99a2038 100644
--- a/fml/fmlp.h
+++ b/fml/fmlp.h
@@ -2,7 +2,11 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmlp.h,v $
- * Revision 1.7  1995/02/10 15:50:56  adam
+ * Revision 1.8  1995/02/10 18:15:52  adam
+ * FML function 'strcmp' implemented. This function can be used to
+ * test for existence of MARC fields.
+ *
+ * Revision 1.7  1995/02/10  15:50:56  adam
  * MARC interface implemented. Minor bugs fixed. fmltest can
  * be used to format single MARC records. New function '\list'
  * implemented.
@@ -62,6 +66,7 @@ int fml_atom_val (struct fml_atom *a);
 void fml_node_delete (Fml fml, struct fml_node *fn);
 struct fml_node *fml_node_copy (Fml fml, struct fml_node *fn);
 struct fml_node *fml_mk_node_val (Fml fml, int val);
+int fml_atom_cmp (Fml fml, struct fml_atom *a1, struct fml_atom *a2);
 
 struct token {
     int             kind;
@@ -119,6 +124,7 @@ void fml_node_stat (Fml fml);
 void fml_rel_init (Fml fml);
 void fml_arit_init (Fml fml);
 void fml_list_init (Fml fml);
+void fml_str_init (Fml fml);
 void fml_lr_values (Fml fml, struct fml_node *l, int *left_val,
                            struct fml_node *r, int *right_val);
 void fml_cmd_lex (struct fml_node **np, struct token *tp);