Definition of CPP changed.

[egate.git] / fml / fmlmem.c

diff --git a/fml/fmlmem.c b/fml/fmlmem.c
index 7d12da0..7e78ac8 100644 (file)
--- a/fml/fmlmem.c
+++ b/fml/fmlmem.c
@@ -2,7 +2,18 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmlmem.c,v $
- * Revision 1.3  1995/02/09 13:07:15  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
+ * Split source fml.c and define relevant build-in functions in separate
+ * files. New operators mult, div, not, llen implemented.
+ *
+ * Revision 1.3  1995/02/09  13:07:15  adam
  * Nodes are freed now. Many bugs fixed.
  *
  * Revision 1.2  1995/02/06  15:23:26  adam
@@ -123,19 +134,22 @@ struct fml_atom *fml_atom_alloc (Fml fml, char *str)
     return a0;
 }
 
-struct fml_node *fml_mk_list (Fml fml, struct fml_node *fn)
+int fml_atom_cmp (Fml fml, struct fml_atom *a1, struct fml_atom *a2)
 {
-    if (fn->is_atom)
+    while (a1 && a2)
     {
-        struct fml_node *fn2;
-
-        fn2 = fml_node_alloc (fml);
-        fn2->is_atom = 1;
-        fn2->p[0] = fn->p[0];
-        return fn2;
+        int n;
+        n = strncmp (a1->buf, a2->buf, FML_ATOM_BUF);
+        if (n)
+            return n;
+        a1 = a1->next;
+        a2 = a2->next;
     }
-    else
-        return fn->p[0];
+    if (!a1 && !a2)
+        return 0;
+    if (a1)
+        return 1;
+    return -1;
 }
 
 int fml_atom_str (struct fml_atom *a, char *str)
@@ -171,7 +185,6 @@ void fml_atom_strx (struct fml_atom *a, char *str, int max)
     str[len+FML_ATOM_BUF-1] = '\0';
 }
 
-
 int fml_atom_val (struct fml_atom *a)
 {
     static char arg[256];
@@ -182,6 +195,18 @@ int fml_atom_val (struct fml_atom *a)
     return atoi (arg);
 }
 
+struct fml_node *fml_mk_node_val (Fml fml, int val)
+{
+    static char arg[64];
+    struct fml_node *fn;
+
+    sprintf (arg, "%d", val);
+    fn = fml_node_alloc (fml);
+    fn->is_atom = 1;
+    fn->p[0] = fml_atom_alloc (fml, arg);
+    return fn;
+}
+
 void fml_node_delete (Fml fml, struct fml_node *fn)
 {
     struct fml_node *f1;