gi-soup-0.2.50.12: GI/Soup/Structs/MessageHeaders.hs
{- |
Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)
The HTTP message headers associated with a request or response.
-}
module GI.Soup.Structs.MessageHeaders
(
-- * Exported types
MessageHeaders(..) ,
noMessageHeaders ,
-- * Methods
-- ** messageHeadersAppend
messageHeadersAppend ,
-- ** messageHeadersCleanConnectionHeaders
messageHeadersCleanConnectionHeaders ,
-- ** messageHeadersClear
messageHeadersClear ,
-- ** messageHeadersForeach
messageHeadersForeach ,
-- ** messageHeadersFree
messageHeadersFree ,
-- ** messageHeadersFreeRanges
messageHeadersFreeRanges ,
-- ** messageHeadersGet
messageHeadersGet ,
-- ** messageHeadersGetContentDisposition
messageHeadersGetContentDisposition ,
-- ** messageHeadersGetContentLength
messageHeadersGetContentLength ,
-- ** messageHeadersGetContentRange
messageHeadersGetContentRange ,
-- ** messageHeadersGetContentType
messageHeadersGetContentType ,
-- ** messageHeadersGetEncoding
messageHeadersGetEncoding ,
-- ** messageHeadersGetExpectations
messageHeadersGetExpectations ,
-- ** messageHeadersGetHeadersType
messageHeadersGetHeadersType ,
-- ** messageHeadersGetList
messageHeadersGetList ,
-- ** messageHeadersGetOne
messageHeadersGetOne ,
-- ** messageHeadersGetRanges
messageHeadersGetRanges ,
-- ** messageHeadersHeaderContains
messageHeadersHeaderContains ,
-- ** messageHeadersHeaderEquals
messageHeadersHeaderEquals ,
-- ** messageHeadersNew
messageHeadersNew ,
-- ** messageHeadersRemove
messageHeadersRemove ,
-- ** messageHeadersReplace
messageHeadersReplace ,
-- ** messageHeadersSetContentDisposition
messageHeadersSetContentDisposition ,
-- ** messageHeadersSetContentLength
messageHeadersSetContentLength ,
-- ** messageHeadersSetContentRange
messageHeadersSetContentRange ,
-- ** messageHeadersSetContentType
messageHeadersSetContentType ,
-- ** messageHeadersSetEncoding
messageHeadersSetEncoding ,
-- ** messageHeadersSetExpectations
messageHeadersSetExpectations ,
-- ** messageHeadersSetRange
messageHeadersSetRange ,
-- ** messageHeadersSetRanges
messageHeadersSetRanges ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Soup.Types
import GI.Soup.Callbacks
newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders)
foreign import ccall "soup_message_headers_get_type" c_soup_message_headers_get_type ::
IO GType
instance BoxedObject MessageHeaders where
boxedType _ = c_soup_message_headers_get_type
noMessageHeaders :: Maybe MessageHeaders
noMessageHeaders = Nothing
-- method MessageHeaders::new
-- method type : Constructor
-- Args : [Arg {argName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Soup" "MessageHeaders"
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_new" soup_message_headers_new ::
CUInt -> -- type : TInterface "Soup" "MessageHeadersType"
IO (Ptr MessageHeaders)
messageHeadersNew ::
(MonadIO m) =>
MessageHeadersType -> -- type
m MessageHeaders
messageHeadersNew type_ = liftIO $ do
let type_' = (fromIntegral . fromEnum) type_
result <- soup_message_headers_new type_'
checkUnexpectedReturnNULL "soup_message_headers_new" result
result' <- (wrapBoxed MessageHeaders) result
return result'
-- method MessageHeaders::append
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_append" soup_message_headers_append ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
IO ()
messageHeadersAppend ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
T.Text -> -- value
m ()
messageHeadersAppend _obj name value = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
value' <- textToCString value
soup_message_headers_append _obj' name' value'
touchManagedPtr _obj
freeMem name'
freeMem value'
return ()
-- method MessageHeaders::clean_connection_headers
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_clean_connection_headers" soup_message_headers_clean_connection_headers ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
IO ()
messageHeadersCleanConnectionHeaders ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m ()
messageHeadersCleanConnectionHeaders _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
soup_message_headers_clean_connection_headers _obj'
touchManagedPtr _obj
return ()
-- method MessageHeaders::clear
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_clear" soup_message_headers_clear ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
IO ()
messageHeadersClear ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m ()
messageHeadersClear _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
soup_message_headers_clear _obj'
touchManagedPtr _obj
return ()
-- method MessageHeaders::foreach
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_foreach" soup_message_headers_foreach ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
FunPtr MessageHeadersForeachFuncC -> -- func : TInterface "Soup" "MessageHeadersForeachFunc"
Ptr () -> -- user_data : TBasicType TVoid
IO ()
messageHeadersForeach ::
(MonadIO m) =>
MessageHeaders -> -- _obj
MessageHeadersForeachFunc -> -- func
m ()
messageHeadersForeach _obj func = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
func' <- mkMessageHeadersForeachFunc (messageHeadersForeachFuncWrapper Nothing func)
let user_data = nullPtr
soup_message_headers_foreach _obj' func' user_data
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr _obj
return ()
-- method MessageHeaders::free
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_free" soup_message_headers_free ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
IO ()
messageHeadersFree ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m ()
messageHeadersFree _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
soup_message_headers_free _obj'
touchManagedPtr _obj
return ()
-- method MessageHeaders::free_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_free_ranges" soup_message_headers_free_ranges ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Ptr Range -> -- ranges : TInterface "Soup" "Range"
IO ()
messageHeadersFreeRanges ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Range -> -- ranges
m ()
messageHeadersFreeRanges _obj ranges = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let ranges' = unsafeManagedPtrGetPtr ranges
soup_message_headers_free_ranges _obj' ranges'
touchManagedPtr _obj
touchManagedPtr ranges
return ()
-- method MessageHeaders::get
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get" soup_message_headers_get ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
IO CString
{-# DEPRECATED messageHeadersGet ["Use soup_message_headers_get_one() or","soup_message_headers_get_list() instead."]#-}
messageHeadersGet ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
m T.Text
messageHeadersGet _obj name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
result <- soup_message_headers_get _obj' name'
checkUnexpectedReturnNULL "soup_message_headers_get" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem name'
return result'
-- method MessageHeaders::get_content_disposition
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_content_disposition" soup_message_headers_get_content_disposition ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Ptr CString -> -- disposition : TBasicType TUTF8
Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)
IO CInt
messageHeadersGetContentDisposition ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m (Bool,T.Text,(Map.Map T.Text T.Text))
messageHeadersGetContentDisposition _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
disposition <- allocMem :: IO (Ptr CString)
params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))
result <- soup_message_headers_get_content_disposition _obj' disposition params
let result' = (/= 0) result
disposition' <- peek disposition
disposition'' <- cstringToText disposition'
freeMem disposition'
params' <- peek params
params'' <- unpackGHashTable params'
let params''' = mapFirst cstringUnpackPtr params''
params'''' <- mapFirstA cstringToText params'''
let params''''' = mapSecond cstringUnpackPtr params''''
params'''''' <- mapSecondA cstringToText params'''''
let params''''''' = Map.fromList params''''''
unrefGHashTable params'
touchManagedPtr _obj
freeMem disposition
freeMem params
return (result', disposition'', params''''''')
-- method MessageHeaders::get_content_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_content_length" soup_message_headers_get_content_length ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
IO Int64
messageHeadersGetContentLength ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m Int64
messageHeadersGetContentLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- soup_message_headers_get_content_length _obj'
touchManagedPtr _obj
return result
-- method MessageHeaders::get_content_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_content_range" soup_message_headers_get_content_range ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- end : TBasicType TInt64
Int64 -> -- total_length : TBasicType TInt64
IO CInt
messageHeadersGetContentRange ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Int64 -> -- start
Int64 -> -- end
Int64 -> -- total_length
m Bool
messageHeadersGetContentRange _obj start end total_length = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- soup_message_headers_get_content_range _obj' start end total_length
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method MessageHeaders::get_content_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_content_type" soup_message_headers_get_content_type ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)
IO CString
messageHeadersGetContentType ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m (T.Text,(Map.Map T.Text T.Text))
messageHeadersGetContentType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))
result <- soup_message_headers_get_content_type _obj' params
checkUnexpectedReturnNULL "soup_message_headers_get_content_type" result
result' <- cstringToText result
params' <- peek params
params'' <- unpackGHashTable params'
let params''' = mapFirst cstringUnpackPtr params''
params'''' <- mapFirstA cstringToText params'''
let params''''' = mapSecond cstringUnpackPtr params''''
params'''''' <- mapSecondA cstringToText params'''''
let params''''''' = Map.fromList params''''''
unrefGHashTable params'
touchManagedPtr _obj
freeMem params
return (result', params''''''')
-- method MessageHeaders::get_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Soup" "Encoding"
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_encoding" soup_message_headers_get_encoding ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
IO CUInt
messageHeadersGetEncoding ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m Encoding
messageHeadersGetEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- soup_message_headers_get_encoding _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method MessageHeaders::get_expectations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Soup" "Expectation"
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_expectations" soup_message_headers_get_expectations ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
IO CUInt
messageHeadersGetExpectations ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m [Expectation]
messageHeadersGetExpectations _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- soup_message_headers_get_expectations _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
-- method MessageHeaders::get_headers_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Soup" "MessageHeadersType"
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_headers_type" soup_message_headers_get_headers_type ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
IO CUInt
messageHeadersGetHeadersType ::
(MonadIO m) =>
MessageHeaders -> -- _obj
m MessageHeadersType
messageHeadersGetHeadersType _obj = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
result <- soup_message_headers_get_headers_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method MessageHeaders::get_list
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_list" soup_message_headers_get_list ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
IO CString
messageHeadersGetList ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
m T.Text
messageHeadersGetList _obj name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
result <- soup_message_headers_get_list _obj' name'
checkUnexpectedReturnNULL "soup_message_headers_get_list" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem name'
return result'
-- method MessageHeaders::get_one
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_one" soup_message_headers_get_one ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
IO CString
messageHeadersGetOne ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
m T.Text
messageHeadersGetOne _obj name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
result <- soup_message_headers_get_one _obj' name'
checkUnexpectedReturnNULL "soup_message_headers_get_one" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem name'
return result'
-- method MessageHeaders::get_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TCArray False (-1) 3 (TInterface "Soup" "Range"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_get_ranges" soup_message_headers_get_ranges ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Int64 -> -- total_length : TBasicType TInt64
Ptr (Ptr Range) -> -- ranges : TCArray False (-1) 3 (TInterface "Soup" "Range")
Ptr Int32 -> -- length : TBasicType TInt32
IO CInt
messageHeadersGetRanges ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Int64 -> -- total_length
m (Bool,[Range])
messageHeadersGetRanges _obj total_length = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
ranges <- allocMem :: IO (Ptr (Ptr Range))
length_ <- allocMem :: IO (Ptr Int32)
result <- soup_message_headers_get_ranges _obj' total_length ranges length_
length_' <- peek length_
let result' = (/= 0) result
ranges' <- peek ranges
ranges'' <- (unpackBlockArrayWithLength 16 length_') ranges'
ranges''' <- mapM (wrapPtr Range) ranges''
freeMem ranges'
touchManagedPtr _obj
freeMem ranges
freeMem length_
return (result', ranges''')
-- method MessageHeaders::header_contains
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_header_contains" soup_message_headers_header_contains ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
CString -> -- token : TBasicType TUTF8
IO CInt
messageHeadersHeaderContains ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
T.Text -> -- token
m Bool
messageHeadersHeaderContains _obj name token = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
token' <- textToCString token
result <- soup_message_headers_header_contains _obj' name' token'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
freeMem token'
return result'
-- method MessageHeaders::header_equals
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_header_equals" soup_message_headers_header_equals ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
IO CInt
messageHeadersHeaderEquals ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
T.Text -> -- value
m Bool
messageHeadersHeaderEquals _obj name value = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
value' <- textToCString value
result <- soup_message_headers_header_equals _obj' name' value'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name'
freeMem value'
return result'
-- method MessageHeaders::remove
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_remove" soup_message_headers_remove ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
IO ()
messageHeadersRemove ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
m ()
messageHeadersRemove _obj name = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
soup_message_headers_remove _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method MessageHeaders::replace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_replace" soup_message_headers_replace ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- name : TBasicType TUTF8
CString -> -- value : TBasicType TUTF8
IO ()
messageHeadersReplace ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- name
T.Text -> -- value
m ()
messageHeadersReplace _obj name value = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
name' <- textToCString name
value' <- textToCString value
soup_message_headers_replace _obj' name' value'
touchManagedPtr _obj
freeMem name'
freeMem value'
return ()
-- method MessageHeaders::set_content_disposition
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_content_disposition" soup_message_headers_set_content_disposition ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- disposition : TBasicType TUTF8
Ptr (GHashTable CString CString) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)
IO ()
messageHeadersSetContentDisposition ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- disposition
Maybe (Map.Map T.Text T.Text) -> -- params
m ()
messageHeadersSetContentDisposition _obj disposition params = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
disposition' <- textToCString disposition
maybeParams <- case params of
Nothing -> return nullPtr
Just jParams -> do
let jParams' = Map.toList jParams
jParams'' <- mapFirstA textToCString jParams'
jParams''' <- mapSecondA textToCString jParams''
let jParams'''' = mapFirst cstringPackPtr jParams'''
let jParams''''' = mapSecond cstringPackPtr jParams''''
jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''
return jParams''''''
soup_message_headers_set_content_disposition _obj' disposition' maybeParams
touchManagedPtr _obj
freeMem disposition'
unrefGHashTable maybeParams
return ()
-- method MessageHeaders::set_content_length
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_content_length" soup_message_headers_set_content_length ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Int64 -> -- content_length : TBasicType TInt64
IO ()
messageHeadersSetContentLength ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Int64 -> -- content_length
m ()
messageHeadersSetContentLength _obj content_length = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
soup_message_headers_set_content_length _obj' content_length
touchManagedPtr _obj
return ()
-- method MessageHeaders::set_content_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_content_range" soup_message_headers_set_content_range ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- end : TBasicType TInt64
Int64 -> -- total_length : TBasicType TInt64
IO ()
messageHeadersSetContentRange ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Int64 -> -- start
Int64 -> -- end
Int64 -> -- total_length
m ()
messageHeadersSetContentRange _obj start end total_length = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
soup_message_headers_set_content_range _obj' start end total_length
touchManagedPtr _obj
return ()
-- method MessageHeaders::set_content_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_content_type" soup_message_headers_set_content_type ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CString -> -- content_type : TBasicType TUTF8
Ptr (GHashTable CString CString) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)
IO ()
messageHeadersSetContentType ::
(MonadIO m) =>
MessageHeaders -> -- _obj
T.Text -> -- content_type
Maybe (Map.Map T.Text T.Text) -> -- params
m ()
messageHeadersSetContentType _obj content_type params = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
content_type' <- textToCString content_type
maybeParams <- case params of
Nothing -> return nullPtr
Just jParams -> do
let jParams' = Map.toList jParams
jParams'' <- mapFirstA textToCString jParams'
jParams''' <- mapSecondA textToCString jParams''
let jParams'''' = mapFirst cstringPackPtr jParams'''
let jParams''''' = mapSecond cstringPackPtr jParams''''
jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''
return jParams''''''
soup_message_headers_set_content_type _obj' content_type' maybeParams
touchManagedPtr _obj
freeMem content_type'
unrefGHashTable maybeParams
return ()
-- method MessageHeaders::set_encoding
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_encoding" soup_message_headers_set_encoding ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CUInt -> -- encoding : TInterface "Soup" "Encoding"
IO ()
messageHeadersSetEncoding ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Encoding -> -- encoding
m ()
messageHeadersSetEncoding _obj encoding = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let encoding' = (fromIntegral . fromEnum) encoding
soup_message_headers_set_encoding _obj' encoding'
touchManagedPtr _obj
return ()
-- method MessageHeaders::set_expectations
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_expectations" soup_message_headers_set_expectations ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
CUInt -> -- expectations : TInterface "Soup" "Expectation"
IO ()
messageHeadersSetExpectations ::
(MonadIO m) =>
MessageHeaders -> -- _obj
[Expectation] -> -- expectations
m ()
messageHeadersSetExpectations _obj expectations = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let expectations' = gflagsToWord expectations
soup_message_headers_set_expectations _obj' expectations'
touchManagedPtr _obj
return ()
-- method MessageHeaders::set_range
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_range" soup_message_headers_set_range ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Int64 -> -- start : TBasicType TInt64
Int64 -> -- end : TBasicType TInt64
IO ()
messageHeadersSetRange ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Int64 -> -- start
Int64 -> -- end
m ()
messageHeadersSetRange _obj start end = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
soup_message_headers_set_range _obj' start end
touchManagedPtr _obj
return ()
-- method MessageHeaders::set_ranges
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "soup_message_headers_set_ranges" soup_message_headers_set_ranges ::
Ptr MessageHeaders -> -- _obj : TInterface "Soup" "MessageHeaders"
Ptr Range -> -- ranges : TInterface "Soup" "Range"
Int32 -> -- length : TBasicType TInt32
IO ()
messageHeadersSetRanges ::
(MonadIO m) =>
MessageHeaders -> -- _obj
Range -> -- ranges
Int32 -> -- length
m ()
messageHeadersSetRanges _obj ranges length_ = liftIO $ do
let _obj' = unsafeManagedPtrGetPtr _obj
let ranges' = unsafeManagedPtrGetPtr ranges
soup_message_headers_set_ranges _obj' ranges' length_
touchManagedPtr _obj
touchManagedPtr ranges
return ()