Regular expression support. Argument passing by name option. New FML

[egate.git] / fml / fmlstr.c

diff --git a/fml/fmlstr.c b/fml/fmlstr.c
index b28f69a..c8810a0 100644 (file)
--- a/fml/fmlstr.c
+++ b/fml/fmlstr.c
@@ -2,7 +2,11 @@
  * FML interpreter. Europagate, 1995
  *
  * $Log: fmlstr.c,v $
- * Revision 1.3  1995/02/23 08:32:06  adam
+ * Revision 1.4  1995/02/27 09:01:21  adam
+ * Regular expression support. Argument passing by name option. New FML
+ * function strlen.
+ *
+ * Revision 1.3  1995/02/23  08:32:06  adam
  * Changed header.
  *
  * Revision 1.1  1995/02/10  18:15:53  adam
@@ -17,6 +21,130 @@
 
 #include "fmlp.h"
 
+#if USE_GNU_REGEX
+#include <regex.h>
+#endif
+
+#if USE_GNU_REGEX
+struct reg_cache {
+    struct re_pattern_buffer buf;
+    char *pattern;
+    struct reg_cache *next;
+};
+
+static int no_in_use = 0;
+static struct reg_cache *reg_cache_list = NULL;
+
+struct reg_cache *fml_reg_compile (const char *pattern)
+{
+    struct reg_cache *list, *last = NULL;
+    for (list = reg_cache_list; list; list = list->next)
+    {
+        if (!strcmp (pattern, list->pattern))
+            return list;
+        last = list;
+    }
+    if (no_in_use >= 20)
+    {
+        for (list = reg_cache_list; list->next->next; list = list->next)
+            ;
+        free (list->next->pattern);
+        regfree (&list->next->buf);
+        free (list->next);
+        list->next = NULL;
+    }
+    else
+        no_in_use++;
+    list = malloc (sizeof (*list));
+    assert (list);
+    list->next = reg_cache_list;
+    reg_cache_list = list;
+    list->pattern = malloc (strlen(pattern)+1);
+    assert (list->pattern);
+    strcpy (list->pattern, pattern);
+
+    re_syntax_options = RE_SYNTAX_GREP;
+    list->buf.translate = NULL;
+    list->buf.fastmap = NULL;
+    list->buf.buffer = NULL;
+    list->buf.allocated = 0;
+    re_compile_pattern (pattern, strlen(pattern), &list->buf);
+    return list;
+}
+
+static int fml_reg_match (struct reg_cache *reg_pat, const char *str)
+{
+    int ret, len = strlen (str);
+
+    ret = re_match (&reg_pat->buf, str, len, 0, NULL);
+    if (ret == len)
+         return 1;
+    return 0;
+}
+
+#endif
+
+static struct fml_node *fml_exec_match (Fml fml, struct fml_node **lp, 
+                                         struct token *tp)
+{
+    struct reg_cache *reg;
+    struct fml_node *fn;
+    const char *cp;
+    char pattern[128];
+    char sstring[128];
+
+    fml_cmd_lex (lp, tp); 
+    if (tp->kind == 't')
+    {
+        cp = tp->tokenbuf;
+        fml_cmd_lex (lp, tp);
+    }
+    else
+    {
+        fn = fml_expr_term (fml, lp, tp);
+        if (!fn->is_atom)
+       {
+           fml_node_delete (fml, fn);
+           return NULL;
+        }
+        fml_atom_str (fn->p[0], pattern);
+       fml_node_delete (fml, fn);
+        cp = pattern;
+    }
+    reg = fml_reg_compile (cp);
+    fn = fml_expr_term (fml, lp, tp);
+    if (!fn->is_atom)
+    {
+        fml_node_delete (fml, fn);
+        return NULL;
+    }
+    fml_atom_str (fn->p[0], sstring);
+    fml_node_delete (fml, fn);
+    if (fml_reg_match (reg, sstring))
+       return fml_mk_node_val (fml, 1);
+    return NULL;
+}
+
+static struct fml_node *fml_exec_strlen (Fml fml, struct fml_node **lp, 
+                                         struct token *tp)
+{
+    struct fml_node *fn;
+    int len = 0;
+
+    fml_cmd_lex (lp, tp);
+    fn = fml_expr_term (fml, lp, tp);
+    while (fn)
+    {
+        if (fn->is_atom)
+            len += fml_atom_len (fn->p[0]);
+        fn = fn->p[1];
+        if (fn)
+            len++;
+    }
+    fml_node_delete (fml, fn);
+    return fml_mk_node_val (fml, len);
+}
+
 static struct fml_node *fml_exec_strcmp (Fml fml, struct fml_node **lp, 
                                          struct token *tp)
 {
@@ -37,6 +165,8 @@ static struct fml_node *fml_exec_strcmp (Fml fml, struct fml_node **lp,
         arg = "1";
     else 
         arg = "-1";
+    fml_node_delete (fml, fn1);
+    fml_node_delete (fml, fn2);
     fn = fml_node_alloc (fml);
     fn->is_atom = 1;
     fn->p[0] = fml_atom_alloc (fml, arg);
@@ -50,4 +180,12 @@ void fml_str_init (Fml fml)
     sym_info = fml_sym_add (fml->sym_tab, "strcmp");
     sym_info->kind = FML_CPREFIX;
     sym_info->prefix = fml_exec_strcmp;
+    sym_info = fml_sym_add (fml->sym_tab, "strlen");
+    sym_info->kind = FML_CPREFIX;
+    sym_info->prefix = fml_exec_strlen;
+#if USE_GNU_REGEX
+    sym_info = fml_sym_add (fml->sym_tab, "match");
+    sym_info->kind = FML_CPREFIX;
+    sym_info->prefix = fml_exec_match;
+#endif
 }