X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=bindings-apr.git;a=blobdiff_plain;f=Bindings%2FAPR%2FRandom.hsc;fp=Bindings%2FAPR%2FRandom.hsc;h=b20b9faf34df9f33192d8126d91e304d22747893;hp=0000000000000000000000000000000000000000;hb=efb9b0932050f4fb0a7e6d26b5042cade89d06db;hpb=c3100272dedde8dcb76594ad7b3c0559707ec638

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 ()