module Bindings.APR.Support where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.APR.ErrNo
import Bindings.APR.File.Types
import Bindings.APR.Network.IO
foreign import ccall "apr_wait_for_io_or_timeout" c'apr_wait_for_io_or_timeout
:: Ptr C'apr_file_t -> Ptr C'apr_socket_t -> CInt -> IO C'apr_status_t
foreign import ccall "&apr_wait_for_io_or_timeout" p'apr_wait_for_io_or_timeout
:: FunPtr (Ptr C'apr_file_t -> Ptr C'apr_socket_t -> CInt -> IO C'apr_status_t)