From 5a3f4dada5c980672b04376467cc24aeb5654aff Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sat, 21 Aug 2010 14:06:47 +0900
Subject: [PATCH] Bindings.APR.Signal

---
 Bindings/APR/Signal.hsc   | 17 +++++++++++++++++
 bindings-apr.cabal        |  2 ++
 cbits/helper_apr_signal.c |  6 ++++++
 3 files changed, 25 insertions(+)
 create mode 100644 Bindings/APR/Signal.hsc
 create mode 100644 cbits/helper_apr_signal.c

diff --git a/Bindings/APR/Signal.hsc b/Bindings/APR/Signal.hsc
new file mode 100644
index 0000000..22bc231
--- /dev/null
+++ b/Bindings/APR/Signal.hsc
@@ -0,0 +1,17 @@
+#include <bindings.dsl.h>
+#include <apr_shm.h>
+
+module Bindings.APR.Signal where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+
+#callback apr_sigfunc_t, CInt -> IO ()
+
+#cinline apr_signal, CInt -> <apr_sigfunc_t> -> IO <apr_sigfunc_t>
+
+#ccall apr_signal_description_get, CInt -> IO (Ptr CChar)
+#ccall apr_signal_init           , Ptr <apr_pool_t> -> IO ()
+#ccall apr_signal_block          , CInt -> IO <apr_status_t>
+#ccall apr_signal_unblock        , CInt -> IO <apr_status_t>
diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index 3d77c06..81059fc 100644
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -53,6 +53,7 @@ Library
         Bindings.APR.Proc.Mutex
         Bindings.APR.Random
         Bindings.APR.Shm
+        Bindings.APR.Signal
         Bindings.APR.Tables
         Bindings.APR.Thread.Mutex
         Bindings.APR.Thread.Proc
@@ -68,6 +69,7 @@ Library
         cbits/helper_apr_pools.c
         cbits/helper_apr_lib.c
         cbits/helper_apr_mmap.c
+        cbits/helper_apr_signal.c
         cbits/helper_apr_time.c
         cbits/helper_apr_thread_proc.c
         cbits/helper_apr_user.c
diff --git a/cbits/helper_apr_signal.c b/cbits/helper_apr_signal.c
new file mode 100644
index 0000000..2474132
--- /dev/null
+++ b/cbits/helper_apr_signal.c
@@ -0,0 +1,6 @@
+#include <bindings.cmacros.h>
+#include <apr_signal.h>
+
+void (*inline_apr_signal(int signo, void (*func)(int)))(int) {
+    return apr_signal(signo, func);
+}
-- 
2.40.0