module Bindings.APR.Lib 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
import Bindings.APR.ErrNo
import System.Posix.Types
c'HUGE_STRING_LEN = 8192
c'HUGE_STRING_LEN :: (Num a) => a
data C'apr_vformatter_buff_t = C'apr_vformatter_buff_t{
c'apr_vformatter_buff_t'curpos :: Ptr CChar
,
c'apr_vformatter_buff_t'endpos :: Ptr CChar
} deriving (Eq,Show)
instance Storable C'apr_vformatter_buff_t where
sizeOf _ = 8
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 0
v1 <- peekByteOff p 4
return $ C'apr_vformatter_buff_t v0 v1
poke p (C'apr_vformatter_buff_t v0 v1) = do
pokeByteOff p 0 v0
pokeByteOff p 4 v1
return ()
foreign import ccall "apr_filepath_name_get" c'apr_filepath_name_get
:: Ptr CChar -> IO (Ptr CChar)
foreign import ccall "&apr_filepath_name_get" p'apr_filepath_name_get
:: FunPtr (Ptr CChar -> IO (Ptr CChar))
foreign import ccall "inline_apr_killpg" c'apr_killpg
:: CPid -> CInt -> IO CInt
foreign import ccall "apr_password_get" c'apr_password_get
:: Ptr CChar -> Ptr CChar -> Ptr C'apr_size_t -> IO C'apr_status_t
foreign import ccall "&apr_password_get" p'apr_password_get
:: FunPtr (Ptr CChar -> Ptr CChar -> Ptr C'apr_size_t -> IO C'apr_status_t)
foreign import ccall "inline_apr_isalnum" c'apr_isalnum
:: CInt -> IO CInt
foreign import ccall "inline_apr_isalpha" c'apr_isalpha
:: CInt -> IO CInt
foreign import ccall "inline_apr_isdigit" c'apr_isdigit
:: CInt -> IO CInt
foreign import ccall "inline_apr_isgraph" c'apr_isgraph
:: CInt -> IO CInt
foreign import ccall "inline_apr_islower" c'apr_islower
:: CInt -> IO CInt
foreign import ccall "inline_apr_isascii" c'apr_isascii
:: CInt -> IO CInt
foreign import ccall "inline_apr_isprint" c'apr_isprint
:: CInt -> IO CInt
foreign import ccall "inline_apr_ispunct" c'apr_ispunct
:: CInt -> IO CInt
foreign import ccall "inline_apr_isspace" c'apr_isspace
:: CInt -> IO CInt
foreign import ccall "inline_apr_isupper" c'apr_isupper
:: CInt -> IO CInt
foreign import ccall "inline_apr_isxdigit" c'apr_isxdigit
:: CInt -> IO CInt
foreign import ccall "inline_apr_tolower" c'apr_tolower
:: CInt -> IO CInt
foreign import ccall "inline_apr_toupper" c'apr_toupper
:: CInt -> IO CInt