Changeset 32eed98 for filterelement.c

Timestamp:

Dec 26, 2003, 2:49:54 PM (20 years ago)

Author:

Erik Nygren <nygren@mit.edu>

Branches:

master, barnowl_perlaim, debian, owl, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

5f82eb3

Parents:

4357be8

Message:

2.1.3-pre-2
	Added perl filter elements.  Similar to having "filter <subfilter>"
	  in a filter, you may also have "perl <functionname>"
	  where <functionname> is passed an owl::Message object and
	  returns 0 or 1 depending on whether the message matches
	  that element of the filter.
	  [Note: currently this overloads the filtername element
	  of the filterelement structure to store the function name.
	  Perhaps we should change the name of this element to something
	  more general to avoid confusion?]

File:

• filterelement.c (modified) (5 diffs)

filterelement.c

@@ -13 +13 @@
 #define OWL_FILTERELEMENT_RE          8
 #define OWL_FILTERELEMENT_FILTER      9
+#define OWL_FILTERELEMENT_PERL       10
 
 void owl_filterelement_create_null(owl_filterelement *fe)
@@ -78 +79 @@
 }
 
+void owl_filterelement_create_perl(owl_filterelement *fe, char *name)
+{
+  owl_filterelement_create_null(fe);
+  fe->type=OWL_FILTERELEMENT_PERL;
+  fe->filtername=owl_strdup(name);
+}
+
 void owl_filterelement_free(owl_filterelement *fe)
 {
@@ -135 +143 @@
 {
   if (fe->type==OWL_FILTERELEMENT_RE) return(1);
+  return(0);
+}
+
+int owl_filterelement_is_perl(owl_filterelement *fe)
+{
+  if (fe->type==OWL_FILTERELEMENT_PERL) return(1);
   return(0);
 }
@@ -166 +180 @@
        (fe->type==OWL_FILTERELEMENT_FALSE) ||
        (fe->type==OWL_FILTERELEMENT_RE) ||
+       (fe->type==OWL_FILTERELEMENT_PERL) ||
        (fe->type==OWL_FILTERELEMENT_FILTER)) {
     return(1);
@@ -193 +208 @@
   } else if (owl_filterelement_is_filter(fe)) {
     return(owl_sprintf("filter %s ", fe->filtername));
+  } else if (owl_filterelement_is_perl(fe)) {
+    return(owl_sprintf("perl %s ", fe->filtername));
   }