Changeset 1ced34f for perlglue.xs

Timestamp:

May 27, 2013, 2:09:44 PM (11 years ago)

Author:

Jason Gross <jgross@mit.edu>

Branches:

master, release-1.10

Children:

0adbce1

Parents:

b58dea1

git-author:

Jason Gross <jgross@mit.edu> (02/16/13 14:03:27)

git-committer:

Jason Gross <jgross@mit.edu> (05/27/13 14:09:44)

Message:

Expose message_matches_filter to perl

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -256 +256 @@
         }
 
+bool
+message_matches_filter(message, filter_name, quiet = false)
+        SV *message
+        const char *filter_name
+        bool quiet
+        PREINIT:
+                owl_message *m;
+                const owl_filter *f;
+        CODE:
+        {
+                if (!SvROK(message) || SvTYPE(SvRV(message)) != SVt_PVHV) {
+                        croak("Usage: BarnOwl::message_matches_filter($message, $filter_name[, $quiet])");
+                }
+
+                m = owl_perlconfig_hashref2message(message);
+                f = owl_global_get_filter(&g, filter_name);
+                if (!f && !quiet) {
+                        owl_function_error("%s filter is not defined", filter_name);
+                }
+                RETVAL = f && owl_filter_message_match(f, m);
+        }
+        OUTPUT:
+                RETVAL
+        CLEANUP:
+                owl_message_delete(m);
+
 const utf8 *
 wordwrap(in, cols)