1 #include <bindings.dsl.h>
2 #include <apr_network_io.h>
3 #include "bindings.apr.pools.h"
4 #include "bindings.apr.inherit.h"
6 module Bindings.APR.Network.IO where
9 import Bindings.APR.ErrNo
10 import Bindings.APR.File.Types
11 import Bindings.APR.Pools
12 import Bindings.APR.Time
13 import Bindings.APR.Want
15 #num APR_MAX_SECS_TO_LINGER
17 #globalarray APR_ANYADDR, CChar
26 #num APR_SO_DISCONNECTED
29 #num APR_RESET_NODELAY
30 #num APR_INCOMPLETE_READ
31 #num APR_INCOMPLETE_WRITE
33 #num APR_TCP_DEFER_ACCEPT
35 #integral_t apr_shutdown_how_e
52 #integral_t apr_interface_e
56 -- FIXME: How should I wrap apr_inet_addr?
58 #opaque_t apr_socket_t
60 #starttype struct apr_hdtr_t
61 # field headers , Ptr <iovec>
62 # field numheaders , CInt
63 # field trailers , Ptr <iovec>
64 # field numtrailers, CInt
67 -- FIXME: How should I wrap apr_in_addr_t?
69 #opaque_t apr_ipsubnet_t
71 #integral_t apr_port_t
73 #starttype struct apr_sockaddr_t
74 # field pool , Ptr <apr_pool_t>
75 # field hostname , Ptr CChar
76 # field servname , Ptr CChar
77 # field port , <apr_port_t>
78 # field family , <apr_int32_t>
79 # field salen , <apr_socklen_t>
80 # field ipaddr_len , CInt
81 # field addr_str_len, CInt
82 # field ipaddr_ptr , Ptr ()
83 # field next , Ptr <apr_sockaddr_t>
84 -- FIXME: wrap around sa, sin, sin6, sas
88 # num APR_SENDFILE_DISCONNECT_SOCKET
91 #ccall apr_socket_create , Ptr (Ptr <apr_socket_t>) -> CInt -> CInt -> CInt -> Ptr <apr_pool_t> -> IO <apr_status_t>
92 #ccall apr_socket_shutdown , Ptr <apr_socket_t> -> <apr_shutdown_how_e> -> IO <apr_status_t>
93 #ccall apr_socket_close , Ptr <apr_socket_t> -> IO <apr_status_t>
94 #ccall apr_socket_bind , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
95 #ccall apr_socket_listen , Ptr <apr_status_t> -> <apr_int32_t> -> IO <apr_status_t>
96 #ccall apr_socket_accept , Ptr (Ptr <apr_socket_t>) -> Ptr <apr_socket_t> -> Ptr <apr_pool_t> -> IO <apr_status_t>
97 #ccall apr_socket_connect , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
98 #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>
99 #ccall apr_getnameinfo , Ptr (Ptr CChar) -> Ptr <apr_sockaddr_t> -> <apr_int32_t> -> IO <apr_status_t>
100 #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>
101 #ccall apr_gethostname , Ptr CChar -> CInt -> Ptr <apr_pool_t> -> IO <apr_status_t>
102 #ccall apr_socket_data_get , Ptr (Ptr ()) -> Ptr CChar -> Ptr <apr_socket_t> -> IO <apr_status_t>
103 #ccall apr_socket_data_set , Ptr <apr_socket_t> -> Ptr () -> Ptr CChar -> FunPtr (Ptr () -> IO <apr_status_t>) -> IO <apr_status_t>
104 #ccall apr_socket_send , Ptr <apr_socket_t> -> Ptr CChar -> Ptr <apr_size_t> -> IO <apr_status_t>
105 #ccall apr_socket_sendv , Ptr <apr_socket_t> -> Ptr <iovec> -> <apr_int32_t> -> Ptr <apr_size_t> -> IO <apr_status_t>
106 #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>
107 #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>
110 # 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>
113 #ccall apr_socket_recv , Ptr <apr_socket_t> -> Ptr CChar -> Ptr <apr_size_t> -> IO <apr_status_t>
114 #ccall apr_socket_opt_set , Ptr <apr_socket_t> -> <apr_int32_t> -> <apr_int32_t> -> IO <apr_status_t>
115 #ccall apr_socket_timeout_set, Ptr <apr_socket_t> -> <apr_interval_time_t> -> IO <apr_status_t>
116 #ccall apr_socket_opt_get , Ptr <apr_socket_t> -> <apr_int32_t> -> <apr_int32_t> -> IO <apr_status_t>
117 #ccall apr_socket_timeout_get, Ptr <apr_socket_t> -> Ptr <apr_interval_time_t> -> IO <apr_status_t>
118 #ccall apr_socket_atmark , Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
119 #ccall apr_socket_addr_get , Ptr (Ptr <apr_socket_t>) -> <apr_interface_e> -> Ptr <apr_socket_t> -> IO <apr_status_t>
120 #ccall apr_sockaddr_ip_get , Ptr (Ptr CChar) -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
121 #ccall apr_sockaddr_ip_getbuf, Ptr CChar -> <apr_size_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
122 #ccall apr_sockaddr_equal , Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO CInt
123 #ccall apr_socket_type_get , Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
124 #ccall apr_getservbyname , Ptr <apr_sockaddr_t> -> Ptr CChar -> IO <apr_status_t>
125 #ccall apr_ipsubnet_create , Ptr (Ptr <apr_ipsubnet_t>) -> Ptr CChar -> Ptr CChar -> Ptr <apr_pool_t> -> IO <apr_status_t>
126 #ccall apr_ipsubnet_test , Ptr <apr_ipsubnet_t> -> Ptr <apr_sockaddr_t> -> IO CInt
128 #if APR_HAS_SO_ACCEPTFILTER
129 # ccall apr_socket_accept_filter, Ptr <apr_socket_t> -> Ptr CChar -> Ptr CChar -> IO <apr_status_t>
132 #ccall apr_socket_protocol_get, Ptr <apr_socket_t> -> Ptr CInt -> IO <apr_status_t>
134 #apr_pool_accessor socket
135 #apr_inherit_set socket
136 #apr_inherit_unset socket
138 #ccall apr_mcast_join , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
139 #ccall apr_mcast_leave , Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>
140 #ccall apr_mcast_hops , Ptr <apr_socket_t> -> <apr_byte_t> -> IO <apr_status_t>
141 #ccall apr_mcast_loopback , Ptr <apr_socket_t> -> <apr_byte_t> -> IO <apr_status_t>
142 #ccall apr_mcast_interface, Ptr <apr_socket_t> -> Ptr <apr_sockaddr_t> -> IO <apr_status_t>