Bindings.APR.Poll

diff --git a/Bindings/APR/Poll.hsc b/Bindings/APR/Poll.hsc
new file mode 100644 (file)
index 0000000..7e9e6bc
--- /dev/null
+++ b/Bindings/APR/Poll.hsc
@@ -0,0 +1,61 @@
+#include <bindings.dsl.h>
+#include <apr_poll.h>
+
+module Bindings.APR.Poll where
+#strict_import
+import Bindings.APR
+import Bindings.APR.ErrNo
+import Bindings.APR.File.Types
+import Bindings.APR.Network.IO
+import Bindings.APR.Pools
+import Bindings.APR.Time
+
+#num APR_POLLIN
+#num APR_POLLPRI
+#num APR_POLLOUT
+#num APR_POLLERR
+#num APR_POLLHUP
+#num APR_POLLNVAL
+
+#num APR_POLLSET_THREADSAFE
+#num APR_POLLSET_NOCOPY
+
+#integral_t apr_datatype_e
+#num APR_NO_DESC
+#num APR_POLL_SOCKET
+#num APR_POLL_FILE
+#num APR_POLL_LASTDESC
+
+#starttype apr_descriptor
+#  union_field f, Ptr <apr_file_t>
+#  union_field s, Ptr <apr_socket_t>
+#stoptype
+
+#starttype struct apr_pollfd_t
+#  field p          , Ptr <apr_pool_t>
+#  field desc_type  , <apr_datatype_e>
+#  field reqevents  , <apr_int16_t>
+#  field rtnevents  , <apr_int16_t>
+#  field desc       , <apr_descriptor>
+#  field client_data, Ptr ()
+#stoptype
+
+#opaque_t apr_pollset_t
+
+#ccall apr_pollset_create , Ptr (Ptr <apr_pollset_t>) -> <apr_uint32_t> -> Ptr <apr_pool_t> -> <apr_uint32_t> -> IO <apr_status_t>
+#ccall apr_pollset_destroy, Ptr <apr_pollset_t> -> IO <apr_status_t>
+#ccall apr_pollset_add    , Ptr <apr_pollset_t> -> Ptr <apr_pollfd_t> -> IO <apr_status_t>
+#ccall apr_pollset_remove , Ptr <apr_pollset_t> -> Ptr <apr_pollfd_t> -> IO <apr_status_t>
+#ccall apr_pollset_poll   , Ptr <apr_pollset_t> -> <apr_interval_time_t> -> Ptr <apr_int32_t> -> Ptr (Ptr <apr_pollfd_t>) -> IO <apr_status_t>
+
+#ccall apr_poll, Ptr <apr_pollfd_t> -> <apr_int32_t> -> Ptr <apr_int32_t> -> <apr_interval_time_t> -> IO <apr_status_t>
+
+#opaque_t apr_pollcb_t
+
+#ccall apr_pollcb_create, Ptr (Ptr <apr_pollcb_t>) -> <apr_uint32_t> -> Ptr <apr_pool_t> -> <apr_uint32_t> -> IO <apr_status_t>
+#ccall apr_pollcb_add   , Ptr <apr_pollcb_t> -> Ptr <apr_pollfd_t> -> IO <apr_status_t>
+#ccall apr_pollcb_remove, Ptr <apr_pollcb_t> -> Ptr <apr_pollfd_t> -> IO <apr_status_t>
+
+#callback apr_pollcb_cb_t, Ptr () -> Ptr <apr_pollfd_t> -> IO <apr_status_t>
+
+#ccall apr_pollcb_poll, Ptr <apr_pollcb_t> -> <apr_interval_time_t> -> <apr_pollcb_cb_t> -> Ptr () -> IO <apr_status_t>

diff --git a/bindings-apr.cabal b/bindings-apr.cabal
index a1e2be94afdc41308103983733c398d42056b7c9..440045f98c718508fb9cef840f7f388fe67de6ef 100644 (file)
--- a/bindings-apr.cabal
+++ b/bindings-apr.cabal
@@ -47,6 +47,7 @@ Library
         Bindings.APR.Lib
         Bindings.APR.MMap
         Bindings.APR.Network.IO
+        Bindings.APR.Poll
         Bindings.APR.Pools
         Bindings.APR.Proc.Mutex
         Bindings.APR.Tables