X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=fml%2Ffmlmem.c;h=8f42c1d4f1b05cebe63fc80c4ceaef653d09c7b4;hb=3f6af0f3aa9f114cf562c28f2ed0b954e4c5d659;hp=ce82b69bb92956e3d4031e9945a478fc9465f527;hpb=4ccb33b091909c5105ea7a42e476f5679c954162;p=egate.git

diff --git a/fml/fmlmem.c b/fml/fmlmem.c
index ce82b69..8f42c1d 100644
--- a/fml/fmlmem.c
+++ b/fml/fmlmem.c
@@ -1,8 +1,12 @@
 /*
  * FML interpreter. Europagate, 1995
  *
- * $Log: fmlmem.c,v $
- * Revision 1.5  1995/02/09 14:37:18  adam
+ * fmlmem.c,v
+ * 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;