From efb9b0932050f4fb0a7e6d26b5042cade89d06db Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sat, 21 Aug 2010 13:54:54 +0900
Subject: [PATCH] Bindings.APR.Random

---
 Bindings/APR/Portable.hsc |  2 +-
 Bindings/APR/Random.hsc   | 29 +++++++++++++++++++++++++++++
 bindings-apr.cabal        |  1 +
 3 files changed, 31 insertions(+), 1 deletion(-)
 create mode 100644 Bindings/APR/Random.hsc

diff --git a/Bindings/APR/Portable.hsc b/Bindings/APR/Portable.hsc
index 288b49f..498b17d 100644
--- a/Bindings/APR/Portable.hsc
+++ b/Bindings/APR/Portable.hsc
@@ -31,7 +31,7 @@ import Bindings.APR.Time
 
 #starttype struct apr_os_sock_info_t
 #  field os_sock , Ptr <apr_os_sock_t>
--- FIXME
+-- FIXME: sockaddr
 -- #  field local   , Ptr <sockaddr>
 -- #  field remote  , Ptr <sockaddr>
 #  field family  , CInt
diff --git a/Bindings/APR/Random.hsc b/Bindings/APR/Random.hsc
new file mode 100644
index 0000000..b20b9fa
--- /dev/null
+++ b/Bindings/APR/Random.hsc
@@ -0,0 +1,29 @@
+#include <bindings.dsl.h>
+#include <apr_random.h>
+
+module Bindings.APR.Random where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.Pools
+import Bindings.APR.Thread.Proc
+
+#opaque_t apr_crypto_hash_t
+
+#callback apr_crypto_hash_init_t  , Ptr <apr_crypto_hash_t> -> IO ()
+#callback apr_crypto_hash_add_t   , Ptr <apr_crypto_hash_t> -> Ptr () -> <apr_size_t> -> IO ()
+#callback apr_crypto_hash_finish_t, Ptr <apr_crypto_hash_t> -> Ptr CUChar -> IO ()
+
+#ccall apr_crypto_sha256_new, Ptr <apr_pool_t> -> IO (Ptr <apr_crypto_hash_t>)
+
+#opaque_t apr_random_t
+
+#ccall apr_random_init          , Ptr <apr_random_t> -> Ptr <apr_pool_t> -> Ptr <apr_crypto_hash_t> -> Ptr <apr_crypto_hash_t> -> Ptr <apr_crypto_hash_t> -> IO ()
+#ccall apr_random_standard_new  , Ptr <apr_pool_t> -> IO (Ptr <apr_random_t>)
+#ccall apr_random_add_entropy   , Ptr <apr_random_t> -> Ptr () -> <apr_size_t> -> IO ()
+#ccall apr_random_insecure_bytes, Ptr <apr_random_t> -> Ptr () -> <apr_size_t> -> IO <apr_status_t>
+#ccall apr_random_secure_bytes  , Ptr <apr_random_t> -> Ptr () -> <apr_size_t> -> IO <apr_status_t>
+#ccall apr_random_barrier       , Ptr <apr_random_t> -> IO ()
+#ccall apr_random_secure_ready  , Ptr <apr_random_t> -> IO <apr_status_t>
+#ccall apr_random_insecure_ready, Ptr <apr_random_t> -> IO <apr_status_t>
+#ccall apr_random_after_fork    , Ptr <apr_proc_t> -> IO ()
diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index 1e573ce..3d77c06 100644
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -51,6 +51,7 @@ Library
         Bindings.APR.Pools
         Bindings.APR.Portable
         Bindings.APR.Proc.Mutex
+        Bindings.APR.Random
         Bindings.APR.Shm
         Bindings.APR.Tables
         Bindings.APR.Thread.Mutex
-- 
2.40.0