Bindings/APR/Network/IO.hsc

   1 #include <bindings.dsl.h>
   2 #include <apr_network_io.h>
   3
   4 module Bindings.APR.Network.IO where
   5 #strict_import
   6 import Bindings.APR
   7 import Bindings.APR.ErrNo
   8 import Bindings.APR.File.Types
   9 import Bindings.APR.Pools
  10 import Bindings.APR.Time
  11 import Bindings.APR.Want
  12
  13 #num APR_MAX_SECS_TO_LINGER
  14 #num APRMAXHOSTLEN
  15 #pointer APR_ANYADDR
  16
  17 #num APR_SO_LINGER
  18 #num APR_SO_KEEPALIVE
  19 #num APR_SO_DEBUG
  20 #num APR_SO_NONBLOCK
  21 #num APR_SO_REUSEADDR
  22 #num APR_SO_SNDBUF
  23 #num APR_SO_RCVBUF
  24 #num APR_SO_DISCONNECTED
  25 #num APR_TCP_NODELAY
  26 #num APR_TCP_NOPUSH
  27 #num APR_RESET_NODELAY
  28 #num APR_INCOMPLETE_READ
  29 #num APR_INCOMPLETE_WRITE
  30 #num APR_IPV6_V6ONLY
  31 #num APR_TCP_DEFER_ACCEPT
  32
  33 #integral_t apr_shutdown_how_e
  34 #num APR_IPV4_ADDR_OK
  35 #num APR_IPV6_ADDR_OK
  36
  37 #num APR_INADDR_NONE
  38
  39 #num APR_INET
  40 #num APR_UNSPEC
  41
  42 #if APR_HAVE_IPV6
  43 #  num APR_INET6
  44 #endif
  45
  46 #num APR_PROTO_TCP
  47 #num APR_PROTO_UDP
  48 #num APR_PROTO_SCTP
  49
  50 #integral_t apr_interface_e
  51 #num APR_LOCAL
  52 #num APR_REMOTE
  53
  54 -- FIXME: How should I wrap apr_inet_addr?
  55
  56 #opaque_t apr_socket_t
  57
  58 #starttype struct apr_hdtr_t
  59 #  field headers    , Ptr <iovec>
  60 #  field numheaders , CInt
  61 #  field trailers   , Ptr <iovec>
  62 #  field numtrailers, CInt
  63 #stoptype
  64
  65 -- FIXME: How should I wrap apr_in_addr_t?
  66
  67 #opaque_t apr_ipsubnet_t
  68
  69 #integral_t apr_port_t
  70
  71 #starttype struct apr_sockaddr_t
  72 #  field pool        , Ptr <apr_pool_t>
  73 #  field hostname    , Ptr CChar
  74 #  field servname    , Ptr CChar
  75 #  field port        , <apr_port_t>
  76 #  field family      , <apr_int32_t>
  77 #  field salen       , <apr_socklen_t>
  78 #  field ipaddr_len  , CInt
  79 #  field addr_str_len, CInt
  80 #  field ipaddr_ptr  , Ptr ()
  81 #  field next        , Ptr <apr_sockaddr_t>
  82 -- FIXME: wrap around sa, sin, sin6, sas
  83 #stoptype
  84
  85 #if APR_HAS_SENDFILE
  86 #  num APR_SENDFILE_DISCONNECT_SOCKET
  87 #endif
  88
  89 #ccall apr_socket_create    , Ptr (Ptr <apr_socket_t>) -> CInt -> CInt -> CInt -> Ptr <apr_pool_t> -> IO <apr_status_t>
  90 #ccall apr_socket_shutdown  , Ptr <apr_socket_t> -> <apr_shutdown_how_e> -> IO <apr_status_t>
  91 #ccall apr_socket_close     , Ptr <apr_socket_t> -> IO <apr_status_t>
  92 #ccall apr_socket_bind      , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
  93 #ccall apr_socket_listen    , Ptr <apr_status_t> -> <apr_int32_t> -> IO <apr_status_t>
  94 #ccall apr_socket_accept    , Ptr (Ptr <apr_socket_t>) -> Ptr <apr_socket_t> -> Ptr <apr_pool_t> -> IO <apr_status_t>
  95 #ccall apr_socket_connect   , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
  96 #ccall apr_sockaddr_info_get, Ptr (Ptr <apr_sockaddr_t>) -> Ptr CChar -> <apr_int32_t> -> <apr_port_t> -> <apr_int32_t> -> Ptr <apr_port_t> -> IO <apr_status_t>
  97 #ccall apr_getnameinfo      , Ptr (Ptr CChar) -> Ptr <apr_sockaddr_t> -> <apr_int32_t> -> IO <apr_status_t>
  98 #ccall apr_parse_addr_port  , Ptr (Ptr CChar) -> Ptr (Ptr CChar) -> Ptr <apr_port_t> -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
  99 #ccall apr_gethostname      , Ptr CChar -> CInt -> Ptr <apr_pool_t> -> IO <apr_status_t>
 100 #ccall apr_socket_data_get  , Ptr (Ptr ()) -> Ptr CChar -> Ptr <apr_socket_t> -> IO <apr_status_t>
 101 #ccall apr_socket_data_set  , Ptr <apr_socket_t> -> Ptr () -> Ptr CChar -> FunPtr (Ptr () -> IO <apr_status_t>) -> IO <apr_status_t>
 102 #ccall apr_socket_send      , Ptr <apr_socket_t> -> Ptr CChar -> Ptr <apr_size_t> -> IO <apr_status_t>
 103 #ccall apr_socket_sendv     , Ptr <apr_socket_t> -> Ptr <iovec> -> <apr_int32_t> -> Ptr <apr_size_t> -> IO <apr_status_t>
 104 #ccall apr_socket_sendto    , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> <apr_int32_t> -> Ptr CChar -> Ptr <apr_size_t> -> IO <apr_status_t>
 105 #ccall apr_socket_recvfrom  , Ptr <apr_sockaddr_t> -> Ptr <apr_socket_t> -> <apr_int32_t> -> Ptr CChar -> Ptr <apr_size_t> -> IO <apr_status_t>
 106
 107 #if APR_HAS_SENDFILE
 108 #  ccall apr_socket_sendfile, Ptr <apr_socket_t> -> Ptr <apr_file_t> -> Ptr <apr_hdtr_t> -> Ptr <apr_off_t> -> Ptr <apr_size_t> -> <apr_int32_t> -> IO <apr_status_t>
 109 #endif
 110
 111 #ccall apr_socket_recv       , Ptr <apr_socket_t> -> Ptr CChar -> Ptr <apr_size_t> -> IO <apr_status_t>
 112 #ccall apr_socket_opt_set    , Ptr <apr_socket_t> -> <apr_int32_t> -> <apr_int32_t> -> IO <apr_status_t>
 113 #ccall apr_socket_timeout_set, Ptr <apr_socket_t> -> <apr_interval_time_t> -> IO <apr_status_t>
 114 #ccall apr_socket_opt_get    , Ptr <apr_socket_t> -> <apr_int32_t> -> <apr_int32_t> -> IO <apr_status_t>
 115 #ccall apr_socket_timeout_get, Ptr <apr_socket_t> -> Ptr <apr_interval_time_t> -> IO <apr_status_t>
 116 #ccall apr_socket_atmark     , Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
 117 #ccall apr_socket_addr_get   , Ptr (Ptr <apr_socket_t>) -> <apr_interface_e> -> Ptr <apr_socket_t> -> IO <apr_status_t>
 118 #ccall apr_sockaddr_ip_get   , Ptr (Ptr CChar) -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
 119 #ccall apr_sockaddr_ip_getbuf, Ptr CChar -> <apr_size_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
 120 #ccall apr_sockaddr_equal    , Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO CInt
 121 #ccall apr_socket_type_get   , Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
 122 #ccall apr_getservbyname     , Ptr <apr_sockaddr_t> -> Ptr CChar -> IO <apr_status_t>
 123 #ccall apr_ipsubnet_create   , Ptr (Ptr <apr_ipsubnet_t>) -> Ptr CChar -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
 124 #ccall apr_ipsubnet_test     , Ptr <apr_ipsubnet_t> -> Ptr <apr_sockaddr_t> -> IO CInt
 125
 126 #if APR_HAS_SO_ACCEPTFILTER
 127 #  ccall apr_socket_accept_filter, Ptr <apr_socket_t> -> Ptr CChar -> Ptr CChar -> IO <apr_status_t>
 128 #endif
 129
 130 #ccall apr_socket_protocol_get, Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
 131
 132 #ccall apr_socket_pool_get     , Ptr <apr_socket_t> -> IO (Ptr <apr_pool_t>)
 133 #ccall apr_socket_inherit_set  , Ptr <apr_socket_t> -> IO <apr_status_t>
 134 #ccall apr_socket_inherit_unset, Ptr <apr_socket_t> -> IO <apr_status_t>
 135
 136 #ccall apr_mcast_join     , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
 137 #ccall apr_mcast_leave    , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
 138 #ccall apr_mcast_hops     , Ptr <apr_socket_t> -> <apr_byte_t> -> IO <apr_status_t>
 139 #ccall apr_mcast_loopback , Ptr <apr_socket_t> -> <apr_byte_t> -> IO <apr_status_t>
 140 #ccall apr_mcast_interface, Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>