A few logging messages added.

[egate.git] / fml / fmlmem.c

diff --git a/fml/fmlmem.c b/fml/fmlmem.c
index ce82b69..7e78ac8 100644 (file)
--- a/fml/fmlmem.c
+++ b/fml/fmlmem.c
@@ -2,7 +2,11 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmlmem.c,v $
- * Revision 1.5  1995/02/09 14:37:18  adam
+ * Revision 1.6  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.5  1995/02/09  14:37:18  adam
  * Removed .depend from cvs. Removed function fml_mk_list.
  *
  * Revision 1.4  1995/02/09  14:33:37  adam
@@ -130,6 +134,24 @@ struct fml_atom *fml_atom_alloc (Fml fml, char *str)
     return a0;
 }
 
+int fml_atom_cmp (Fml fml, struct fml_atom *a1, struct fml_atom *a2)
+{
+    while (a1 && a2)
+    {
+        int n;
+        n = strncmp (a1->buf, a2->buf, FML_ATOM_BUF);
+        if (n)
+            return n;
+        a1 = a1->next;
+        a2 = a2->next;
+    }
+    if (!a1 && !a2)
+        return 0;
+    if (a1)
+        return 1;
+    return -1;
+}
+
 int fml_atom_str (struct fml_atom *a, char *str)
 {
     int len = 0;