From: PHO <pho@cielonegro.org>
Date: Wed, 6 Oct 2010 14:00:47 +0000 (+0900)
Subject: Bindings.APR.StrMatch
X-Git-Tag: RELEASE-0.1~4
X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr-util.git;a=commitdiff_plain;h=1e8b54a97523c909abf2c33da6ed5ee5bb626c0b

Bindings.APR.StrMatch
---

diff --git a/Bindings/APR/StrMatch.hsc b/Bindings/APR/StrMatch.hsc
new file mode 100644
index 0000000..298fa8f
--- /dev/null
+++ b/Bindings/APR/StrMatch.hsc
@@ -0,0 +1,18 @@
+#include <bindings.dsl.h>
+#include <apr_strmatch.h>
+
+module Bindings.APR.StrMatch where
+#strict_import
+import Bindings.APR
+import Bindings.APR.Pools
+
+#starttype struct apr_strmatch_pattern
+#  field compare, FunPtr (Ptr <apr_strmatch_pattern> -> Ptr CChar -> <apr_size_t> -> IO (Ptr CChar))
+#  field pattern, Ptr CChar
+#  field length , <apr_size_t>
+#  field context, Ptr ()
+#stoptype
+
+#cinline apr_strmach, Ptr <apr_strmatch_pattern> -> Ptr CChar -> <apr_size_t> -> IO (Ptr CChar)
+
+#ccall apr_strmatch_precompile, Ptr <apr_pool_t> -> Ptr CChar -> CInt -> IO (Ptr <apr_strmatch_pattern>)
diff --git a/bindings-apr-util.cabal b/bindings-apr-util.cabal
index 9b5aed5..b7d1c24 100644
--- a/bindings-apr-util.cabal
+++ b/bindings-apr-util.cabal
@@ -50,6 +50,7 @@ Library
         Bindings.APR.ResList
         Bindings.APR.SDBM
         Bindings.APR.SHA1
+        Bindings.APR.StrMatch
         Bindings.APR.XLate
 
     C-Sources:
@@ -61,6 +62,7 @@ Library
         cbits/helper_apr_md4.c
         cbits/helper_apr_sdbm.c
         cbits/helper_apr_sha1.c
+        cbits/helper_apr_strmatch.c
 
     Extensions:
         ForeignFunctionInterface
diff --git a/cbits/helper_apr_strmatch.c b/cbits/helper_apr_strmatch.c
new file mode 100644
index 0000000..d89d1f5
--- /dev/null
+++ b/cbits/helper_apr_strmatch.c
@@ -0,0 +1,4 @@
+#include <bindings.cmacros.h>
+#include <apr_strmatch.h>
+
+BC_INLINE3(apr_strmatch, const apr_strmatch_pattern*, const char*, apr_size_t, const char*)