diff --git a/GI/Soup.hs b/GI/Soup.hs --- a/GI/Soup.hs +++ b/GI/Soup.hs @@ -1,40 +1,17332 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup - ( module GI.Soup.Callbacks , - module GI.Soup.Constants , - module GI.Soup.Enums , - module GI.Soup.Flags , - module GI.Soup.Functions , - module GI.Soup.Interfaces , - module GI.Soup.Objects , - module GI.Soup.Structs , - - - ) where - -import GI.Soup.Callbacks -import GI.Soup.Constants -import GI.Soup.Enums -import GI.Soup.Flags -import GI.Soup.Functions -import GI.Soup.Interfaces -import GI.Soup.Objects -import GI.Soup.Structs - -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 - +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, + TypeFamilies, MultiParamTypeClasses, KindSignatures, + FlexibleInstances, UndecidableInstances, DataKinds, + OverloadedStrings, NegativeLiterals, FlexibleContexts #-} + +module GI.Soup where + +import Prelude () +import Data.GI.Base.ShortPrelude +import Data.Char +import Data.Int +import Data.Word +import qualified Data.ByteString.Char8 as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.Map as Map +import Foreign.C +import Foreign.Ptr +import Foreign.ForeignPtr +import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) +import Foreign.Storable (peek, poke, sizeOf) +import Control.Applicative ((<$>)) +import Control.Exception (onException) +import Control.Monad.IO.Class +import qualified Data.Text as T + +import Data.GI.Base.Attributes hiding (get, set) +import Data.GI.Base.BasicTypes +import Data.GI.Base.BasicConversions +import Data.GI.Base.Closure +import Data.GI.Base.GError +import Data.GI.Base.GHashTable +import Data.GI.Base.GParamSpec +import Data.GI.Base.GVariant +import Data.GI.Base.GValue +import Data.GI.Base.ManagedPtr +import Data.GI.Base.Overloading +import Data.GI.Base.Properties hiding (new) +import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) +import Data.GI.Base.Utils + +import qualified GI.GLib as GLib +import qualified GI.GLibAttributes as GLibA +import qualified GI.GObject as GObject +import qualified GI.GObjectAttributes as GObjectA +import qualified GI.Gio as Gio +import qualified GI.GioAttributes as GioA + +-- object Address +newtype Address = Address (ForeignPtr Address) +noAddress :: Maybe Address +noAddress = Nothing + +foreign import ccall "soup_address_get_type" + c_soup_address_get_type :: IO GType + +type instance ParentTypes Address = '[GObject.Object, Gio.SocketConnectable] + +instance GObject Address where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_address_get_type + + +class GObject o => AddressK o +instance (GObject o, IsDescendantOf Address o) => AddressK o + +toAddress :: AddressK o => o -> IO Address +toAddress = unsafeCastTo Address + +-- method Address::new +-- method type : Constructor +-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Address" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_new" soup_address_new :: + CString -> -- name : TBasicType TUTF8 + Word32 -> -- port : TBasicType TUInt32 + IO (Ptr Address) + + +addressNew :: + (MonadIO m) => + T.Text -> -- name + Word32 -> -- port + m Address +addressNew name port = liftIO $ do + name' <- textToCString name + result <- soup_address_new name' port + checkUnexpectedReturnNULL "soup_address_new" result + result' <- (wrapObject Address) result + freeMem name' + return result' + +-- method Address::new_any +-- method type : Constructor +-- Args : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Address" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_new_any" soup_address_new_any :: + CUInt -> -- family : TInterface "Soup" "AddressFamily" + Word32 -> -- port : TBasicType TUInt32 + IO (Ptr Address) + + +addressNewAny :: + (MonadIO m) => + AddressFamily -> -- family + Word32 -> -- port + m Address +addressNewAny family port = liftIO $ do + let family' = (fromIntegral . fromEnum) family + result <- soup_address_new_any family' port + checkUnexpectedReturnNULL "soup_address_new_any" result + result' <- (wrapObject Address) result + return result' + +-- method Address::new_from_sockaddr +-- method type : Constructor +-- Args : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Address" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_new_from_sockaddr" soup_address_new_from_sockaddr :: + Ptr () -> -- sa : TBasicType TVoid + Int32 -> -- len : TBasicType TInt32 + IO (Ptr Address) + + +addressNewFromSockaddr :: + (MonadIO m) => + Ptr () -> -- sa + Int32 -> -- len + m Address +addressNewFromSockaddr sa len = liftIO $ do + result <- soup_address_new_from_sockaddr sa len + checkUnexpectedReturnNULL "soup_address_new_from_sockaddr" result + result' <- (wrapObject Address) result + return result' + +-- method Address::equal_by_ip +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_equal_by_ip" soup_address_equal_by_ip :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + Ptr Address -> -- addr2 : TInterface "Soup" "Address" + IO CInt + + +addressEqualByIp :: + (MonadIO m, AddressK a, AddressK b) => + a -> -- _obj + b -> -- addr2 + m Bool +addressEqualByIp _obj addr2 = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let addr2' = unsafeManagedPtrCastPtr addr2 + result <- soup_address_equal_by_ip _obj' addr2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr addr2 + return result' + +-- method Address::equal_by_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_equal_by_name" soup_address_equal_by_name :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + Ptr Address -> -- addr2 : TInterface "Soup" "Address" + IO CInt + + +addressEqualByName :: + (MonadIO m, AddressK a, AddressK b) => + a -> -- _obj + b -> -- addr2 + m Bool +addressEqualByName _obj addr2 = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let addr2' = unsafeManagedPtrCastPtr addr2 + result <- soup_address_equal_by_name _obj' addr2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr addr2 + return result' + +-- method Address::get_gsockaddr +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "SocketAddress" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_get_gsockaddr" soup_address_get_gsockaddr :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + IO (Ptr Gio.SocketAddress) + + +addressGetGsockaddr :: + (MonadIO m, AddressK a) => + a -> -- _obj + m Gio.SocketAddress +addressGetGsockaddr _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_address_get_gsockaddr _obj' + checkUnexpectedReturnNULL "soup_address_get_gsockaddr" result + result' <- (wrapObject Gio.SocketAddress) result + touchManagedPtr _obj + return result' + +-- method Address::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_get_name" soup_address_get_name :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + IO CString + + +addressGetName :: + (MonadIO m, AddressK a) => + a -> -- _obj + m T.Text +addressGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_address_get_name _obj' + checkUnexpectedReturnNULL "soup_address_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Address::get_physical +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_get_physical" soup_address_get_physical :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + IO CString + + +addressGetPhysical :: + (MonadIO m, AddressK a) => + a -> -- _obj + m T.Text +addressGetPhysical _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_address_get_physical _obj' + checkUnexpectedReturnNULL "soup_address_get_physical" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Address::get_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_get_port" soup_address_get_port :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + IO Word32 + + +addressGetPort :: + (MonadIO m, AddressK a) => + a -> -- _obj + m Word32 +addressGetPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_address_get_port _obj' + touchManagedPtr _obj + return result + +-- method Address::hash_by_ip +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_hash_by_ip" soup_address_hash_by_ip :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + IO Word32 + + +addressHashByIp :: + (MonadIO m, AddressK a) => + a -> -- _obj + m Word32 +addressHashByIp _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_address_hash_by_ip _obj' + touchManagedPtr _obj + return result + +-- method Address::hash_by_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_hash_by_name" soup_address_hash_by_name :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + IO Word32 + + +addressHashByName :: + (MonadIO m, AddressK a) => + a -> -- _obj + m Word32 +addressHashByName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_address_hash_by_name _obj' + touchManagedPtr _obj + return result + +-- method Address::is_resolved +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_is_resolved" soup_address_is_resolved :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + IO CInt + + +addressIsResolved :: + (MonadIO m, AddressK a) => + a -> -- _obj + m Bool +addressIsResolved _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_address_is_resolved _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Address::resolve_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, 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" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_resolve_async" soup_address_resolve_async :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + Ptr GLib.MainContext -> -- async_context : TInterface "GLib" "MainContext" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AddressCallbackC -> -- callback : TInterface "Soup" "AddressCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +addressResolveAsync :: + (MonadIO m, AddressK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (GLib.MainContext) -> -- async_context + Maybe (b) -> -- cancellable + AddressCallback -> -- callback + m () +addressResolveAsync _obj async_context cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeAsync_context <- case async_context of + Nothing -> return nullPtr + Just jAsync_context -> do + let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context + return jAsync_context' + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC)) + callback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) callback) + poke ptrcallback callback' + let user_data = nullPtr + soup_address_resolve_async _obj' maybeAsync_context maybeCancellable callback' user_data + touchManagedPtr _obj + whenJust async_context touchManagedPtr + whenJust cancellable touchManagedPtr + return () + +-- method Address::resolve_sync +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_address_resolve_sync" soup_address_resolve_sync :: + Ptr Address -> -- _obj : TInterface "Soup" "Address" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + IO Word32 + + +addressResolveSync :: + (MonadIO m, AddressK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (b) -> -- cancellable + m Word32 +addressResolveSync _obj cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + result <- soup_address_resolve_sync _obj' maybeCancellable + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return result + +-- callback AddressCallback +addressCallbackClosure :: AddressCallback -> IO Closure +addressCallbackClosure cb = newCClosure =<< mkAddressCallback wrapped + where wrapped = addressCallbackWrapper Nothing cb + +type AddressCallbackC = + Ptr Address -> + Word32 -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkAddressCallback :: AddressCallbackC -> IO (FunPtr AddressCallbackC) + +type AddressCallback = + Address -> + Word32 -> + IO () + +noAddressCallback :: Maybe AddressCallback +noAddressCallback = Nothing + +addressCallbackWrapper :: + Maybe (Ptr (FunPtr (AddressCallbackC))) -> + AddressCallback -> + Ptr Address -> + Word32 -> + Ptr () -> + IO () +addressCallbackWrapper funptrptr _cb addr status _ = do + addr' <- (newObject Address) addr + _cb addr' status + maybeReleaseFunPtr funptrptr + +-- Enum AddressFamily + +data AddressFamily = + AddressFamilyInvalid + | AddressFamilyIpv4 + | AddressFamilyIpv6 + | AnotherAddressFamily Int + deriving (Show, Eq) + +instance Enum AddressFamily where + fromEnum AddressFamilyInvalid = -1 + fromEnum AddressFamilyIpv4 = 2 + fromEnum AddressFamilyIpv6 = 10 + fromEnum (AnotherAddressFamily k) = k + + toEnum -1 = AddressFamilyInvalid + toEnum 2 = AddressFamilyIpv4 + toEnum 10 = AddressFamilyIpv6 + toEnum k = AnotherAddressFamily k + +foreign import ccall "soup_address_family_get_type" c_soup_address_family_get_type :: + IO GType + +instance BoxedEnum AddressFamily where + boxedEnumType _ = c_soup_address_family_get_type + +-- object Auth +newtype Auth = Auth (ForeignPtr Auth) +noAuth :: Maybe Auth +noAuth = Nothing + +foreign import ccall "soup_auth_get_type" + c_soup_auth_get_type :: IO GType + +type instance ParentTypes Auth = '[GObject.Object] + +instance GObject Auth where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_get_type + + +class GObject o => AuthK o +instance (GObject o, IsDescendantOf Auth o) => AuthK o + +toAuth :: AuthK o => o -> IO Auth +toAuth = unsafeCastTo Auth + +-- method Auth::new +-- method type : Constructor +-- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Auth" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_new" soup_auth_new :: + CGType -> -- type : TBasicType TGType + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- auth_header : TBasicType TUTF8 + IO (Ptr Auth) + + +authNew :: + (MonadIO m, MessageK a) => + GType -> -- type + a -> -- msg + T.Text -> -- auth_header + m Auth +authNew type_ msg auth_header = liftIO $ do + let type_' = gtypeToCGType type_ + let msg' = unsafeManagedPtrCastPtr msg + auth_header' <- textToCString auth_header + result <- soup_auth_new type_' msg' auth_header' + checkUnexpectedReturnNULL "soup_auth_new" result + result' <- (wrapObject Auth) result + touchManagedPtr msg + freeMem auth_header' + return result' + +-- method Auth::authenticate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_authenticate" soup_auth_authenticate :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + CString -> -- username : TBasicType TUTF8 + CString -> -- password : TBasicType TUTF8 + IO () + + +authAuthenticate :: + (MonadIO m, AuthK a) => + a -> -- _obj + T.Text -> -- username + T.Text -> -- password + m () +authAuthenticate _obj username password = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + username' <- textToCString username + password' <- textToCString password + soup_auth_authenticate _obj' username' password' + touchManagedPtr _obj + freeMem username' + freeMem password' + return () + +-- method Auth::get_authorization +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_get_authorization" soup_auth_get_authorization :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO CString + + +authGetAuthorization :: + (MonadIO m, AuthK a, MessageK b) => + a -> -- _obj + b -> -- msg + m T.Text +authGetAuthorization _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_auth_get_authorization _obj' msg' + checkUnexpectedReturnNULL "soup_auth_get_authorization" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- method Auth::get_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_get_host" soup_auth_get_host :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + IO CString + + +authGetHost :: + (MonadIO m, AuthK a) => + a -> -- _obj + m T.Text +authGetHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_get_host _obj' + checkUnexpectedReturnNULL "soup_auth_get_host" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Auth::get_info +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_get_info" soup_auth_get_info :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + IO CString + + +authGetInfo :: + (MonadIO m, AuthK a) => + a -> -- _obj + m T.Text +authGetInfo _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_get_info _obj' + checkUnexpectedReturnNULL "soup_auth_get_info" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method Auth::get_protection_space +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_get_protection_space" soup_auth_get_protection_space :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + Ptr URI -> -- source_uri : TInterface "Soup" "URI" + IO (Ptr (GSList CString)) + + +authGetProtectionSpace :: + (MonadIO m, AuthK a) => + a -> -- _obj + URI -> -- source_uri + m [T.Text] +authGetProtectionSpace _obj source_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let source_uri' = unsafeManagedPtrGetPtr source_uri + result <- soup_auth_get_protection_space _obj' source_uri' + checkUnexpectedReturnNULL "soup_auth_get_protection_space" result + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr _obj + touchManagedPtr source_uri + return result'' + +-- method Auth::get_realm +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_get_realm" soup_auth_get_realm :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + IO CString + + +authGetRealm :: + (MonadIO m, AuthK a) => + a -> -- _obj + m T.Text +authGetRealm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_get_realm _obj' + checkUnexpectedReturnNULL "soup_auth_get_realm" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Auth::get_saved_password +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", 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_auth_get_saved_password" soup_auth_get_saved_password :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + CString -> -- user : TBasicType TUTF8 + IO CString + + +authGetSavedPassword :: + (MonadIO m, AuthK a) => + a -> -- _obj + T.Text -> -- user + m T.Text +authGetSavedPassword _obj user = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + user' <- textToCString user + result <- soup_auth_get_saved_password _obj' user' + checkUnexpectedReturnNULL "soup_auth_get_saved_password" result + result' <- cstringToText result + touchManagedPtr _obj + freeMem user' + return result' + +-- method Auth::get_saved_users +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_get_saved_users" soup_auth_get_saved_users :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + IO (Ptr (GSList CString)) + + +authGetSavedUsers :: + (MonadIO m, AuthK a) => + a -> -- _obj + m [T.Text] +authGetSavedUsers _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_get_saved_users _obj' + checkUnexpectedReturnNULL "soup_auth_get_saved_users" result + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + touchManagedPtr _obj + return result'' + +-- method Auth::get_scheme_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_get_scheme_name" soup_auth_get_scheme_name :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + IO CString + + +authGetSchemeName :: + (MonadIO m, AuthK a) => + a -> -- _obj + m T.Text +authGetSchemeName _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_get_scheme_name _obj' + checkUnexpectedReturnNULL "soup_auth_get_scheme_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Auth::has_saved_password +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_has_saved_password" soup_auth_has_saved_password :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + CString -> -- username : TBasicType TUTF8 + CString -> -- password : TBasicType TUTF8 + IO () + + +authHasSavedPassword :: + (MonadIO m, AuthK a) => + a -> -- _obj + T.Text -> -- username + T.Text -> -- password + m () +authHasSavedPassword _obj username password = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + username' <- textToCString username + password' <- textToCString password + soup_auth_has_saved_password _obj' username' password' + touchManagedPtr _obj + freeMem username' + freeMem password' + return () + +-- method Auth::is_authenticated +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_is_authenticated" soup_auth_is_authenticated :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + IO CInt + + +authIsAuthenticated :: + (MonadIO m, AuthK a) => + a -> -- _obj + m Bool +authIsAuthenticated _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_is_authenticated _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Auth::is_for_proxy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_is_for_proxy" soup_auth_is_for_proxy :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + IO CInt + + +authIsForProxy :: + (MonadIO m, AuthK a) => + a -> -- _obj + m Bool +authIsForProxy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_is_for_proxy _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Auth::is_ready +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_is_ready" soup_auth_is_ready :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO CInt + + +authIsReady :: + (MonadIO m, AuthK a, MessageK b) => + a -> -- _obj + b -> -- msg + m Bool +authIsReady _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_auth_is_ready _obj' msg' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- method Auth::save_password +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_save_password" soup_auth_save_password :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + CString -> -- username : TBasicType TUTF8 + CString -> -- password : TBasicType TUTF8 + IO () + + +authSavePassword :: + (MonadIO m, AuthK a) => + a -> -- _obj + T.Text -> -- username + T.Text -> -- password + m () +authSavePassword _obj username password = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + username' <- textToCString username + password' <- textToCString password + soup_auth_save_password _obj' username' password' + touchManagedPtr _obj + freeMem username' + freeMem password' + return () + +-- method Auth::update +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", 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_auth_update" soup_auth_update :: + Ptr Auth -> -- _obj : TInterface "Soup" "Auth" + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- auth_header : TBasicType TUTF8 + IO CInt + + +authUpdate :: + (MonadIO m, AuthK a, MessageK b) => + a -> -- _obj + b -> -- msg + T.Text -> -- auth_header + m Bool +authUpdate _obj msg auth_header = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + auth_header' <- textToCString auth_header + result <- soup_auth_update _obj' msg' auth_header' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr msg + freeMem auth_header' + return result' + +-- object AuthBasic +newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic) +noAuthBasic :: Maybe AuthBasic +noAuthBasic = Nothing + +foreign import ccall "soup_auth_basic_get_type" + c_soup_auth_basic_get_type :: IO GType + +type instance ParentTypes AuthBasic = '[Auth, GObject.Object] + +instance GObject AuthBasic where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_basic_get_type + + +class GObject o => AuthBasicK o +instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o + +toAuthBasic :: AuthBasicK o => o -> IO AuthBasic +toAuthBasic = unsafeCastTo AuthBasic + +-- object AuthDigest +newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest) +noAuthDigest :: Maybe AuthDigest +noAuthDigest = Nothing + +foreign import ccall "soup_auth_digest_get_type" + c_soup_auth_digest_get_type :: IO GType + +type instance ParentTypes AuthDigest = '[Auth, GObject.Object] + +instance GObject AuthDigest where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_digest_get_type + + +class GObject o => AuthDigestK o +instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o + +toAuthDigest :: AuthDigestK o => o -> IO AuthDigest +toAuthDigest = unsafeCastTo AuthDigest + +-- object AuthDomain +newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain) +noAuthDomain :: Maybe AuthDomain +noAuthDomain = Nothing + +foreign import ccall "soup_auth_domain_get_type" + c_soup_auth_domain_get_type :: IO GType + +type instance ParentTypes AuthDomain = '[GObject.Object] + +instance GObject AuthDomain where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_domain_get_type + + +class GObject o => AuthDomainK o +instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o + +toAuthDomain :: AuthDomainK o => o -> IO AuthDomain +toAuthDomain = unsafeCastTo AuthDomain + +-- method AuthDomain::accepts +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_accepts" soup_auth_domain_accepts :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO CString + + +authDomainAccepts :: + (MonadIO m, AuthDomainK a, MessageK b) => + a -> -- _obj + b -> -- msg + m T.Text +authDomainAccepts _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_auth_domain_accepts _obj' msg' + checkUnexpectedReturnNULL "soup_auth_domain_accepts" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- method AuthDomain::add_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_auth_domain_add_path" soup_auth_domain_add_path :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + CString -> -- path : TBasicType TUTF8 + IO () + + +authDomainAddPath :: + (MonadIO m, AuthDomainK a) => + a -> -- _obj + T.Text -> -- path + m () +authDomainAddPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path' <- textToCString path + soup_auth_domain_add_path _obj' path' + touchManagedPtr _obj + freeMem path' + return () + +-- method AuthDomain::basic_set_auth_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_basic_set_auth_callback" soup_auth_domain_basic_set_auth_callback :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + FunPtr AuthDomainBasicAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainBasicAuthCallback" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" + IO () + + +authDomainBasicSetAuthCallback :: + (MonadIO m, AuthDomainK a) => + a -> -- _obj + AuthDomainBasicAuthCallback -> -- callback + m () +authDomainBasicSetAuthCallback _obj callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + callback' <- mkAuthDomainBasicAuthCallback (authDomainBasicAuthCallbackWrapper Nothing callback) + let user_data = castFunPtrToPtr callback' + let dnotify = safeFreeFunPtrPtr + soup_auth_domain_basic_set_auth_callback _obj' callback' user_data dnotify + touchManagedPtr _obj + return () + +-- method AuthDomain::challenge +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_challenge" soup_auth_domain_challenge :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +authDomainChallenge :: + (MonadIO m, AuthDomainK a, MessageK b) => + a -> -- _obj + b -> -- msg + m () +authDomainChallenge _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + soup_auth_domain_challenge _obj' msg' + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- method AuthDomain::check_password +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_domain_check_password" soup_auth_domain_check_password :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- username : TBasicType TUTF8 + CString -> -- password : TBasicType TUTF8 + IO CInt + + +authDomainCheckPassword :: + (MonadIO m, AuthDomainK a, MessageK b) => + a -> -- _obj + b -> -- msg + T.Text -> -- username + T.Text -> -- password + m Bool +authDomainCheckPassword _obj msg username password = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + username' <- textToCString username + password' <- textToCString password + result <- soup_auth_domain_check_password _obj' msg' username' password' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr msg + freeMem username' + freeMem password' + return result' + +-- method AuthDomain::covers +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_covers" soup_auth_domain_covers :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO CInt + + +authDomainCovers :: + (MonadIO m, AuthDomainK a, MessageK b) => + a -> -- _obj + b -> -- msg + m Bool +authDomainCovers _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_auth_domain_covers _obj' msg' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- method AuthDomain::digest_set_auth_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + FunPtr AuthDomainDigestAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainDigestAuthCallback" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" + IO () + + +authDomainDigestSetAuthCallback :: + (MonadIO m, AuthDomainK a) => + a -> -- _obj + AuthDomainDigestAuthCallback -> -- callback + m () +authDomainDigestSetAuthCallback _obj callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + callback' <- mkAuthDomainDigestAuthCallback (authDomainDigestAuthCallbackWrapper Nothing callback) + let user_data = castFunPtrToPtr callback' + let dnotify = safeFreeFunPtrPtr + soup_auth_domain_digest_set_auth_callback _obj' callback' user_data dnotify + touchManagedPtr _obj + return () + +-- method AuthDomain::get_realm +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_get_realm" soup_auth_domain_get_realm :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + IO CString + + +authDomainGetRealm :: + (MonadIO m, AuthDomainK a) => + a -> -- _obj + m T.Text +authDomainGetRealm _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_auth_domain_get_realm _obj' + checkUnexpectedReturnNULL "soup_auth_domain_get_realm" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method AuthDomain::remove_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_auth_domain_remove_path" soup_auth_domain_remove_path :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + CString -> -- path : TBasicType TUTF8 + IO () + + +authDomainRemovePath :: + (MonadIO m, AuthDomainK a) => + a -> -- _obj + T.Text -> -- path + m () +authDomainRemovePath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path' <- textToCString path + soup_auth_domain_remove_path _obj' path' + touchManagedPtr _obj + freeMem path' + return () + +-- method AuthDomain::set_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_set_filter" soup_auth_domain_set_filter :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + FunPtr AuthDomainFilterC -> -- filter : TInterface "Soup" "AuthDomainFilter" + Ptr () -> -- filter_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" + IO () + + +authDomainSetFilter :: + (MonadIO m, AuthDomainK a) => + a -> -- _obj + AuthDomainFilter -> -- filter + m () +authDomainSetFilter _obj filter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + filter' <- mkAuthDomainFilter (authDomainFilterWrapper Nothing filter) + let filter_data = castFunPtrToPtr filter' + let dnotify = safeFreeFunPtrPtr + soup_auth_domain_set_filter _obj' filter' filter_data dnotify + touchManagedPtr _obj + return () + +-- method AuthDomain::set_generic_auth_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "auth_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_domain_set_generic_auth_callback" soup_auth_domain_set_generic_auth_callback :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + FunPtr AuthDomainGenericAuthCallbackC -> -- auth_callback : TInterface "Soup" "AuthDomainGenericAuthCallback" + Ptr () -> -- auth_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" + IO () + + +authDomainSetGenericAuthCallback :: + (MonadIO m, AuthDomainK a) => + a -> -- _obj + AuthDomainGenericAuthCallback -> -- auth_callback + m () +authDomainSetGenericAuthCallback _obj auth_callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + auth_callback' <- mkAuthDomainGenericAuthCallback (authDomainGenericAuthCallbackWrapper Nothing auth_callback) + let auth_data = castFunPtrToPtr auth_callback' + let dnotify = safeFreeFunPtrPtr + soup_auth_domain_set_generic_auth_callback _obj' auth_callback' auth_data dnotify + touchManagedPtr _obj + return () + +-- method AuthDomain::try_generic_auth_callback +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", 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_auth_domain_try_generic_auth_callback" soup_auth_domain_try_generic_auth_callback :: + Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- username : TBasicType TUTF8 + IO CInt + + +authDomainTryGenericAuthCallback :: + (MonadIO m, AuthDomainK a, MessageK b) => + a -> -- _obj + b -> -- msg + T.Text -> -- username + m Bool +authDomainTryGenericAuthCallback _obj msg username = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + username' <- textToCString username + result <- soup_auth_domain_try_generic_auth_callback _obj' msg' username' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr msg + freeMem username' + return result' + +-- object AuthDomainBasic +newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic) +noAuthDomainBasic :: Maybe AuthDomainBasic +noAuthDomainBasic = Nothing + +foreign import ccall "soup_auth_domain_basic_get_type" + c_soup_auth_domain_basic_get_type :: IO GType + +type instance ParentTypes AuthDomainBasic = '[AuthDomain, GObject.Object] + +instance GObject AuthDomainBasic where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_domain_basic_get_type + + +class GObject o => AuthDomainBasicK o +instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o + +toAuthDomainBasic :: AuthDomainBasicK o => o -> IO AuthDomainBasic +toAuthDomainBasic = unsafeCastTo AuthDomainBasic + +-- callback AuthDomainBasicAuthCallback +authDomainBasicAuthCallbackClosure :: AuthDomainBasicAuthCallback -> IO Closure +authDomainBasicAuthCallbackClosure cb = newCClosure =<< mkAuthDomainBasicAuthCallback wrapped + where wrapped = authDomainBasicAuthCallbackWrapper Nothing cb + +type AuthDomainBasicAuthCallbackC = + Ptr AuthDomain -> + Ptr Message -> + CString -> + CString -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkAuthDomainBasicAuthCallback :: AuthDomainBasicAuthCallbackC -> IO (FunPtr AuthDomainBasicAuthCallbackC) + +type AuthDomainBasicAuthCallback = + AuthDomain -> + Message -> + T.Text -> + T.Text -> + IO Bool + +noAuthDomainBasicAuthCallback :: Maybe AuthDomainBasicAuthCallback +noAuthDomainBasicAuthCallback = Nothing + +authDomainBasicAuthCallbackWrapper :: + Maybe (Ptr (FunPtr (AuthDomainBasicAuthCallbackC))) -> + AuthDomainBasicAuthCallback -> + Ptr AuthDomain -> + Ptr Message -> + CString -> + CString -> + Ptr () -> + IO CInt +authDomainBasicAuthCallbackWrapper funptrptr _cb domain msg username password _ = do + domain' <- (newObject AuthDomain) domain + msg' <- (newObject Message) msg + username' <- cstringToText username + password' <- cstringToText password + result <- _cb domain' msg' username' password' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- object AuthDomainDigest +newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest) +noAuthDomainDigest :: Maybe AuthDomainDigest +noAuthDomainDigest = Nothing + +foreign import ccall "soup_auth_domain_digest_get_type" + c_soup_auth_domain_digest_get_type :: IO GType + +type instance ParentTypes AuthDomainDigest = '[AuthDomain, GObject.Object] + +instance GObject AuthDomainDigest where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_domain_digest_get_type + + +class GObject o => AuthDomainDigestK o +instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o + +toAuthDomainDigest :: AuthDomainDigestK o => o -> IO AuthDomainDigest +toAuthDomainDigest = unsafeCastTo AuthDomainDigest + +-- method AuthDomainDigest::encode_password +-- method type : MemberFunction +-- Args : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_domain_digest_encode_password" soup_auth_domain_digest_encode_password :: + CString -> -- username : TBasicType TUTF8 + CString -> -- realm : TBasicType TUTF8 + CString -> -- password : TBasicType TUTF8 + IO CString + + +authDomainDigestEncodePassword :: + (MonadIO m) => + T.Text -> -- username + T.Text -> -- realm + T.Text -> -- password + m T.Text +authDomainDigestEncodePassword username realm password = liftIO $ do + username' <- textToCString username + realm' <- textToCString realm + password' <- textToCString password + result <- soup_auth_domain_digest_encode_password username' realm' password' + checkUnexpectedReturnNULL "soup_auth_domain_digest_encode_password" result + result' <- cstringToText result + freeMem result + freeMem username' + freeMem realm' + freeMem password' + return result' + +-- callback AuthDomainDigestAuthCallback +authDomainDigestAuthCallbackClosure :: AuthDomainDigestAuthCallback -> IO Closure +authDomainDigestAuthCallbackClosure cb = newCClosure =<< mkAuthDomainDigestAuthCallback wrapped + where wrapped = authDomainDigestAuthCallbackWrapper Nothing cb + +type AuthDomainDigestAuthCallbackC = + Ptr AuthDomain -> + Ptr Message -> + CString -> + Ptr () -> + IO CString + +foreign import ccall "wrapper" + mkAuthDomainDigestAuthCallback :: AuthDomainDigestAuthCallbackC -> IO (FunPtr AuthDomainDigestAuthCallbackC) + +type AuthDomainDigestAuthCallback = + AuthDomain -> + Message -> + T.Text -> + IO T.Text + +noAuthDomainDigestAuthCallback :: Maybe AuthDomainDigestAuthCallback +noAuthDomainDigestAuthCallback = Nothing + +authDomainDigestAuthCallbackWrapper :: + Maybe (Ptr (FunPtr (AuthDomainDigestAuthCallbackC))) -> + AuthDomainDigestAuthCallback -> + Ptr AuthDomain -> + Ptr Message -> + CString -> + Ptr () -> + IO CString +authDomainDigestAuthCallbackWrapper funptrptr _cb domain msg username _ = do + domain' <- (newObject AuthDomain) domain + msg' <- (newObject Message) msg + username' <- cstringToText username + result <- _cb domain' msg' username' + maybeReleaseFunPtr funptrptr + result' <- textToCString result + return result' + +-- callback AuthDomainFilter +authDomainFilterClosure :: AuthDomainFilter -> IO Closure +authDomainFilterClosure cb = newCClosure =<< mkAuthDomainFilter wrapped + where wrapped = authDomainFilterWrapper Nothing cb + +type AuthDomainFilterC = + Ptr AuthDomain -> + Ptr Message -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkAuthDomainFilter :: AuthDomainFilterC -> IO (FunPtr AuthDomainFilterC) + +type AuthDomainFilter = + AuthDomain -> + Message -> + IO Bool + +noAuthDomainFilter :: Maybe AuthDomainFilter +noAuthDomainFilter = Nothing + +authDomainFilterWrapper :: + Maybe (Ptr (FunPtr (AuthDomainFilterC))) -> + AuthDomainFilter -> + Ptr AuthDomain -> + Ptr Message -> + Ptr () -> + IO CInt +authDomainFilterWrapper funptrptr _cb domain msg _ = do + domain' <- (newObject AuthDomain) domain + msg' <- (newObject Message) msg + result <- _cb domain' msg' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- callback AuthDomainGenericAuthCallback +authDomainGenericAuthCallbackClosure :: AuthDomainGenericAuthCallback -> IO Closure +authDomainGenericAuthCallbackClosure cb = newCClosure =<< mkAuthDomainGenericAuthCallback wrapped + where wrapped = authDomainGenericAuthCallbackWrapper Nothing cb + +type AuthDomainGenericAuthCallbackC = + Ptr AuthDomain -> + Ptr Message -> + CString -> + Ptr () -> + IO CInt + +foreign import ccall "wrapper" + mkAuthDomainGenericAuthCallback :: AuthDomainGenericAuthCallbackC -> IO (FunPtr AuthDomainGenericAuthCallbackC) + +type AuthDomainGenericAuthCallback = + AuthDomain -> + Message -> + T.Text -> + IO Bool + +noAuthDomainGenericAuthCallback :: Maybe AuthDomainGenericAuthCallback +noAuthDomainGenericAuthCallback = Nothing + +authDomainGenericAuthCallbackWrapper :: + Maybe (Ptr (FunPtr (AuthDomainGenericAuthCallbackC))) -> + AuthDomainGenericAuthCallback -> + Ptr AuthDomain -> + Ptr Message -> + CString -> + Ptr () -> + IO CInt +authDomainGenericAuthCallbackWrapper funptrptr _cb domain msg username _ = do + domain' <- (newObject AuthDomain) domain + msg' <- (newObject Message) msg + username' <- cstringToText username + result <- _cb domain' msg' username' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- object AuthManager +newtype AuthManager = AuthManager (ForeignPtr AuthManager) +noAuthManager :: Maybe AuthManager +noAuthManager = Nothing + +foreign import ccall "soup_auth_manager_get_type" + c_soup_auth_manager_get_type :: IO GType + +type instance ParentTypes AuthManager = '[GObject.Object, SessionFeature] + +instance GObject AuthManager where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_manager_get_type + + +class GObject o => AuthManagerK o +instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o + +toAuthManager :: AuthManagerK o => o -> IO AuthManager +toAuthManager = unsafeCastTo AuthManager + +-- method AuthManager::use_auth +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_auth_manager_use_auth" soup_auth_manager_use_auth :: + Ptr AuthManager -> -- _obj : TInterface "Soup" "AuthManager" + Ptr URI -> -- uri : TInterface "Soup" "URI" + Ptr Auth -> -- auth : TInterface "Soup" "Auth" + IO () + + +authManagerUseAuth :: + (MonadIO m, AuthManagerK a, AuthK b) => + a -> -- _obj + URI -> -- uri + b -> -- auth + m () +authManagerUseAuth _obj uri auth = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + let auth' = unsafeManagedPtrCastPtr auth + soup_auth_manager_use_auth _obj' uri' auth' + touchManagedPtr _obj + touchManagedPtr uri + touchManagedPtr auth + return () + +-- signal AuthManager::authenticate +type AuthManagerAuthenticateCallback = + Message -> + Auth -> + Bool -> + IO () + +noAuthManagerAuthenticateCallback :: Maybe AuthManagerAuthenticateCallback +noAuthManagerAuthenticateCallback = Nothing + +type AuthManagerAuthenticateCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr Auth -> + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkAuthManagerAuthenticateCallback :: AuthManagerAuthenticateCallbackC -> IO (FunPtr AuthManagerAuthenticateCallbackC) + +authManagerAuthenticateClosure :: AuthManagerAuthenticateCallback -> IO Closure +authManagerAuthenticateClosure cb = newCClosure =<< mkAuthManagerAuthenticateCallback wrapped + where wrapped = authManagerAuthenticateCallbackWrapper cb + +authManagerAuthenticateCallbackWrapper :: + AuthManagerAuthenticateCallback -> + Ptr () -> + Ptr Message -> + Ptr Auth -> + CInt -> + Ptr () -> + IO () +authManagerAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do + msg' <- (newObject Message) msg + auth' <- (newObject Auth) auth + let retrying' = (/= 0) retrying + _cb msg' auth' retrying' + +onAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId +onAuthManagerAuthenticate obj cb = liftIO $ connectAuthManagerAuthenticate obj cb SignalConnectBefore +afterAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId +afterAuthManagerAuthenticate obj cb = connectAuthManagerAuthenticate obj cb SignalConnectAfter + +connectAuthManagerAuthenticate :: (GObject a, MonadIO m) => + a -> AuthManagerAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId +connectAuthManagerAuthenticate obj cb after = liftIO $ do + cb' <- mkAuthManagerAuthenticateCallback (authManagerAuthenticateCallbackWrapper cb) + connectSignalFunPtr obj "authenticate" cb' after + +-- object AuthNTLM +newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM) +noAuthNTLM :: Maybe AuthNTLM +noAuthNTLM = Nothing + +foreign import ccall "soup_auth_ntlm_get_type" + c_soup_auth_ntlm_get_type :: IO GType + +type instance ParentTypes AuthNTLM = '[Auth, GObject.Object] + +instance GObject AuthNTLM where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_auth_ntlm_get_type + + +class GObject o => AuthNTLMK o +instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o + +toAuthNTLM :: AuthNTLMK o => o -> IO AuthNTLM +toAuthNTLM = unsafeCastTo AuthNTLM + +-- struct Buffer +newtype Buffer = Buffer (ForeignPtr Buffer) +noBuffer :: Maybe Buffer +noBuffer = Nothing + +foreign import ccall "soup_buffer_get_type" c_soup_buffer_get_type :: + IO GType + +instance BoxedObject Buffer where + boxedType _ = c_soup_buffer_get_type + +bufferReadData :: Buffer -> IO (Ptr ()) +bufferReadData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) + return val + +bufferReadLength :: Buffer -> IO Word64 +bufferReadLength s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Word64 + return val + +-- method Buffer::new +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TInterface "Soup" "Buffer" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_new_take" soup_buffer_new_take :: + Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) + Word64 -> -- length : TBasicType TUInt64 + IO (Ptr Buffer) + + +bufferNew :: + (MonadIO m) => + ByteString -> -- data + m Buffer +bufferNew data_ = liftIO $ do + let length_ = fromIntegral $ B.length data_ + data_' <- packByteString data_ + result <- soup_buffer_new_take data_' length_ + checkUnexpectedReturnNULL "soup_buffer_new_take" result + result' <- (wrapBoxed Buffer) result + return result' + +-- method Buffer::new_with_owner +-- method type : Constructor +-- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Buffer" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_new_with_owner" soup_buffer_new_with_owner :: + Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) + Word64 -> -- length : TBasicType TUInt64 + Ptr () -> -- owner : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- owner_dnotify : TInterface "GLib" "DestroyNotify" + IO (Ptr Buffer) + + +bufferNewWithOwner :: + (MonadIO m) => + ByteString -> -- data + Ptr () -> -- owner + Maybe (GLib.DestroyNotify) -> -- owner_dnotify + m Buffer +bufferNewWithOwner data_ owner owner_dnotify = liftIO $ do + let length_ = fromIntegral $ B.length data_ + data_' <- packByteString data_ + ptrowner_dnotify <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) + maybeOwner_dnotify <- case owner_dnotify of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jOwner_dnotify -> do + jOwner_dnotify' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrowner_dnotify) jOwner_dnotify) + poke ptrowner_dnotify jOwner_dnotify' + return jOwner_dnotify' + result <- soup_buffer_new_with_owner data_' length_ owner maybeOwner_dnotify + checkUnexpectedReturnNULL "soup_buffer_new_with_owner" result + result' <- (wrapBoxed Buffer) result + freeMem data_' + return result' + +-- method Buffer::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Buffer" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_copy" soup_buffer_copy :: + Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" + IO (Ptr Buffer) + + +bufferCopy :: + (MonadIO m) => + Buffer -> -- _obj + m Buffer +bufferCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_buffer_copy _obj' + checkUnexpectedReturnNULL "soup_buffer_copy" result + result' <- (wrapBoxed Buffer) result + touchManagedPtr _obj + return result' + +-- method Buffer::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_free" soup_buffer_free :: + Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" + IO () + + +bufferFree :: + (MonadIO m) => + Buffer -> -- _obj + m () +bufferFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_buffer_free _obj' + touchManagedPtr _obj + return () + +-- method Buffer::get_as_bytes +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "Bytes" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_get_as_bytes" soup_buffer_get_as_bytes :: + Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" + IO (Ptr GLib.Bytes) + + +bufferGetAsBytes :: + (MonadIO m) => + Buffer -> -- _obj + m GLib.Bytes +bufferGetAsBytes _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_buffer_get_as_bytes _obj' + checkUnexpectedReturnNULL "soup_buffer_get_as_bytes" result + result' <- (wrapBoxed GLib.Bytes) result + touchManagedPtr _obj + return result' + +-- method Buffer::get_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_get_data" soup_buffer_get_data :: + Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" + Ptr (Ptr Word8) -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) + Ptr Word64 -> -- length : TBasicType TUInt64 + IO () + + +bufferGetData :: + (MonadIO m) => + Buffer -> -- _obj + m (ByteString) +bufferGetData _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + data_ <- allocMem :: IO (Ptr (Ptr Word8)) + length_ <- allocMem :: IO (Ptr Word64) + soup_buffer_get_data _obj' data_ length_ + length_' <- peek length_ + data_' <- peek data_ + data_'' <- (unpackByteStringWithLength length_') data_' + touchManagedPtr _obj + freeMem data_ + freeMem length_ + return data_'' + +-- method Buffer::get_owner +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_get_owner" soup_buffer_get_owner :: + Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" + IO () + + +bufferGetOwner :: + (MonadIO m) => + Buffer -> -- _obj + m () +bufferGetOwner _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_buffer_get_owner _obj' + touchManagedPtr _obj + return () + +-- method Buffer::new_subbuffer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Buffer" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_buffer_new_subbuffer" soup_buffer_new_subbuffer :: + Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" + Word64 -> -- offset : TBasicType TUInt64 + Word64 -> -- length : TBasicType TUInt64 + IO (Ptr Buffer) + + +bufferNewSubbuffer :: + (MonadIO m) => + Buffer -> -- _obj + Word64 -> -- offset + Word64 -> -- length + m Buffer +bufferNewSubbuffer _obj offset length_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_buffer_new_subbuffer _obj' offset length_ + checkUnexpectedReturnNULL "soup_buffer_new_subbuffer" result + result' <- (wrapBoxed Buffer) result + touchManagedPtr _obj + return result' + +-- object Cache +newtype Cache = Cache (ForeignPtr Cache) +noCache :: Maybe Cache +noCache = Nothing + +foreign import ccall "soup_cache_get_type" + c_soup_cache_get_type :: IO GType + +type instance ParentTypes Cache = '[GObject.Object, SessionFeature] + +instance GObject Cache where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_cache_get_type + + +class GObject o => CacheK o +instance (GObject o, IsDescendantOf Cache o) => CacheK o + +toCache :: CacheK o => o -> IO Cache +toCache = unsafeCastTo Cache + +-- method Cache::new +-- method type : Constructor +-- Args : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Cache" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cache_new" soup_cache_new :: + CString -> -- cache_dir : TBasicType TUTF8 + CUInt -> -- cache_type : TInterface "Soup" "CacheType" + IO (Ptr Cache) + + +cacheNew :: + (MonadIO m) => + T.Text -> -- cache_dir + CacheType -> -- cache_type + m Cache +cacheNew cache_dir cache_type = liftIO $ do + cache_dir' <- textToCString cache_dir + let cache_type' = (fromIntegral . fromEnum) cache_type + result <- soup_cache_new cache_dir' cache_type' + checkUnexpectedReturnNULL "soup_cache_new" result + result' <- (wrapObject Cache) result + freeMem cache_dir' + return result' + +-- method Cache::clear +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cache_clear" soup_cache_clear :: + Ptr Cache -> -- _obj : TInterface "Soup" "Cache" + IO () + + +cacheClear :: + (MonadIO m, CacheK a) => + a -> -- _obj + m () +cacheClear _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_cache_clear _obj' + touchManagedPtr _obj + return () + +-- method Cache::dump +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cache_dump" soup_cache_dump :: + Ptr Cache -> -- _obj : TInterface "Soup" "Cache" + IO () + + +cacheDump :: + (MonadIO m, CacheK a) => + a -> -- _obj + m () +cacheDump _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_cache_dump _obj' + touchManagedPtr _obj + return () + +-- method Cache::flush +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cache_flush" soup_cache_flush :: + Ptr Cache -> -- _obj : TInterface "Soup" "Cache" + IO () + + +cacheFlush :: + (MonadIO m, CacheK a) => + a -> -- _obj + m () +cacheFlush _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_cache_flush _obj' + touchManagedPtr _obj + return () + +-- method Cache::get_max_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cache_get_max_size" soup_cache_get_max_size :: + Ptr Cache -> -- _obj : TInterface "Soup" "Cache" + IO Word32 + + +cacheGetMaxSize :: + (MonadIO m, CacheK a) => + a -> -- _obj + m Word32 +cacheGetMaxSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_cache_get_max_size _obj' + touchManagedPtr _obj + return result + +-- method Cache::load +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cache_load" soup_cache_load :: + Ptr Cache -> -- _obj : TInterface "Soup" "Cache" + IO () + + +cacheLoad :: + (MonadIO m, CacheK a) => + a -> -- _obj + m () +cacheLoad _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_cache_load _obj' + touchManagedPtr _obj + return () + +-- method Cache::set_max_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cache_set_max_size" soup_cache_set_max_size :: + Ptr Cache -> -- _obj : TInterface "Soup" "Cache" + Word32 -> -- max_size : TBasicType TUInt32 + IO () + + +cacheSetMaxSize :: + (MonadIO m, CacheK a) => + a -> -- _obj + Word32 -> -- max_size + m () +cacheSetMaxSize _obj max_size = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_cache_set_max_size _obj' max_size + touchManagedPtr _obj + return () + +-- Enum CacheResponse + +data CacheResponse = + CacheResponseFresh + | CacheResponseNeedsValidation + | CacheResponseStale + | AnotherCacheResponse Int + deriving (Show, Eq) + +instance Enum CacheResponse where + fromEnum CacheResponseFresh = 0 + fromEnum CacheResponseNeedsValidation = 1 + fromEnum CacheResponseStale = 2 + fromEnum (AnotherCacheResponse k) = k + + toEnum 0 = CacheResponseFresh + toEnum 1 = CacheResponseNeedsValidation + toEnum 2 = CacheResponseStale + toEnum k = AnotherCacheResponse k + +foreign import ccall "soup_cache_response_get_type" c_soup_cache_response_get_type :: + IO GType + +instance BoxedEnum CacheResponse where + boxedEnumType _ = c_soup_cache_response_get_type + +-- Enum CacheType + +data CacheType = + CacheTypeSingleUser + | CacheTypeShared + | AnotherCacheType Int + deriving (Show, Eq) + +instance Enum CacheType where + fromEnum CacheTypeSingleUser = 0 + fromEnum CacheTypeShared = 1 + fromEnum (AnotherCacheType k) = k + + toEnum 0 = CacheTypeSingleUser + toEnum 1 = CacheTypeShared + toEnum k = AnotherCacheType k + +foreign import ccall "soup_cache_type_get_type" c_soup_cache_type_get_type :: + IO GType + +instance BoxedEnum CacheType where + boxedEnumType _ = c_soup_cache_type_get_type + +-- Flags Cacheability + +data Cacheability = + CacheabilityCacheable + | CacheabilityUncacheable + | CacheabilityInvalidates + | CacheabilityValidates + | AnotherCacheability Int + deriving (Show, Eq) + +instance Enum Cacheability where + fromEnum CacheabilityCacheable = 1 + fromEnum CacheabilityUncacheable = 2 + fromEnum CacheabilityInvalidates = 4 + fromEnum CacheabilityValidates = 8 + fromEnum (AnotherCacheability k) = k + + toEnum 1 = CacheabilityCacheable + toEnum 2 = CacheabilityUncacheable + toEnum 4 = CacheabilityInvalidates + toEnum 8 = CacheabilityValidates + toEnum k = AnotherCacheability k + +foreign import ccall "soup_cacheability_get_type" c_soup_cacheability_get_type :: + IO GType + +instance BoxedEnum Cacheability where + boxedEnumType _ = c_soup_cacheability_get_type + +instance IsGFlag Cacheability + +-- callback ChunkAllocator +chunkAllocatorClosure :: ChunkAllocator -> IO Closure +chunkAllocatorClosure cb = newCClosure =<< mkChunkAllocator wrapped + where wrapped = chunkAllocatorWrapper Nothing cb + +type ChunkAllocatorC = + Ptr Message -> + Word64 -> + Ptr () -> + IO (Ptr Buffer) + +foreign import ccall "wrapper" + mkChunkAllocator :: ChunkAllocatorC -> IO (FunPtr ChunkAllocatorC) + +type ChunkAllocator = + Message -> + Word64 -> + IO Buffer + +noChunkAllocator :: Maybe ChunkAllocator +noChunkAllocator = Nothing + +chunkAllocatorWrapper :: + Maybe (Ptr (FunPtr (ChunkAllocatorC))) -> + ChunkAllocator -> + Ptr Message -> + Word64 -> + Ptr () -> + IO (Ptr Buffer) +chunkAllocatorWrapper funptrptr _cb msg max_len _ = do + msg' <- (newObject Message) msg + result <- _cb msg' max_len + maybeReleaseFunPtr funptrptr + result' <- copyBoxed result + return result' + +-- struct ClientContext +newtype ClientContext = ClientContext (ForeignPtr ClientContext) +noClientContext :: Maybe ClientContext +noClientContext = Nothing + +foreign import ccall "soup_client_context_get_type" c_soup_client_context_get_type :: + IO GType + +instance BoxedObject ClientContext where + boxedType _ = c_soup_client_context_get_type + +-- method ClientContext::get_address +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Address" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_address" soup_client_context_get_address :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO (Ptr Address) + +{-# DEPRECATED clientContextGetAddress ["Use soup_client_context_get_remote_address(), which returns","a #GSocketAddress."]#-} +clientContextGetAddress :: + (MonadIO m) => + ClientContext -> -- _obj + m Address +clientContextGetAddress _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_address _obj' + checkUnexpectedReturnNULL "soup_client_context_get_address" result + result' <- (newObject Address) result + touchManagedPtr _obj + return result' + +-- method ClientContext::get_auth_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "AuthDomain" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_auth_domain" soup_client_context_get_auth_domain :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO (Ptr AuthDomain) + + +clientContextGetAuthDomain :: + (MonadIO m) => + ClientContext -> -- _obj + m AuthDomain +clientContextGetAuthDomain _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_auth_domain _obj' + checkUnexpectedReturnNULL "soup_client_context_get_auth_domain" result + result' <- (newObject AuthDomain) result + touchManagedPtr _obj + return result' + +-- method ClientContext::get_auth_user +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_auth_user" soup_client_context_get_auth_user :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO CString + + +clientContextGetAuthUser :: + (MonadIO m) => + ClientContext -> -- _obj + m T.Text +clientContextGetAuthUser _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_auth_user _obj' + checkUnexpectedReturnNULL "soup_client_context_get_auth_user" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method ClientContext::get_gsocket +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "Socket" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_gsocket" soup_client_context_get_gsocket :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO (Ptr Gio.Socket) + + +clientContextGetGsocket :: + (MonadIO m) => + ClientContext -> -- _obj + m Gio.Socket +clientContextGetGsocket _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_gsocket _obj' + checkUnexpectedReturnNULL "soup_client_context_get_gsocket" result + result' <- (newObject Gio.Socket) result + touchManagedPtr _obj + return result' + +-- method ClientContext::get_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_host" soup_client_context_get_host :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO CString + + +clientContextGetHost :: + (MonadIO m) => + ClientContext -> -- _obj + m T.Text +clientContextGetHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_host _obj' + checkUnexpectedReturnNULL "soup_client_context_get_host" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method ClientContext::get_local_address +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "SocketAddress" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_local_address" soup_client_context_get_local_address :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO (Ptr Gio.SocketAddress) + + +clientContextGetLocalAddress :: + (MonadIO m) => + ClientContext -> -- _obj + m Gio.SocketAddress +clientContextGetLocalAddress _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_local_address _obj' + checkUnexpectedReturnNULL "soup_client_context_get_local_address" result + result' <- (newObject Gio.SocketAddress) result + touchManagedPtr _obj + return result' + +-- method ClientContext::get_remote_address +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "SocketAddress" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_remote_address" soup_client_context_get_remote_address :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO (Ptr Gio.SocketAddress) + + +clientContextGetRemoteAddress :: + (MonadIO m) => + ClientContext -> -- _obj + m Gio.SocketAddress +clientContextGetRemoteAddress _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_remote_address _obj' + checkUnexpectedReturnNULL "soup_client_context_get_remote_address" result + result' <- (newObject Gio.SocketAddress) result + touchManagedPtr _obj + return result' + +-- method ClientContext::get_socket +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Socket" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_get_socket" soup_client_context_get_socket :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO (Ptr Socket) + +{-# DEPRECATED clientContextGetSocket ["use soup_client_context_get_gsocket(), which returns","a #GSocket."]#-} +clientContextGetSocket :: + (MonadIO m) => + ClientContext -> -- _obj + m Socket +clientContextGetSocket _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_get_socket _obj' + checkUnexpectedReturnNULL "soup_client_context_get_socket" result + result' <- (newObject Socket) result + touchManagedPtr _obj + return result' + +-- method ClientContext::steal_connection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "IOStream" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_client_context_steal_connection" soup_client_context_steal_connection :: + Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" + IO (Ptr Gio.IOStream) + + +clientContextStealConnection :: + (MonadIO m) => + ClientContext -> -- _obj + m Gio.IOStream +clientContextStealConnection _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_client_context_steal_connection _obj' + checkUnexpectedReturnNULL "soup_client_context_steal_connection" result + result' <- (wrapObject Gio.IOStream) result + touchManagedPtr _obj + return result' + +-- struct Connection +newtype Connection = Connection (ForeignPtr Connection) +noConnection :: Maybe Connection +noConnection = Nothing + +-- Enum ConnectionState + +data ConnectionState = + ConnectionStateNew + | ConnectionStateConnecting + | ConnectionStateIdle + | ConnectionStateInUse + | ConnectionStateRemoteDisconnected + | ConnectionStateDisconnected + | AnotherConnectionState Int + deriving (Show, Eq) + +instance Enum ConnectionState where + fromEnum ConnectionStateNew = 0 + fromEnum ConnectionStateConnecting = 1 + fromEnum ConnectionStateIdle = 2 + fromEnum ConnectionStateInUse = 3 + fromEnum ConnectionStateRemoteDisconnected = 4 + fromEnum ConnectionStateDisconnected = 5 + fromEnum (AnotherConnectionState k) = k + + toEnum 0 = ConnectionStateNew + toEnum 1 = ConnectionStateConnecting + toEnum 2 = ConnectionStateIdle + toEnum 3 = ConnectionStateInUse + toEnum 4 = ConnectionStateRemoteDisconnected + toEnum 5 = ConnectionStateDisconnected + toEnum k = AnotherConnectionState k + +foreign import ccall "soup_connection_state_get_type" c_soup_connection_state_get_type :: + IO GType + +instance BoxedEnum ConnectionState where + boxedEnumType _ = c_soup_connection_state_get_type + +-- object ContentDecoder +newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder) +noContentDecoder :: Maybe ContentDecoder +noContentDecoder = Nothing + +foreign import ccall "soup_content_decoder_get_type" + c_soup_content_decoder_get_type :: IO GType + +type instance ParentTypes ContentDecoder = '[GObject.Object, SessionFeature] + +instance GObject ContentDecoder where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_content_decoder_get_type + + +class GObject o => ContentDecoderK o +instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o + +toContentDecoder :: ContentDecoderK o => o -> IO ContentDecoder +toContentDecoder = unsafeCastTo ContentDecoder + +-- object ContentSniffer +newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer) +noContentSniffer :: Maybe ContentSniffer +noContentSniffer = Nothing + +foreign import ccall "soup_content_sniffer_get_type" + c_soup_content_sniffer_get_type :: IO GType + +type instance ParentTypes ContentSniffer = '[GObject.Object, SessionFeature] + +instance GObject ContentSniffer where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_content_sniffer_get_type + + +class GObject o => ContentSnifferK o +instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o + +toContentSniffer :: ContentSnifferK o => o -> IO ContentSniffer +toContentSniffer = unsafeCastTo ContentSniffer + +-- method ContentSniffer::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "ContentSniffer" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_content_sniffer_new" soup_content_sniffer_new :: + IO (Ptr ContentSniffer) + + +contentSnifferNew :: + (MonadIO m) => + m ContentSniffer +contentSnifferNew = liftIO $ do + result <- soup_content_sniffer_new + checkUnexpectedReturnNULL "soup_content_sniffer_new" result + result' <- (wrapObject ContentSniffer) result + return result' + +-- method ContentSniffer::get_buffer_size +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_content_sniffer_get_buffer_size" soup_content_sniffer_get_buffer_size :: + Ptr ContentSniffer -> -- _obj : TInterface "Soup" "ContentSniffer" + IO Word64 + + +contentSnifferGetBufferSize :: + (MonadIO m, ContentSnifferK a) => + a -> -- _obj + m Word64 +contentSnifferGetBufferSize _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_content_sniffer_get_buffer_size _obj' + touchManagedPtr _obj + return result + +-- method ContentSniffer::sniff +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", 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" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_content_sniffer_sniff" soup_content_sniffer_sniff :: + Ptr ContentSniffer -> -- _obj : TInterface "Soup" "ContentSniffer" + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr Buffer -> -- buffer : TInterface "Soup" "Buffer" + Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8) + IO CString + + +contentSnifferSniff :: + (MonadIO m, ContentSnifferK a, MessageK b) => + a -> -- _obj + b -> -- msg + Buffer -> -- buffer + m (T.Text,(Map.Map T.Text T.Text)) +contentSnifferSniff _obj msg buffer = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + let buffer' = unsafeManagedPtrGetPtr buffer + params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString))) + result <- soup_content_sniffer_sniff _obj' msg' buffer' params + checkUnexpectedReturnNULL "soup_content_sniffer_sniff" result + result' <- cstringToText result + freeMem 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 + touchManagedPtr msg + touchManagedPtr buffer + freeMem params + return (result', params''''''') + +-- struct Cookie +newtype Cookie = Cookie (ForeignPtr Cookie) +noCookie :: Maybe Cookie +noCookie = Nothing + +foreign import ccall "soup_cookie_get_type" c_soup_cookie_get_type :: + IO GType + +instance BoxedObject Cookie where + boxedType _ = c_soup_cookie_get_type + +cookieReadName :: Cookie -> IO T.Text +cookieReadName s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +cookieReadValue :: Cookie -> IO T.Text +cookieReadValue s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +cookieReadDomain :: Cookie -> IO T.Text +cookieReadDomain s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + +cookieReadPath :: Cookie -> IO T.Text +cookieReadPath s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO CString + val' <- cstringToText val + return val' + +cookieReadExpires :: Cookie -> IO Date +cookieReadExpires s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO (Ptr Date) + val' <- (newBoxed Date) val + return val' + +cookieReadSecure :: Cookie -> IO Bool +cookieReadSecure s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO CInt + let val' = (/= 0) val + return val' + +cookieReadHttpOnly :: Cookie -> IO Bool +cookieReadHttpOnly s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 44) :: IO CInt + let val' = (/= 0) val + return val' + +-- method Cookie::new +-- method type : Constructor +-- Args : [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},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [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},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Cookie" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_new" soup_cookie_new :: + CString -> -- name : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + CString -> -- domain : TBasicType TUTF8 + CString -> -- path : TBasicType TUTF8 + Int32 -> -- max_age : TBasicType TInt32 + IO (Ptr Cookie) + + +cookieNew :: + (MonadIO m) => + T.Text -> -- name + T.Text -> -- value + T.Text -> -- domain + T.Text -> -- path + Int32 -> -- max_age + m Cookie +cookieNew name value domain path max_age = liftIO $ do + name' <- textToCString name + value' <- textToCString value + domain' <- textToCString domain + path' <- textToCString path + result <- soup_cookie_new name' value' domain' path' max_age + checkUnexpectedReturnNULL "soup_cookie_new" result + result' <- (wrapBoxed Cookie) result + freeMem name' + freeMem value' + freeMem domain' + freeMem path' + return result' + +-- method Cookie::applies_to_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_applies_to_uri" soup_cookie_applies_to_uri :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + Ptr URI -> -- uri : TInterface "Soup" "URI" + IO CInt + + +cookieAppliesToUri :: + (MonadIO m) => + Cookie -> -- _obj + URI -> -- uri + m Bool +cookieAppliesToUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + result <- soup_cookie_applies_to_uri _obj' uri' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr uri + return result' + +-- method Cookie::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Cookie" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_copy" soup_cookie_copy :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO (Ptr Cookie) + + +cookieCopy :: + (MonadIO m) => + Cookie -> -- _obj + m Cookie +cookieCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_copy _obj' + checkUnexpectedReturnNULL "soup_cookie_copy" result + result' <- (wrapBoxed Cookie) result + touchManagedPtr _obj + return result' + +-- method Cookie::domain_matches +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", 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_cookie_domain_matches" soup_cookie_domain_matches :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + CString -> -- host : TBasicType TUTF8 + IO CInt + + +cookieDomainMatches :: + (MonadIO m) => + Cookie -> -- _obj + T.Text -> -- host + m Bool +cookieDomainMatches _obj host = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + host' <- textToCString host + result <- soup_cookie_domain_matches _obj' host' + let result' = (/= 0) result + touchManagedPtr _obj + freeMem host' + return result' + +-- method Cookie::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_equal" soup_cookie_equal :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + Ptr Cookie -> -- cookie2 : TInterface "Soup" "Cookie" + IO CInt + + +cookieEqual :: + (MonadIO m) => + Cookie -> -- _obj + Cookie -> -- cookie2 + m Bool +cookieEqual _obj cookie2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let cookie2' = unsafeManagedPtrGetPtr cookie2 + result <- soup_cookie_equal _obj' cookie2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr cookie2 + return result' + +-- method Cookie::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_free" soup_cookie_free :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO () + + +cookieFree :: + (MonadIO m) => + Cookie -> -- _obj + m () +cookieFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_cookie_free _obj' + touchManagedPtr _obj + return () + +-- method Cookie::get_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_get_domain" soup_cookie_get_domain :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CString + + +cookieGetDomain :: + (MonadIO m) => + Cookie -> -- _obj + m T.Text +cookieGetDomain _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_get_domain _obj' + checkUnexpectedReturnNULL "soup_cookie_get_domain" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Cookie::get_expires +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_get_expires" soup_cookie_get_expires :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO (Ptr Date) + + +cookieGetExpires :: + (MonadIO m) => + Cookie -> -- _obj + m Date +cookieGetExpires _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_get_expires _obj' + checkUnexpectedReturnNULL "soup_cookie_get_expires" result + result' <- (newBoxed Date) result + touchManagedPtr _obj + return result' + +-- method Cookie::get_http_only +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_get_http_only" soup_cookie_get_http_only :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CInt + + +cookieGetHttpOnly :: + (MonadIO m) => + Cookie -> -- _obj + m Bool +cookieGetHttpOnly _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_get_http_only _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Cookie::get_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_get_name" soup_cookie_get_name :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CString + + +cookieGetName :: + (MonadIO m) => + Cookie -> -- _obj + m T.Text +cookieGetName _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_get_name _obj' + checkUnexpectedReturnNULL "soup_cookie_get_name" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Cookie::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_get_path" soup_cookie_get_path :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CString + + +cookieGetPath :: + (MonadIO m) => + Cookie -> -- _obj + m T.Text +cookieGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_get_path _obj' + checkUnexpectedReturnNULL "soup_cookie_get_path" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Cookie::get_secure +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_get_secure" soup_cookie_get_secure :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CInt + + +cookieGetSecure :: + (MonadIO m) => + Cookie -> -- _obj + m Bool +cookieGetSecure _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_get_secure _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Cookie::get_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_get_value" soup_cookie_get_value :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CString + + +cookieGetValue :: + (MonadIO m) => + Cookie -> -- _obj + m T.Text +cookieGetValue _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_get_value _obj' + checkUnexpectedReturnNULL "soup_cookie_get_value" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Cookie::set_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", 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_cookie_set_domain" soup_cookie_set_domain :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + CString -> -- domain : TBasicType TUTF8 + IO () + + +cookieSetDomain :: + (MonadIO m) => + Cookie -> -- _obj + T.Text -> -- domain + m () +cookieSetDomain _obj domain = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + domain' <- textToCString domain + soup_cookie_set_domain _obj' domain' + touchManagedPtr _obj + freeMem domain' + return () + +-- method Cookie::set_expires +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_set_expires" soup_cookie_set_expires :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + Ptr Date -> -- expires : TInterface "Soup" "Date" + IO () + + +cookieSetExpires :: + (MonadIO m) => + Cookie -> -- _obj + Date -> -- expires + m () +cookieSetExpires _obj expires = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let expires' = unsafeManagedPtrGetPtr expires + soup_cookie_set_expires _obj' expires' + touchManagedPtr _obj + touchManagedPtr expires + return () + +-- method Cookie::set_http_only +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_set_http_only" soup_cookie_set_http_only :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + CInt -> -- http_only : TBasicType TBoolean + IO () + + +cookieSetHttpOnly :: + (MonadIO m) => + Cookie -> -- _obj + Bool -> -- http_only + m () +cookieSetHttpOnly _obj http_only = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let http_only' = (fromIntegral . fromEnum) http_only + soup_cookie_set_http_only _obj' http_only' + touchManagedPtr _obj + return () + +-- method Cookie::set_max_age +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", 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_cookie_set_max_age" soup_cookie_set_max_age :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + Int32 -> -- max_age : TBasicType TInt32 + IO () + + +cookieSetMaxAge :: + (MonadIO m) => + Cookie -> -- _obj + Int32 -> -- max_age + m () +cookieSetMaxAge _obj max_age = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_cookie_set_max_age _obj' max_age + touchManagedPtr _obj + return () + +-- method Cookie::set_name +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", 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" "Cookie", 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_cookie_set_name" soup_cookie_set_name :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + CString -> -- name : TBasicType TUTF8 + IO () + + +cookieSetName :: + (MonadIO m) => + Cookie -> -- _obj + T.Text -> -- name + m () +cookieSetName _obj name = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + name' <- textToCString name + soup_cookie_set_name _obj' name' + touchManagedPtr _obj + freeMem name' + return () + +-- method Cookie::set_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_cookie_set_path" soup_cookie_set_path :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + CString -> -- path : TBasicType TUTF8 + IO () + + +cookieSetPath :: + (MonadIO m) => + Cookie -> -- _obj + T.Text -> -- path + m () +cookieSetPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + path' <- textToCString path + soup_cookie_set_path _obj' path' + touchManagedPtr _obj + freeMem path' + return () + +-- method Cookie::set_secure +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_set_secure" soup_cookie_set_secure :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + CInt -> -- secure : TBasicType TBoolean + IO () + + +cookieSetSecure :: + (MonadIO m) => + Cookie -> -- _obj + Bool -> -- secure + m () +cookieSetSecure _obj secure = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let secure' = (fromIntegral . fromEnum) secure + soup_cookie_set_secure _obj' secure' + touchManagedPtr _obj + return () + +-- method Cookie::set_value +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", 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" "Cookie", 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_cookie_set_value" soup_cookie_set_value :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + CString -> -- value : TBasicType TUTF8 + IO () + + +cookieSetValue :: + (MonadIO m) => + Cookie -> -- _obj + T.Text -> -- value + m () +cookieSetValue _obj value = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + value' <- textToCString value + soup_cookie_set_value _obj' value' + touchManagedPtr _obj + freeMem value' + return () + +-- method Cookie::to_cookie_header +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_to_cookie_header" soup_cookie_to_cookie_header :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CString + + +cookieToCookieHeader :: + (MonadIO m) => + Cookie -> -- _obj + m T.Text +cookieToCookieHeader _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_to_cookie_header _obj' + checkUnexpectedReturnNULL "soup_cookie_to_cookie_header" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method Cookie::to_set_cookie_header +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_to_set_cookie_header" soup_cookie_to_set_cookie_header :: + Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" + IO CString + + +cookieToSetCookieHeader :: + (MonadIO m) => + Cookie -> -- _obj + m T.Text +cookieToSetCookieHeader _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_cookie_to_set_cookie_header _obj' + checkUnexpectedReturnNULL "soup_cookie_to_set_cookie_header" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- object CookieJar +newtype CookieJar = CookieJar (ForeignPtr CookieJar) +noCookieJar :: Maybe CookieJar +noCookieJar = Nothing + +foreign import ccall "soup_cookie_jar_get_type" + c_soup_cookie_jar_get_type :: IO GType + +type instance ParentTypes CookieJar = '[GObject.Object, SessionFeature] + +instance GObject CookieJar where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_cookie_jar_get_type + + +class GObject o => CookieJarK o +instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o + +toCookieJar :: CookieJarK o => o -> IO CookieJar +toCookieJar = unsafeCastTo CookieJar + +-- method CookieJar::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "CookieJar" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_new" soup_cookie_jar_new :: + IO (Ptr CookieJar) + + +cookieJarNew :: + (MonadIO m) => + m CookieJar +cookieJarNew = liftIO $ do + result <- soup_cookie_jar_new + checkUnexpectedReturnNULL "soup_cookie_jar_new" result + result' <- (wrapObject CookieJar) result + return result' + +-- method CookieJar::add_cookie +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_add_cookie" soup_cookie_jar_add_cookie :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + Ptr Cookie -> -- cookie : TInterface "Soup" "Cookie" + IO () + + +cookieJarAddCookie :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + Cookie -> -- cookie + m () +cookieJarAddCookie _obj cookie = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + cookie' <- copyBoxed cookie + soup_cookie_jar_add_cookie _obj' cookie' + touchManagedPtr _obj + touchManagedPtr cookie + return () + +-- method CookieJar::add_cookie_with_first_party +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_add_cookie_with_first_party" soup_cookie_jar_add_cookie_with_first_party :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + Ptr URI -> -- first_party : TInterface "Soup" "URI" + Ptr Cookie -> -- cookie : TInterface "Soup" "Cookie" + IO () + + +cookieJarAddCookieWithFirstParty :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + URI -> -- first_party + Cookie -> -- cookie + m () +cookieJarAddCookieWithFirstParty _obj first_party cookie = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let first_party' = unsafeManagedPtrGetPtr first_party + cookie' <- copyBoxed cookie + soup_cookie_jar_add_cookie_with_first_party _obj' first_party' cookie' + touchManagedPtr _obj + touchManagedPtr first_party + touchManagedPtr cookie + return () + +-- method CookieJar::all_cookies +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Soup" "Cookie") +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_all_cookies" soup_cookie_jar_all_cookies :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + IO (Ptr (GSList (Ptr Cookie))) + + +cookieJarAllCookies :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + m [Cookie] +cookieJarAllCookies _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_cookie_jar_all_cookies _obj' + checkUnexpectedReturnNULL "soup_cookie_jar_all_cookies" result + result' <- unpackGSList result + result'' <- mapM (wrapBoxed Cookie) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +-- method CookieJar::delete_cookie +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_delete_cookie" soup_cookie_jar_delete_cookie :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + Ptr Cookie -> -- cookie : TInterface "Soup" "Cookie" + IO () + + +cookieJarDeleteCookie :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + Cookie -> -- cookie + m () +cookieJarDeleteCookie _obj cookie = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let cookie' = unsafeManagedPtrGetPtr cookie + soup_cookie_jar_delete_cookie _obj' cookie' + touchManagedPtr _obj + touchManagedPtr cookie + return () + +-- method CookieJar::get_accept_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "CookieJarAcceptPolicy" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_get_accept_policy" soup_cookie_jar_get_accept_policy :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + IO CUInt + + +cookieJarGetAcceptPolicy :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + m CookieJarAcceptPolicy +cookieJarGetAcceptPolicy _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_cookie_jar_get_accept_policy _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method CookieJar::get_cookie_list +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Soup" "Cookie") +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_get_cookie_list" soup_cookie_jar_get_cookie_list :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + Ptr URI -> -- uri : TInterface "Soup" "URI" + CInt -> -- for_http : TBasicType TBoolean + IO (Ptr (GSList (Ptr Cookie))) + + +cookieJarGetCookieList :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + URI -> -- uri + Bool -> -- for_http + m [Cookie] +cookieJarGetCookieList _obj uri for_http = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + let for_http' = (fromIntegral . fromEnum) for_http + result <- soup_cookie_jar_get_cookie_list _obj' uri' for_http' + checkUnexpectedReturnNULL "soup_cookie_jar_get_cookie_list" result + result' <- unpackGSList result + result'' <- mapM (wrapBoxed Cookie) result' + g_slist_free result + touchManagedPtr _obj + touchManagedPtr uri + return result'' + +-- method CookieJar::get_cookies +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_get_cookies" soup_cookie_jar_get_cookies :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + Ptr URI -> -- uri : TInterface "Soup" "URI" + CInt -> -- for_http : TBasicType TBoolean + IO CString + + +cookieJarGetCookies :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + URI -> -- uri + Bool -> -- for_http + m T.Text +cookieJarGetCookies _obj uri for_http = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + let for_http' = (fromIntegral . fromEnum) for_http + result <- soup_cookie_jar_get_cookies _obj' uri' for_http' + checkUnexpectedReturnNULL "soup_cookie_jar_get_cookies" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + touchManagedPtr uri + return result' + +-- method CookieJar::is_persistent +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_is_persistent" soup_cookie_jar_is_persistent :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + IO CInt + + +cookieJarIsPersistent :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + m Bool +cookieJarIsPersistent _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_cookie_jar_is_persistent _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method CookieJar::save +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_save" soup_cookie_jar_save :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + IO () + +{-# DEPRECATED cookieJarSave ["This is a no-op."]#-} +cookieJarSave :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + m () +cookieJarSave _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_cookie_jar_save _obj' + touchManagedPtr _obj + return () + +-- method CookieJar::set_accept_policy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_set_accept_policy" soup_cookie_jar_set_accept_policy :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + CUInt -> -- policy : TInterface "Soup" "CookieJarAcceptPolicy" + IO () + + +cookieJarSetAcceptPolicy :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + CookieJarAcceptPolicy -> -- policy + m () +cookieJarSetAcceptPolicy _obj policy = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let policy' = (fromIntegral . fromEnum) policy + soup_cookie_jar_set_accept_policy _obj' policy' + touchManagedPtr _obj + return () + +-- method CookieJar::set_cookie +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", 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_cookie_jar_set_cookie" soup_cookie_jar_set_cookie :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + Ptr URI -> -- uri : TInterface "Soup" "URI" + CString -> -- cookie : TBasicType TUTF8 + IO () + + +cookieJarSetCookie :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + URI -> -- uri + T.Text -> -- cookie + m () +cookieJarSetCookie _obj uri cookie = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + cookie' <- textToCString cookie + soup_cookie_jar_set_cookie _obj' uri' cookie' + touchManagedPtr _obj + touchManagedPtr uri + freeMem cookie' + return () + +-- method CookieJar::set_cookie_with_first_party +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", 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_cookie_jar_set_cookie_with_first_party" soup_cookie_jar_set_cookie_with_first_party :: + Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" + Ptr URI -> -- uri : TInterface "Soup" "URI" + Ptr URI -> -- first_party : TInterface "Soup" "URI" + CString -> -- cookie : TBasicType TUTF8 + IO () + + +cookieJarSetCookieWithFirstParty :: + (MonadIO m, CookieJarK a) => + a -> -- _obj + URI -> -- uri + URI -> -- first_party + T.Text -> -- cookie + m () +cookieJarSetCookieWithFirstParty _obj uri first_party cookie = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + let first_party' = unsafeManagedPtrGetPtr first_party + cookie' <- textToCString cookie + soup_cookie_jar_set_cookie_with_first_party _obj' uri' first_party' cookie' + touchManagedPtr _obj + touchManagedPtr uri + touchManagedPtr first_party + freeMem cookie' + return () + +-- signal CookieJar::changed +type CookieJarChangedCallback = + Cookie -> + Cookie -> + IO () + +noCookieJarChangedCallback :: Maybe CookieJarChangedCallback +noCookieJarChangedCallback = Nothing + +type CookieJarChangedCallbackC = + Ptr () -> -- object + Ptr Cookie -> + Ptr Cookie -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkCookieJarChangedCallback :: CookieJarChangedCallbackC -> IO (FunPtr CookieJarChangedCallbackC) + +cookieJarChangedClosure :: CookieJarChangedCallback -> IO Closure +cookieJarChangedClosure cb = newCClosure =<< mkCookieJarChangedCallback wrapped + where wrapped = cookieJarChangedCallbackWrapper cb + +cookieJarChangedCallbackWrapper :: + CookieJarChangedCallback -> + Ptr () -> + Ptr Cookie -> + Ptr Cookie -> + Ptr () -> + IO () +cookieJarChangedCallbackWrapper _cb _ old_cookie new_cookie _ = do + old_cookie' <- (newBoxed Cookie) old_cookie + new_cookie' <- (newBoxed Cookie) new_cookie + _cb old_cookie' new_cookie' + +onCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId +onCookieJarChanged obj cb = liftIO $ connectCookieJarChanged obj cb SignalConnectBefore +afterCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId +afterCookieJarChanged obj cb = connectCookieJarChanged obj cb SignalConnectAfter + +connectCookieJarChanged :: (GObject a, MonadIO m) => + a -> CookieJarChangedCallback -> SignalConnectMode -> m SignalHandlerId +connectCookieJarChanged obj cb after = liftIO $ do + cb' <- mkCookieJarChangedCallback (cookieJarChangedCallbackWrapper cb) + connectSignalFunPtr obj "changed" cb' after + +-- Enum CookieJarAcceptPolicy + +data CookieJarAcceptPolicy = + CookieJarAcceptPolicyAlways + | CookieJarAcceptPolicyNever + | CookieJarAcceptPolicyNoThirdParty + | AnotherCookieJarAcceptPolicy Int + deriving (Show, Eq) + +instance Enum CookieJarAcceptPolicy where + fromEnum CookieJarAcceptPolicyAlways = 0 + fromEnum CookieJarAcceptPolicyNever = 1 + fromEnum CookieJarAcceptPolicyNoThirdParty = 2 + fromEnum (AnotherCookieJarAcceptPolicy k) = k + + toEnum 0 = CookieJarAcceptPolicyAlways + toEnum 1 = CookieJarAcceptPolicyNever + toEnum 2 = CookieJarAcceptPolicyNoThirdParty + toEnum k = AnotherCookieJarAcceptPolicy k + +foreign import ccall "soup_cookie_jar_accept_policy_get_type" c_soup_cookie_jar_accept_policy_get_type :: + IO GType + +instance BoxedEnum CookieJarAcceptPolicy where + boxedEnumType _ = c_soup_cookie_jar_accept_policy_get_type + +-- object CookieJarDB +newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB) +noCookieJarDB :: Maybe CookieJarDB +noCookieJarDB = Nothing + +foreign import ccall "soup_cookie_jar_db_get_type" + c_soup_cookie_jar_db_get_type :: IO GType + +type instance ParentTypes CookieJarDB = '[CookieJar, GObject.Object, SessionFeature] + +instance GObject CookieJarDB where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_cookie_jar_db_get_type + + +class GObject o => CookieJarDBK o +instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o + +toCookieJarDB :: CookieJarDBK o => o -> IO CookieJarDB +toCookieJarDB = unsafeCastTo CookieJarDB + +-- method CookieJarDB::new +-- method type : Constructor +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "CookieJarDB" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_db_new" soup_cookie_jar_db_new :: + CString -> -- filename : TBasicType TUTF8 + CInt -> -- read_only : TBasicType TBoolean + IO (Ptr CookieJarDB) + + +cookieJarDBNew :: + (MonadIO m) => + T.Text -> -- filename + Bool -> -- read_only + m CookieJarDB +cookieJarDBNew filename read_only = liftIO $ do + filename' <- textToCString filename + let read_only' = (fromIntegral . fromEnum) read_only + result <- soup_cookie_jar_db_new filename' read_only' + checkUnexpectedReturnNULL "soup_cookie_jar_db_new" result + result' <- (wrapObject CookieJarDB) result + freeMem filename' + return result' + +-- object CookieJarText +newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText) +noCookieJarText :: Maybe CookieJarText +noCookieJarText = Nothing + +foreign import ccall "soup_cookie_jar_text_get_type" + c_soup_cookie_jar_text_get_type :: IO GType + +type instance ParentTypes CookieJarText = '[CookieJar, GObject.Object, SessionFeature] + +instance GObject CookieJarText where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_cookie_jar_text_get_type + + +class GObject o => CookieJarTextK o +instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o + +toCookieJarText :: CookieJarTextK o => o -> IO CookieJarText +toCookieJarText = unsafeCastTo CookieJarText + +-- method CookieJarText::new +-- method type : Constructor +-- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "CookieJarText" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_jar_text_new" soup_cookie_jar_text_new :: + CString -> -- filename : TBasicType TUTF8 + CInt -> -- read_only : TBasicType TBoolean + IO (Ptr CookieJarText) + + +cookieJarTextNew :: + (MonadIO m) => + T.Text -> -- filename + Bool -> -- read_only + m CookieJarText +cookieJarTextNew filename read_only = liftIO $ do + filename' <- textToCString filename + let read_only' = (fromIntegral . fromEnum) read_only + result <- soup_cookie_jar_text_new filename' read_only' + checkUnexpectedReturnNULL "soup_cookie_jar_text_new" result + result' <- (wrapObject CookieJarText) result + freeMem filename' + return result' + +-- struct Date +newtype Date = Date (ForeignPtr Date) +noDate :: Maybe Date +noDate = Nothing + +foreign import ccall "soup_date_get_type" c_soup_date_get_type :: + IO GType + +instance BoxedObject Date where + boxedType _ = c_soup_date_get_type + +dateReadYear :: Date -> IO Int32 +dateReadYear s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int32 + return val + +dateReadMonth :: Date -> IO Int32 +dateReadMonth s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 4) :: IO Int32 + return val + +dateReadDay :: Date -> IO Int32 +dateReadDay s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int32 + return val + +dateReadHour :: Date -> IO Int32 +dateReadHour s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 12) :: IO Int32 + return val + +dateReadMinute :: Date -> IO Int32 +dateReadMinute s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO Int32 + return val + +dateReadSecond :: Date -> IO Int32 +dateReadSecond s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 20) :: IO Int32 + return val + +dateReadUtc :: Date -> IO Bool +dateReadUtc s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO CInt + let val' = (/= 0) val + return val' + +dateReadOffset :: Date -> IO Int32 +dateReadOffset s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 28) :: IO Int32 + return val + +-- method Date::new +-- method type : Constructor +-- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_new" soup_date_new :: + Int32 -> -- year : TBasicType TInt32 + Int32 -> -- month : TBasicType TInt32 + Int32 -> -- day : TBasicType TInt32 + Int32 -> -- hour : TBasicType TInt32 + Int32 -> -- minute : TBasicType TInt32 + Int32 -> -- second : TBasicType TInt32 + IO (Ptr Date) + + +dateNew :: + (MonadIO m) => + Int32 -> -- year + Int32 -> -- month + Int32 -> -- day + Int32 -> -- hour + Int32 -> -- minute + Int32 -> -- second + m Date +dateNew year month day hour minute second = liftIO $ do + result <- soup_date_new year month day hour minute second + checkUnexpectedReturnNULL "soup_date_new" result + result' <- (wrapBoxed Date) result + return result' + +-- method Date::new_from_now +-- method type : Constructor +-- Args : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_new_from_now" soup_date_new_from_now :: + Int32 -> -- offset_seconds : TBasicType TInt32 + IO (Ptr Date) + + +dateNewFromNow :: + (MonadIO m) => + Int32 -> -- offset_seconds + m Date +dateNewFromNow offset_seconds = liftIO $ do + result <- soup_date_new_from_now offset_seconds + checkUnexpectedReturnNULL "soup_date_new_from_now" result + result' <- (wrapBoxed Date) result + return result' + +-- method Date::new_from_string +-- method type : Constructor +-- Args : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_new_from_string" soup_date_new_from_string :: + CString -> -- date_string : TBasicType TUTF8 + IO (Ptr Date) + + +dateNewFromString :: + (MonadIO m) => + T.Text -> -- date_string + m Date +dateNewFromString date_string = liftIO $ do + date_string' <- textToCString date_string + result <- soup_date_new_from_string date_string' + checkUnexpectedReturnNULL "soup_date_new_from_string" result + result' <- (wrapBoxed Date) result + freeMem date_string' + return result' + +-- method Date::new_from_time_t +-- method type : Constructor +-- Args : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_new_from_time_t" soup_date_new_from_time_t :: + Int64 -> -- when : TBasicType TInt64 + IO (Ptr Date) + + +dateNewFromTimeT :: + (MonadIO m) => + Int64 -> -- when + m Date +dateNewFromTimeT when_ = liftIO $ do + result <- soup_date_new_from_time_t when_ + checkUnexpectedReturnNULL "soup_date_new_from_time_t" result + result' <- (wrapBoxed Date) result + return result' + +-- method Date::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Date" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_copy" soup_date_copy :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO (Ptr Date) + + +dateCopy :: + (MonadIO m) => + Date -> -- _obj + m Date +dateCopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_copy _obj' + checkUnexpectedReturnNULL "soup_date_copy" result + result' <- (wrapBoxed Date) result + touchManagedPtr _obj + return result' + +-- method Date::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_free" soup_date_free :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO () + + +dateFree :: + (MonadIO m) => + Date -> -- _obj + m () +dateFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_date_free _obj' + touchManagedPtr _obj + return () + +-- method Date::get_day +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_day" soup_date_get_day :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetDay :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetDay _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_day _obj' + touchManagedPtr _obj + return result + +-- method Date::get_hour +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_hour" soup_date_get_hour :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetHour :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetHour _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_hour _obj' + touchManagedPtr _obj + return result + +-- method Date::get_minute +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_minute" soup_date_get_minute :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetMinute :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetMinute _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_minute _obj' + touchManagedPtr _obj + return result + +-- method Date::get_month +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_month" soup_date_get_month :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetMonth :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetMonth _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_month _obj' + touchManagedPtr _obj + return result + +-- method Date::get_offset +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_offset" soup_date_get_offset :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetOffset :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetOffset _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_offset _obj' + touchManagedPtr _obj + return result + +-- method Date::get_second +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_second" soup_date_get_second :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetSecond :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetSecond _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_second _obj' + touchManagedPtr _obj + return result + +-- method Date::get_utc +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_utc" soup_date_get_utc :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetUtc :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetUtc _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_utc _obj' + touchManagedPtr _obj + return result + +-- method Date::get_year +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_get_year" soup_date_get_year :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int32 + + +dateGetYear :: + (MonadIO m) => + Date -> -- _obj + m Int32 +dateGetYear _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_get_year _obj' + touchManagedPtr _obj + return result + +-- method Date::is_past +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_is_past" soup_date_is_past :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO CInt + + +dateIsPast :: + (MonadIO m) => + Date -> -- _obj + m Bool +dateIsPast _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_is_past _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Date::to_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_to_string" soup_date_to_string :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + CUInt -> -- format : TInterface "Soup" "DateFormat" + IO CString + + +dateToString :: + (MonadIO m) => + Date -> -- _obj + DateFormat -> -- format + m T.Text +dateToString _obj format = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let format' = (fromIntegral . fromEnum) format + result <- soup_date_to_string _obj' format' + checkUnexpectedReturnNULL "soup_date_to_string" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method Date::to_time_t +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_to_time_t" soup_date_to_time_t :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + IO Int64 + + +dateToTimeT :: + (MonadIO m) => + Date -> -- _obj + m Int64 +dateToTimeT _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_date_to_time_t _obj' + touchManagedPtr _obj + return result + +-- method Date::to_timeval +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_date_to_timeval" soup_date_to_timeval :: + Ptr Date -> -- _obj : TInterface "Soup" "Date" + Ptr GLib.TimeVal -> -- time : TInterface "GLib" "TimeVal" + IO () + + +dateToTimeval :: + (MonadIO m) => + Date -> -- _obj + m (GLib.TimeVal) +dateToTimeval _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + time <- callocBytes 16 :: IO (Ptr GLib.TimeVal) + soup_date_to_timeval _obj' time + time' <- (wrapPtr GLib.TimeVal) time + touchManagedPtr _obj + return time' + +-- Enum DateFormat + +data DateFormat = + DateFormatHttp + | DateFormatCookie + | DateFormatRfc2822 + | DateFormatIso8601Compact + | DateFormatIso8601Full + | DateFormatIso8601 + | DateFormatIso8601Xmlrpc + | AnotherDateFormat Int + deriving (Show, Eq) + +instance Enum DateFormat where + fromEnum DateFormatHttp = 1 + fromEnum DateFormatCookie = 2 + fromEnum DateFormatRfc2822 = 3 + fromEnum DateFormatIso8601Compact = 4 + fromEnum DateFormatIso8601Full = 5 + fromEnum DateFormatIso8601 = 5 + fromEnum DateFormatIso8601Xmlrpc = 6 + fromEnum (AnotherDateFormat k) = k + + toEnum 1 = DateFormatHttp + toEnum 2 = DateFormatCookie + toEnum 3 = DateFormatRfc2822 + toEnum 4 = DateFormatIso8601Compact + toEnum 5 = DateFormatIso8601Full + toEnum 6 = DateFormatIso8601Xmlrpc + toEnum k = AnotherDateFormat k + +foreign import ccall "soup_date_format_get_type" c_soup_date_format_get_type :: + IO GType + +instance BoxedEnum DateFormat where + boxedEnumType _ = c_soup_date_format_get_type + +-- Enum Encoding + +data Encoding = + EncodingUnrecognized + | EncodingNone + | EncodingContentLength + | EncodingEof + | EncodingChunked + | EncodingByteranges + | AnotherEncoding Int + deriving (Show, Eq) + +instance Enum Encoding where + fromEnum EncodingUnrecognized = 0 + fromEnum EncodingNone = 1 + fromEnum EncodingContentLength = 2 + fromEnum EncodingEof = 3 + fromEnum EncodingChunked = 4 + fromEnum EncodingByteranges = 5 + fromEnum (AnotherEncoding k) = k + + toEnum 0 = EncodingUnrecognized + toEnum 1 = EncodingNone + toEnum 2 = EncodingContentLength + toEnum 3 = EncodingEof + toEnum 4 = EncodingChunked + toEnum 5 = EncodingByteranges + toEnum k = AnotherEncoding k + +foreign import ccall "soup_encoding_get_type" c_soup_encoding_get_type :: + IO GType + +instance BoxedEnum Encoding where + boxedEnumType _ = c_soup_encoding_get_type + +-- Flags Expectation + +data Expectation = + ExpectationUnrecognized + | ExpectationContinue + | AnotherExpectation Int + deriving (Show, Eq) + +instance Enum Expectation where + fromEnum ExpectationUnrecognized = 1 + fromEnum ExpectationContinue = 2 + fromEnum (AnotherExpectation k) = k + + toEnum 1 = ExpectationUnrecognized + toEnum 2 = ExpectationContinue + toEnum k = AnotherExpectation k + +foreign import ccall "soup_expectation_get_type" c_soup_expectation_get_type :: + IO GType + +instance BoxedEnum Expectation where + boxedEnumType _ = c_soup_expectation_get_type + +instance IsGFlag Expectation + +-- Enum HTTPVersion + +data HTTPVersion = + HTTPVersionHttp10 + | HTTPVersionHttp11 + | AnotherHTTPVersion Int + deriving (Show, Eq) + +instance Enum HTTPVersion where + fromEnum HTTPVersionHttp10 = 0 + fromEnum HTTPVersionHttp11 = 1 + fromEnum (AnotherHTTPVersion k) = k + + toEnum 0 = HTTPVersionHttp10 + toEnum 1 = HTTPVersionHttp11 + toEnum k = AnotherHTTPVersion k + +foreign import ccall "soup_http_version_get_type" c_soup_http_version_get_type :: + IO GType + +instance BoxedEnum HTTPVersion where + boxedEnumType _ = c_soup_http_version_get_type + +-- Enum KnownStatusCode + +data KnownStatusCode = + KnownStatusCodeNone + | KnownStatusCodeCancelled + | KnownStatusCodeCantResolve + | KnownStatusCodeCantResolveProxy + | KnownStatusCodeCantConnect + | KnownStatusCodeCantConnectProxy + | KnownStatusCodeSslFailed + | KnownStatusCodeIoError + | KnownStatusCodeMalformed + | KnownStatusCodeTryAgain + | KnownStatusCodeTooManyRedirects + | KnownStatusCodeTlsFailed + | KnownStatusCodeContinue + | KnownStatusCodeSwitchingProtocols + | KnownStatusCodeProcessing + | KnownStatusCodeOk + | KnownStatusCodeCreated + | KnownStatusCodeAccepted + | KnownStatusCodeNonAuthoritative + | KnownStatusCodeNoContent + | KnownStatusCodeResetContent + | KnownStatusCodePartialContent + | KnownStatusCodeMultiStatus + | KnownStatusCodeMultipleChoices + | KnownStatusCodeMovedPermanently + | KnownStatusCodeFound + | KnownStatusCodeMovedTemporarily + | KnownStatusCodeSeeOther + | KnownStatusCodeNotModified + | KnownStatusCodeUseProxy + | KnownStatusCodeNotAppearingInThisProtocol + | KnownStatusCodeTemporaryRedirect + | KnownStatusCodeBadRequest + | KnownStatusCodeUnauthorized + | KnownStatusCodePaymentRequired + | KnownStatusCodeForbidden + | KnownStatusCodeNotFound + | KnownStatusCodeMethodNotAllowed + | KnownStatusCodeNotAcceptable + | KnownStatusCodeProxyAuthenticationRequired + | KnownStatusCodeProxyUnauthorized + | KnownStatusCodeRequestTimeout + | KnownStatusCodeConflict + | KnownStatusCodeGone + | KnownStatusCodeLengthRequired + | KnownStatusCodePreconditionFailed + | KnownStatusCodeRequestEntityTooLarge + | KnownStatusCodeRequestUriTooLong + | KnownStatusCodeUnsupportedMediaType + | KnownStatusCodeRequestedRangeNotSatisfiable + | KnownStatusCodeInvalidRange + | KnownStatusCodeExpectationFailed + | KnownStatusCodeUnprocessableEntity + | KnownStatusCodeLocked + | KnownStatusCodeFailedDependency + | KnownStatusCodeInternalServerError + | KnownStatusCodeNotImplemented + | KnownStatusCodeBadGateway + | KnownStatusCodeServiceUnavailable + | KnownStatusCodeGatewayTimeout + | KnownStatusCodeHttpVersionNotSupported + | KnownStatusCodeInsufficientStorage + | KnownStatusCodeNotExtended + | AnotherKnownStatusCode Int + deriving (Show, Eq) + +instance Enum KnownStatusCode where + fromEnum KnownStatusCodeNone = 0 + fromEnum KnownStatusCodeCancelled = 1 + fromEnum KnownStatusCodeCantResolve = 2 + fromEnum KnownStatusCodeCantResolveProxy = 3 + fromEnum KnownStatusCodeCantConnect = 4 + fromEnum KnownStatusCodeCantConnectProxy = 5 + fromEnum KnownStatusCodeSslFailed = 6 + fromEnum KnownStatusCodeIoError = 7 + fromEnum KnownStatusCodeMalformed = 8 + fromEnum KnownStatusCodeTryAgain = 9 + fromEnum KnownStatusCodeTooManyRedirects = 10 + fromEnum KnownStatusCodeTlsFailed = 11 + fromEnum KnownStatusCodeContinue = 100 + fromEnum KnownStatusCodeSwitchingProtocols = 101 + fromEnum KnownStatusCodeProcessing = 102 + fromEnum KnownStatusCodeOk = 200 + fromEnum KnownStatusCodeCreated = 201 + fromEnum KnownStatusCodeAccepted = 202 + fromEnum KnownStatusCodeNonAuthoritative = 203 + fromEnum KnownStatusCodeNoContent = 204 + fromEnum KnownStatusCodeResetContent = 205 + fromEnum KnownStatusCodePartialContent = 206 + fromEnum KnownStatusCodeMultiStatus = 207 + fromEnum KnownStatusCodeMultipleChoices = 300 + fromEnum KnownStatusCodeMovedPermanently = 301 + fromEnum KnownStatusCodeFound = 302 + fromEnum KnownStatusCodeMovedTemporarily = 302 + fromEnum KnownStatusCodeSeeOther = 303 + fromEnum KnownStatusCodeNotModified = 304 + fromEnum KnownStatusCodeUseProxy = 305 + fromEnum KnownStatusCodeNotAppearingInThisProtocol = 306 + fromEnum KnownStatusCodeTemporaryRedirect = 307 + fromEnum KnownStatusCodeBadRequest = 400 + fromEnum KnownStatusCodeUnauthorized = 401 + fromEnum KnownStatusCodePaymentRequired = 402 + fromEnum KnownStatusCodeForbidden = 403 + fromEnum KnownStatusCodeNotFound = 404 + fromEnum KnownStatusCodeMethodNotAllowed = 405 + fromEnum KnownStatusCodeNotAcceptable = 406 + fromEnum KnownStatusCodeProxyAuthenticationRequired = 407 + fromEnum KnownStatusCodeProxyUnauthorized = 407 + fromEnum KnownStatusCodeRequestTimeout = 408 + fromEnum KnownStatusCodeConflict = 409 + fromEnum KnownStatusCodeGone = 410 + fromEnum KnownStatusCodeLengthRequired = 411 + fromEnum KnownStatusCodePreconditionFailed = 412 + fromEnum KnownStatusCodeRequestEntityTooLarge = 413 + fromEnum KnownStatusCodeRequestUriTooLong = 414 + fromEnum KnownStatusCodeUnsupportedMediaType = 415 + fromEnum KnownStatusCodeRequestedRangeNotSatisfiable = 416 + fromEnum KnownStatusCodeInvalidRange = 416 + fromEnum KnownStatusCodeExpectationFailed = 417 + fromEnum KnownStatusCodeUnprocessableEntity = 422 + fromEnum KnownStatusCodeLocked = 423 + fromEnum KnownStatusCodeFailedDependency = 424 + fromEnum KnownStatusCodeInternalServerError = 500 + fromEnum KnownStatusCodeNotImplemented = 501 + fromEnum KnownStatusCodeBadGateway = 502 + fromEnum KnownStatusCodeServiceUnavailable = 503 + fromEnum KnownStatusCodeGatewayTimeout = 504 + fromEnum KnownStatusCodeHttpVersionNotSupported = 505 + fromEnum KnownStatusCodeInsufficientStorage = 507 + fromEnum KnownStatusCodeNotExtended = 510 + fromEnum (AnotherKnownStatusCode k) = k + + toEnum 0 = KnownStatusCodeNone + toEnum 1 = KnownStatusCodeCancelled + toEnum 2 = KnownStatusCodeCantResolve + toEnum 3 = KnownStatusCodeCantResolveProxy + toEnum 4 = KnownStatusCodeCantConnect + toEnum 5 = KnownStatusCodeCantConnectProxy + toEnum 6 = KnownStatusCodeSslFailed + toEnum 7 = KnownStatusCodeIoError + toEnum 8 = KnownStatusCodeMalformed + toEnum 9 = KnownStatusCodeTryAgain + toEnum 10 = KnownStatusCodeTooManyRedirects + toEnum 11 = KnownStatusCodeTlsFailed + toEnum 100 = KnownStatusCodeContinue + toEnum 101 = KnownStatusCodeSwitchingProtocols + toEnum 102 = KnownStatusCodeProcessing + toEnum 200 = KnownStatusCodeOk + toEnum 201 = KnownStatusCodeCreated + toEnum 202 = KnownStatusCodeAccepted + toEnum 203 = KnownStatusCodeNonAuthoritative + toEnum 204 = KnownStatusCodeNoContent + toEnum 205 = KnownStatusCodeResetContent + toEnum 206 = KnownStatusCodePartialContent + toEnum 207 = KnownStatusCodeMultiStatus + toEnum 300 = KnownStatusCodeMultipleChoices + toEnum 301 = KnownStatusCodeMovedPermanently + toEnum 302 = KnownStatusCodeFound + toEnum 303 = KnownStatusCodeSeeOther + toEnum 304 = KnownStatusCodeNotModified + toEnum 305 = KnownStatusCodeUseProxy + toEnum 306 = KnownStatusCodeNotAppearingInThisProtocol + toEnum 307 = KnownStatusCodeTemporaryRedirect + toEnum 400 = KnownStatusCodeBadRequest + toEnum 401 = KnownStatusCodeUnauthorized + toEnum 402 = KnownStatusCodePaymentRequired + toEnum 403 = KnownStatusCodeForbidden + toEnum 404 = KnownStatusCodeNotFound + toEnum 405 = KnownStatusCodeMethodNotAllowed + toEnum 406 = KnownStatusCodeNotAcceptable + toEnum 407 = KnownStatusCodeProxyAuthenticationRequired + toEnum 408 = KnownStatusCodeRequestTimeout + toEnum 409 = KnownStatusCodeConflict + toEnum 410 = KnownStatusCodeGone + toEnum 411 = KnownStatusCodeLengthRequired + toEnum 412 = KnownStatusCodePreconditionFailed + toEnum 413 = KnownStatusCodeRequestEntityTooLarge + toEnum 414 = KnownStatusCodeRequestUriTooLong + toEnum 415 = KnownStatusCodeUnsupportedMediaType + toEnum 416 = KnownStatusCodeRequestedRangeNotSatisfiable + toEnum 417 = KnownStatusCodeExpectationFailed + toEnum 422 = KnownStatusCodeUnprocessableEntity + toEnum 423 = KnownStatusCodeLocked + toEnum 424 = KnownStatusCodeFailedDependency + toEnum 500 = KnownStatusCodeInternalServerError + toEnum 501 = KnownStatusCodeNotImplemented + toEnum 502 = KnownStatusCodeBadGateway + toEnum 503 = KnownStatusCodeServiceUnavailable + toEnum 504 = KnownStatusCodeGatewayTimeout + toEnum 505 = KnownStatusCodeHttpVersionNotSupported + toEnum 507 = KnownStatusCodeInsufficientStorage + toEnum 510 = KnownStatusCodeNotExtended + toEnum k = AnotherKnownStatusCode k + +foreign import ccall "soup_known_status_code_get_type" c_soup_known_status_code_get_type :: + IO GType + +instance BoxedEnum KnownStatusCode where + boxedEnumType _ = c_soup_known_status_code_get_type + +-- object Logger +newtype Logger = Logger (ForeignPtr Logger) +noLogger :: Maybe Logger +noLogger = Nothing + +foreign import ccall "soup_logger_get_type" + c_soup_logger_get_type :: IO GType + +type instance ParentTypes Logger = '[GObject.Object, SessionFeature] + +instance GObject Logger where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_logger_get_type + + +class GObject o => LoggerK o +instance (GObject o, IsDescendantOf Logger o) => LoggerK o + +toLogger :: LoggerK o => o -> IO Logger +toLogger = unsafeCastTo Logger + +-- method Logger::new +-- method type : Constructor +-- Args : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Logger" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_logger_new" soup_logger_new :: + CUInt -> -- level : TInterface "Soup" "LoggerLogLevel" + Int32 -> -- max_body_size : TBasicType TInt32 + IO (Ptr Logger) + + +loggerNew :: + (MonadIO m) => + LoggerLogLevel -> -- level + Int32 -> -- max_body_size + m Logger +loggerNew level max_body_size = liftIO $ do + let level' = (fromIntegral . fromEnum) level + result <- soup_logger_new level' max_body_size + checkUnexpectedReturnNULL "soup_logger_new" result + result' <- (wrapObject Logger) result + return result' + +-- method Logger::attach +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_logger_attach" soup_logger_attach :: + Ptr Logger -> -- _obj : TInterface "Soup" "Logger" + Ptr Session -> -- session : TInterface "Soup" "Session" + IO () + +{-# DEPRECATED loggerAttach ["Use soup_session_add_feature() instead."]#-} +loggerAttach :: + (MonadIO m, LoggerK a, SessionK b) => + a -> -- _obj + b -> -- session + m () +loggerAttach _obj session = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let session' = unsafeManagedPtrCastPtr session + soup_logger_attach _obj' session' + touchManagedPtr _obj + touchManagedPtr session + return () + +-- method Logger::detach +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_logger_detach" soup_logger_detach :: + Ptr Logger -> -- _obj : TInterface "Soup" "Logger" + Ptr Session -> -- session : TInterface "Soup" "Session" + IO () + +{-# DEPRECATED loggerDetach ["Use soup_session_remove_feature() instead."]#-} +loggerDetach :: + (MonadIO m, LoggerK a, SessionK b) => + a -> -- _obj + b -> -- session + m () +loggerDetach _obj session = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let session' = unsafeManagedPtrCastPtr session + soup_logger_detach _obj' session' + touchManagedPtr _obj + touchManagedPtr session + return () + +-- method Logger::set_printer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "printer_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_logger_set_printer" soup_logger_set_printer :: + Ptr Logger -> -- _obj : TInterface "Soup" "Logger" + FunPtr LoggerPrinterC -> -- printer : TInterface "Soup" "LoggerPrinter" + Ptr () -> -- printer_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +loggerSetPrinter :: + (MonadIO m, LoggerK a) => + a -> -- _obj + LoggerPrinter -> -- printer + m () +loggerSetPrinter _obj printer = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + printer' <- mkLoggerPrinter (loggerPrinterWrapper Nothing printer) + let printer_data = castFunPtrToPtr printer' + let destroy = safeFreeFunPtrPtr + soup_logger_set_printer _obj' printer' printer_data destroy + touchManagedPtr _obj + return () + +-- method Logger::set_request_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_logger_set_request_filter" soup_logger_set_request_filter :: + Ptr Logger -> -- _obj : TInterface "Soup" "Logger" + FunPtr LoggerFilterC -> -- request_filter : TInterface "Soup" "LoggerFilter" + Ptr () -> -- filter_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +loggerSetRequestFilter :: + (MonadIO m, LoggerK a) => + a -> -- _obj + LoggerFilter -> -- request_filter + m () +loggerSetRequestFilter _obj request_filter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + request_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing request_filter) + let filter_data = castFunPtrToPtr request_filter' + let destroy = safeFreeFunPtrPtr + soup_logger_set_request_filter _obj' request_filter' filter_data destroy + touchManagedPtr _obj + return () + +-- method Logger::set_response_filter +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_logger_set_response_filter" soup_logger_set_response_filter :: + Ptr Logger -> -- _obj : TInterface "Soup" "Logger" + FunPtr LoggerFilterC -> -- response_filter : TInterface "Soup" "LoggerFilter" + Ptr () -> -- filter_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +loggerSetResponseFilter :: + (MonadIO m, LoggerK a) => + a -> -- _obj + LoggerFilter -> -- response_filter + m () +loggerSetResponseFilter _obj response_filter = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + response_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing response_filter) + let filter_data = castFunPtrToPtr response_filter' + let destroy = safeFreeFunPtrPtr + soup_logger_set_response_filter _obj' response_filter' filter_data destroy + touchManagedPtr _obj + return () + +-- callback LoggerFilter +loggerFilterClosure :: LoggerFilter -> IO Closure +loggerFilterClosure cb = newCClosure =<< mkLoggerFilter wrapped + where wrapped = loggerFilterWrapper Nothing cb + +type LoggerFilterC = + Ptr Logger -> + Ptr Message -> + Ptr () -> + IO CUInt + +foreign import ccall "wrapper" + mkLoggerFilter :: LoggerFilterC -> IO (FunPtr LoggerFilterC) + +type LoggerFilter = + Logger -> + Message -> + IO LoggerLogLevel + +noLoggerFilter :: Maybe LoggerFilter +noLoggerFilter = Nothing + +loggerFilterWrapper :: + Maybe (Ptr (FunPtr (LoggerFilterC))) -> + LoggerFilter -> + Ptr Logger -> + Ptr Message -> + Ptr () -> + IO CUInt +loggerFilterWrapper funptrptr _cb logger msg _ = do + logger' <- (newObject Logger) logger + msg' <- (newObject Message) msg + result <- _cb logger' msg' + maybeReleaseFunPtr funptrptr + let result' = (fromIntegral . fromEnum) result + return result' + +-- Enum LoggerLogLevel + +data LoggerLogLevel = + LoggerLogLevelNone + | LoggerLogLevelMinimal + | LoggerLogLevelHeaders + | LoggerLogLevelBody + | AnotherLoggerLogLevel Int + deriving (Show, Eq) + +instance Enum LoggerLogLevel where + fromEnum LoggerLogLevelNone = 0 + fromEnum LoggerLogLevelMinimal = 1 + fromEnum LoggerLogLevelHeaders = 2 + fromEnum LoggerLogLevelBody = 3 + fromEnum (AnotherLoggerLogLevel k) = k + + toEnum 0 = LoggerLogLevelNone + toEnum 1 = LoggerLogLevelMinimal + toEnum 2 = LoggerLogLevelHeaders + toEnum 3 = LoggerLogLevelBody + toEnum k = AnotherLoggerLogLevel k + +foreign import ccall "soup_logger_log_level_get_type" c_soup_logger_log_level_get_type :: + IO GType + +instance BoxedEnum LoggerLogLevel where + boxedEnumType _ = c_soup_logger_log_level_get_type + +-- callback LoggerPrinter +loggerPrinterClosure :: LoggerPrinter -> IO Closure +loggerPrinterClosure cb = newCClosure =<< mkLoggerPrinter wrapped + where wrapped = loggerPrinterWrapper Nothing cb + +type LoggerPrinterC = + Ptr Logger -> + CUInt -> + Int8 -> + CString -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkLoggerPrinter :: LoggerPrinterC -> IO (FunPtr LoggerPrinterC) + +type LoggerPrinter = + Logger -> + LoggerLogLevel -> + Int8 -> + T.Text -> + IO () + +noLoggerPrinter :: Maybe LoggerPrinter +noLoggerPrinter = Nothing + +loggerPrinterWrapper :: + Maybe (Ptr (FunPtr (LoggerPrinterC))) -> + LoggerPrinter -> + Ptr Logger -> + CUInt -> + Int8 -> + CString -> + Ptr () -> + IO () +loggerPrinterWrapper funptrptr _cb logger level direction data_ _ = do + logger' <- (newObject Logger) logger + let level' = (toEnum . fromIntegral) level + data_' <- cstringToText data_ + _cb logger' level' direction data_' + maybeReleaseFunPtr funptrptr + +-- Enum MemoryUse + +data MemoryUse = + MemoryUseStatic + | MemoryUseTake + | MemoryUseCopy + | MemoryUseTemporary + | AnotherMemoryUse Int + deriving (Show, Eq) + +instance Enum MemoryUse where + fromEnum MemoryUseStatic = 0 + fromEnum MemoryUseTake = 1 + fromEnum MemoryUseCopy = 2 + fromEnum MemoryUseTemporary = 3 + fromEnum (AnotherMemoryUse k) = k + + toEnum 0 = MemoryUseStatic + toEnum 1 = MemoryUseTake + toEnum 2 = MemoryUseCopy + toEnum 3 = MemoryUseTemporary + toEnum k = AnotherMemoryUse k + +foreign import ccall "soup_memory_use_get_type" c_soup_memory_use_get_type :: + IO GType + +instance BoxedEnum MemoryUse where + boxedEnumType _ = c_soup_memory_use_get_type + +-- object Message +newtype Message = Message (ForeignPtr Message) +noMessage :: Maybe Message +noMessage = Nothing + +foreign import ccall "soup_message_get_type" + c_soup_message_get_type :: IO GType + +type instance ParentTypes Message = '[GObject.Object] + +instance GObject Message where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_message_get_type + + +class GObject o => MessageK o +instance (GObject o, IsDescendantOf Message o) => MessageK o + +toMessage :: MessageK o => o -> IO Message +toMessage = unsafeCastTo Message + +-- method Message::new +-- method type : Constructor +-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_new" soup_message_new :: + CString -> -- method : TBasicType TUTF8 + CString -> -- uri_string : TBasicType TUTF8 + IO (Ptr Message) + + +messageNew :: + (MonadIO m) => + T.Text -> -- method + T.Text -> -- uri_string + m Message +messageNew method uri_string = liftIO $ do + method' <- textToCString method + uri_string' <- textToCString uri_string + result <- soup_message_new method' uri_string' + checkUnexpectedReturnNULL "soup_message_new" result + result' <- (wrapObject Message) result + freeMem method' + freeMem uri_string' + return result' + +-- method Message::new_from_uri +-- method type : Constructor +-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_new_from_uri" soup_message_new_from_uri :: + CString -> -- method : TBasicType TUTF8 + Ptr URI -> -- uri : TInterface "Soup" "URI" + IO (Ptr Message) + + +messageNewFromUri :: + (MonadIO m) => + T.Text -> -- method + URI -> -- uri + m Message +messageNewFromUri method uri = liftIO $ do + method' <- textToCString method + let uri' = unsafeManagedPtrGetPtr uri + result <- soup_message_new_from_uri method' uri' + checkUnexpectedReturnNULL "soup_message_new_from_uri" result + result' <- (wrapObject Message) result + touchManagedPtr uri + freeMem method' + return result' + +-- method Message::content_sniffed +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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 TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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 TVoid) (TBasicType TVoid), 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_content_sniffed" soup_message_content_sniffed :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + CString -> -- content_type : TBasicType TUTF8 + Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- params : TGHash (TBasicType TVoid) (TBasicType TVoid) + IO () + + +messageContentSniffed :: + (MonadIO m, MessageK a) => + a -> -- _obj + T.Text -> -- content_type + Map.Map (Ptr ()) (Ptr ()) -> -- params + m () +messageContentSniffed _obj content_type params = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + content_type' <- textToCString content_type + let params' = Map.toList params + let params'' = mapFirst ptrPackPtr params' + let params''' = mapSecond ptrPackPtr params'' + params'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing params''' + soup_message_content_sniffed _obj' content_type' params'''' + touchManagedPtr _obj + freeMem content_type' + unrefGHashTable params'''' + return () + +-- method Message::disable_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, 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_disable_feature" soup_message_disable_feature :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + CGType -> -- feature_type : TBasicType TGType + IO () + + +messageDisableFeature :: + (MonadIO m, MessageK a) => + a -> -- _obj + GType -> -- feature_type + m () +messageDisableFeature _obj feature_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature_type' = gtypeToCGType feature_type + soup_message_disable_feature _obj' feature_type' + touchManagedPtr _obj + return () + +-- method Message::finished +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_finished" soup_message_finished :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageFinished :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageFinished _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_finished _obj' + touchManagedPtr _obj + return () + +-- method Message::get_address +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Address" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_get_address" soup_message_get_address :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO (Ptr Address) + + +messageGetAddress :: + (MonadIO m, MessageK a) => + a -> -- _obj + m Address +messageGetAddress _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_get_address _obj' + checkUnexpectedReturnNULL "soup_message_get_address" result + result' <- (newObject Address) result + touchManagedPtr _obj + return result' + +-- method Message::get_first_party +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_get_first_party" soup_message_get_first_party :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO (Ptr URI) + + +messageGetFirstParty :: + (MonadIO m, MessageK a) => + a -> -- _obj + m URI +messageGetFirstParty _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_get_first_party _obj' + checkUnexpectedReturnNULL "soup_message_get_first_party" result + result' <- (newBoxed URI) result + touchManagedPtr _obj + return result' + +-- method Message::get_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "MessageFlags" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_get_flags" soup_message_get_flags :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO CUInt + + +messageGetFlags :: + (MonadIO m, MessageK a) => + a -> -- _obj + m [MessageFlags] +messageGetFlags _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_get_flags _obj' + let result' = wordToGFlags result + touchManagedPtr _obj + return result' + +-- method Message::get_http_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "HTTPVersion" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_get_http_version" soup_message_get_http_version :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO CUInt + + +messageGetHttpVersion :: + (MonadIO m, MessageK a) => + a -> -- _obj + m HTTPVersion +messageGetHttpVersion _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_get_http_version _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Message::get_https_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_get_https_status" soup_message_get_https_status :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Ptr (Ptr Gio.TlsCertificate) -> -- certificate : TInterface "Gio" "TlsCertificate" + Ptr CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags" + IO CInt + + +messageGetHttpsStatus :: + (MonadIO m, MessageK a) => + a -> -- _obj + m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags]) +messageGetHttpsStatus _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate)) + errors <- allocMem :: IO (Ptr CUInt) + result <- soup_message_get_https_status _obj' certificate errors + let result' = (/= 0) result + certificate' <- peek certificate + certificate'' <- (newObject Gio.TlsCertificate) certificate' + errors' <- peek errors + let errors'' = wordToGFlags errors' + touchManagedPtr _obj + freeMem certificate + freeMem errors + return (result', certificate'', errors'') + +-- method Message::get_priority +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "MessagePriority" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_get_priority" soup_message_get_priority :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO CUInt + + +messageGetPriority :: + (MonadIO m, MessageK a) => + a -> -- _obj + m MessagePriority +messageGetPriority _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_get_priority _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method Message::get_soup_request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Request" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_get_soup_request" soup_message_get_soup_request :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO (Ptr Request) + + +messageGetSoupRequest :: + (MonadIO m, MessageK a) => + a -> -- _obj + m Request +messageGetSoupRequest _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_get_soup_request _obj' + checkUnexpectedReturnNULL "soup_message_get_soup_request" result + result' <- (newObject Request) result + touchManagedPtr _obj + return result' + +-- method Message::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_get_uri" soup_message_get_uri :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO (Ptr URI) + + +messageGetUri :: + (MonadIO m, MessageK a) => + a -> -- _obj + m URI +messageGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_get_uri _obj' + checkUnexpectedReturnNULL "soup_message_get_uri" result + result' <- (newBoxed URI) result + touchManagedPtr _obj + return result' + +-- method Message::got_body +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_got_body" soup_message_got_body :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageGotBody :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageGotBody _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_got_body _obj' + touchManagedPtr _obj + return () + +-- method Message::got_chunk +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_got_chunk" soup_message_got_chunk :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" + IO () + + +messageGotChunk :: + (MonadIO m, MessageK a) => + a -> -- _obj + Buffer -> -- chunk + m () +messageGotChunk _obj chunk = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let chunk' = unsafeManagedPtrGetPtr chunk + soup_message_got_chunk _obj' chunk' + touchManagedPtr _obj + touchManagedPtr chunk + return () + +-- method Message::got_headers +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_got_headers" soup_message_got_headers :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageGotHeaders :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageGotHeaders _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_got_headers _obj' + touchManagedPtr _obj + return () + +-- method Message::got_informational +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_got_informational" soup_message_got_informational :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageGotInformational :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageGotInformational _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_got_informational _obj' + touchManagedPtr _obj + return () + +-- method Message::is_keepalive +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_is_keepalive" soup_message_is_keepalive :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO CInt + + +messageIsKeepalive :: + (MonadIO m, MessageK a) => + a -> -- _obj + m Bool +messageIsKeepalive _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_message_is_keepalive _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Message::restarted +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_restarted" soup_message_restarted :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageRestarted :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageRestarted _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_restarted _obj' + touchManagedPtr _obj + return () + +-- method Message::set_chunk_allocator +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_set_chunk_allocator" soup_message_set_chunk_allocator :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + FunPtr ChunkAllocatorC -> -- allocator : TInterface "Soup" "ChunkAllocator" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" + IO () + +{-# DEPRECATED messageSetChunkAllocator ["#SoupRequest provides a much simpler API that lets you","read the response directly into your own buffers without needing to","mess with callbacks, pausing/unpausing, etc."]#-} +messageSetChunkAllocator :: + (MonadIO m, MessageK a) => + a -> -- _obj + ChunkAllocator -> -- allocator + m () +messageSetChunkAllocator _obj allocator = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + allocator' <- mkChunkAllocator (chunkAllocatorWrapper Nothing allocator) + let user_data = castFunPtrToPtr allocator' + let destroy_notify = safeFreeFunPtrPtr + soup_message_set_chunk_allocator _obj' allocator' user_data destroy_notify + touchManagedPtr _obj + return () + +-- method Message::set_first_party +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", 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_set_first_party" soup_message_set_first_party :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Ptr URI -> -- first_party : TInterface "Soup" "URI" + IO () + + +messageSetFirstParty :: + (MonadIO m, MessageK a) => + a -> -- _obj + URI -> -- first_party + m () +messageSetFirstParty _obj first_party = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let first_party' = unsafeManagedPtrGetPtr first_party + soup_message_set_first_party _obj' first_party' + touchManagedPtr _obj + touchManagedPtr first_party + return () + +-- method Message::set_flags +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", 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_set_flags" soup_message_set_flags :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + CUInt -> -- flags : TInterface "Soup" "MessageFlags" + IO () + + +messageSetFlags :: + (MonadIO m, MessageK a) => + a -> -- _obj + [MessageFlags] -> -- flags + m () +messageSetFlags _obj flags = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let flags' = gflagsToWord flags + soup_message_set_flags _obj' flags' + touchManagedPtr _obj + return () + +-- method Message::set_http_version +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", 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_set_http_version" soup_message_set_http_version :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + CUInt -> -- version : TInterface "Soup" "HTTPVersion" + IO () + + +messageSetHttpVersion :: + (MonadIO m, MessageK a) => + a -> -- _obj + HTTPVersion -> -- version + m () +messageSetHttpVersion _obj version = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let version' = (fromIntegral . fromEnum) version + soup_message_set_http_version _obj' version' + touchManagedPtr _obj + return () + +-- method Message::set_priority +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", 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_set_priority" soup_message_set_priority :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + CUInt -> -- priority : TInterface "Soup" "MessagePriority" + IO () + + +messageSetPriority :: + (MonadIO m, MessageK a) => + a -> -- _obj + MessagePriority -> -- priority + m () +messageSetPriority _obj priority = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let priority' = (fromIntegral . fromEnum) priority + soup_message_set_priority _obj' priority' + touchManagedPtr _obj + return () + +-- method Message::set_redirect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", 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_set_redirect" soup_message_set_redirect :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Word32 -> -- status_code : TBasicType TUInt32 + CString -> -- redirect_uri : TBasicType TUTF8 + IO () + + +messageSetRedirect :: + (MonadIO m, MessageK a) => + a -> -- _obj + Word32 -> -- status_code + T.Text -> -- redirect_uri + m () +messageSetRedirect _obj status_code redirect_uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + redirect_uri' <- textToCString redirect_uri + soup_message_set_redirect _obj' status_code redirect_uri' + touchManagedPtr _obj + freeMem redirect_uri' + return () + +-- method Message::set_request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), 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_set_request" soup_message_set_request :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + CString -> -- content_type : TBasicType TUTF8 + CUInt -> -- req_use : TInterface "Soup" "MemoryUse" + Ptr Word8 -> -- req_body : TCArray False (-1) 4 (TBasicType TUInt8) + Word64 -> -- req_length : TBasicType TUInt64 + IO () + + +messageSetRequest :: + (MonadIO m, MessageK a) => + a -> -- _obj + Maybe (T.Text) -> -- content_type + MemoryUse -> -- req_use + Maybe (ByteString) -> -- req_body + m () +messageSetRequest _obj content_type req_use req_body = liftIO $ do + let req_length = case req_body of + Nothing -> 0 + Just jReq_body -> fromIntegral $ B.length jReq_body + let _obj' = unsafeManagedPtrCastPtr _obj + maybeContent_type <- case content_type of + Nothing -> return nullPtr + Just jContent_type -> do + jContent_type' <- textToCString jContent_type + return jContent_type' + let req_use' = (fromIntegral . fromEnum) req_use + maybeReq_body <- case req_body of + Nothing -> return nullPtr + Just jReq_body -> do + jReq_body' <- packByteString jReq_body + return jReq_body' + soup_message_set_request _obj' maybeContent_type req_use' maybeReq_body req_length + touchManagedPtr _obj + freeMem maybeContent_type + freeMem maybeReq_body + return () + +-- method Message::set_response +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), 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_set_response" soup_message_set_response :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + CString -> -- content_type : TBasicType TUTF8 + CUInt -> -- resp_use : TInterface "Soup" "MemoryUse" + Ptr Word8 -> -- resp_body : TCArray False (-1) 4 (TBasicType TUInt8) + Word64 -> -- resp_length : TBasicType TUInt64 + IO () + + +messageSetResponse :: + (MonadIO m, MessageK a) => + a -> -- _obj + Maybe (T.Text) -> -- content_type + MemoryUse -> -- resp_use + Maybe (ByteString) -> -- resp_body + m () +messageSetResponse _obj content_type resp_use resp_body = liftIO $ do + let resp_length = case resp_body of + Nothing -> 0 + Just jResp_body -> fromIntegral $ B.length jResp_body + let _obj' = unsafeManagedPtrCastPtr _obj + maybeContent_type <- case content_type of + Nothing -> return nullPtr + Just jContent_type -> do + jContent_type' <- textToCString jContent_type + return jContent_type' + let resp_use' = (fromIntegral . fromEnum) resp_use + maybeResp_body <- case resp_body of + Nothing -> return nullPtr + Just jResp_body -> do + jResp_body' <- packByteString jResp_body + return jResp_body' + soup_message_set_response _obj' maybeContent_type resp_use' maybeResp_body resp_length + touchManagedPtr _obj + freeMem maybeContent_type + freeMem maybeResp_body + return () + +-- method Message::set_status +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, 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_set_status" soup_message_set_status :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Word32 -> -- status_code : TBasicType TUInt32 + IO () + + +messageSetStatus :: + (MonadIO m, MessageK a) => + a -> -- _obj + Word32 -> -- status_code + m () +messageSetStatus _obj status_code = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_set_status _obj' status_code + touchManagedPtr _obj + return () + +-- method Message::set_status_full +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", 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_set_status_full" soup_message_set_status_full :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Word32 -> -- status_code : TBasicType TUInt32 + CString -> -- reason_phrase : TBasicType TUTF8 + IO () + + +messageSetStatusFull :: + (MonadIO m, MessageK a) => + a -> -- _obj + Word32 -> -- status_code + T.Text -> -- reason_phrase + m () +messageSetStatusFull _obj status_code reason_phrase = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + reason_phrase' <- textToCString reason_phrase + soup_message_set_status_full _obj' status_code reason_phrase' + touchManagedPtr _obj + freeMem reason_phrase' + return () + +-- method Message::set_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", 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_set_uri" soup_message_set_uri :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Ptr URI -> -- uri : TInterface "Soup" "URI" + IO () + + +messageSetUri :: + (MonadIO m, MessageK a) => + a -> -- _obj + URI -> -- uri + m () +messageSetUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + soup_message_set_uri _obj' uri' + touchManagedPtr _obj + touchManagedPtr uri + return () + +-- method Message::starting +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_starting" soup_message_starting :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageStarting :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageStarting _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_starting _obj' + touchManagedPtr _obj + return () + +-- method Message::wrote_body +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_body" soup_message_wrote_body :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageWroteBody :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageWroteBody _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_wrote_body _obj' + touchManagedPtr _obj + return () + +-- method Message::wrote_body_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_wrote_body_data" soup_message_wrote_body_data :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" + IO () + + +messageWroteBodyData :: + (MonadIO m, MessageK a) => + a -> -- _obj + Buffer -> -- chunk + m () +messageWroteBodyData _obj chunk = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let chunk' = unsafeManagedPtrGetPtr chunk + soup_message_wrote_body_data _obj' chunk' + touchManagedPtr _obj + touchManagedPtr chunk + return () + +-- method Message::wrote_chunk +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_chunk" soup_message_wrote_chunk :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageWroteChunk :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageWroteChunk _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_wrote_chunk _obj' + touchManagedPtr _obj + return () + +-- method Message::wrote_headers +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_headers" soup_message_wrote_headers :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageWroteHeaders :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageWroteHeaders _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_wrote_headers _obj' + touchManagedPtr _obj + return () + +-- method Message::wrote_informational +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_informational" soup_message_wrote_informational :: + Ptr Message -> -- _obj : TInterface "Soup" "Message" + IO () + + +messageWroteInformational :: + (MonadIO m, MessageK a) => + a -> -- _obj + m () +messageWroteInformational _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_message_wrote_informational _obj' + touchManagedPtr _obj + return () + +-- signal Message::content-sniffed +type MessageContentSniffedCallback = + T.Text -> + Map.Map T.Text T.Text -> + IO () + +noMessageContentSniffedCallback :: Maybe MessageContentSniffedCallback +noMessageContentSniffedCallback = Nothing + +type MessageContentSniffedCallbackC = + Ptr () -> -- object + CString -> + Ptr (GHashTable CString CString) -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageContentSniffedCallback :: MessageContentSniffedCallbackC -> IO (FunPtr MessageContentSniffedCallbackC) + +messageContentSniffedClosure :: MessageContentSniffedCallback -> IO Closure +messageContentSniffedClosure cb = newCClosure =<< mkMessageContentSniffedCallback wrapped + where wrapped = messageContentSniffedCallbackWrapper cb + +messageContentSniffedCallbackWrapper :: + MessageContentSniffedCallback -> + Ptr () -> + CString -> + Ptr (GHashTable CString CString) -> + Ptr () -> + IO () +messageContentSniffedCallbackWrapper _cb _ type_ params _ = do + type_' <- cstringToText type_ + 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''''' + _cb type_' params'''''' + +onMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId +onMessageContentSniffed obj cb = liftIO $ connectMessageContentSniffed obj cb SignalConnectBefore +afterMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId +afterMessageContentSniffed obj cb = connectMessageContentSniffed obj cb SignalConnectAfter + +connectMessageContentSniffed :: (GObject a, MonadIO m) => + a -> MessageContentSniffedCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageContentSniffed obj cb after = liftIO $ do + cb' <- mkMessageContentSniffedCallback (messageContentSniffedCallbackWrapper cb) + connectSignalFunPtr obj "content-sniffed" cb' after + +-- signal Message::finished +type MessageFinishedCallback = + IO () + +noMessageFinishedCallback :: Maybe MessageFinishedCallback +noMessageFinishedCallback = Nothing + +type MessageFinishedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageFinishedCallback :: MessageFinishedCallbackC -> IO (FunPtr MessageFinishedCallbackC) + +messageFinishedClosure :: MessageFinishedCallback -> IO Closure +messageFinishedClosure cb = newCClosure =<< mkMessageFinishedCallback wrapped + where wrapped = messageFinishedCallbackWrapper cb + +messageFinishedCallbackWrapper :: + MessageFinishedCallback -> + Ptr () -> + Ptr () -> + IO () +messageFinishedCallbackWrapper _cb _ _ = do + _cb + +onMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId +onMessageFinished obj cb = liftIO $ connectMessageFinished obj cb SignalConnectBefore +afterMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId +afterMessageFinished obj cb = connectMessageFinished obj cb SignalConnectAfter + +connectMessageFinished :: (GObject a, MonadIO m) => + a -> MessageFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageFinished obj cb after = liftIO $ do + cb' <- mkMessageFinishedCallback (messageFinishedCallbackWrapper cb) + connectSignalFunPtr obj "finished" cb' after + +-- signal Message::got-body +type MessageGotBodyCallback = + IO () + +noMessageGotBodyCallback :: Maybe MessageGotBodyCallback +noMessageGotBodyCallback = Nothing + +type MessageGotBodyCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageGotBodyCallback :: MessageGotBodyCallbackC -> IO (FunPtr MessageGotBodyCallbackC) + +messageGotBodyClosure :: MessageGotBodyCallback -> IO Closure +messageGotBodyClosure cb = newCClosure =<< mkMessageGotBodyCallback wrapped + where wrapped = messageGotBodyCallbackWrapper cb + +messageGotBodyCallbackWrapper :: + MessageGotBodyCallback -> + Ptr () -> + Ptr () -> + IO () +messageGotBodyCallbackWrapper _cb _ _ = do + _cb + +onMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId +onMessageGotBody obj cb = liftIO $ connectMessageGotBody obj cb SignalConnectBefore +afterMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId +afterMessageGotBody obj cb = connectMessageGotBody obj cb SignalConnectAfter + +connectMessageGotBody :: (GObject a, MonadIO m) => + a -> MessageGotBodyCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageGotBody obj cb after = liftIO $ do + cb' <- mkMessageGotBodyCallback (messageGotBodyCallbackWrapper cb) + connectSignalFunPtr obj "got-body" cb' after + +-- signal Message::got-chunk +type MessageGotChunkCallback = + Buffer -> + IO () + +noMessageGotChunkCallback :: Maybe MessageGotChunkCallback +noMessageGotChunkCallback = Nothing + +type MessageGotChunkCallbackC = + Ptr () -> -- object + Ptr Buffer -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageGotChunkCallback :: MessageGotChunkCallbackC -> IO (FunPtr MessageGotChunkCallbackC) + +messageGotChunkClosure :: MessageGotChunkCallback -> IO Closure +messageGotChunkClosure cb = newCClosure =<< mkMessageGotChunkCallback wrapped + where wrapped = messageGotChunkCallbackWrapper cb + +messageGotChunkCallbackWrapper :: + MessageGotChunkCallback -> + Ptr () -> + Ptr Buffer -> + Ptr () -> + IO () +messageGotChunkCallbackWrapper _cb _ chunk _ = do + chunk' <- (newBoxed Buffer) chunk + _cb chunk' + +onMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId +onMessageGotChunk obj cb = liftIO $ connectMessageGotChunk obj cb SignalConnectBefore +afterMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId +afterMessageGotChunk obj cb = connectMessageGotChunk obj cb SignalConnectAfter + +connectMessageGotChunk :: (GObject a, MonadIO m) => + a -> MessageGotChunkCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageGotChunk obj cb after = liftIO $ do + cb' <- mkMessageGotChunkCallback (messageGotChunkCallbackWrapper cb) + connectSignalFunPtr obj "got-chunk" cb' after + +-- signal Message::got-headers +type MessageGotHeadersCallback = + IO () + +noMessageGotHeadersCallback :: Maybe MessageGotHeadersCallback +noMessageGotHeadersCallback = Nothing + +type MessageGotHeadersCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageGotHeadersCallback :: MessageGotHeadersCallbackC -> IO (FunPtr MessageGotHeadersCallbackC) + +messageGotHeadersClosure :: MessageGotHeadersCallback -> IO Closure +messageGotHeadersClosure cb = newCClosure =<< mkMessageGotHeadersCallback wrapped + where wrapped = messageGotHeadersCallbackWrapper cb + +messageGotHeadersCallbackWrapper :: + MessageGotHeadersCallback -> + Ptr () -> + Ptr () -> + IO () +messageGotHeadersCallbackWrapper _cb _ _ = do + _cb + +onMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId +onMessageGotHeaders obj cb = liftIO $ connectMessageGotHeaders obj cb SignalConnectBefore +afterMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId +afterMessageGotHeaders obj cb = connectMessageGotHeaders obj cb SignalConnectAfter + +connectMessageGotHeaders :: (GObject a, MonadIO m) => + a -> MessageGotHeadersCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageGotHeaders obj cb after = liftIO $ do + cb' <- mkMessageGotHeadersCallback (messageGotHeadersCallbackWrapper cb) + connectSignalFunPtr obj "got-headers" cb' after + +-- signal Message::got-informational +type MessageGotInformationalCallback = + IO () + +noMessageGotInformationalCallback :: Maybe MessageGotInformationalCallback +noMessageGotInformationalCallback = Nothing + +type MessageGotInformationalCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageGotInformationalCallback :: MessageGotInformationalCallbackC -> IO (FunPtr MessageGotInformationalCallbackC) + +messageGotInformationalClosure :: MessageGotInformationalCallback -> IO Closure +messageGotInformationalClosure cb = newCClosure =<< mkMessageGotInformationalCallback wrapped + where wrapped = messageGotInformationalCallbackWrapper cb + +messageGotInformationalCallbackWrapper :: + MessageGotInformationalCallback -> + Ptr () -> + Ptr () -> + IO () +messageGotInformationalCallbackWrapper _cb _ _ = do + _cb + +onMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId +onMessageGotInformational obj cb = liftIO $ connectMessageGotInformational obj cb SignalConnectBefore +afterMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId +afterMessageGotInformational obj cb = connectMessageGotInformational obj cb SignalConnectAfter + +connectMessageGotInformational :: (GObject a, MonadIO m) => + a -> MessageGotInformationalCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageGotInformational obj cb after = liftIO $ do + cb' <- mkMessageGotInformationalCallback (messageGotInformationalCallbackWrapper cb) + connectSignalFunPtr obj "got-informational" cb' after + +-- signal Message::network-event +type MessageNetworkEventCallback = + Gio.SocketClientEvent -> + Gio.IOStream -> + IO () + +noMessageNetworkEventCallback :: Maybe MessageNetworkEventCallback +noMessageNetworkEventCallback = Nothing + +type MessageNetworkEventCallbackC = + Ptr () -> -- object + CUInt -> + Ptr Gio.IOStream -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageNetworkEventCallback :: MessageNetworkEventCallbackC -> IO (FunPtr MessageNetworkEventCallbackC) + +messageNetworkEventClosure :: MessageNetworkEventCallback -> IO Closure +messageNetworkEventClosure cb = newCClosure =<< mkMessageNetworkEventCallback wrapped + where wrapped = messageNetworkEventCallbackWrapper cb + +messageNetworkEventCallbackWrapper :: + MessageNetworkEventCallback -> + Ptr () -> + CUInt -> + Ptr Gio.IOStream -> + Ptr () -> + IO () +messageNetworkEventCallbackWrapper _cb _ event connection _ = do + let event' = (toEnum . fromIntegral) event + connection' <- (newObject Gio.IOStream) connection + _cb event' connection' + +onMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId +onMessageNetworkEvent obj cb = liftIO $ connectMessageNetworkEvent obj cb SignalConnectBefore +afterMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId +afterMessageNetworkEvent obj cb = connectMessageNetworkEvent obj cb SignalConnectAfter + +connectMessageNetworkEvent :: (GObject a, MonadIO m) => + a -> MessageNetworkEventCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageNetworkEvent obj cb after = liftIO $ do + cb' <- mkMessageNetworkEventCallback (messageNetworkEventCallbackWrapper cb) + connectSignalFunPtr obj "network-event" cb' after + +-- signal Message::restarted +type MessageRestartedCallback = + IO () + +noMessageRestartedCallback :: Maybe MessageRestartedCallback +noMessageRestartedCallback = Nothing + +type MessageRestartedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageRestartedCallback :: MessageRestartedCallbackC -> IO (FunPtr MessageRestartedCallbackC) + +messageRestartedClosure :: MessageRestartedCallback -> IO Closure +messageRestartedClosure cb = newCClosure =<< mkMessageRestartedCallback wrapped + where wrapped = messageRestartedCallbackWrapper cb + +messageRestartedCallbackWrapper :: + MessageRestartedCallback -> + Ptr () -> + Ptr () -> + IO () +messageRestartedCallbackWrapper _cb _ _ = do + _cb + +onMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId +onMessageRestarted obj cb = liftIO $ connectMessageRestarted obj cb SignalConnectBefore +afterMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId +afterMessageRestarted obj cb = connectMessageRestarted obj cb SignalConnectAfter + +connectMessageRestarted :: (GObject a, MonadIO m) => + a -> MessageRestartedCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageRestarted obj cb after = liftIO $ do + cb' <- mkMessageRestartedCallback (messageRestartedCallbackWrapper cb) + connectSignalFunPtr obj "restarted" cb' after + +-- signal Message::starting +type MessageStartingCallback = + IO () + +noMessageStartingCallback :: Maybe MessageStartingCallback +noMessageStartingCallback = Nothing + +type MessageStartingCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageStartingCallback :: MessageStartingCallbackC -> IO (FunPtr MessageStartingCallbackC) + +messageStartingClosure :: MessageStartingCallback -> IO Closure +messageStartingClosure cb = newCClosure =<< mkMessageStartingCallback wrapped + where wrapped = messageStartingCallbackWrapper cb + +messageStartingCallbackWrapper :: + MessageStartingCallback -> + Ptr () -> + Ptr () -> + IO () +messageStartingCallbackWrapper _cb _ _ = do + _cb + +onMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId +onMessageStarting obj cb = liftIO $ connectMessageStarting obj cb SignalConnectBefore +afterMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId +afterMessageStarting obj cb = connectMessageStarting obj cb SignalConnectAfter + +connectMessageStarting :: (GObject a, MonadIO m) => + a -> MessageStartingCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageStarting obj cb after = liftIO $ do + cb' <- mkMessageStartingCallback (messageStartingCallbackWrapper cb) + connectSignalFunPtr obj "starting" cb' after + +-- signal Message::wrote-body +type MessageWroteBodyCallback = + IO () + +noMessageWroteBodyCallback :: Maybe MessageWroteBodyCallback +noMessageWroteBodyCallback = Nothing + +type MessageWroteBodyCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageWroteBodyCallback :: MessageWroteBodyCallbackC -> IO (FunPtr MessageWroteBodyCallbackC) + +messageWroteBodyClosure :: MessageWroteBodyCallback -> IO Closure +messageWroteBodyClosure cb = newCClosure =<< mkMessageWroteBodyCallback wrapped + where wrapped = messageWroteBodyCallbackWrapper cb + +messageWroteBodyCallbackWrapper :: + MessageWroteBodyCallback -> + Ptr () -> + Ptr () -> + IO () +messageWroteBodyCallbackWrapper _cb _ _ = do + _cb + +onMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId +onMessageWroteBody obj cb = liftIO $ connectMessageWroteBody obj cb SignalConnectBefore +afterMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId +afterMessageWroteBody obj cb = connectMessageWroteBody obj cb SignalConnectAfter + +connectMessageWroteBody :: (GObject a, MonadIO m) => + a -> MessageWroteBodyCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageWroteBody obj cb after = liftIO $ do + cb' <- mkMessageWroteBodyCallback (messageWroteBodyCallbackWrapper cb) + connectSignalFunPtr obj "wrote-body" cb' after + +-- signal Message::wrote-body-data +type MessageWroteBodyDataCallback = + Buffer -> + IO () + +noMessageWroteBodyDataCallback :: Maybe MessageWroteBodyDataCallback +noMessageWroteBodyDataCallback = Nothing + +type MessageWroteBodyDataCallbackC = + Ptr () -> -- object + Ptr Buffer -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageWroteBodyDataCallback :: MessageWroteBodyDataCallbackC -> IO (FunPtr MessageWroteBodyDataCallbackC) + +messageWroteBodyDataClosure :: MessageWroteBodyDataCallback -> IO Closure +messageWroteBodyDataClosure cb = newCClosure =<< mkMessageWroteBodyDataCallback wrapped + where wrapped = messageWroteBodyDataCallbackWrapper cb + +messageWroteBodyDataCallbackWrapper :: + MessageWroteBodyDataCallback -> + Ptr () -> + Ptr Buffer -> + Ptr () -> + IO () +messageWroteBodyDataCallbackWrapper _cb _ chunk _ = do + chunk' <- (newBoxed Buffer) chunk + _cb chunk' + +onMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId +onMessageWroteBodyData obj cb = liftIO $ connectMessageWroteBodyData obj cb SignalConnectBefore +afterMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId +afterMessageWroteBodyData obj cb = connectMessageWroteBodyData obj cb SignalConnectAfter + +connectMessageWroteBodyData :: (GObject a, MonadIO m) => + a -> MessageWroteBodyDataCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageWroteBodyData obj cb after = liftIO $ do + cb' <- mkMessageWroteBodyDataCallback (messageWroteBodyDataCallbackWrapper cb) + connectSignalFunPtr obj "wrote-body-data" cb' after + +-- signal Message::wrote-chunk +type MessageWroteChunkCallback = + IO () + +noMessageWroteChunkCallback :: Maybe MessageWroteChunkCallback +noMessageWroteChunkCallback = Nothing + +type MessageWroteChunkCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageWroteChunkCallback :: MessageWroteChunkCallbackC -> IO (FunPtr MessageWroteChunkCallbackC) + +messageWroteChunkClosure :: MessageWroteChunkCallback -> IO Closure +messageWroteChunkClosure cb = newCClosure =<< mkMessageWroteChunkCallback wrapped + where wrapped = messageWroteChunkCallbackWrapper cb + +messageWroteChunkCallbackWrapper :: + MessageWroteChunkCallback -> + Ptr () -> + Ptr () -> + IO () +messageWroteChunkCallbackWrapper _cb _ _ = do + _cb + +onMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId +onMessageWroteChunk obj cb = liftIO $ connectMessageWroteChunk obj cb SignalConnectBefore +afterMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId +afterMessageWroteChunk obj cb = connectMessageWroteChunk obj cb SignalConnectAfter + +connectMessageWroteChunk :: (GObject a, MonadIO m) => + a -> MessageWroteChunkCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageWroteChunk obj cb after = liftIO $ do + cb' <- mkMessageWroteChunkCallback (messageWroteChunkCallbackWrapper cb) + connectSignalFunPtr obj "wrote-chunk" cb' after + +-- signal Message::wrote-headers +type MessageWroteHeadersCallback = + IO () + +noMessageWroteHeadersCallback :: Maybe MessageWroteHeadersCallback +noMessageWroteHeadersCallback = Nothing + +type MessageWroteHeadersCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageWroteHeadersCallback :: MessageWroteHeadersCallbackC -> IO (FunPtr MessageWroteHeadersCallbackC) + +messageWroteHeadersClosure :: MessageWroteHeadersCallback -> IO Closure +messageWroteHeadersClosure cb = newCClosure =<< mkMessageWroteHeadersCallback wrapped + where wrapped = messageWroteHeadersCallbackWrapper cb + +messageWroteHeadersCallbackWrapper :: + MessageWroteHeadersCallback -> + Ptr () -> + Ptr () -> + IO () +messageWroteHeadersCallbackWrapper _cb _ _ = do + _cb + +onMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId +onMessageWroteHeaders obj cb = liftIO $ connectMessageWroteHeaders obj cb SignalConnectBefore +afterMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId +afterMessageWroteHeaders obj cb = connectMessageWroteHeaders obj cb SignalConnectAfter + +connectMessageWroteHeaders :: (GObject a, MonadIO m) => + a -> MessageWroteHeadersCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageWroteHeaders obj cb after = liftIO $ do + cb' <- mkMessageWroteHeadersCallback (messageWroteHeadersCallbackWrapper cb) + connectSignalFunPtr obj "wrote-headers" cb' after + +-- signal Message::wrote-informational +type MessageWroteInformationalCallback = + IO () + +noMessageWroteInformationalCallback :: Maybe MessageWroteInformationalCallback +noMessageWroteInformationalCallback = Nothing + +type MessageWroteInformationalCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkMessageWroteInformationalCallback :: MessageWroteInformationalCallbackC -> IO (FunPtr MessageWroteInformationalCallbackC) + +messageWroteInformationalClosure :: MessageWroteInformationalCallback -> IO Closure +messageWroteInformationalClosure cb = newCClosure =<< mkMessageWroteInformationalCallback wrapped + where wrapped = messageWroteInformationalCallbackWrapper cb + +messageWroteInformationalCallbackWrapper :: + MessageWroteInformationalCallback -> + Ptr () -> + Ptr () -> + IO () +messageWroteInformationalCallbackWrapper _cb _ _ = do + _cb + +onMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId +onMessageWroteInformational obj cb = liftIO $ connectMessageWroteInformational obj cb SignalConnectBefore +afterMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId +afterMessageWroteInformational obj cb = connectMessageWroteInformational obj cb SignalConnectAfter + +connectMessageWroteInformational :: (GObject a, MonadIO m) => + a -> MessageWroteInformationalCallback -> SignalConnectMode -> m SignalHandlerId +connectMessageWroteInformational obj cb after = liftIO $ do + cb' <- mkMessageWroteInformationalCallback (messageWroteInformationalCallbackWrapper cb) + connectSignalFunPtr obj "wrote-informational" cb' after + +-- struct MessageBody +newtype MessageBody = MessageBody (ForeignPtr MessageBody) +noMessageBody :: Maybe MessageBody +noMessageBody = Nothing + +foreign import ccall "soup_message_body_get_type" c_soup_message_body_get_type :: + IO GType + +instance BoxedObject MessageBody where + boxedType _ = c_soup_message_body_get_type + +messageBodyReadData :: MessageBody -> IO T.Text +messageBodyReadData s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +messageBodyReadLength :: MessageBody -> IO Int64 +messageBodyReadLength s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int64 + return val + +-- method MessageBody::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "MessageBody" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_body_new" soup_message_body_new :: + IO (Ptr MessageBody) + + +messageBodyNew :: + (MonadIO m) => + m MessageBody +messageBodyNew = liftIO $ do + result <- soup_message_body_new + checkUnexpectedReturnNULL "soup_message_body_new" result + result' <- (wrapBoxed MessageBody) result + return result' + +-- method MessageBody::append_buffer +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", 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_body_append_buffer" soup_message_body_append_buffer :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + Ptr Buffer -> -- buffer : TInterface "Soup" "Buffer" + IO () + + +messageBodyAppendBuffer :: + (MonadIO m) => + MessageBody -> -- _obj + Buffer -> -- buffer + m () +messageBodyAppendBuffer _obj buffer = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let buffer' = unsafeManagedPtrGetPtr buffer + soup_message_body_append_buffer _obj' buffer' + touchManagedPtr _obj + touchManagedPtr buffer + return () + +-- method MessageBody::append +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_body_append_take" soup_message_body_append_take :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- length : TBasicType TUInt64 + IO () + + +messageBodyAppend :: + (MonadIO m) => + MessageBody -> -- _obj + ByteString -> -- data + m () +messageBodyAppend _obj data_ = liftIO $ do + let length_ = fromIntegral $ B.length data_ + let _obj' = unsafeManagedPtrGetPtr _obj + data_' <- packByteString data_ + soup_message_body_append_take _obj' data_' length_ + touchManagedPtr _obj + return () + +-- method MessageBody::complete +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_complete" soup_message_body_complete :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + IO () + + +messageBodyComplete :: + (MonadIO m) => + MessageBody -> -- _obj + m () +messageBodyComplete _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_message_body_complete _obj' + touchManagedPtr _obj + return () + +-- method MessageBody::flatten +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Buffer" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_body_flatten" soup_message_body_flatten :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + IO (Ptr Buffer) + + +messageBodyFlatten :: + (MonadIO m) => + MessageBody -> -- _obj + m Buffer +messageBodyFlatten _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_message_body_flatten _obj' + checkUnexpectedReturnNULL "soup_message_body_flatten" result + result' <- (wrapBoxed Buffer) result + touchManagedPtr _obj + return result' + +-- method MessageBody::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_free" soup_message_body_free :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + IO () + + +messageBodyFree :: + (MonadIO m) => + MessageBody -> -- _obj + m () +messageBodyFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_message_body_free _obj' + touchManagedPtr _obj + return () + +-- method MessageBody::get_accumulate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_get_accumulate" soup_message_body_get_accumulate :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + IO CInt + + +messageBodyGetAccumulate :: + (MonadIO m) => + MessageBody -> -- _obj + m Bool +messageBodyGetAccumulate _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_message_body_get_accumulate _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method MessageBody::get_chunk +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Buffer" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_message_body_get_chunk" soup_message_body_get_chunk :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + Int64 -> -- offset : TBasicType TInt64 + IO (Ptr Buffer) + + +messageBodyGetChunk :: + (MonadIO m) => + MessageBody -> -- _obj + Int64 -> -- offset + m Buffer +messageBodyGetChunk _obj offset = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_message_body_get_chunk _obj' offset + checkUnexpectedReturnNULL "soup_message_body_get_chunk" result + result' <- (wrapBoxed Buffer) result + touchManagedPtr _obj + return result' + +-- method MessageBody::got_chunk +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_body_got_chunk" soup_message_body_got_chunk :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" + IO () + + +messageBodyGotChunk :: + (MonadIO m) => + MessageBody -> -- _obj + Buffer -> -- chunk + m () +messageBodyGotChunk _obj chunk = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let chunk' = unsafeManagedPtrGetPtr chunk + soup_message_body_got_chunk _obj' chunk' + touchManagedPtr _obj + touchManagedPtr chunk + return () + +-- method MessageBody::set_accumulate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, 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_body_set_accumulate" soup_message_body_set_accumulate :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + CInt -> -- accumulate : TBasicType TBoolean + IO () + + +messageBodySetAccumulate :: + (MonadIO m) => + MessageBody -> -- _obj + Bool -> -- accumulate + m () +messageBodySetAccumulate _obj accumulate = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let accumulate' = (fromIntegral . fromEnum) accumulate + soup_message_body_set_accumulate _obj' accumulate' + touchManagedPtr _obj + return () + +-- method MessageBody::truncate +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_truncate" soup_message_body_truncate :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + IO () + + +messageBodyTruncate :: + (MonadIO m) => + MessageBody -> -- _obj + m () +messageBodyTruncate _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_message_body_truncate _obj' + touchManagedPtr _obj + return () + +-- method MessageBody::wrote_chunk +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_body_wrote_chunk" soup_message_body_wrote_chunk :: + Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" + Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" + IO () + + +messageBodyWroteChunk :: + (MonadIO m) => + MessageBody -> -- _obj + Buffer -> -- chunk + m () +messageBodyWroteChunk _obj chunk = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let chunk' = unsafeManagedPtrGetPtr chunk + soup_message_body_wrote_chunk _obj' chunk' + touchManagedPtr _obj + touchManagedPtr chunk + return () + +-- Flags MessageFlags + +data MessageFlags = + MessageFlagsNoRedirect + | MessageFlagsCanRebuild + | MessageFlagsOverwriteChunks + | MessageFlagsContentDecoded + | MessageFlagsCertificateTrusted + | MessageFlagsNewConnection + | MessageFlagsIdempotent + | MessageFlagsIgnoreConnectionLimits + | AnotherMessageFlags Int + deriving (Show, Eq) + +instance Enum MessageFlags where + fromEnum MessageFlagsNoRedirect = 2 + fromEnum MessageFlagsCanRebuild = 4 + fromEnum MessageFlagsOverwriteChunks = 8 + fromEnum MessageFlagsContentDecoded = 16 + fromEnum MessageFlagsCertificateTrusted = 32 + fromEnum MessageFlagsNewConnection = 64 + fromEnum MessageFlagsIdempotent = 128 + fromEnum MessageFlagsIgnoreConnectionLimits = 256 + fromEnum (AnotherMessageFlags k) = k + + toEnum 2 = MessageFlagsNoRedirect + toEnum 4 = MessageFlagsCanRebuild + toEnum 8 = MessageFlagsOverwriteChunks + toEnum 16 = MessageFlagsContentDecoded + toEnum 32 = MessageFlagsCertificateTrusted + toEnum 64 = MessageFlagsNewConnection + toEnum 128 = MessageFlagsIdempotent + toEnum 256 = MessageFlagsIgnoreConnectionLimits + toEnum k = AnotherMessageFlags k + +foreign import ccall "soup_message_flags_get_type" c_soup_message_flags_get_type :: + IO GType + +instance BoxedEnum MessageFlags where + boxedEnumType _ = c_soup_message_flags_get_type + +instance IsGFlag MessageFlags + +-- struct MessageHeaders +newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders) +noMessageHeaders :: Maybe MessageHeaders +noMessageHeaders = Nothing + +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 + +-- 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 () + +-- callback MessageHeadersForeachFunc +messageHeadersForeachFuncClosure :: MessageHeadersForeachFunc -> IO Closure +messageHeadersForeachFuncClosure cb = newCClosure =<< mkMessageHeadersForeachFunc wrapped + where wrapped = messageHeadersForeachFuncWrapper Nothing cb + +type MessageHeadersForeachFuncC = + CString -> + CString -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkMessageHeadersForeachFunc :: MessageHeadersForeachFuncC -> IO (FunPtr MessageHeadersForeachFuncC) + +type MessageHeadersForeachFunc = + T.Text -> + T.Text -> + IO () + +noMessageHeadersForeachFunc :: Maybe MessageHeadersForeachFunc +noMessageHeadersForeachFunc = Nothing + +messageHeadersForeachFuncWrapper :: + Maybe (Ptr (FunPtr (MessageHeadersForeachFuncC))) -> + MessageHeadersForeachFunc -> + CString -> + CString -> + Ptr () -> + IO () +messageHeadersForeachFuncWrapper funptrptr _cb name value _ = do + name' <- cstringToText name + value' <- cstringToText value + _cb name' value' + maybeReleaseFunPtr funptrptr + +-- struct MessageHeadersIter +newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter) +noMessageHeadersIter :: Maybe MessageHeadersIter +noMessageHeadersIter = Nothing + +-- method MessageHeadersIter::next +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", 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_iter_next" soup_message_headers_iter_next :: + Ptr MessageHeadersIter -> -- _obj : TInterface "Soup" "MessageHeadersIter" + Ptr CString -> -- name : TBasicType TUTF8 + Ptr CString -> -- value : TBasicType TUTF8 + IO CInt + + +messageHeadersIterNext :: + (MonadIO m) => + MessageHeadersIter -> -- _obj + m (Bool,T.Text,T.Text) +messageHeadersIterNext _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + name <- allocMem :: IO (Ptr CString) + value <- allocMem :: IO (Ptr CString) + result <- soup_message_headers_iter_next _obj' name value + let result' = (/= 0) result + name' <- peek name + name'' <- cstringToText name' + value' <- peek value + value'' <- cstringToText value' + touchManagedPtr _obj + freeMem name + freeMem value + return (result', name'', value'') + +-- Enum MessageHeadersType + +data MessageHeadersType = + MessageHeadersTypeRequest + | MessageHeadersTypeResponse + | MessageHeadersTypeMultipart + | AnotherMessageHeadersType Int + deriving (Show, Eq) + +instance Enum MessageHeadersType where + fromEnum MessageHeadersTypeRequest = 0 + fromEnum MessageHeadersTypeResponse = 1 + fromEnum MessageHeadersTypeMultipart = 2 + fromEnum (AnotherMessageHeadersType k) = k + + toEnum 0 = MessageHeadersTypeRequest + toEnum 1 = MessageHeadersTypeResponse + toEnum 2 = MessageHeadersTypeMultipart + toEnum k = AnotherMessageHeadersType k + +foreign import ccall "soup_message_headers_type_get_type" c_soup_message_headers_type_get_type :: + IO GType + +instance BoxedEnum MessageHeadersType where + boxedEnumType _ = c_soup_message_headers_type_get_type + +-- Enum MessagePriority + +data MessagePriority = + MessagePriorityVeryLow + | MessagePriorityLow + | MessagePriorityNormal + | MessagePriorityHigh + | MessagePriorityVeryHigh + | AnotherMessagePriority Int + deriving (Show, Eq) + +instance Enum MessagePriority where + fromEnum MessagePriorityVeryLow = 0 + fromEnum MessagePriorityLow = 1 + fromEnum MessagePriorityNormal = 2 + fromEnum MessagePriorityHigh = 3 + fromEnum MessagePriorityVeryHigh = 4 + fromEnum (AnotherMessagePriority k) = k + + toEnum 0 = MessagePriorityVeryLow + toEnum 1 = MessagePriorityLow + toEnum 2 = MessagePriorityNormal + toEnum 3 = MessagePriorityHigh + toEnum 4 = MessagePriorityVeryHigh + toEnum k = AnotherMessagePriority k + +foreign import ccall "soup_message_priority_get_type" c_soup_message_priority_get_type :: + IO GType + +instance BoxedEnum MessagePriority where + boxedEnumType _ = c_soup_message_priority_get_type + +-- struct MessageQueue +newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue) +noMessageQueue :: Maybe MessageQueue +noMessageQueue = Nothing + +-- struct MessageQueueItem +newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem) +noMessageQueueItem :: Maybe MessageQueueItem +noMessageQueueItem = Nothing + +-- struct Multipart +newtype Multipart = Multipart (ForeignPtr Multipart) +noMultipart :: Maybe Multipart +noMultipart = Nothing + +foreign import ccall "soup_multipart_get_type" c_soup_multipart_get_type :: + IO GType + +instance BoxedObject Multipart where + boxedType _ = c_soup_multipart_get_type + +-- method Multipart::new +-- method type : Constructor +-- Args : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Multipart" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_new" soup_multipart_new :: + CString -> -- mime_type : TBasicType TUTF8 + IO (Ptr Multipart) + + +multipartNew :: + (MonadIO m) => + T.Text -> -- mime_type + m Multipart +multipartNew mime_type = liftIO $ do + mime_type' <- textToCString mime_type + result <- soup_multipart_new mime_type' + checkUnexpectedReturnNULL "soup_multipart_new" result + result' <- (wrapBoxed Multipart) result + freeMem mime_type' + return result' + +-- method Multipart::new_from_message +-- method type : Constructor +-- Args : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Multipart" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_new_from_message" soup_multipart_new_from_message :: + Ptr MessageHeaders -> -- headers : TInterface "Soup" "MessageHeaders" + Ptr MessageBody -> -- body : TInterface "Soup" "MessageBody" + IO (Ptr Multipart) + + +multipartNewFromMessage :: + (MonadIO m) => + MessageHeaders -> -- headers + MessageBody -> -- body + m Multipart +multipartNewFromMessage headers body = liftIO $ do + let headers' = unsafeManagedPtrGetPtr headers + let body' = unsafeManagedPtrGetPtr body + result <- soup_multipart_new_from_message headers' body' + checkUnexpectedReturnNULL "soup_multipart_new_from_message" result + result' <- (wrapBoxed Multipart) result + touchManagedPtr headers + touchManagedPtr body + return result' + +-- method Multipart::append_form_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, 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 = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, 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 = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_append_form_file" soup_multipart_append_form_file :: + Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" + CString -> -- control_name : TBasicType TUTF8 + CString -> -- filename : TBasicType TUTF8 + CString -> -- content_type : TBasicType TUTF8 + Ptr Buffer -> -- body : TInterface "Soup" "Buffer" + IO () + + +multipartAppendFormFile :: + (MonadIO m) => + Multipart -> -- _obj + T.Text -> -- control_name + T.Text -> -- filename + T.Text -> -- content_type + Buffer -> -- body + m () +multipartAppendFormFile _obj control_name filename content_type body = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + control_name' <- textToCString control_name + filename' <- textToCString filename + content_type' <- textToCString content_type + let body' = unsafeManagedPtrGetPtr body + soup_multipart_append_form_file _obj' control_name' filename' content_type' body' + touchManagedPtr _obj + touchManagedPtr body + freeMem control_name' + freeMem filename' + freeMem content_type' + return () + +-- method Multipart::append_form_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", 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_multipart_append_form_string" soup_multipart_append_form_string :: + Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" + CString -> -- control_name : TBasicType TUTF8 + CString -> -- data : TBasicType TUTF8 + IO () + + +multipartAppendFormString :: + (MonadIO m) => + Multipart -> -- _obj + T.Text -> -- control_name + T.Text -> -- data + m () +multipartAppendFormString _obj control_name data_ = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + control_name' <- textToCString control_name + data_' <- textToCString data_ + soup_multipart_append_form_string _obj' control_name' data_' + touchManagedPtr _obj + freeMem control_name' + freeMem data_' + return () + +-- method Multipart::append_part +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_append_part" soup_multipart_append_part :: + Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" + Ptr MessageHeaders -> -- headers : TInterface "Soup" "MessageHeaders" + Ptr Buffer -> -- body : TInterface "Soup" "Buffer" + IO () + + +multipartAppendPart :: + (MonadIO m) => + Multipart -> -- _obj + MessageHeaders -> -- headers + Buffer -> -- body + m () +multipartAppendPart _obj headers body = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let headers' = unsafeManagedPtrGetPtr headers + let body' = unsafeManagedPtrGetPtr body + soup_multipart_append_part _obj' headers' body' + touchManagedPtr _obj + touchManagedPtr headers + touchManagedPtr body + return () + +-- method Multipart::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_free" soup_multipart_free :: + Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" + IO () + + +multipartFree :: + (MonadIO m) => + Multipart -> -- _obj + m () +multipartFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_multipart_free _obj' + touchManagedPtr _obj + return () + +-- method Multipart::get_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_get_length" soup_multipart_get_length :: + Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" + IO Int32 + + +multipartGetLength :: + (MonadIO m) => + Multipart -> -- _obj + m Int32 +multipartGetLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_multipart_get_length _obj' + touchManagedPtr _obj + return result + +-- method Multipart::get_part +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_get_part" soup_multipart_get_part :: + Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" + Int32 -> -- part : TBasicType TInt32 + Ptr (Ptr MessageHeaders) -> -- headers : TInterface "Soup" "MessageHeaders" + Ptr Buffer -> -- body : TInterface "Soup" "Buffer" + IO CInt + + +multipartGetPart :: + (MonadIO m) => + Multipart -> -- _obj + Int32 -> -- part + m (Bool,MessageHeaders,Buffer) +multipartGetPart _obj part = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + headers <- allocMem :: IO (Ptr (Ptr MessageHeaders)) + body <- callocBoxedBytes 16 :: IO (Ptr Buffer) + result <- soup_multipart_get_part _obj' part headers body + let result' = (/= 0) result + headers' <- peek headers + headers'' <- (newBoxed MessageHeaders) headers' + body' <- (wrapBoxed Buffer) body + touchManagedPtr _obj + freeMem headers + return (result', headers'', body') + +-- method Multipart::to_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_to_message" soup_multipart_to_message :: + Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" + Ptr MessageHeaders -> -- dest_headers : TInterface "Soup" "MessageHeaders" + Ptr MessageBody -> -- dest_body : TInterface "Soup" "MessageBody" + IO () + + +multipartToMessage :: + (MonadIO m) => + Multipart -> -- _obj + MessageHeaders -> -- dest_headers + MessageBody -> -- dest_body + m () +multipartToMessage _obj dest_headers dest_body = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let dest_headers' = unsafeManagedPtrGetPtr dest_headers + let dest_body' = unsafeManagedPtrGetPtr dest_body + soup_multipart_to_message _obj' dest_headers' dest_body' + touchManagedPtr _obj + touchManagedPtr dest_headers + touchManagedPtr dest_body + return () + +-- object MultipartInputStream +newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream) +noMultipartInputStream :: Maybe MultipartInputStream +noMultipartInputStream = Nothing + +foreign import ccall "soup_multipart_input_stream_get_type" + c_soup_multipart_input_stream_get_type :: IO GType + +type instance ParentTypes MultipartInputStream = '[Gio.FilterInputStream, Gio.InputStream, GObject.Object, Gio.PollableInputStream] + +instance GObject MultipartInputStream where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_multipart_input_stream_get_type + + +class GObject o => MultipartInputStreamK o +instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o + +toMultipartInputStream :: MultipartInputStreamK o => o -> IO MultipartInputStream +toMultipartInputStream = unsafeCastTo MultipartInputStream + +-- method MultipartInputStream::new +-- method type : Constructor +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "MultipartInputStream" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_input_stream_new" soup_multipart_input_stream_new :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr Gio.InputStream -> -- base_stream : TInterface "Gio" "InputStream" + IO (Ptr MultipartInputStream) + + +multipartInputStreamNew :: + (MonadIO m, MessageK a, Gio.InputStreamK b) => + a -> -- msg + b -> -- base_stream + m MultipartInputStream +multipartInputStreamNew msg base_stream = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + let base_stream' = unsafeManagedPtrCastPtr base_stream + result <- soup_multipart_input_stream_new msg' base_stream' + checkUnexpectedReturnNULL "soup_multipart_input_stream_new" result + result' <- (wrapObject MultipartInputStream) result + touchManagedPtr msg + touchManagedPtr base_stream + return result' + +-- method MultipartInputStream::get_headers +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", 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_multipart_input_stream_get_headers" soup_multipart_input_stream_get_headers :: + Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" + IO (Ptr MessageHeaders) + + +multipartInputStreamGetHeaders :: + (MonadIO m, MultipartInputStreamK a) => + a -> -- _obj + m MessageHeaders +multipartInputStreamGetHeaders _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_multipart_input_stream_get_headers _obj' + checkUnexpectedReturnNULL "soup_multipart_input_stream_get_headers" result + result' <- (newBoxed MessageHeaders) result + touchManagedPtr _obj + return result' + +-- method MultipartInputStream::next_part +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_multipart_input_stream_next_part" soup_multipart_input_stream_next_part :: + Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO (Ptr Gio.InputStream) + + +multipartInputStreamNextPart :: + (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (b) -> -- cancellable + m Gio.InputStream +multipartInputStreamNextPart _obj cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ soup_multipart_input_stream_next_part _obj' maybeCancellable + checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part" result + result' <- (wrapObject Gio.InputStream) result + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + +-- method MultipartInputStream::next_part_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_multipart_input_stream_next_part_async" soup_multipart_input_stream_next_part_async :: + Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" + Int32 -> -- io_priority : TBasicType TInt32 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- data : TBasicType TVoid + IO () + + +multipartInputStreamNextPartAsync :: + (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => + a -> -- _obj + Int32 -> -- io_priority + Maybe (b) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +multipartInputStreamNextPartAsync _obj io_priority cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let data_ = nullPtr + soup_multipart_input_stream_next_part_async _obj' io_priority maybeCancellable maybeCallback data_ + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return () + +-- method MultipartInputStream::next_part_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_multipart_input_stream_next_part_finish" soup_multipart_input_stream_next_part_finish :: + Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr Gio.InputStream) + + +multipartInputStreamNextPartFinish :: + (MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) => + a -> -- _obj + b -> -- result + m Gio.InputStream +multipartInputStreamNextPartFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ soup_multipart_input_stream_next_part_finish _obj' result_' + checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part_finish" result + result' <- (wrapObject Gio.InputStream) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +-- interface PasswordManager + +newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager) +noPasswordManager :: Maybe PasswordManager +noPasswordManager = Nothing + +foreign import ccall "soup_password_manager_get_type" + c_soup_password_manager_get_type :: IO GType + +type instance ParentTypes PasswordManager = '[SessionFeature, GObject.Object] + +instance GObject PasswordManager where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_password_manager_get_type + + +class GObject o => PasswordManagerK o +instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o + +toPasswordManager :: PasswordManagerK o => o -> IO PasswordManager +toPasswordManager = unsafeCastTo PasswordManager + +-- method PasswordManager::get_passwords_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, 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" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_password_manager_get_passwords_async" soup_password_manager_get_passwords_async :: + Ptr PasswordManager -> -- _obj : TInterface "Soup" "PasswordManager" + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr Auth -> -- auth : TInterface "Soup" "Auth" + CInt -> -- retrying : TBasicType TBoolean + Ptr GLib.MainContext -> -- async_context : TInterface "GLib" "MainContext" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr PasswordManagerCallbackC -> -- callback : TInterface "Soup" "PasswordManagerCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +passwordManagerGetPasswordsAsync :: + (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => + a -> -- _obj + b -> -- msg + c -> -- auth + Bool -> -- retrying + GLib.MainContext -> -- async_context + Maybe (d) -> -- cancellable + PasswordManagerCallback -> -- callback + m () +passwordManagerGetPasswordsAsync _obj msg auth retrying async_context cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + let auth' = unsafeManagedPtrCastPtr auth + let retrying' = (fromIntegral . fromEnum) retrying + let async_context' = unsafeManagedPtrGetPtr async_context + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr PasswordManagerCallbackC)) + callback' <- mkPasswordManagerCallback (passwordManagerCallbackWrapper (Just ptrcallback) callback) + poke ptrcallback callback' + let user_data = nullPtr + soup_password_manager_get_passwords_async _obj' msg' auth' retrying' async_context' maybeCancellable callback' user_data + touchManagedPtr _obj + touchManagedPtr msg + touchManagedPtr auth + touchManagedPtr async_context + whenJust cancellable touchManagedPtr + return () + +-- method PasswordManager::get_passwords_sync +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_password_manager_get_passwords_sync" soup_password_manager_get_passwords_sync :: + Ptr PasswordManager -> -- _obj : TInterface "Soup" "PasswordManager" + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr Auth -> -- auth : TInterface "Soup" "Auth" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + IO () + + +passwordManagerGetPasswordsSync :: + (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => + a -> -- _obj + b -> -- msg + c -> -- auth + Maybe (d) -> -- cancellable + m () +passwordManagerGetPasswordsSync _obj msg auth cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + let auth' = unsafeManagedPtrCastPtr auth + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + soup_password_manager_get_passwords_sync _obj' msg' auth' maybeCancellable + touchManagedPtr _obj + touchManagedPtr msg + touchManagedPtr auth + whenJust cancellable touchManagedPtr + return () + +-- callback PasswordManagerCallback +passwordManagerCallbackClosure :: PasswordManagerCallback -> IO Closure +passwordManagerCallbackClosure cb = newCClosure =<< mkPasswordManagerCallback wrapped + where wrapped = passwordManagerCallbackWrapper Nothing cb + +type PasswordManagerCallbackC = + Ptr PasswordManager -> + Ptr Message -> + Ptr Auth -> + CInt -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkPasswordManagerCallback :: PasswordManagerCallbackC -> IO (FunPtr PasswordManagerCallbackC) + +type PasswordManagerCallback = + PasswordManager -> + Message -> + Auth -> + Bool -> + IO () + +noPasswordManagerCallback :: Maybe PasswordManagerCallback +noPasswordManagerCallback = Nothing + +passwordManagerCallbackWrapper :: + Maybe (Ptr (FunPtr (PasswordManagerCallbackC))) -> + PasswordManagerCallback -> + Ptr PasswordManager -> + Ptr Message -> + Ptr Auth -> + CInt -> + Ptr () -> + IO () +passwordManagerCallbackWrapper funptrptr _cb password_manager msg auth retrying _ = do + password_manager' <- (newObject PasswordManager) password_manager + msg' <- (newObject Message) msg + auth' <- (newObject Auth) auth + let retrying' = (/= 0) retrying + _cb password_manager' msg' auth' retrying' + maybeReleaseFunPtr funptrptr + +-- object ProxyResolverDefault +newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault) +noProxyResolverDefault :: Maybe ProxyResolverDefault +noProxyResolverDefault = Nothing + +foreign import ccall "soup_proxy_resolver_default_get_type" + c_soup_proxy_resolver_default_get_type :: IO GType + +type instance ParentTypes ProxyResolverDefault = '[GObject.Object, ProxyURIResolver, SessionFeature] + +instance GObject ProxyResolverDefault where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_proxy_resolver_default_get_type + + +class GObject o => ProxyResolverDefaultK o +instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o + +toProxyResolverDefault :: ProxyResolverDefaultK o => o -> IO ProxyResolverDefault +toProxyResolverDefault = unsafeCastTo ProxyResolverDefault + +-- interface ProxyURIResolver + +newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver) +noProxyURIResolver :: Maybe ProxyURIResolver +noProxyURIResolver = Nothing + +foreign import ccall "soup_proxy_uri_resolver_get_type" + c_soup_proxy_uri_resolver_get_type :: IO GType + +type instance ParentTypes ProxyURIResolver = '[SessionFeature, GObject.Object] + +instance GObject ProxyURIResolver where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_proxy_uri_resolver_get_type + + +class GObject o => ProxyURIResolverK o +instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o + +toProxyURIResolver :: ProxyURIResolverK o => o -> IO ProxyURIResolver +toProxyURIResolver = unsafeCastTo ProxyURIResolver + +-- method ProxyURIResolver::get_proxy_uri_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, 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" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_async" soup_proxy_uri_resolver_get_proxy_uri_async :: + Ptr ProxyURIResolver -> -- _obj : TInterface "Soup" "ProxyURIResolver" + Ptr URI -> -- uri : TInterface "Soup" "URI" + Ptr GLib.MainContext -> -- async_context : TInterface "GLib" "MainContext" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr ProxyURIResolverCallbackC -> -- callback : TInterface "Soup" "ProxyURIResolverCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + +{-# DEPRECATED proxyURIResolverGetProxyUriAsync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-} +proxyURIResolverGetProxyUriAsync :: + (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => + a -> -- _obj + URI -> -- uri + Maybe (GLib.MainContext) -> -- async_context + Maybe (b) -> -- cancellable + ProxyURIResolverCallback -> -- callback + m () +proxyURIResolverGetProxyUriAsync _obj uri async_context cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + maybeAsync_context <- case async_context of + Nothing -> return nullPtr + Just jAsync_context -> do + let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context + return jAsync_context' + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr ProxyURIResolverCallbackC)) + callback' <- mkProxyURIResolverCallback (proxyURIResolverCallbackWrapper (Just ptrcallback) callback) + poke ptrcallback callback' + let user_data = nullPtr + soup_proxy_uri_resolver_get_proxy_uri_async _obj' uri' maybeAsync_context maybeCancellable callback' user_data + touchManagedPtr _obj + touchManagedPtr uri + whenJust async_context touchManagedPtr + whenJust cancellable touchManagedPtr + return () + +-- method ProxyURIResolver::get_proxy_uri_sync +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_uri", argType = TInterface "Soup" "URI", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_sync" soup_proxy_uri_resolver_get_proxy_uri_sync :: + Ptr ProxyURIResolver -> -- _obj : TInterface "Soup" "ProxyURIResolver" + Ptr URI -> -- uri : TInterface "Soup" "URI" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr URI -> -- proxy_uri : TInterface "Soup" "URI" + IO Word32 + +{-# DEPRECATED proxyURIResolverGetProxyUriSync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-} +proxyURIResolverGetProxyUriSync :: + (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => + a -> -- _obj + URI -> -- uri + Maybe (b) -> -- cancellable + m (Word32,URI) +proxyURIResolverGetProxyUriSync _obj uri cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + proxy_uri <- callocBoxedBytes 64 :: IO (Ptr URI) + result <- soup_proxy_uri_resolver_get_proxy_uri_sync _obj' uri' maybeCancellable proxy_uri + proxy_uri' <- (wrapBoxed URI) proxy_uri + touchManagedPtr _obj + touchManagedPtr uri + whenJust cancellable touchManagedPtr + return (result, proxy_uri') + +-- callback ProxyURIResolverCallback +proxyURIResolverCallbackClosure :: ProxyURIResolverCallback -> IO Closure +proxyURIResolverCallbackClosure cb = newCClosure =<< mkProxyURIResolverCallback wrapped + where wrapped = proxyURIResolverCallbackWrapper Nothing cb + +type ProxyURIResolverCallbackC = + Ptr ProxyURIResolver -> + Word32 -> + Ptr URI -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkProxyURIResolverCallback :: ProxyURIResolverCallbackC -> IO (FunPtr ProxyURIResolverCallbackC) + +type ProxyURIResolverCallback = + ProxyURIResolver -> + Word32 -> + URI -> + IO () + +noProxyURIResolverCallback :: Maybe ProxyURIResolverCallback +noProxyURIResolverCallback = Nothing + +proxyURIResolverCallbackWrapper :: + Maybe (Ptr (FunPtr (ProxyURIResolverCallbackC))) -> + ProxyURIResolverCallback -> + Ptr ProxyURIResolver -> + Word32 -> + Ptr URI -> + Ptr () -> + IO () +proxyURIResolverCallbackWrapper funptrptr _cb resolver status proxy_uri _ = do + resolver' <- (newObject ProxyURIResolver) resolver + proxy_uri' <- (newBoxed URI) proxy_uri + _cb resolver' status proxy_uri' + maybeReleaseFunPtr funptrptr + +-- struct Range +newtype Range = Range (ForeignPtr Range) +noRange :: Maybe Range +noRange = Nothing + +rangeReadStart :: Range -> IO Int64 +rangeReadStart s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO Int64 + return val + +rangeReadEnd :: Range -> IO Int64 +rangeReadEnd s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO Int64 + return val + +-- object Request +newtype Request = Request (ForeignPtr Request) +noRequest :: Maybe Request +noRequest = Nothing + +foreign import ccall "soup_request_get_type" + c_soup_request_get_type :: IO GType + +type instance ParentTypes Request = '[GObject.Object, Gio.Initable] + +instance GObject Request where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_request_get_type + + +class GObject o => RequestK o +instance (GObject o, IsDescendantOf Request o) => RequestK o + +toRequest :: RequestK o => o -> IO Request +toRequest = unsafeCastTo Request + +-- method Request::get_content_length +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt64 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_get_content_length" soup_request_get_content_length :: + Ptr Request -> -- _obj : TInterface "Soup" "Request" + IO Int64 + + +requestGetContentLength :: + (MonadIO m, RequestK a) => + a -> -- _obj + m Int64 +requestGetContentLength _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_request_get_content_length _obj' + touchManagedPtr _obj + return result + +-- method Request::get_content_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_get_content_type" soup_request_get_content_type :: + Ptr Request -> -- _obj : TInterface "Soup" "Request" + IO CString + + +requestGetContentType :: + (MonadIO m, RequestK a) => + a -> -- _obj + m T.Text +requestGetContentType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_request_get_content_type _obj' + checkUnexpectedReturnNULL "soup_request_get_content_type" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method Request::get_session +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Session" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_get_session" soup_request_get_session :: + Ptr Request -> -- _obj : TInterface "Soup" "Request" + IO (Ptr Session) + + +requestGetSession :: + (MonadIO m, RequestK a) => + a -> -- _obj + m Session +requestGetSession _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_request_get_session _obj' + checkUnexpectedReturnNULL "soup_request_get_session" result + result' <- (newObject Session) result + touchManagedPtr _obj + return result' + +-- method Request::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_get_uri" soup_request_get_uri :: + Ptr Request -> -- _obj : TInterface "Soup" "Request" + IO (Ptr URI) + + +requestGetUri :: + (MonadIO m, RequestK a) => + a -> -- _obj + m URI +requestGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_request_get_uri _obj' + checkUnexpectedReturnNULL "soup_request_get_uri" result + result' <- (newBoxed URI) result + touchManagedPtr _obj + return result' + +-- method Request::send +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_request_send" soup_request_send :: + Ptr Request -> -- _obj : TInterface "Soup" "Request" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO (Ptr Gio.InputStream) + + +requestSend :: + (MonadIO m, RequestK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (b) -> -- cancellable + m Gio.InputStream +requestSend _obj cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ soup_request_send _obj' maybeCancellable + checkUnexpectedReturnNULL "soup_request_send" result + result' <- (wrapObject Gio.InputStream) result + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + +-- method Request::send_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, 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" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_send_async" soup_request_send_async :: + Ptr Request -> -- _obj : TInterface "Soup" "Request" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +requestSendAsync :: + (MonadIO m, RequestK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (b) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +requestSendAsync _obj cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + soup_request_send_async _obj' maybeCancellable maybeCallback user_data + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return () + +-- method Request::send_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_request_send_finish" soup_request_send_finish :: + Ptr Request -> -- _obj : TInterface "Soup" "Request" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr Gio.InputStream) + + +requestSendFinish :: + (MonadIO m, RequestK a, Gio.AsyncResultK b) => + a -> -- _obj + b -> -- result + m Gio.InputStream +requestSendFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ soup_request_send_finish _obj' result_' + checkUnexpectedReturnNULL "soup_request_send_finish" result + result' <- (wrapObject Gio.InputStream) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +-- object RequestData +newtype RequestData = RequestData (ForeignPtr RequestData) +noRequestData :: Maybe RequestData +noRequestData = Nothing + +foreign import ccall "soup_request_data_get_type" + c_soup_request_data_get_type :: IO GType + +type instance ParentTypes RequestData = '[Request, GObject.Object, Gio.Initable] + +instance GObject RequestData where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_request_data_get_type + + +class GObject o => RequestDataK o +instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o + +toRequestData :: RequestDataK o => o -> IO RequestData +toRequestData = unsafeCastTo RequestData + +-- Enum RequestError + +data RequestError = + RequestErrorBadUri + | RequestErrorUnsupportedUriScheme + | RequestErrorParsing + | RequestErrorEncoding + | AnotherRequestError Int + deriving (Show, Eq) + +instance Enum RequestError where + fromEnum RequestErrorBadUri = 0 + fromEnum RequestErrorUnsupportedUriScheme = 1 + fromEnum RequestErrorParsing = 2 + fromEnum RequestErrorEncoding = 3 + fromEnum (AnotherRequestError k) = k + + toEnum 0 = RequestErrorBadUri + toEnum 1 = RequestErrorUnsupportedUriScheme + toEnum 2 = RequestErrorParsing + toEnum 3 = RequestErrorEncoding + toEnum k = AnotherRequestError k + +instance GErrorClass RequestError where + gerrorClassDomain _ = "soup_request_error_quark" + +catchRequestError :: + IO a -> + (RequestError -> GErrorMessage -> IO a) -> + IO a +catchRequestError = catchGErrorJustDomain + +handleRequestError :: + (RequestError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleRequestError = handleGErrorJustDomain + +foreign import ccall "soup_request_error_get_type" c_soup_request_error_get_type :: + IO GType + +instance BoxedEnum RequestError where + boxedEnumType _ = c_soup_request_error_get_type + +-- object RequestFile +newtype RequestFile = RequestFile (ForeignPtr RequestFile) +noRequestFile :: Maybe RequestFile +noRequestFile = Nothing + +foreign import ccall "soup_request_file_get_type" + c_soup_request_file_get_type :: IO GType + +type instance ParentTypes RequestFile = '[Request, GObject.Object, Gio.Initable] + +instance GObject RequestFile where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_request_file_get_type + + +class GObject o => RequestFileK o +instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o + +toRequestFile :: RequestFileK o => o -> IO RequestFile +toRequestFile = unsafeCastTo RequestFile + +-- method RequestFile::get_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "File" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_file_get_file" soup_request_file_get_file :: + Ptr RequestFile -> -- _obj : TInterface "Soup" "RequestFile" + IO (Ptr Gio.File) + + +requestFileGetFile :: + (MonadIO m, RequestFileK a) => + a -> -- _obj + m Gio.File +requestFileGetFile _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_request_file_get_file _obj' + checkUnexpectedReturnNULL "soup_request_file_get_file" result + result' <- (wrapObject Gio.File) result + touchManagedPtr _obj + return result' + +-- object RequestHTTP +newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP) +noRequestHTTP :: Maybe RequestHTTP +noRequestHTTP = Nothing + +foreign import ccall "soup_request_http_get_type" + c_soup_request_http_get_type :: IO GType + +type instance ParentTypes RequestHTTP = '[Request, GObject.Object, Gio.Initable] + +instance GObject RequestHTTP where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_request_http_get_type + + +class GObject o => RequestHTTPK o +instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o + +toRequestHTTP :: RequestHTTPK o => o -> IO RequestHTTP +toRequestHTTP = unsafeCastTo RequestHTTP + +-- method RequestHTTP::get_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_http_get_message" soup_request_http_get_message :: + Ptr RequestHTTP -> -- _obj : TInterface "Soup" "RequestHTTP" + IO (Ptr Message) + + +requestHTTPGetMessage :: + (MonadIO m, RequestHTTPK a) => + a -> -- _obj + m Message +requestHTTPGetMessage _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_request_http_get_message _obj' + checkUnexpectedReturnNULL "soup_request_http_get_message" result + result' <- (wrapObject Message) result + touchManagedPtr _obj + return result' + +-- object Requester +newtype Requester = Requester (ForeignPtr Requester) +noRequester :: Maybe Requester +noRequester = Nothing + +foreign import ccall "soup_requester_get_type" + c_soup_requester_get_type :: IO GType + +type instance ParentTypes Requester = '[GObject.Object, SessionFeature] + +instance GObject Requester where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_requester_get_type + + +class GObject o => RequesterK o +instance (GObject o, IsDescendantOf Requester o) => RequesterK o + +toRequester :: RequesterK o => o -> IO Requester +toRequester = unsafeCastTo Requester + +-- method Requester::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "Requester" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_requester_new" soup_requester_new :: + IO (Ptr Requester) + + +requesterNew :: + (MonadIO m) => + m Requester +requesterNew = liftIO $ do + result <- soup_requester_new + checkUnexpectedReturnNULL "soup_requester_new" result + result' <- (wrapObject Requester) result + return result' + +-- method Requester::request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Request" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_requester_request" soup_requester_request :: + Ptr Requester -> -- _obj : TInterface "Soup" "Requester" + CString -> -- uri_string : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr Request) + + +requesterRequest :: + (MonadIO m, RequesterK a) => + a -> -- _obj + T.Text -> -- uri_string + m Request +requesterRequest _obj uri_string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri_string' <- textToCString uri_string + onException (do + result <- propagateGError $ soup_requester_request _obj' uri_string' + checkUnexpectedReturnNULL "soup_requester_request" result + result' <- (wrapObject Request) result + touchManagedPtr _obj + freeMem uri_string' + return result' + ) (do + freeMem uri_string' + ) + +-- method Requester::request_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Request" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_requester_request_uri" soup_requester_request_uri :: + Ptr Requester -> -- _obj : TInterface "Soup" "Requester" + Ptr URI -> -- uri : TInterface "Soup" "URI" + Ptr (Ptr GError) -> -- error + IO (Ptr Request) + + +requesterRequestUri :: + (MonadIO m, RequesterK a) => + a -> -- _obj + URI -> -- uri + m Request +requesterRequestUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + onException (do + result <- propagateGError $ soup_requester_request_uri _obj' uri' + checkUnexpectedReturnNULL "soup_requester_request_uri" result + result' <- (wrapObject Request) result + touchManagedPtr _obj + touchManagedPtr uri + return result' + ) (do + return () + ) + +-- Enum RequesterError + +data RequesterError = + RequesterErrorBadUri + | RequesterErrorUnsupportedUriScheme + | AnotherRequesterError Int + deriving (Show, Eq) + +instance Enum RequesterError where + fromEnum RequesterErrorBadUri = 0 + fromEnum RequesterErrorUnsupportedUriScheme = 1 + fromEnum (AnotherRequesterError k) = k + + toEnum 0 = RequesterErrorBadUri + toEnum 1 = RequesterErrorUnsupportedUriScheme + toEnum k = AnotherRequesterError k + +instance GErrorClass RequesterError where + gerrorClassDomain _ = "soup_requester_error_quark" + +catchRequesterError :: + IO a -> + (RequesterError -> GErrorMessage -> IO a) -> + IO a +catchRequesterError = catchGErrorJustDomain + +handleRequesterError :: + (RequesterError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleRequesterError = handleGErrorJustDomain + +foreign import ccall "soup_requester_error_get_type" c_soup_requester_error_get_type :: + IO GType + +instance BoxedEnum RequesterError where + boxedEnumType _ = c_soup_requester_error_get_type + +-- object Server +newtype Server = Server (ForeignPtr Server) +noServer :: Maybe Server +noServer = Nothing + +foreign import ccall "soup_server_get_type" + c_soup_server_get_type :: IO GType + +type instance ParentTypes Server = '[GObject.Object] + +instance GObject Server where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_server_get_type + + +class GObject o => ServerK o +instance (GObject o, IsDescendantOf Server o) => ServerK o + +toServer :: ServerK o => o -> IO Server +toServer = unsafeCastTo Server + +-- method Server::accept_iostream +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_server_accept_iostream" soup_server_accept_iostream :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Ptr Gio.IOStream -> -- stream : TInterface "Gio" "IOStream" + Ptr Gio.SocketAddress -> -- local_addr : TInterface "Gio" "SocketAddress" + Ptr Gio.SocketAddress -> -- remote_addr : TInterface "Gio" "SocketAddress" + Ptr (Ptr GError) -> -- error + IO CInt + + +serverAcceptIostream :: + (MonadIO m, ServerK a, Gio.IOStreamK b, Gio.SocketAddressK c, Gio.SocketAddressK d) => + a -> -- _obj + b -> -- stream + Maybe (c) -> -- local_addr + Maybe (d) -> -- remote_addr + m () +serverAcceptIostream _obj stream local_addr remote_addr = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let stream' = unsafeManagedPtrCastPtr stream + maybeLocal_addr <- case local_addr of + Nothing -> return nullPtr + Just jLocal_addr -> do + let jLocal_addr' = unsafeManagedPtrCastPtr jLocal_addr + return jLocal_addr' + maybeRemote_addr <- case remote_addr of + Nothing -> return nullPtr + Just jRemote_addr -> do + let jRemote_addr' = unsafeManagedPtrCastPtr jRemote_addr + return jRemote_addr' + onException (do + _ <- propagateGError $ soup_server_accept_iostream _obj' stream' maybeLocal_addr maybeRemote_addr + touchManagedPtr _obj + touchManagedPtr stream + whenJust local_addr touchManagedPtr + whenJust remote_addr touchManagedPtr + return () + ) (do + return () + ) + +-- method Server::add_auth_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_add_auth_domain" soup_server_add_auth_domain :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Ptr AuthDomain -> -- auth_domain : TInterface "Soup" "AuthDomain" + IO () + + +serverAddAuthDomain :: + (MonadIO m, ServerK a, AuthDomainK b) => + a -> -- _obj + b -> -- auth_domain + m () +serverAddAuthDomain _obj auth_domain = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let auth_domain' = unsafeManagedPtrCastPtr auth_domain + soup_server_add_auth_domain _obj' auth_domain' + touchManagedPtr _obj + touchManagedPtr auth_domain + return () + +-- method Server::add_early_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_add_early_handler" soup_server_add_early_handler :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + CString -> -- path : TBasicType TUTF8 + FunPtr ServerCallbackC -> -- callback : TInterface "Soup" "ServerCallback" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +serverAddEarlyHandler :: + (MonadIO m, ServerK a) => + a -> -- _obj + Maybe (T.Text) -> -- path + ServerCallback -> -- callback + m () +serverAddEarlyHandler _obj path callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + jPath' <- textToCString jPath + return jPath' + callback' <- mkServerCallback (serverCallbackWrapper Nothing callback) + let user_data = castFunPtrToPtr callback' + let destroy = safeFreeFunPtrPtr + soup_server_add_early_handler _obj' maybePath callback' user_data destroy + touchManagedPtr _obj + freeMem maybePath + return () + +-- method Server::add_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_add_handler" soup_server_add_handler :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + CString -> -- path : TBasicType TUTF8 + FunPtr ServerCallbackC -> -- callback : TInterface "Soup" "ServerCallback" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +serverAddHandler :: + (MonadIO m, ServerK a) => + a -> -- _obj + Maybe (T.Text) -> -- path + ServerCallback -> -- callback + m () +serverAddHandler _obj path callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + jPath' <- textToCString jPath + return jPath' + callback' <- mkServerCallback (serverCallbackWrapper Nothing callback) + let user_data = castFunPtrToPtr callback' + let destroy = safeFreeFunPtrPtr + soup_server_add_handler _obj' maybePath callback' user_data destroy + touchManagedPtr _obj + freeMem maybePath + return () + +-- method Server::add_websocket_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_add_websocket_handler" soup_server_add_websocket_handler :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + CString -> -- path : TBasicType TUTF8 + CString -> -- origin : TBasicType TUTF8 + Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) + FunPtr ServerWebsocketCallbackC -> -- callback : TInterface "Soup" "ServerWebsocketCallback" + Ptr () -> -- user_data : TBasicType TVoid + FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" + IO () + + +serverAddWebsocketHandler :: + (MonadIO m, ServerK a) => + a -> -- _obj + Maybe (T.Text) -> -- path + Maybe (T.Text) -> -- origin + Maybe ([T.Text]) -> -- protocols + ServerWebsocketCallback -> -- callback + m () +serverAddWebsocketHandler _obj path origin protocols callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybePath <- case path of + Nothing -> return nullPtr + Just jPath -> do + jPath' <- textToCString jPath + return jPath' + maybeOrigin <- case origin of + Nothing -> return nullPtr + Just jOrigin -> do + jOrigin' <- textToCString jOrigin + return jOrigin' + maybeProtocols <- case protocols of + Nothing -> return nullPtr + Just jProtocols -> do + jProtocols' <- packZeroTerminatedUTF8CArray jProtocols + return jProtocols' + callback' <- mkServerWebsocketCallback (serverWebsocketCallbackWrapper Nothing callback) + let user_data = castFunPtrToPtr callback' + let destroy = safeFreeFunPtrPtr + soup_server_add_websocket_handler _obj' maybePath maybeOrigin maybeProtocols callback' user_data destroy + touchManagedPtr _obj + freeMem maybePath + freeMem maybeOrigin + mapZeroTerminatedCArray freeMem maybeProtocols + freeMem maybeProtocols + return () + +-- method Server::disconnect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_disconnect" soup_server_disconnect :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO () + + +serverDisconnect :: + (MonadIO m, ServerK a) => + a -> -- _obj + m () +serverDisconnect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_server_disconnect _obj' + touchManagedPtr _obj + return () + +-- method Server::get_async_context +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_get_async_context" soup_server_get_async_context :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO (Ptr GLib.MainContext) + +{-# DEPRECATED serverGetAsyncContext ["If you are using soup_server_listen(), etc, then","the server listens on the thread-default #GMainContext, and this","property is ignored."]#-} +serverGetAsyncContext :: + (MonadIO m, ServerK a) => + a -> -- _obj + m GLib.MainContext +serverGetAsyncContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_server_get_async_context _obj' + checkUnexpectedReturnNULL "soup_server_get_async_context" result + result' <- (newBoxed GLib.MainContext) result + touchManagedPtr _obj + return result' + +-- method Server::get_listener +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Socket" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_get_listener" soup_server_get_listener :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO (Ptr Socket) + +{-# DEPRECATED serverGetListener ["If you are using soup_server_listen(), etc, then use","soup_server_get_listeners() to get a list of all listening sockets,","but note that that function returns #GSockets, not #SoupSockets."]#-} +serverGetListener :: + (MonadIO m, ServerK a) => + a -> -- _obj + m Socket +serverGetListener _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_server_get_listener _obj' + checkUnexpectedReturnNULL "soup_server_get_listener" result + result' <- (newObject Socket) result + touchManagedPtr _obj + return result' + +-- method Server::get_listeners +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Gio" "Socket") +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_get_listeners" soup_server_get_listeners :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO (Ptr (GSList (Ptr Gio.Socket))) + + +serverGetListeners :: + (MonadIO m, ServerK a) => + a -> -- _obj + m [Gio.Socket] +serverGetListeners _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_server_get_listeners _obj' + checkUnexpectedReturnNULL "soup_server_get_listeners" result + result' <- unpackGSList result + result'' <- mapM (newObject Gio.Socket) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +-- method Server::get_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_get_port" soup_server_get_port :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO Word32 + +{-# DEPRECATED serverGetPort ["If you are using soup_server_listen(), etc, then use","soup_server_get_uris() to get a list of all listening addresses."]#-} +serverGetPort :: + (MonadIO m, ServerK a) => + a -> -- _obj + m Word32 +serverGetPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_server_get_port _obj' + touchManagedPtr _obj + return result + +-- method Server::get_uris +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Soup" "URI") +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_get_uris" soup_server_get_uris :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO (Ptr (GSList (Ptr URI))) + + +serverGetUris :: + (MonadIO m, ServerK a) => + a -> -- _obj + m [URI] +serverGetUris _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_server_get_uris _obj' + checkUnexpectedReturnNULL "soup_server_get_uris" result + result' <- unpackGSList result + result'' <- mapM (wrapBoxed URI) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +-- method Server::is_https +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_is_https" soup_server_is_https :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO CInt + + +serverIsHttps :: + (MonadIO m, ServerK a) => + a -> -- _obj + m Bool +serverIsHttps _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_server_is_https _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Server::listen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_server_listen" soup_server_listen :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Ptr Gio.SocketAddress -> -- address : TInterface "Gio" "SocketAddress" + CUInt -> -- options : TInterface "Soup" "ServerListenOptions" + Ptr (Ptr GError) -> -- error + IO CInt + + +serverListen :: + (MonadIO m, ServerK a, Gio.SocketAddressK b) => + a -> -- _obj + b -> -- address + [ServerListenOptions] -> -- options + m () +serverListen _obj address options = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let address' = unsafeManagedPtrCastPtr address + let options' = gflagsToWord options + onException (do + _ <- propagateGError $ soup_server_listen _obj' address' options' + touchManagedPtr _obj + touchManagedPtr address + return () + ) (do + return () + ) + +-- method Server::listen_all +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_server_listen_all" soup_server_listen_all :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Word32 -> -- port : TBasicType TUInt32 + CUInt -> -- options : TInterface "Soup" "ServerListenOptions" + Ptr (Ptr GError) -> -- error + IO CInt + + +serverListenAll :: + (MonadIO m, ServerK a) => + a -> -- _obj + Word32 -> -- port + [ServerListenOptions] -> -- options + m () +serverListenAll _obj port options = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let options' = gflagsToWord options + onException (do + _ <- propagateGError $ soup_server_listen_all _obj' port options' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method Server::listen_fd +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_server_listen_fd" soup_server_listen_fd :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Int32 -> -- fd : TBasicType TInt32 + CUInt -> -- options : TInterface "Soup" "ServerListenOptions" + Ptr (Ptr GError) -> -- error + IO CInt + + +serverListenFd :: + (MonadIO m, ServerK a) => + a -> -- _obj + Int32 -> -- fd + [ServerListenOptions] -> -- options + m () +serverListenFd _obj fd options = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let options' = gflagsToWord options + onException (do + _ <- propagateGError $ soup_server_listen_fd _obj' fd options' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method Server::listen_local +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_server_listen_local" soup_server_listen_local :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Word32 -> -- port : TBasicType TUInt32 + CUInt -> -- options : TInterface "Soup" "ServerListenOptions" + Ptr (Ptr GError) -> -- error + IO CInt + + +serverListenLocal :: + (MonadIO m, ServerK a) => + a -> -- _obj + Word32 -> -- port + [ServerListenOptions] -> -- options + m () +serverListenLocal _obj port options = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let options' = gflagsToWord options + onException (do + _ <- propagateGError $ soup_server_listen_local _obj' port options' + touchManagedPtr _obj + return () + ) (do + return () + ) + +-- method Server::listen_socket +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_server_listen_socket" soup_server_listen_socket :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Ptr Gio.Socket -> -- socket : TInterface "Gio" "Socket" + CUInt -> -- options : TInterface "Soup" "ServerListenOptions" + Ptr (Ptr GError) -> -- error + IO CInt + + +serverListenSocket :: + (MonadIO m, ServerK a, Gio.SocketK b) => + a -> -- _obj + b -> -- socket + [ServerListenOptions] -> -- options + m () +serverListenSocket _obj socket options = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let socket' = unsafeManagedPtrCastPtr socket + let options' = gflagsToWord options + onException (do + _ <- propagateGError $ soup_server_listen_socket _obj' socket' options' + touchManagedPtr _obj + touchManagedPtr socket + return () + ) (do + return () + ) + +-- method Server::pause_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_pause_message" soup_server_pause_message :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +serverPauseMessage :: + (MonadIO m, ServerK a, MessageK b) => + a -> -- _obj + b -> -- msg + m () +serverPauseMessage _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + soup_server_pause_message _obj' msg' + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- method Server::quit +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_quit" soup_server_quit :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO () + +{-# DEPRECATED serverQuit ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-} +serverQuit :: + (MonadIO m, ServerK a) => + a -> -- _obj + m () +serverQuit _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_server_quit _obj' + touchManagedPtr _obj + return () + +-- method Server::remove_auth_domain +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_remove_auth_domain" soup_server_remove_auth_domain :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Ptr AuthDomain -> -- auth_domain : TInterface "Soup" "AuthDomain" + IO () + + +serverRemoveAuthDomain :: + (MonadIO m, ServerK a, AuthDomainK b) => + a -> -- _obj + b -> -- auth_domain + m () +serverRemoveAuthDomain _obj auth_domain = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let auth_domain' = unsafeManagedPtrCastPtr auth_domain + soup_server_remove_auth_domain _obj' auth_domain' + touchManagedPtr _obj + touchManagedPtr auth_domain + return () + +-- method Server::remove_handler +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_server_remove_handler" soup_server_remove_handler :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + CString -> -- path : TBasicType TUTF8 + IO () + + +serverRemoveHandler :: + (MonadIO m, ServerK a) => + a -> -- _obj + T.Text -> -- path + m () +serverRemoveHandler _obj path = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + path' <- textToCString path + soup_server_remove_handler _obj' path' + touchManagedPtr _obj + freeMem path' + return () + +-- method Server::run +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_run" soup_server_run :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO () + +{-# DEPRECATED serverRun ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-} +serverRun :: + (MonadIO m, ServerK a) => + a -> -- _obj + m () +serverRun _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_server_run _obj' + touchManagedPtr _obj + return () + +-- method Server::run_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_run_async" soup_server_run_async :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + IO () + +{-# DEPRECATED serverRunAsync ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-} +serverRunAsync :: + (MonadIO m, ServerK a) => + a -> -- _obj + m () +serverRunAsync _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_server_run_async _obj' + touchManagedPtr _obj + return () + +-- method Server::set_ssl_cert_file +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_server_set_ssl_cert_file" soup_server_set_ssl_cert_file :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + CString -> -- ssl_cert_file : TBasicType TUTF8 + CString -> -- ssl_key_file : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CInt + + +serverSetSslCertFile :: + (MonadIO m, ServerK a) => + a -> -- _obj + T.Text -> -- ssl_cert_file + T.Text -> -- ssl_key_file + m () +serverSetSslCertFile _obj ssl_cert_file ssl_key_file = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + ssl_cert_file' <- textToCString ssl_cert_file + ssl_key_file' <- textToCString ssl_key_file + onException (do + _ <- propagateGError $ soup_server_set_ssl_cert_file _obj' ssl_cert_file' ssl_key_file' + touchManagedPtr _obj + freeMem ssl_cert_file' + freeMem ssl_key_file' + return () + ) (do + freeMem ssl_cert_file' + freeMem ssl_key_file' + ) + +-- method Server::unpause_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_server_unpause_message" soup_server_unpause_message :: + Ptr Server -> -- _obj : TInterface "Soup" "Server" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +serverUnpauseMessage :: + (MonadIO m, ServerK a, MessageK b) => + a -> -- _obj + b -> -- msg + m () +serverUnpauseMessage _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + soup_server_unpause_message _obj' msg' + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- signal Server::request-aborted +type ServerRequestAbortedCallback = + Message -> + ClientContext -> + IO () + +noServerRequestAbortedCallback :: Maybe ServerRequestAbortedCallback +noServerRequestAbortedCallback = Nothing + +type ServerRequestAbortedCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr ClientContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkServerRequestAbortedCallback :: ServerRequestAbortedCallbackC -> IO (FunPtr ServerRequestAbortedCallbackC) + +serverRequestAbortedClosure :: ServerRequestAbortedCallback -> IO Closure +serverRequestAbortedClosure cb = newCClosure =<< mkServerRequestAbortedCallback wrapped + where wrapped = serverRequestAbortedCallbackWrapper cb + +serverRequestAbortedCallbackWrapper :: + ServerRequestAbortedCallback -> + Ptr () -> + Ptr Message -> + Ptr ClientContext -> + Ptr () -> + IO () +serverRequestAbortedCallbackWrapper _cb _ message client _ = do + message' <- (newObject Message) message + client' <- (newBoxed ClientContext) client + _cb message' client' + +onServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId +onServerRequestAborted obj cb = liftIO $ connectServerRequestAborted obj cb SignalConnectBefore +afterServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId +afterServerRequestAborted obj cb = connectServerRequestAborted obj cb SignalConnectAfter + +connectServerRequestAborted :: (GObject a, MonadIO m) => + a -> ServerRequestAbortedCallback -> SignalConnectMode -> m SignalHandlerId +connectServerRequestAborted obj cb after = liftIO $ do + cb' <- mkServerRequestAbortedCallback (serverRequestAbortedCallbackWrapper cb) + connectSignalFunPtr obj "request-aborted" cb' after + +-- signal Server::request-finished +type ServerRequestFinishedCallback = + Message -> + ClientContext -> + IO () + +noServerRequestFinishedCallback :: Maybe ServerRequestFinishedCallback +noServerRequestFinishedCallback = Nothing + +type ServerRequestFinishedCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr ClientContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkServerRequestFinishedCallback :: ServerRequestFinishedCallbackC -> IO (FunPtr ServerRequestFinishedCallbackC) + +serverRequestFinishedClosure :: ServerRequestFinishedCallback -> IO Closure +serverRequestFinishedClosure cb = newCClosure =<< mkServerRequestFinishedCallback wrapped + where wrapped = serverRequestFinishedCallbackWrapper cb + +serverRequestFinishedCallbackWrapper :: + ServerRequestFinishedCallback -> + Ptr () -> + Ptr Message -> + Ptr ClientContext -> + Ptr () -> + IO () +serverRequestFinishedCallbackWrapper _cb _ message client _ = do + message' <- (newObject Message) message + client' <- (newBoxed ClientContext) client + _cb message' client' + +onServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId +onServerRequestFinished obj cb = liftIO $ connectServerRequestFinished obj cb SignalConnectBefore +afterServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId +afterServerRequestFinished obj cb = connectServerRequestFinished obj cb SignalConnectAfter + +connectServerRequestFinished :: (GObject a, MonadIO m) => + a -> ServerRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId +connectServerRequestFinished obj cb after = liftIO $ do + cb' <- mkServerRequestFinishedCallback (serverRequestFinishedCallbackWrapper cb) + connectSignalFunPtr obj "request-finished" cb' after + +-- signal Server::request-read +type ServerRequestReadCallback = + Message -> + ClientContext -> + IO () + +noServerRequestReadCallback :: Maybe ServerRequestReadCallback +noServerRequestReadCallback = Nothing + +type ServerRequestReadCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr ClientContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkServerRequestReadCallback :: ServerRequestReadCallbackC -> IO (FunPtr ServerRequestReadCallbackC) + +serverRequestReadClosure :: ServerRequestReadCallback -> IO Closure +serverRequestReadClosure cb = newCClosure =<< mkServerRequestReadCallback wrapped + where wrapped = serverRequestReadCallbackWrapper cb + +serverRequestReadCallbackWrapper :: + ServerRequestReadCallback -> + Ptr () -> + Ptr Message -> + Ptr ClientContext -> + Ptr () -> + IO () +serverRequestReadCallbackWrapper _cb _ message client _ = do + message' <- (newObject Message) message + client' <- (newBoxed ClientContext) client + _cb message' client' + +onServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId +onServerRequestRead obj cb = liftIO $ connectServerRequestRead obj cb SignalConnectBefore +afterServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId +afterServerRequestRead obj cb = connectServerRequestRead obj cb SignalConnectAfter + +connectServerRequestRead :: (GObject a, MonadIO m) => + a -> ServerRequestReadCallback -> SignalConnectMode -> m SignalHandlerId +connectServerRequestRead obj cb after = liftIO $ do + cb' <- mkServerRequestReadCallback (serverRequestReadCallbackWrapper cb) + connectSignalFunPtr obj "request-read" cb' after + +-- signal Server::request-started +type ServerRequestStartedCallback = + Message -> + ClientContext -> + IO () + +noServerRequestStartedCallback :: Maybe ServerRequestStartedCallback +noServerRequestStartedCallback = Nothing + +type ServerRequestStartedCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr ClientContext -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkServerRequestStartedCallback :: ServerRequestStartedCallbackC -> IO (FunPtr ServerRequestStartedCallbackC) + +serverRequestStartedClosure :: ServerRequestStartedCallback -> IO Closure +serverRequestStartedClosure cb = newCClosure =<< mkServerRequestStartedCallback wrapped + where wrapped = serverRequestStartedCallbackWrapper cb + +serverRequestStartedCallbackWrapper :: + ServerRequestStartedCallback -> + Ptr () -> + Ptr Message -> + Ptr ClientContext -> + Ptr () -> + IO () +serverRequestStartedCallbackWrapper _cb _ message client _ = do + message' <- (newObject Message) message + client' <- (newBoxed ClientContext) client + _cb message' client' + +onServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId +onServerRequestStarted obj cb = liftIO $ connectServerRequestStarted obj cb SignalConnectBefore +afterServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId +afterServerRequestStarted obj cb = connectServerRequestStarted obj cb SignalConnectAfter + +connectServerRequestStarted :: (GObject a, MonadIO m) => + a -> ServerRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId +connectServerRequestStarted obj cb after = liftIO $ do + cb' <- mkServerRequestStartedCallback (serverRequestStartedCallbackWrapper cb) + connectSignalFunPtr obj "request-started" cb' after + +-- callback ServerCallback +serverCallbackClosure :: ServerCallback -> IO Closure +serverCallbackClosure cb = newCClosure =<< mkServerCallback wrapped + where wrapped = serverCallbackWrapper Nothing cb + +type ServerCallbackC = + Ptr Server -> + Ptr Message -> + CString -> + Ptr (GHashTable CString CString) -> + Ptr ClientContext -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkServerCallback :: ServerCallbackC -> IO (FunPtr ServerCallbackC) + +type ServerCallback = + Server -> + Message -> + T.Text -> + Maybe (Map.Map T.Text T.Text) -> + ClientContext -> + IO () + +noServerCallback :: Maybe ServerCallback +noServerCallback = Nothing + +serverCallbackWrapper :: + Maybe (Ptr (FunPtr (ServerCallbackC))) -> + ServerCallback -> + Ptr Server -> + Ptr Message -> + CString -> + Ptr (GHashTable CString CString) -> + Ptr ClientContext -> + Ptr () -> + IO () +serverCallbackWrapper funptrptr _cb server msg path query client _ = do + server' <- (newObject Server) server + msg' <- (newObject Message) msg + path' <- cstringToText path + maybeQuery <- + if query == nullPtr + then return Nothing + else do + query' <- unpackGHashTable query + let query'' = mapFirst cstringUnpackPtr query' + query''' <- mapFirstA cstringToText query'' + let query'''' = mapSecond cstringUnpackPtr query''' + query''''' <- mapSecondA cstringToText query'''' + let query'''''' = Map.fromList query''''' + return $ Just query'''''' + client' <- (newBoxed ClientContext) client + _cb server' msg' path' maybeQuery client' + maybeReleaseFunPtr funptrptr + +-- Flags ServerListenOptions + +data ServerListenOptions = + ServerListenOptionsHttps + | ServerListenOptionsIpv4Only + | ServerListenOptionsIpv6Only + | AnotherServerListenOptions Int + deriving (Show, Eq) + +instance Enum ServerListenOptions where + fromEnum ServerListenOptionsHttps = 1 + fromEnum ServerListenOptionsIpv4Only = 2 + fromEnum ServerListenOptionsIpv6Only = 4 + fromEnum (AnotherServerListenOptions k) = k + + toEnum 1 = ServerListenOptionsHttps + toEnum 2 = ServerListenOptionsIpv4Only + toEnum 4 = ServerListenOptionsIpv6Only + toEnum k = AnotherServerListenOptions k + +foreign import ccall "soup_server_listen_options_get_type" c_soup_server_listen_options_get_type :: + IO GType + +instance BoxedEnum ServerListenOptions where + boxedEnumType _ = c_soup_server_listen_options_get_type + +instance IsGFlag ServerListenOptions + +-- callback ServerWebsocketCallback +serverWebsocketCallbackClosure :: ServerWebsocketCallback -> IO Closure +serverWebsocketCallbackClosure cb = newCClosure =<< mkServerWebsocketCallback wrapped + where wrapped = serverWebsocketCallbackWrapper Nothing cb + +type ServerWebsocketCallbackC = + Ptr Server -> + Ptr WebsocketConnection -> + CString -> + Ptr ClientContext -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkServerWebsocketCallback :: ServerWebsocketCallbackC -> IO (FunPtr ServerWebsocketCallbackC) + +type ServerWebsocketCallback = + Server -> + WebsocketConnection -> + T.Text -> + ClientContext -> + IO () + +noServerWebsocketCallback :: Maybe ServerWebsocketCallback +noServerWebsocketCallback = Nothing + +serverWebsocketCallbackWrapper :: + Maybe (Ptr (FunPtr (ServerWebsocketCallbackC))) -> + ServerWebsocketCallback -> + Ptr Server -> + Ptr WebsocketConnection -> + CString -> + Ptr ClientContext -> + Ptr () -> + IO () +serverWebsocketCallbackWrapper funptrptr _cb server connection path client _ = do + server' <- (newObject Server) server + connection' <- (newObject WebsocketConnection) connection + path' <- cstringToText path + client' <- (newBoxed ClientContext) client + _cb server' connection' path' client' + maybeReleaseFunPtr funptrptr + +-- object Session +newtype Session = Session (ForeignPtr Session) +noSession :: Maybe Session +noSession = Nothing + +foreign import ccall "soup_session_get_type" + c_soup_session_get_type :: IO GType + +type instance ParentTypes Session = '[GObject.Object] + +instance GObject Session where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_session_get_type + + +class GObject o => SessionK o +instance (GObject o, IsDescendantOf Session o) => SessionK o + +toSession :: SessionK o => o -> IO Session +toSession = unsafeCastTo Session + +-- method Session::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "Session" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_new" soup_session_new :: + IO (Ptr Session) + + +sessionNew :: + (MonadIO m) => + m Session +sessionNew = liftIO $ do + result <- soup_session_new + checkUnexpectedReturnNULL "soup_session_new" result + result' <- (wrapObject Session) result + return result' + +-- method Session::abort +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_abort" soup_session_abort :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + IO () + + +sessionAbort :: + (MonadIO m, SessionK a) => + a -> -- _obj + m () +sessionAbort _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_session_abort _obj' + touchManagedPtr _obj + return () + +-- method Session::add_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_add_feature" soup_session_add_feature :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr SessionFeature -> -- feature : TInterface "Soup" "SessionFeature" + IO () + + +sessionAddFeature :: + (MonadIO m, SessionK a, SessionFeatureK b) => + a -> -- _obj + b -> -- feature + m () +sessionAddFeature _obj feature = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature' = unsafeManagedPtrCastPtr feature + soup_session_add_feature _obj' feature' + touchManagedPtr _obj + touchManagedPtr feature + return () + +-- method Session::add_feature_by_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_add_feature_by_type" soup_session_add_feature_by_type :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CGType -> -- feature_type : TBasicType TGType + IO () + + +sessionAddFeatureByType :: + (MonadIO m, SessionK a) => + a -> -- _obj + GType -> -- feature_type + m () +sessionAddFeatureByType _obj feature_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature_type' = gtypeToCGType feature_type + soup_session_add_feature_by_type _obj' feature_type' + touchManagedPtr _obj + return () + +-- method Session::cancel_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_cancel_message" soup_session_cancel_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + Word32 -> -- status_code : TBasicType TUInt32 + IO () + + +sessionCancelMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + Word32 -> -- status_code + m () +sessionCancelMessage _obj msg status_code = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + soup_session_cancel_message _obj' msg' status_code + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- method Session::get_async_context +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "GLib" "MainContext" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_get_async_context" soup_session_get_async_context :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + IO (Ptr GLib.MainContext) + + +sessionGetAsyncContext :: + (MonadIO m, SessionK a) => + a -> -- _obj + m GLib.MainContext +sessionGetAsyncContext _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_session_get_async_context _obj' + checkUnexpectedReturnNULL "soup_session_get_async_context" result + result' <- (newBoxed GLib.MainContext) result + touchManagedPtr _obj + return result' + +-- method Session::get_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "SessionFeature" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_get_feature" soup_session_get_feature :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CGType -> -- feature_type : TBasicType TGType + IO (Ptr SessionFeature) + + +sessionGetFeature :: + (MonadIO m, SessionK a) => + a -> -- _obj + GType -> -- feature_type + m SessionFeature +sessionGetFeature _obj feature_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature_type' = gtypeToCGType feature_type + result <- soup_session_get_feature _obj' feature_type' + checkUnexpectedReturnNULL "soup_session_get_feature" result + result' <- (newObject SessionFeature) result + touchManagedPtr _obj + return result' + +-- method Session::get_feature_for_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "SessionFeature" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_get_feature_for_message" soup_session_get_feature_for_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CGType -> -- feature_type : TBasicType TGType + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO (Ptr SessionFeature) + + +sessionGetFeatureForMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + GType -> -- feature_type + b -> -- msg + m SessionFeature +sessionGetFeatureForMessage _obj feature_type msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature_type' = gtypeToCGType feature_type + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_session_get_feature_for_message _obj' feature_type' msg' + checkUnexpectedReturnNULL "soup_session_get_feature_for_message" result + result' <- (newObject SessionFeature) result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- method Session::get_features +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Soup" "SessionFeature") +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_get_features" soup_session_get_features :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CGType -> -- feature_type : TBasicType TGType + IO (Ptr (GSList (Ptr SessionFeature))) + + +sessionGetFeatures :: + (MonadIO m, SessionK a) => + a -> -- _obj + GType -> -- feature_type + m [SessionFeature] +sessionGetFeatures _obj feature_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature_type' = gtypeToCGType feature_type + result <- soup_session_get_features _obj' feature_type' + checkUnexpectedReturnNULL "soup_session_get_features" result + result' <- unpackGSList result + result'' <- mapM (newObject SessionFeature) result' + g_slist_free result + touchManagedPtr _obj + return result'' + +-- method Session::has_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_has_feature" soup_session_has_feature :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CGType -> -- feature_type : TBasicType TGType + IO CInt + + +sessionHasFeature :: + (MonadIO m, SessionK a) => + a -> -- _obj + GType -> -- feature_type + m Bool +sessionHasFeature _obj feature_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature_type' = gtypeToCGType feature_type + result <- soup_session_has_feature _obj' feature_type' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Session::pause_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_pause_message" soup_session_pause_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +sessionPauseMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + m () +sessionPauseMessage _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + soup_session_pause_message _obj' msg' + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- method Session::prefetch_dns +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, 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" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_prefetch_dns" soup_session_prefetch_dns :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CString -> -- hostname : TBasicType TUTF8 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr AddressCallbackC -> -- callback : TInterface "Soup" "AddressCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +sessionPrefetchDns :: + (MonadIO m, SessionK a, Gio.CancellableK b) => + a -> -- _obj + T.Text -> -- hostname + Maybe (b) -> -- cancellable + Maybe (AddressCallback) -> -- callback + m () +sessionPrefetchDns _obj hostname cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + hostname' <- textToCString hostname + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + soup_session_prefetch_dns _obj' hostname' maybeCancellable maybeCallback user_data + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem hostname' + return () + +-- method Session::prepare_for_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_prepare_for_uri" soup_session_prepare_for_uri :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr URI -> -- uri : TInterface "Soup" "URI" + IO () + +{-# DEPRECATED sessionPrepareForUri ["(Since version 2.38)","use soup_session_prefetch_dns() instead"]#-} +sessionPrepareForUri :: + (MonadIO m, SessionK a) => + a -> -- _obj + URI -> -- uri + m () +sessionPrepareForUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + soup_session_prepare_for_uri _obj' uri' + touchManagedPtr _obj + touchManagedPtr uri + return () + +-- method Session::queue_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_queue_message" soup_session_queue_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + FunPtr SessionCallbackC -> -- callback : TInterface "Soup" "SessionCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +sessionQueueMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + Maybe (SessionCallback) -> -- callback + m () +sessionQueueMessage _obj msg callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + msg' <- refObject msg + ptrcallback <- callocMem :: IO (Ptr (FunPtr SessionCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- mkSessionCallback (sessionCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + soup_session_queue_message _obj' msg' maybeCallback user_data + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- method Session::redirect_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_redirect_message" soup_session_redirect_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO CInt + + +sessionRedirectMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + m Bool +sessionRedirectMessage _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_session_redirect_message _obj' msg' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- method Session::remove_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_remove_feature" soup_session_remove_feature :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr SessionFeature -> -- feature : TInterface "Soup" "SessionFeature" + IO () + + +sessionRemoveFeature :: + (MonadIO m, SessionK a, SessionFeatureK b) => + a -> -- _obj + b -> -- feature + m () +sessionRemoveFeature _obj feature = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature' = unsafeManagedPtrCastPtr feature + soup_session_remove_feature _obj' feature' + touchManagedPtr _obj + touchManagedPtr feature + return () + +-- method Session::remove_feature_by_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_remove_feature_by_type" soup_session_remove_feature_by_type :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CGType -> -- feature_type : TBasicType TGType + IO () + + +sessionRemoveFeatureByType :: + (MonadIO m, SessionK a) => + a -> -- _obj + GType -> -- feature_type + m () +sessionRemoveFeatureByType _obj feature_type = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let feature_type' = gtypeToCGType feature_type + soup_session_remove_feature_by_type _obj' feature_type' + touchManagedPtr _obj + return () + +-- method Session::request +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Request" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_session_request" soup_session_request :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CString -> -- uri_string : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr Request) + + +sessionRequest :: + (MonadIO m, SessionK a) => + a -> -- _obj + T.Text -> -- uri_string + m Request +sessionRequest _obj uri_string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + uri_string' <- textToCString uri_string + onException (do + result <- propagateGError $ soup_session_request _obj' uri_string' + checkUnexpectedReturnNULL "soup_session_request" result + result' <- (wrapObject Request) result + touchManagedPtr _obj + freeMem uri_string' + return result' + ) (do + freeMem uri_string' + ) + +-- method Session::request_http +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "RequestHTTP" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_session_request_http" soup_session_request_http :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CString -> -- method : TBasicType TUTF8 + CString -> -- uri_string : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr RequestHTTP) + + +sessionRequestHttp :: + (MonadIO m, SessionK a) => + a -> -- _obj + T.Text -> -- method + T.Text -> -- uri_string + m RequestHTTP +sessionRequestHttp _obj method uri_string = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + method' <- textToCString method + uri_string' <- textToCString uri_string + onException (do + result <- propagateGError $ soup_session_request_http _obj' method' uri_string' + checkUnexpectedReturnNULL "soup_session_request_http" result + result' <- (wrapObject RequestHTTP) result + touchManagedPtr _obj + freeMem method' + freeMem uri_string' + return result' + ) (do + freeMem method' + freeMem uri_string' + ) + +-- method Session::request_http_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "RequestHTTP" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_session_request_http_uri" soup_session_request_http_uri :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + CString -> -- method : TBasicType TUTF8 + Ptr URI -> -- uri : TInterface "Soup" "URI" + Ptr (Ptr GError) -> -- error + IO (Ptr RequestHTTP) + + +sessionRequestHttpUri :: + (MonadIO m, SessionK a) => + a -> -- _obj + T.Text -> -- method + URI -> -- uri + m RequestHTTP +sessionRequestHttpUri _obj method uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + method' <- textToCString method + let uri' = unsafeManagedPtrGetPtr uri + onException (do + result <- propagateGError $ soup_session_request_http_uri _obj' method' uri' + checkUnexpectedReturnNULL "soup_session_request_http_uri" result + result' <- (wrapObject RequestHTTP) result + touchManagedPtr _obj + touchManagedPtr uri + freeMem method' + return result' + ) (do + freeMem method' + ) + +-- method Session::request_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Request" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_session_request_uri" soup_session_request_uri :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr URI -> -- uri : TInterface "Soup" "URI" + Ptr (Ptr GError) -> -- error + IO (Ptr Request) + + +sessionRequestUri :: + (MonadIO m, SessionK a) => + a -> -- _obj + URI -> -- uri + m Request +sessionRequestUri _obj uri = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let uri' = unsafeManagedPtrGetPtr uri + onException (do + result <- propagateGError $ soup_session_request_uri _obj' uri' + checkUnexpectedReturnNULL "soup_session_request_uri" result + result' <- (wrapObject Request) result + touchManagedPtr _obj + touchManagedPtr uri + return result' + ) (do + return () + ) + +-- method Session::requeue_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_requeue_message" soup_session_requeue_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +sessionRequeueMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + m () +sessionRequeueMessage _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + soup_session_requeue_message _obj' msg' + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- method Session::send +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_session_send" soup_session_send :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO (Ptr Gio.InputStream) + + +sessionSend :: + (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => + a -> -- _obj + b -> -- msg + Maybe (c) -> -- cancellable + m Gio.InputStream +sessionSend _obj msg cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ soup_session_send _obj' msg' maybeCancellable + checkUnexpectedReturnNULL "soup_session_send" result + result' <- (wrapObject Gio.InputStream) result + touchManagedPtr _obj + touchManagedPtr msg + whenJust cancellable touchManagedPtr + return result' + ) (do + return () + ) + +-- method Session::send_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, 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" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_send_async" soup_session_send_async :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +sessionSendAsync :: + (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => + a -> -- _obj + b -> -- msg + Maybe (c) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +sessionSendAsync _obj msg cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + soup_session_send_async _obj' msg' maybeCancellable maybeCallback user_data + touchManagedPtr _obj + touchManagedPtr msg + whenJust cancellable touchManagedPtr + return () + +-- method Session::send_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "InputStream" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_session_send_finish" soup_session_send_finish :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr Gio.InputStream) + + +sessionSendFinish :: + (MonadIO m, SessionK a, Gio.AsyncResultK b) => + a -> -- _obj + b -> -- result + m Gio.InputStream +sessionSendFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ soup_session_send_finish _obj' result_' + checkUnexpectedReturnNULL "soup_session_send_finish" result + result' <- (wrapObject Gio.InputStream) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +-- method Session::send_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_send_message" soup_session_send_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO Word32 + + +sessionSendMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + m Word32 +sessionSendMessage _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_session_send_message _obj' msg' + touchManagedPtr _obj + touchManagedPtr msg + return result + +-- method Session::steal_connection +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "IOStream" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_steal_connection" soup_session_steal_connection :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO (Ptr Gio.IOStream) + + +sessionStealConnection :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + m Gio.IOStream +sessionStealConnection _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_session_steal_connection _obj' msg' + checkUnexpectedReturnNULL "soup_session_steal_connection" result + result' <- (wrapObject Gio.IOStream) result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- method Session::unpause_message +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_unpause_message" soup_session_unpause_message :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +sessionUnpauseMessage :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + m () +sessionUnpauseMessage _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + soup_session_unpause_message _obj' msg' + touchManagedPtr _obj + touchManagedPtr msg + return () + +-- method Session::websocket_connect_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, 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" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_websocket_connect_async" soup_session_websocket_connect_async :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- origin : TBasicType TUTF8 + Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +sessionWebsocketConnectAsync :: + (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => + a -> -- _obj + b -> -- msg + Maybe (T.Text) -> -- origin + Maybe ([T.Text]) -> -- protocols + Maybe (c) -> -- cancellable + Maybe (Gio.AsyncReadyCallback) -> -- callback + m () +sessionWebsocketConnectAsync _obj msg origin protocols cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + maybeOrigin <- case origin of + Nothing -> return nullPtr + Just jOrigin -> do + jOrigin' <- textToCString jOrigin + return jOrigin' + maybeProtocols <- case protocols of + Nothing -> return nullPtr + Just jProtocols -> do + jProtocols' <- packZeroTerminatedUTF8CArray jProtocols + return jProtocols' + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) + maybeCallback <- case callback of + Nothing -> return (castPtrToFunPtr nullPtr) + Just jCallback -> do + jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) + poke ptrcallback jCallback' + return jCallback' + let user_data = nullPtr + soup_session_websocket_connect_async _obj' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback user_data + touchManagedPtr _obj + touchManagedPtr msg + whenJust cancellable touchManagedPtr + freeMem maybeOrigin + mapZeroTerminatedCArray freeMem maybeProtocols + freeMem maybeProtocols + return () + +-- method Session::websocket_connect_finish +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "WebsocketConnection" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_session_websocket_connect_finish" soup_session_websocket_connect_finish :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" + Ptr (Ptr GError) -> -- error + IO (Ptr WebsocketConnection) + + +sessionWebsocketConnectFinish :: + (MonadIO m, SessionK a, Gio.AsyncResultK b) => + a -> -- _obj + b -> -- result + m WebsocketConnection +sessionWebsocketConnectFinish _obj result_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let result_' = unsafeManagedPtrCastPtr result_ + onException (do + result <- propagateGError $ soup_session_websocket_connect_finish _obj' result_' + checkUnexpectedReturnNULL "soup_session_websocket_connect_finish" result + result' <- (wrapObject WebsocketConnection) result + touchManagedPtr _obj + touchManagedPtr result_ + return result' + ) (do + return () + ) + +-- method Session::would_redirect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_would_redirect" soup_session_would_redirect :: + Ptr Session -> -- _obj : TInterface "Soup" "Session" + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO CInt + + +sessionWouldRedirect :: + (MonadIO m, SessionK a, MessageK b) => + a -> -- _obj + b -> -- msg + m Bool +sessionWouldRedirect _obj msg = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_session_would_redirect _obj' msg' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr msg + return result' + +-- signal Session::authenticate +type SessionAuthenticateCallback = + Message -> + Auth -> + Bool -> + IO () + +noSessionAuthenticateCallback :: Maybe SessionAuthenticateCallback +noSessionAuthenticateCallback = Nothing + +type SessionAuthenticateCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr Auth -> + CInt -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSessionAuthenticateCallback :: SessionAuthenticateCallbackC -> IO (FunPtr SessionAuthenticateCallbackC) + +sessionAuthenticateClosure :: SessionAuthenticateCallback -> IO Closure +sessionAuthenticateClosure cb = newCClosure =<< mkSessionAuthenticateCallback wrapped + where wrapped = sessionAuthenticateCallbackWrapper cb + +sessionAuthenticateCallbackWrapper :: + SessionAuthenticateCallback -> + Ptr () -> + Ptr Message -> + Ptr Auth -> + CInt -> + Ptr () -> + IO () +sessionAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do + msg' <- (newObject Message) msg + auth' <- (newObject Auth) auth + let retrying' = (/= 0) retrying + _cb msg' auth' retrying' + +onSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId +onSessionAuthenticate obj cb = liftIO $ connectSessionAuthenticate obj cb SignalConnectBefore +afterSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId +afterSessionAuthenticate obj cb = connectSessionAuthenticate obj cb SignalConnectAfter + +connectSessionAuthenticate :: (GObject a, MonadIO m) => + a -> SessionAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId +connectSessionAuthenticate obj cb after = liftIO $ do + cb' <- mkSessionAuthenticateCallback (sessionAuthenticateCallbackWrapper cb) + connectSignalFunPtr obj "authenticate" cb' after + +-- signal Session::connection-created +type SessionConnectionCreatedCallback = + GObject.Object -> + IO () + +noSessionConnectionCreatedCallback :: Maybe SessionConnectionCreatedCallback +noSessionConnectionCreatedCallback = Nothing + +type SessionConnectionCreatedCallbackC = + Ptr () -> -- object + Ptr GObject.Object -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSessionConnectionCreatedCallback :: SessionConnectionCreatedCallbackC -> IO (FunPtr SessionConnectionCreatedCallbackC) + +sessionConnectionCreatedClosure :: SessionConnectionCreatedCallback -> IO Closure +sessionConnectionCreatedClosure cb = newCClosure =<< mkSessionConnectionCreatedCallback wrapped + where wrapped = sessionConnectionCreatedCallbackWrapper cb + +sessionConnectionCreatedCallbackWrapper :: + SessionConnectionCreatedCallback -> + Ptr () -> + Ptr GObject.Object -> + Ptr () -> + IO () +sessionConnectionCreatedCallbackWrapper _cb _ connection _ = do + connection' <- (newObject GObject.Object) connection + _cb connection' + +onSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId +onSessionConnectionCreated obj cb = liftIO $ connectSessionConnectionCreated obj cb SignalConnectBefore +afterSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId +afterSessionConnectionCreated obj cb = connectSessionConnectionCreated obj cb SignalConnectAfter + +connectSessionConnectionCreated :: (GObject a, MonadIO m) => + a -> SessionConnectionCreatedCallback -> SignalConnectMode -> m SignalHandlerId +connectSessionConnectionCreated obj cb after = liftIO $ do + cb' <- mkSessionConnectionCreatedCallback (sessionConnectionCreatedCallbackWrapper cb) + connectSignalFunPtr obj "connection-created" cb' after + +-- signal Session::request-queued +type SessionRequestQueuedCallback = + Message -> + IO () + +noSessionRequestQueuedCallback :: Maybe SessionRequestQueuedCallback +noSessionRequestQueuedCallback = Nothing + +type SessionRequestQueuedCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSessionRequestQueuedCallback :: SessionRequestQueuedCallbackC -> IO (FunPtr SessionRequestQueuedCallbackC) + +sessionRequestQueuedClosure :: SessionRequestQueuedCallback -> IO Closure +sessionRequestQueuedClosure cb = newCClosure =<< mkSessionRequestQueuedCallback wrapped + where wrapped = sessionRequestQueuedCallbackWrapper cb + +sessionRequestQueuedCallbackWrapper :: + SessionRequestQueuedCallback -> + Ptr () -> + Ptr Message -> + Ptr () -> + IO () +sessionRequestQueuedCallbackWrapper _cb _ msg _ = do + msg' <- (newObject Message) msg + _cb msg' + +onSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId +onSessionRequestQueued obj cb = liftIO $ connectSessionRequestQueued obj cb SignalConnectBefore +afterSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId +afterSessionRequestQueued obj cb = connectSessionRequestQueued obj cb SignalConnectAfter + +connectSessionRequestQueued :: (GObject a, MonadIO m) => + a -> SessionRequestQueuedCallback -> SignalConnectMode -> m SignalHandlerId +connectSessionRequestQueued obj cb after = liftIO $ do + cb' <- mkSessionRequestQueuedCallback (sessionRequestQueuedCallbackWrapper cb) + connectSignalFunPtr obj "request-queued" cb' after + +-- signal Session::request-started +type SessionRequestStartedCallback = + Message -> + Socket -> + IO () + +noSessionRequestStartedCallback :: Maybe SessionRequestStartedCallback +noSessionRequestStartedCallback = Nothing + +type SessionRequestStartedCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr Socket -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSessionRequestStartedCallback :: SessionRequestStartedCallbackC -> IO (FunPtr SessionRequestStartedCallbackC) + +sessionRequestStartedClosure :: SessionRequestStartedCallback -> IO Closure +sessionRequestStartedClosure cb = newCClosure =<< mkSessionRequestStartedCallback wrapped + where wrapped = sessionRequestStartedCallbackWrapper cb + +sessionRequestStartedCallbackWrapper :: + SessionRequestStartedCallback -> + Ptr () -> + Ptr Message -> + Ptr Socket -> + Ptr () -> + IO () +sessionRequestStartedCallbackWrapper _cb _ msg socket _ = do + msg' <- (newObject Message) msg + socket' <- (newObject Socket) socket + _cb msg' socket' + +onSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId +onSessionRequestStarted obj cb = liftIO $ connectSessionRequestStarted obj cb SignalConnectBefore +afterSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId +afterSessionRequestStarted obj cb = connectSessionRequestStarted obj cb SignalConnectAfter + +connectSessionRequestStarted :: (GObject a, MonadIO m) => + a -> SessionRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId +connectSessionRequestStarted obj cb after = liftIO $ do + cb' <- mkSessionRequestStartedCallback (sessionRequestStartedCallbackWrapper cb) + connectSignalFunPtr obj "request-started" cb' after + +-- signal Session::request-unqueued +type SessionRequestUnqueuedCallback = + Message -> + IO () + +noSessionRequestUnqueuedCallback :: Maybe SessionRequestUnqueuedCallback +noSessionRequestUnqueuedCallback = Nothing + +type SessionRequestUnqueuedCallbackC = + Ptr () -> -- object + Ptr Message -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSessionRequestUnqueuedCallback :: SessionRequestUnqueuedCallbackC -> IO (FunPtr SessionRequestUnqueuedCallbackC) + +sessionRequestUnqueuedClosure :: SessionRequestUnqueuedCallback -> IO Closure +sessionRequestUnqueuedClosure cb = newCClosure =<< mkSessionRequestUnqueuedCallback wrapped + where wrapped = sessionRequestUnqueuedCallbackWrapper cb + +sessionRequestUnqueuedCallbackWrapper :: + SessionRequestUnqueuedCallback -> + Ptr () -> + Ptr Message -> + Ptr () -> + IO () +sessionRequestUnqueuedCallbackWrapper _cb _ msg _ = do + msg' <- (newObject Message) msg + _cb msg' + +onSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId +onSessionRequestUnqueued obj cb = liftIO $ connectSessionRequestUnqueued obj cb SignalConnectBefore +afterSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId +afterSessionRequestUnqueued obj cb = connectSessionRequestUnqueued obj cb SignalConnectAfter + +connectSessionRequestUnqueued :: (GObject a, MonadIO m) => + a -> SessionRequestUnqueuedCallback -> SignalConnectMode -> m SignalHandlerId +connectSessionRequestUnqueued obj cb after = liftIO $ do + cb' <- mkSessionRequestUnqueuedCallback (sessionRequestUnqueuedCallbackWrapper cb) + connectSignalFunPtr obj "request-unqueued" cb' after + +-- signal Session::tunneling +type SessionTunnelingCallback = + GObject.Object -> + IO () + +noSessionTunnelingCallback :: Maybe SessionTunnelingCallback +noSessionTunnelingCallback = Nothing + +type SessionTunnelingCallbackC = + Ptr () -> -- object + Ptr GObject.Object -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSessionTunnelingCallback :: SessionTunnelingCallbackC -> IO (FunPtr SessionTunnelingCallbackC) + +sessionTunnelingClosure :: SessionTunnelingCallback -> IO Closure +sessionTunnelingClosure cb = newCClosure =<< mkSessionTunnelingCallback wrapped + where wrapped = sessionTunnelingCallbackWrapper cb + +sessionTunnelingCallbackWrapper :: + SessionTunnelingCallback -> + Ptr () -> + Ptr GObject.Object -> + Ptr () -> + IO () +sessionTunnelingCallbackWrapper _cb _ connection _ = do + connection' <- (newObject GObject.Object) connection + _cb connection' + +onSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId +onSessionTunneling obj cb = liftIO $ connectSessionTunneling obj cb SignalConnectBefore +afterSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId +afterSessionTunneling obj cb = connectSessionTunneling obj cb SignalConnectAfter + +connectSessionTunneling :: (GObject a, MonadIO m) => + a -> SessionTunnelingCallback -> SignalConnectMode -> m SignalHandlerId +connectSessionTunneling obj cb after = liftIO $ do + cb' <- mkSessionTunnelingCallback (sessionTunnelingCallbackWrapper cb) + connectSignalFunPtr obj "tunneling" cb' after + +-- object SessionAsync +newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync) +noSessionAsync :: Maybe SessionAsync +noSessionAsync = Nothing + +foreign import ccall "soup_session_async_get_type" + c_soup_session_async_get_type :: IO GType + +type instance ParentTypes SessionAsync = '[Session, GObject.Object] + +instance GObject SessionAsync where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_session_async_get_type + + +class GObject o => SessionAsyncK o +instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o + +toSessionAsync :: SessionAsyncK o => o -> IO SessionAsync +toSessionAsync = unsafeCastTo SessionAsync + +-- method SessionAsync::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "SessionAsync" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_async_new" soup_session_async_new :: + IO (Ptr SessionAsync) + +{-# DEPRECATED sessionAsyncNew ["#SoupSessionAsync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the porting guide."]#-} +sessionAsyncNew :: + (MonadIO m) => + m SessionAsync +sessionAsyncNew = liftIO $ do + result <- soup_session_async_new + checkUnexpectedReturnNULL "soup_session_async_new" result + result' <- (wrapObject SessionAsync) result + return result' + +-- callback SessionCallback +sessionCallbackClosure :: SessionCallback -> IO Closure +sessionCallbackClosure cb = newCClosure =<< mkSessionCallback wrapped + where wrapped = sessionCallbackWrapper Nothing cb + +type SessionCallbackC = + Ptr Session -> + Ptr Message -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkSessionCallback :: SessionCallbackC -> IO (FunPtr SessionCallbackC) + +type SessionCallback = + Session -> + Message -> + IO () + +noSessionCallback :: Maybe SessionCallback +noSessionCallback = Nothing + +sessionCallbackWrapper :: + Maybe (Ptr (FunPtr (SessionCallbackC))) -> + SessionCallback -> + Ptr Session -> + Ptr Message -> + Ptr () -> + IO () +sessionCallbackWrapper funptrptr _cb session msg _ = do + session' <- (newObject Session) session + msg' <- (newObject Message) msg + _cb session' msg' + maybeReleaseFunPtr funptrptr + +-- interface SessionFeature + +newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature) +noSessionFeature :: Maybe SessionFeature +noSessionFeature = Nothing + +foreign import ccall "soup_session_feature_get_type" + c_soup_session_feature_get_type :: IO GType + +type instance ParentTypes SessionFeature = '[GObject.Object] + +instance GObject SessionFeature where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_session_feature_get_type + + +class GObject o => SessionFeatureK o +instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o + +toSessionFeature :: SessionFeatureK o => o -> IO SessionFeature +toSessionFeature = unsafeCastTo SessionFeature + +-- method SessionFeature::add_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_feature_add_feature" soup_session_feature_add_feature :: + Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" + CGType -> -- type : TBasicType TGType + IO CInt + + +sessionFeatureAddFeature :: + (MonadIO m, SessionFeatureK a) => + a -> -- _obj + GType -> -- type + m Bool +sessionFeatureAddFeature _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = gtypeToCGType type_ + result <- soup_session_feature_add_feature _obj' type_' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method SessionFeature::attach +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_feature_attach" soup_session_feature_attach :: + Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" + Ptr Session -> -- session : TInterface "Soup" "Session" + IO () + + +sessionFeatureAttach :: + (MonadIO m, SessionFeatureK a, SessionK b) => + a -> -- _obj + b -> -- session + m () +sessionFeatureAttach _obj session = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let session' = unsafeManagedPtrCastPtr session + soup_session_feature_attach _obj' session' + touchManagedPtr _obj + touchManagedPtr session + return () + +-- method SessionFeature::detach +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_feature_detach" soup_session_feature_detach :: + Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" + Ptr Session -> -- session : TInterface "Soup" "Session" + IO () + + +sessionFeatureDetach :: + (MonadIO m, SessionFeatureK a, SessionK b) => + a -> -- _obj + b -> -- session + m () +sessionFeatureDetach _obj session = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let session' = unsafeManagedPtrCastPtr session + soup_session_feature_detach _obj' session' + touchManagedPtr _obj + touchManagedPtr session + return () + +-- method SessionFeature::has_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_feature_has_feature" soup_session_feature_has_feature :: + Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" + CGType -> -- type : TBasicType TGType + IO CInt + + +sessionFeatureHasFeature :: + (MonadIO m, SessionFeatureK a) => + a -> -- _obj + GType -> -- type + m Bool +sessionFeatureHasFeature _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = gtypeToCGType type_ + result <- soup_session_feature_has_feature _obj' type_' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method SessionFeature::remove_feature +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_feature_remove_feature" soup_session_feature_remove_feature :: + Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" + CGType -> -- type : TBasicType TGType + IO CInt + + +sessionFeatureRemoveFeature :: + (MonadIO m, SessionFeatureK a) => + a -> -- _obj + GType -> -- type + m Bool +sessionFeatureRemoveFeature _obj type_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + let type_' = gtypeToCGType type_ + result <- soup_session_feature_remove_feature _obj' type_' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- object SessionSync +newtype SessionSync = SessionSync (ForeignPtr SessionSync) +noSessionSync :: Maybe SessionSync +noSessionSync = Nothing + +foreign import ccall "soup_session_sync_get_type" + c_soup_session_sync_get_type :: IO GType + +type instance ParentTypes SessionSync = '[Session, GObject.Object] + +instance GObject SessionSync where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_session_sync_get_type + + +class GObject o => SessionSyncK o +instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o + +toSessionSync :: SessionSyncK o => o -> IO SessionSync +toSessionSync = unsafeCastTo SessionSync + +-- method SessionSync::new +-- method type : Constructor +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "Soup" "SessionSync" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_session_sync_new" soup_session_sync_new :: + IO (Ptr SessionSync) + +{-# DEPRECATED sessionSyncNew ["#SoupSessionSync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the porting guide."]#-} +sessionSyncNew :: + (MonadIO m) => + m SessionSync +sessionSyncNew = liftIO $ do + result <- soup_session_sync_new + checkUnexpectedReturnNULL "soup_session_sync_new" result + result' <- (wrapObject SessionSync) result + return result' + +-- object Socket +newtype Socket = Socket (ForeignPtr Socket) +noSocket :: Maybe Socket +noSocket = Nothing + +foreign import ccall "soup_socket_get_type" + c_soup_socket_get_type :: IO GType + +type instance ParentTypes Socket = '[GObject.Object, Gio.Initable] + +instance GObject Socket where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_socket_get_type + + +class GObject o => SocketK o +instance (GObject o, IsDescendantOf Socket o) => SocketK o + +toSocket :: SocketK o => o -> IO Socket +toSocket = unsafeCastTo Socket + +-- method Socket::connect_async +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, 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" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_connect_async" soup_socket_connect_async :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + FunPtr SocketCallbackC -> -- callback : TInterface "Soup" "SocketCallback" + Ptr () -> -- user_data : TBasicType TVoid + IO () + + +socketConnectAsync :: + (MonadIO m, SocketK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (b) -> -- cancellable + SocketCallback -> -- callback + m () +socketConnectAsync _obj cancellable callback = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + ptrcallback <- callocMem :: IO (Ptr (FunPtr SocketCallbackC)) + callback' <- mkSocketCallback (socketCallbackWrapper (Just ptrcallback) callback) + poke ptrcallback callback' + let user_data = nullPtr + soup_socket_connect_async _obj' maybeCancellable callback' user_data + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return () + +-- method Socket::connect_sync +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_connect_sync" soup_socket_connect_sync :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + IO Word32 + + +socketConnectSync :: + (MonadIO m, SocketK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (b) -> -- cancellable + m Word32 +socketConnectSync _obj cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + result <- soup_socket_connect_sync _obj' maybeCancellable + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return result + +-- method Socket::disconnect +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_disconnect" soup_socket_disconnect :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + IO () + + +socketDisconnect :: + (MonadIO m, SocketK a) => + a -> -- _obj + m () +socketDisconnect _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + soup_socket_disconnect _obj' + touchManagedPtr _obj + return () + +-- method Socket::get_fd +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_get_fd" soup_socket_get_fd :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + IO Int32 + + +socketGetFd :: + (MonadIO m, SocketK a) => + a -> -- _obj + m Int32 +socketGetFd _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_socket_get_fd _obj' + touchManagedPtr _obj + return result + +-- method Socket::get_local_address +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Address" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_get_local_address" soup_socket_get_local_address :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + IO (Ptr Address) + + +socketGetLocalAddress :: + (MonadIO m, SocketK a) => + a -> -- _obj + m Address +socketGetLocalAddress _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_socket_get_local_address _obj' + checkUnexpectedReturnNULL "soup_socket_get_local_address" result + result' <- (newObject Address) result + touchManagedPtr _obj + return result' + +-- method Socket::get_remote_address +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Address" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_get_remote_address" soup_socket_get_remote_address :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + IO (Ptr Address) + + +socketGetRemoteAddress :: + (MonadIO m, SocketK a) => + a -> -- _obj + m Address +socketGetRemoteAddress _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_socket_get_remote_address _obj' + checkUnexpectedReturnNULL "soup_socket_get_remote_address" result + result' <- (newObject Address) result + touchManagedPtr _obj + return result' + +-- method Socket::is_connected +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_is_connected" soup_socket_is_connected :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + IO CInt + + +socketIsConnected :: + (MonadIO m, SocketK a) => + a -> -- _obj + m Bool +socketIsConnected _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_socket_is_connected _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Socket::is_ssl +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_is_ssl" soup_socket_is_ssl :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + IO CInt + + +socketIsSsl :: + (MonadIO m, SocketK a) => + a -> -- _obj + m Bool +socketIsSsl _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_socket_is_ssl _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Socket::listen +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_listen" soup_socket_listen :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + IO CInt + + +socketListen :: + (MonadIO m, SocketK a) => + a -> -- _obj + m Bool +socketListen _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_socket_listen _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- method Socket::read +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "SocketIOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_socket_read" soup_socket_read :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- len : TBasicType TUInt64 + Ptr Word64 -> -- nread : TBasicType TUInt64 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO CUInt + + +socketRead :: + (MonadIO m, SocketK a, Gio.CancellableK b) => + a -> -- _obj + ByteString -> -- buffer + Maybe (b) -> -- cancellable + m (SocketIOStatus,Word64) +socketRead _obj buffer cancellable = liftIO $ do + let len = fromIntegral $ B.length buffer + let _obj' = unsafeManagedPtrCastPtr _obj + buffer' <- packByteString buffer + nread <- allocMem :: IO (Ptr Word64) + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ soup_socket_read _obj' buffer' len nread maybeCancellable + let result' = (toEnum . fromIntegral) result + nread' <- peek nread + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem buffer' + freeMem nread + return (result', nread') + ) (do + freeMem buffer' + freeMem nread + ) + +-- method Socket::read_until +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "SocketIOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_socket_read_until" soup_socket_read_until :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- len : TBasicType TUInt64 + Ptr () -> -- boundary : TBasicType TVoid + Word64 -> -- boundary_len : TBasicType TUInt64 + Ptr Word64 -> -- nread : TBasicType TUInt64 + CInt -> -- got_boundary : TBasicType TBoolean + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO CUInt + + +socketReadUntil :: + (MonadIO m, SocketK a, Gio.CancellableK b) => + a -> -- _obj + ByteString -> -- buffer + Ptr () -> -- boundary + Word64 -> -- boundary_len + Bool -> -- got_boundary + Maybe (b) -> -- cancellable + m (SocketIOStatus,Word64) +socketReadUntil _obj buffer boundary boundary_len got_boundary cancellable = liftIO $ do + let len = fromIntegral $ B.length buffer + let _obj' = unsafeManagedPtrCastPtr _obj + buffer' <- packByteString buffer + nread <- allocMem :: IO (Ptr Word64) + let got_boundary' = (fromIntegral . fromEnum) got_boundary + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ soup_socket_read_until _obj' buffer' len boundary boundary_len nread got_boundary' maybeCancellable + let result' = (toEnum . fromIntegral) result + nread' <- peek nread + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem buffer' + freeMem nread + return (result', nread') + ) (do + freeMem buffer' + freeMem nread + ) + +-- method Socket::start_proxy_ssl +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_start_proxy_ssl" soup_socket_start_proxy_ssl :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + CString -> -- ssl_host : TBasicType TUTF8 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + IO CInt + + +socketStartProxySsl :: + (MonadIO m, SocketK a, Gio.CancellableK b) => + a -> -- _obj + T.Text -> -- ssl_host + Maybe (b) -> -- cancellable + m Bool +socketStartProxySsl _obj ssl_host cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + ssl_host' <- textToCString ssl_host + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + result <- soup_socket_start_proxy_ssl _obj' ssl_host' maybeCancellable + let result' = (/= 0) result + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem ssl_host' + return result' + +-- method Socket::start_ssl +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_socket_start_ssl" soup_socket_start_ssl :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + IO CInt + + +socketStartSsl :: + (MonadIO m, SocketK a, Gio.CancellableK b) => + a -> -- _obj + Maybe (b) -> -- cancellable + m Bool +socketStartSsl _obj cancellable = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + result <- soup_socket_start_ssl _obj' maybeCancellable + let result' = (/= 0) result + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + return result' + +-- method Socket::write +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nwrote", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "SocketIOStatus" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_socket_write" soup_socket_write :: + Ptr Socket -> -- _obj : TInterface "Soup" "Socket" + Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- len : TBasicType TUInt64 + Ptr Word64 -> -- nwrote : TBasicType TUInt64 + Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" + Ptr (Ptr GError) -> -- error + IO CUInt + + +socketWrite :: + (MonadIO m, SocketK a, Gio.CancellableK b) => + a -> -- _obj + ByteString -> -- buffer + Maybe (b) -> -- cancellable + m (SocketIOStatus,Word64) +socketWrite _obj buffer cancellable = liftIO $ do + let len = fromIntegral $ B.length buffer + let _obj' = unsafeManagedPtrCastPtr _obj + buffer' <- packByteString buffer + nwrote <- allocMem :: IO (Ptr Word64) + maybeCancellable <- case cancellable of + Nothing -> return nullPtr + Just jCancellable -> do + let jCancellable' = unsafeManagedPtrCastPtr jCancellable + return jCancellable' + onException (do + result <- propagateGError $ soup_socket_write _obj' buffer' len nwrote maybeCancellable + let result' = (toEnum . fromIntegral) result + nwrote' <- peek nwrote + touchManagedPtr _obj + whenJust cancellable touchManagedPtr + freeMem buffer' + freeMem nwrote + return (result', nwrote') + ) (do + freeMem buffer' + freeMem nwrote + ) + +-- signal Socket::disconnected +type SocketDisconnectedCallback = + IO () + +noSocketDisconnectedCallback :: Maybe SocketDisconnectedCallback +noSocketDisconnectedCallback = Nothing + +type SocketDisconnectedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSocketDisconnectedCallback :: SocketDisconnectedCallbackC -> IO (FunPtr SocketDisconnectedCallbackC) + +socketDisconnectedClosure :: SocketDisconnectedCallback -> IO Closure +socketDisconnectedClosure cb = newCClosure =<< mkSocketDisconnectedCallback wrapped + where wrapped = socketDisconnectedCallbackWrapper cb + +socketDisconnectedCallbackWrapper :: + SocketDisconnectedCallback -> + Ptr () -> + Ptr () -> + IO () +socketDisconnectedCallbackWrapper _cb _ _ = do + _cb + +onSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId +onSocketDisconnected obj cb = liftIO $ connectSocketDisconnected obj cb SignalConnectBefore +afterSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId +afterSocketDisconnected obj cb = connectSocketDisconnected obj cb SignalConnectAfter + +connectSocketDisconnected :: (GObject a, MonadIO m) => + a -> SocketDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId +connectSocketDisconnected obj cb after = liftIO $ do + cb' <- mkSocketDisconnectedCallback (socketDisconnectedCallbackWrapper cb) + connectSignalFunPtr obj "disconnected" cb' after + +-- signal Socket::event +type SocketEventCallback = + Gio.SocketClientEvent -> + Gio.IOStream -> + IO () + +noSocketEventCallback :: Maybe SocketEventCallback +noSocketEventCallback = Nothing + +type SocketEventCallbackC = + Ptr () -> -- object + CUInt -> + Ptr Gio.IOStream -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSocketEventCallback :: SocketEventCallbackC -> IO (FunPtr SocketEventCallbackC) + +socketEventClosure :: SocketEventCallback -> IO Closure +socketEventClosure cb = newCClosure =<< mkSocketEventCallback wrapped + where wrapped = socketEventCallbackWrapper cb + +socketEventCallbackWrapper :: + SocketEventCallback -> + Ptr () -> + CUInt -> + Ptr Gio.IOStream -> + Ptr () -> + IO () +socketEventCallbackWrapper _cb _ event connection _ = do + let event' = (toEnum . fromIntegral) event + connection' <- (newObject Gio.IOStream) connection + _cb event' connection' + +onSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId +onSocketEvent obj cb = liftIO $ connectSocketEvent obj cb SignalConnectBefore +afterSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId +afterSocketEvent obj cb = connectSocketEvent obj cb SignalConnectAfter + +connectSocketEvent :: (GObject a, MonadIO m) => + a -> SocketEventCallback -> SignalConnectMode -> m SignalHandlerId +connectSocketEvent obj cb after = liftIO $ do + cb' <- mkSocketEventCallback (socketEventCallbackWrapper cb) + connectSignalFunPtr obj "event" cb' after + +-- signal Socket::new-connection +type SocketNewConnectionCallback = + Socket -> + IO () + +noSocketNewConnectionCallback :: Maybe SocketNewConnectionCallback +noSocketNewConnectionCallback = Nothing + +type SocketNewConnectionCallbackC = + Ptr () -> -- object + Ptr Socket -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSocketNewConnectionCallback :: SocketNewConnectionCallbackC -> IO (FunPtr SocketNewConnectionCallbackC) + +socketNewConnectionClosure :: SocketNewConnectionCallback -> IO Closure +socketNewConnectionClosure cb = newCClosure =<< mkSocketNewConnectionCallback wrapped + where wrapped = socketNewConnectionCallbackWrapper cb + +socketNewConnectionCallbackWrapper :: + SocketNewConnectionCallback -> + Ptr () -> + Ptr Socket -> + Ptr () -> + IO () +socketNewConnectionCallbackWrapper _cb _ new _ = do + new' <- (newObject Socket) new + _cb new' + +onSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId +onSocketNewConnection obj cb = liftIO $ connectSocketNewConnection obj cb SignalConnectBefore +afterSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId +afterSocketNewConnection obj cb = connectSocketNewConnection obj cb SignalConnectAfter + +connectSocketNewConnection :: (GObject a, MonadIO m) => + a -> SocketNewConnectionCallback -> SignalConnectMode -> m SignalHandlerId +connectSocketNewConnection obj cb after = liftIO $ do + cb' <- mkSocketNewConnectionCallback (socketNewConnectionCallbackWrapper cb) + connectSignalFunPtr obj "new-connection" cb' after + +-- signal Socket::readable +type SocketReadableCallback = + IO () + +noSocketReadableCallback :: Maybe SocketReadableCallback +noSocketReadableCallback = Nothing + +type SocketReadableCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSocketReadableCallback :: SocketReadableCallbackC -> IO (FunPtr SocketReadableCallbackC) + +socketReadableClosure :: SocketReadableCallback -> IO Closure +socketReadableClosure cb = newCClosure =<< mkSocketReadableCallback wrapped + where wrapped = socketReadableCallbackWrapper cb + +socketReadableCallbackWrapper :: + SocketReadableCallback -> + Ptr () -> + Ptr () -> + IO () +socketReadableCallbackWrapper _cb _ _ = do + _cb + +onSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId +onSocketReadable obj cb = liftIO $ connectSocketReadable obj cb SignalConnectBefore +afterSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId +afterSocketReadable obj cb = connectSocketReadable obj cb SignalConnectAfter + +connectSocketReadable :: (GObject a, MonadIO m) => + a -> SocketReadableCallback -> SignalConnectMode -> m SignalHandlerId +connectSocketReadable obj cb after = liftIO $ do + cb' <- mkSocketReadableCallback (socketReadableCallbackWrapper cb) + connectSignalFunPtr obj "readable" cb' after + +-- signal Socket::writable +type SocketWritableCallback = + IO () + +noSocketWritableCallback :: Maybe SocketWritableCallback +noSocketWritableCallback = Nothing + +type SocketWritableCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkSocketWritableCallback :: SocketWritableCallbackC -> IO (FunPtr SocketWritableCallbackC) + +socketWritableClosure :: SocketWritableCallback -> IO Closure +socketWritableClosure cb = newCClosure =<< mkSocketWritableCallback wrapped + where wrapped = socketWritableCallbackWrapper cb + +socketWritableCallbackWrapper :: + SocketWritableCallback -> + Ptr () -> + Ptr () -> + IO () +socketWritableCallbackWrapper _cb _ _ = do + _cb + +onSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId +onSocketWritable obj cb = liftIO $ connectSocketWritable obj cb SignalConnectBefore +afterSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId +afterSocketWritable obj cb = connectSocketWritable obj cb SignalConnectAfter + +connectSocketWritable :: (GObject a, MonadIO m) => + a -> SocketWritableCallback -> SignalConnectMode -> m SignalHandlerId +connectSocketWritable obj cb after = liftIO $ do + cb' <- mkSocketWritableCallback (socketWritableCallbackWrapper cb) + connectSignalFunPtr obj "writable" cb' after + +-- callback SocketCallback +socketCallbackClosure :: SocketCallback -> IO Closure +socketCallbackClosure cb = newCClosure =<< mkSocketCallback wrapped + where wrapped = socketCallbackWrapper Nothing cb + +type SocketCallbackC = + Ptr Socket -> + Word32 -> + Ptr () -> + IO () + +foreign import ccall "wrapper" + mkSocketCallback :: SocketCallbackC -> IO (FunPtr SocketCallbackC) + +type SocketCallback = + Socket -> + Word32 -> + IO () + +noSocketCallback :: Maybe SocketCallback +noSocketCallback = Nothing + +socketCallbackWrapper :: + Maybe (Ptr (FunPtr (SocketCallbackC))) -> + SocketCallback -> + Ptr Socket -> + Word32 -> + Ptr () -> + IO () +socketCallbackWrapper funptrptr _cb sock status _ = do + sock' <- (newObject Socket) sock + _cb sock' status + maybeReleaseFunPtr funptrptr + +-- Enum SocketIOStatus + +data SocketIOStatus = + SocketIOStatusOk + | SocketIOStatusWouldBlock + | SocketIOStatusEof + | SocketIOStatusError + | AnotherSocketIOStatus Int + deriving (Show, Eq) + +instance Enum SocketIOStatus where + fromEnum SocketIOStatusOk = 0 + fromEnum SocketIOStatusWouldBlock = 1 + fromEnum SocketIOStatusEof = 2 + fromEnum SocketIOStatusError = 3 + fromEnum (AnotherSocketIOStatus k) = k + + toEnum 0 = SocketIOStatusOk + toEnum 1 = SocketIOStatusWouldBlock + toEnum 2 = SocketIOStatusEof + toEnum 3 = SocketIOStatusError + toEnum k = AnotherSocketIOStatus k + +foreign import ccall "soup_socket_io_status_get_type" c_soup_socket_io_status_get_type :: + IO GType + +instance BoxedEnum SocketIOStatus where + boxedEnumType _ = c_soup_socket_io_status_get_type + +-- Enum Status + +data Status = + StatusNone + | StatusCancelled + | StatusCantResolve + | StatusCantResolveProxy + | StatusCantConnect + | StatusCantConnectProxy + | StatusSslFailed + | StatusIoError + | StatusMalformed + | StatusTryAgain + | StatusTooManyRedirects + | StatusTlsFailed + | StatusContinue + | StatusSwitchingProtocols + | StatusProcessing + | StatusOk + | StatusCreated + | StatusAccepted + | StatusNonAuthoritative + | StatusNoContent + | StatusResetContent + | StatusPartialContent + | StatusMultiStatus + | StatusMultipleChoices + | StatusMovedPermanently + | StatusFound + | StatusMovedTemporarily + | StatusSeeOther + | StatusNotModified + | StatusUseProxy + | StatusNotAppearingInThisProtocol + | StatusTemporaryRedirect + | StatusBadRequest + | StatusUnauthorized + | StatusPaymentRequired + | StatusForbidden + | StatusNotFound + | StatusMethodNotAllowed + | StatusNotAcceptable + | StatusProxyAuthenticationRequired + | StatusProxyUnauthorized + | StatusRequestTimeout + | StatusConflict + | StatusGone + | StatusLengthRequired + | StatusPreconditionFailed + | StatusRequestEntityTooLarge + | StatusRequestUriTooLong + | StatusUnsupportedMediaType + | StatusRequestedRangeNotSatisfiable + | StatusInvalidRange + | StatusExpectationFailed + | StatusUnprocessableEntity + | StatusLocked + | StatusFailedDependency + | StatusInternalServerError + | StatusNotImplemented + | StatusBadGateway + | StatusServiceUnavailable + | StatusGatewayTimeout + | StatusHttpVersionNotSupported + | StatusInsufficientStorage + | StatusNotExtended + | AnotherStatus Int + deriving (Show, Eq) + +instance Enum Status where + fromEnum StatusNone = 0 + fromEnum StatusCancelled = 1 + fromEnum StatusCantResolve = 2 + fromEnum StatusCantResolveProxy = 3 + fromEnum StatusCantConnect = 4 + fromEnum StatusCantConnectProxy = 5 + fromEnum StatusSslFailed = 6 + fromEnum StatusIoError = 7 + fromEnum StatusMalformed = 8 + fromEnum StatusTryAgain = 9 + fromEnum StatusTooManyRedirects = 10 + fromEnum StatusTlsFailed = 11 + fromEnum StatusContinue = 100 + fromEnum StatusSwitchingProtocols = 101 + fromEnum StatusProcessing = 102 + fromEnum StatusOk = 200 + fromEnum StatusCreated = 201 + fromEnum StatusAccepted = 202 + fromEnum StatusNonAuthoritative = 203 + fromEnum StatusNoContent = 204 + fromEnum StatusResetContent = 205 + fromEnum StatusPartialContent = 206 + fromEnum StatusMultiStatus = 207 + fromEnum StatusMultipleChoices = 300 + fromEnum StatusMovedPermanently = 301 + fromEnum StatusFound = 302 + fromEnum StatusMovedTemporarily = 302 + fromEnum StatusSeeOther = 303 + fromEnum StatusNotModified = 304 + fromEnum StatusUseProxy = 305 + fromEnum StatusNotAppearingInThisProtocol = 306 + fromEnum StatusTemporaryRedirect = 307 + fromEnum StatusBadRequest = 400 + fromEnum StatusUnauthorized = 401 + fromEnum StatusPaymentRequired = 402 + fromEnum StatusForbidden = 403 + fromEnum StatusNotFound = 404 + fromEnum StatusMethodNotAllowed = 405 + fromEnum StatusNotAcceptable = 406 + fromEnum StatusProxyAuthenticationRequired = 407 + fromEnum StatusProxyUnauthorized = 407 + fromEnum StatusRequestTimeout = 408 + fromEnum StatusConflict = 409 + fromEnum StatusGone = 410 + fromEnum StatusLengthRequired = 411 + fromEnum StatusPreconditionFailed = 412 + fromEnum StatusRequestEntityTooLarge = 413 + fromEnum StatusRequestUriTooLong = 414 + fromEnum StatusUnsupportedMediaType = 415 + fromEnum StatusRequestedRangeNotSatisfiable = 416 + fromEnum StatusInvalidRange = 416 + fromEnum StatusExpectationFailed = 417 + fromEnum StatusUnprocessableEntity = 422 + fromEnum StatusLocked = 423 + fromEnum StatusFailedDependency = 424 + fromEnum StatusInternalServerError = 500 + fromEnum StatusNotImplemented = 501 + fromEnum StatusBadGateway = 502 + fromEnum StatusServiceUnavailable = 503 + fromEnum StatusGatewayTimeout = 504 + fromEnum StatusHttpVersionNotSupported = 505 + fromEnum StatusInsufficientStorage = 507 + fromEnum StatusNotExtended = 510 + fromEnum (AnotherStatus k) = k + + toEnum 0 = StatusNone + toEnum 1 = StatusCancelled + toEnum 2 = StatusCantResolve + toEnum 3 = StatusCantResolveProxy + toEnum 4 = StatusCantConnect + toEnum 5 = StatusCantConnectProxy + toEnum 6 = StatusSslFailed + toEnum 7 = StatusIoError + toEnum 8 = StatusMalformed + toEnum 9 = StatusTryAgain + toEnum 10 = StatusTooManyRedirects + toEnum 11 = StatusTlsFailed + toEnum 100 = StatusContinue + toEnum 101 = StatusSwitchingProtocols + toEnum 102 = StatusProcessing + toEnum 200 = StatusOk + toEnum 201 = StatusCreated + toEnum 202 = StatusAccepted + toEnum 203 = StatusNonAuthoritative + toEnum 204 = StatusNoContent + toEnum 205 = StatusResetContent + toEnum 206 = StatusPartialContent + toEnum 207 = StatusMultiStatus + toEnum 300 = StatusMultipleChoices + toEnum 301 = StatusMovedPermanently + toEnum 302 = StatusFound + toEnum 303 = StatusSeeOther + toEnum 304 = StatusNotModified + toEnum 305 = StatusUseProxy + toEnum 306 = StatusNotAppearingInThisProtocol + toEnum 307 = StatusTemporaryRedirect + toEnum 400 = StatusBadRequest + toEnum 401 = StatusUnauthorized + toEnum 402 = StatusPaymentRequired + toEnum 403 = StatusForbidden + toEnum 404 = StatusNotFound + toEnum 405 = StatusMethodNotAllowed + toEnum 406 = StatusNotAcceptable + toEnum 407 = StatusProxyAuthenticationRequired + toEnum 408 = StatusRequestTimeout + toEnum 409 = StatusConflict + toEnum 410 = StatusGone + toEnum 411 = StatusLengthRequired + toEnum 412 = StatusPreconditionFailed + toEnum 413 = StatusRequestEntityTooLarge + toEnum 414 = StatusRequestUriTooLong + toEnum 415 = StatusUnsupportedMediaType + toEnum 416 = StatusRequestedRangeNotSatisfiable + toEnum 417 = StatusExpectationFailed + toEnum 422 = StatusUnprocessableEntity + toEnum 423 = StatusLocked + toEnum 424 = StatusFailedDependency + toEnum 500 = StatusInternalServerError + toEnum 501 = StatusNotImplemented + toEnum 502 = StatusBadGateway + toEnum 503 = StatusServiceUnavailable + toEnum 504 = StatusGatewayTimeout + toEnum 505 = StatusHttpVersionNotSupported + toEnum 507 = StatusInsufficientStorage + toEnum 510 = StatusNotExtended + toEnum k = AnotherStatus k + +foreign import ccall "soup_status_get_type" c_soup_status_get_type :: + IO GType + +instance BoxedEnum Status where + boxedEnumType _ = c_soup_status_get_type + +-- Enum TLDError + +data TLDError = + TLDErrorInvalidHostname + | TLDErrorIsIpAddress + | TLDErrorNotEnoughDomains + | TLDErrorNoBaseDomain + | AnotherTLDError Int + deriving (Show, Eq) + +instance Enum TLDError where + fromEnum TLDErrorInvalidHostname = 0 + fromEnum TLDErrorIsIpAddress = 1 + fromEnum TLDErrorNotEnoughDomains = 2 + fromEnum TLDErrorNoBaseDomain = 3 + fromEnum (AnotherTLDError k) = k + + toEnum 0 = TLDErrorInvalidHostname + toEnum 1 = TLDErrorIsIpAddress + toEnum 2 = TLDErrorNotEnoughDomains + toEnum 3 = TLDErrorNoBaseDomain + toEnum k = AnotherTLDError k + +instance GErrorClass TLDError where + gerrorClassDomain _ = "soup_tld_error_quark" + +catchTLDError :: + IO a -> + (TLDError -> GErrorMessage -> IO a) -> + IO a +catchTLDError = catchGErrorJustDomain + +handleTLDError :: + (TLDError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleTLDError = handleGErrorJustDomain + +foreign import ccall "soup_tld_error_get_type" c_soup_tld_error_get_type :: + IO GType + +instance BoxedEnum TLDError where + boxedEnumType _ = c_soup_tld_error_get_type + +-- struct URI +newtype URI = URI (ForeignPtr URI) +noURI :: Maybe URI +noURI = Nothing + +foreign import ccall "soup_uri_get_type" c_soup_uri_get_type :: + IO GType + +instance BoxedObject URI where + boxedType _ = c_soup_uri_get_type + +uRIReadScheme :: URI -> IO T.Text +uRIReadScheme s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 0) :: IO CString + val' <- cstringToText val + return val' + +uRIReadUser :: URI -> IO T.Text +uRIReadUser s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 8) :: IO CString + val' <- cstringToText val + return val' + +uRIReadPassword :: URI -> IO T.Text +uRIReadPassword s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 16) :: IO CString + val' <- cstringToText val + return val' + +uRIReadHost :: URI -> IO T.Text +uRIReadHost s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 24) :: IO CString + val' <- cstringToText val + return val' + +uRIReadPort :: URI -> IO Word32 +uRIReadPort s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 32) :: IO Word32 + return val + +uRIReadPath :: URI -> IO T.Text +uRIReadPath s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 40) :: IO CString + val' <- cstringToText val + return val' + +uRIReadQuery :: URI -> IO T.Text +uRIReadQuery s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 48) :: IO CString + val' <- cstringToText val + return val' + +uRIReadFragment :: URI -> IO T.Text +uRIReadFragment s = withManagedPtr s $ \ptr -> do + val <- peek (ptr `plusPtr` 56) :: IO CString + val' <- cstringToText val + return val' + +-- method URI::new +-- method type : Constructor +-- Args : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_new" soup_uri_new :: + CString -> -- uri_string : TBasicType TUTF8 + IO (Ptr URI) + + +uRINew :: + (MonadIO m) => + Maybe (T.Text) -> -- uri_string + m URI +uRINew uri_string = liftIO $ do + maybeUri_string <- case uri_string of + Nothing -> return nullPtr + Just jUri_string -> do + jUri_string' <- textToCString jUri_string + return jUri_string' + result <- soup_uri_new maybeUri_string + checkUnexpectedReturnNULL "soup_uri_new" result + result' <- (wrapBoxed URI) result + freeMem maybeUri_string + return result' + +-- method URI::copy +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_copy" soup_uri_copy :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO (Ptr URI) + + +uRICopy :: + (MonadIO m) => + URI -> -- _obj + m URI +uRICopy _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_copy _obj' + checkUnexpectedReturnNULL "soup_uri_copy" result + result' <- (wrapBoxed URI) result + touchManagedPtr _obj + return result' + +-- method URI::copy_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_copy_host" soup_uri_copy_host :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO (Ptr URI) + + +uRICopyHost :: + (MonadIO m) => + URI -> -- _obj + m URI +uRICopyHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_copy_host _obj' + checkUnexpectedReturnNULL "soup_uri_copy_host" result + result' <- (wrapBoxed URI) result + touchManagedPtr _obj + return result' + +-- method URI::equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_equal" soup_uri_equal :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + Ptr URI -> -- uri2 : TInterface "Soup" "URI" + IO CInt + + +uRIEqual :: + (MonadIO m) => + URI -> -- _obj + URI -> -- uri2 + m Bool +uRIEqual _obj uri2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let uri2' = unsafeManagedPtrGetPtr uri2 + result <- soup_uri_equal _obj' uri2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr uri2 + return result' + +-- method URI::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_free" soup_uri_free :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO () + + +uRIFree :: + (MonadIO m) => + URI -> -- _obj + m () +uRIFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_uri_free _obj' + touchManagedPtr _obj + return () + +-- method URI::get_fragment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_fragment" soup_uri_get_fragment :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CString + + +uRIGetFragment :: + (MonadIO m) => + URI -> -- _obj + m T.Text +uRIGetFragment _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_fragment _obj' + checkUnexpectedReturnNULL "soup_uri_get_fragment" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method URI::get_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_host" soup_uri_get_host :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CString + + +uRIGetHost :: + (MonadIO m) => + URI -> -- _obj + m T.Text +uRIGetHost _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_host _obj' + checkUnexpectedReturnNULL "soup_uri_get_host" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method URI::get_password +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_password" soup_uri_get_password :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CString + + +uRIGetPassword :: + (MonadIO m) => + URI -> -- _obj + m T.Text +uRIGetPassword _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_password _obj' + checkUnexpectedReturnNULL "soup_uri_get_password" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method URI::get_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_path" soup_uri_get_path :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CString + + +uRIGetPath :: + (MonadIO m) => + URI -> -- _obj + m T.Text +uRIGetPath _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_path _obj' + checkUnexpectedReturnNULL "soup_uri_get_path" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method URI::get_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_port" soup_uri_get_port :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO Word32 + + +uRIGetPort :: + (MonadIO m) => + URI -> -- _obj + m Word32 +uRIGetPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_port _obj' + touchManagedPtr _obj + return result + +-- method URI::get_query +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_query" soup_uri_get_query :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CString + + +uRIGetQuery :: + (MonadIO m) => + URI -> -- _obj + m T.Text +uRIGetQuery _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_query _obj' + checkUnexpectedReturnNULL "soup_uri_get_query" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method URI::get_scheme +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_scheme" soup_uri_get_scheme :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CString + + +uRIGetScheme :: + (MonadIO m) => + URI -> -- _obj + m T.Text +uRIGetScheme _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_scheme _obj' + checkUnexpectedReturnNULL "soup_uri_get_scheme" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method URI::get_user +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_get_user" soup_uri_get_user :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CString + + +uRIGetUser :: + (MonadIO m) => + URI -> -- _obj + m T.Text +uRIGetUser _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_get_user _obj' + checkUnexpectedReturnNULL "soup_uri_get_user" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method URI::host_equal +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_host_equal" soup_uri_host_equal :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + Ptr URI -> -- v2 : TInterface "Soup" "URI" + IO CInt + + +uRIHostEqual :: + (MonadIO m) => + URI -> -- _obj + URI -> -- v2 + m Bool +uRIHostEqual _obj v2 = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let v2' = unsafeManagedPtrGetPtr v2 + result <- soup_uri_host_equal _obj' v2' + let result' = (/= 0) result + touchManagedPtr _obj + touchManagedPtr v2 + return result' + +-- method URI::host_hash +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_host_hash" soup_uri_host_hash :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO Word32 + + +uRIHostHash :: + (MonadIO m) => + URI -> -- _obj + m Word32 +uRIHostHash _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_host_hash _obj' + touchManagedPtr _obj + return result + +-- method URI::new_with_base +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_new_with_base" soup_uri_new_with_base :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- uri_string : TBasicType TUTF8 + IO (Ptr URI) + + +uRINewWithBase :: + (MonadIO m) => + URI -> -- _obj + T.Text -> -- uri_string + m URI +uRINewWithBase _obj uri_string = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + uri_string' <- textToCString uri_string + result <- soup_uri_new_with_base _obj' uri_string' + checkUnexpectedReturnNULL "soup_uri_new_with_base" result + result' <- (wrapBoxed URI) result + touchManagedPtr _obj + freeMem uri_string' + return result' + +-- method URI::set_fragment +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = 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_uri_set_fragment" soup_uri_set_fragment :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- fragment : TBasicType TUTF8 + IO () + + +uRISetFragment :: + (MonadIO m) => + URI -> -- _obj + Maybe (T.Text) -> -- fragment + m () +uRISetFragment _obj fragment = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeFragment <- case fragment of + Nothing -> return nullPtr + Just jFragment -> do + jFragment' <- textToCString jFragment + return jFragment' + soup_uri_set_fragment _obj' maybeFragment + touchManagedPtr _obj + freeMem maybeFragment + return () + +-- method URI::set_host +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = 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_uri_set_host" soup_uri_set_host :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- host : TBasicType TUTF8 + IO () + + +uRISetHost :: + (MonadIO m) => + URI -> -- _obj + Maybe (T.Text) -> -- host + m () +uRISetHost _obj host = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeHost <- case host of + Nothing -> return nullPtr + Just jHost -> do + jHost' <- textToCString jHost + return jHost' + soup_uri_set_host _obj' maybeHost + touchManagedPtr _obj + freeMem maybeHost + return () + +-- method URI::set_password +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = 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_uri_set_password" soup_uri_set_password :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- password : TBasicType TUTF8 + IO () + + +uRISetPassword :: + (MonadIO m) => + URI -> -- _obj + Maybe (T.Text) -> -- password + m () +uRISetPassword _obj password = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybePassword <- case password of + Nothing -> return nullPtr + Just jPassword -> do + jPassword' <- textToCString jPassword + return jPassword' + soup_uri_set_password _obj' maybePassword + touchManagedPtr _obj + freeMem maybePassword + return () + +-- method URI::set_path +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_uri_set_path" soup_uri_set_path :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- path : TBasicType TUTF8 + IO () + + +uRISetPath :: + (MonadIO m) => + URI -> -- _obj + T.Text -> -- path + m () +uRISetPath _obj path = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + path' <- textToCString path + soup_uri_set_path _obj' path' + touchManagedPtr _obj + freeMem path' + return () + +-- method URI::set_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_set_port" soup_uri_set_port :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + Word32 -> -- port : TBasicType TUInt32 + IO () + + +uRISetPort :: + (MonadIO m) => + URI -> -- _obj + Word32 -> -- port + m () +uRISetPort _obj port = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_uri_set_port _obj' port + touchManagedPtr _obj + return () + +-- method URI::set_query +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = 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_uri_set_query" soup_uri_set_query :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- query : TBasicType TUTF8 + IO () + + +uRISetQuery :: + (MonadIO m) => + URI -> -- _obj + Maybe (T.Text) -> -- query + m () +uRISetQuery _obj query = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeQuery <- case query of + Nothing -> return nullPtr + Just jQuery -> do + jQuery' <- textToCString jQuery + return jQuery' + soup_uri_set_query _obj' maybeQuery + touchManagedPtr _obj + freeMem maybeQuery + return () + +-- method URI::set_query_from_form +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (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_uri_set_query_from_form" soup_uri_set_query_from_form :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + Ptr (GHashTable CString CString) -> -- form : TGHash (TBasicType TUTF8) (TBasicType TUTF8) + IO () + + +uRISetQueryFromForm :: + (MonadIO m) => + URI -> -- _obj + Map.Map T.Text T.Text -> -- form + m () +uRISetQueryFromForm _obj form = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let form' = Map.toList form + form'' <- mapFirstA textToCString form' + form''' <- mapSecondA textToCString form'' + let form'''' = mapFirst cstringPackPtr form''' + let form''''' = mapSecond cstringPackPtr form'''' + form'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form''''' + soup_uri_set_query_from_form _obj' form'''''' + touchManagedPtr _obj + unrefGHashTable form'''''' + return () + +-- method URI::set_scheme +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", 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_uri_set_scheme" soup_uri_set_scheme :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- scheme : TBasicType TUTF8 + IO () + + +uRISetScheme :: + (MonadIO m) => + URI -> -- _obj + T.Text -> -- scheme + m () +uRISetScheme _obj scheme = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + scheme' <- textToCString scheme + soup_uri_set_scheme _obj' scheme' + touchManagedPtr _obj + freeMem scheme' + return () + +-- method URI::set_user +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = 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_uri_set_user" soup_uri_set_user :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CString -> -- user : TBasicType TUTF8 + IO () + + +uRISetUser :: + (MonadIO m) => + URI -> -- _obj + Maybe (T.Text) -> -- user + m () +uRISetUser _obj user = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeUser <- case user of + Nothing -> return nullPtr + Just jUser -> do + jUser' <- textToCString jUser + return jUser' + soup_uri_set_user _obj' maybeUser + touchManagedPtr _obj + freeMem maybeUser + return () + +-- method URI::to_string +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_to_string" soup_uri_to_string :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + CInt -> -- just_path_and_query : TBasicType TBoolean + IO CString + + +uRIToString :: + (MonadIO m) => + URI -> -- _obj + Bool -> -- just_path_and_query + m T.Text +uRIToString _obj just_path_and_query = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + let just_path_and_query' = (fromIntegral . fromEnum) just_path_and_query + result <- soup_uri_to_string _obj' just_path_and_query' + checkUnexpectedReturnNULL "soup_uri_to_string" result + result' <- cstringToText result + freeMem result + touchManagedPtr _obj + return result' + +-- method URI::uses_default_port +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_uses_default_port" soup_uri_uses_default_port :: + Ptr URI -> -- _obj : TInterface "Soup" "URI" + IO CInt + + +uRIUsesDefaultPort :: + (MonadIO m) => + URI -> -- _obj + m Bool +uRIUsesDefaultPort _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + result <- soup_uri_uses_default_port _obj' + let result' = (/= 0) result + touchManagedPtr _obj + return result' + +-- Enum WebsocketCloseCode + +data WebsocketCloseCode = + WebsocketCloseCodeNormal + | WebsocketCloseCodeGoingAway + | WebsocketCloseCodeProtocolError + | WebsocketCloseCodeUnsupportedData + | WebsocketCloseCodeNoStatus + | WebsocketCloseCodeAbnormal + | WebsocketCloseCodeBadData + | WebsocketCloseCodePolicyViolation + | WebsocketCloseCodeTooBig + | WebsocketCloseCodeNoExtension + | WebsocketCloseCodeServerError + | WebsocketCloseCodeTlsHandshake + | AnotherWebsocketCloseCode Int + deriving (Show, Eq) + +instance Enum WebsocketCloseCode where + fromEnum WebsocketCloseCodeNormal = 1000 + fromEnum WebsocketCloseCodeGoingAway = 1001 + fromEnum WebsocketCloseCodeProtocolError = 1002 + fromEnum WebsocketCloseCodeUnsupportedData = 1003 + fromEnum WebsocketCloseCodeNoStatus = 1005 + fromEnum WebsocketCloseCodeAbnormal = 1006 + fromEnum WebsocketCloseCodeBadData = 1007 + fromEnum WebsocketCloseCodePolicyViolation = 1008 + fromEnum WebsocketCloseCodeTooBig = 1009 + fromEnum WebsocketCloseCodeNoExtension = 1010 + fromEnum WebsocketCloseCodeServerError = 1011 + fromEnum WebsocketCloseCodeTlsHandshake = 1015 + fromEnum (AnotherWebsocketCloseCode k) = k + + toEnum 1000 = WebsocketCloseCodeNormal + toEnum 1001 = WebsocketCloseCodeGoingAway + toEnum 1002 = WebsocketCloseCodeProtocolError + toEnum 1003 = WebsocketCloseCodeUnsupportedData + toEnum 1005 = WebsocketCloseCodeNoStatus + toEnum 1006 = WebsocketCloseCodeAbnormal + toEnum 1007 = WebsocketCloseCodeBadData + toEnum 1008 = WebsocketCloseCodePolicyViolation + toEnum 1009 = WebsocketCloseCodeTooBig + toEnum 1010 = WebsocketCloseCodeNoExtension + toEnum 1011 = WebsocketCloseCodeServerError + toEnum 1015 = WebsocketCloseCodeTlsHandshake + toEnum k = AnotherWebsocketCloseCode k + +foreign import ccall "soup_websocket_close_code_get_type" c_soup_websocket_close_code_get_type :: + IO GType + +instance BoxedEnum WebsocketCloseCode where + boxedEnumType _ = c_soup_websocket_close_code_get_type + +-- object WebsocketConnection +newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection) +noWebsocketConnection :: Maybe WebsocketConnection +noWebsocketConnection = Nothing + +foreign import ccall "soup_websocket_connection_get_type" + c_soup_websocket_connection_get_type :: IO GType + +type instance ParentTypes WebsocketConnection = '[GObject.Object] + +instance GObject WebsocketConnection where + gobjectIsInitiallyUnowned _ = False + gobjectType _ = c_soup_websocket_connection_get_type + + +class GObject o => WebsocketConnectionK o +instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o + +toWebsocketConnection :: WebsocketConnectionK o => o -> IO WebsocketConnection +toWebsocketConnection = unsafeCastTo WebsocketConnection + +-- method WebsocketConnection::new +-- method type : Constructor +-- Args : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "WebsocketConnection" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_new" soup_websocket_connection_new :: + Ptr Gio.IOStream -> -- stream : TInterface "Gio" "IOStream" + Ptr URI -> -- uri : TInterface "Soup" "URI" + CUInt -> -- type : TInterface "Soup" "WebsocketConnectionType" + CString -> -- origin : TBasicType TUTF8 + CString -> -- protocol : TBasicType TUTF8 + IO (Ptr WebsocketConnection) + + +websocketConnectionNew :: + (MonadIO m, Gio.IOStreamK a) => + a -> -- stream + URI -> -- uri + WebsocketConnectionType -> -- type + Maybe (T.Text) -> -- origin + Maybe (T.Text) -> -- protocol + m WebsocketConnection +websocketConnectionNew stream uri type_ origin protocol = liftIO $ do + let stream' = unsafeManagedPtrCastPtr stream + let uri' = unsafeManagedPtrGetPtr uri + let type_' = (fromIntegral . fromEnum) type_ + maybeOrigin <- case origin of + Nothing -> return nullPtr + Just jOrigin -> do + jOrigin' <- textToCString jOrigin + return jOrigin' + maybeProtocol <- case protocol of + Nothing -> return nullPtr + Just jProtocol -> do + jProtocol' <- textToCString jProtocol + return jProtocol' + result <- soup_websocket_connection_new stream' uri' type_' maybeOrigin maybeProtocol + checkUnexpectedReturnNULL "soup_websocket_connection_new" result + result' <- (wrapObject WebsocketConnection) result + touchManagedPtr stream + touchManagedPtr uri + freeMem maybeOrigin + freeMem maybeProtocol + return result' + +-- method WebsocketConnection::close +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = 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_websocket_connection_close" soup_websocket_connection_close :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + Word16 -> -- code : TBasicType TUInt16 + CString -> -- data : TBasicType TUTF8 + IO () + + +websocketConnectionClose :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + Word16 -> -- code + Maybe (T.Text) -> -- data + m () +websocketConnectionClose _obj code data_ = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + maybeData_ <- case data_ of + Nothing -> return nullPtr + Just jData_ -> do + jData_' <- textToCString jData_ + return jData_' + soup_websocket_connection_close _obj' code maybeData_ + touchManagedPtr _obj + freeMem maybeData_ + return () + +-- method WebsocketConnection::get_close_code +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt16 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_close_code" soup_websocket_connection_get_close_code :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO Word16 + + +websocketConnectionGetCloseCode :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m Word16 +websocketConnectionGetCloseCode _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_close_code _obj' + touchManagedPtr _obj + return result + +-- method WebsocketConnection::get_close_data +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_close_data" soup_websocket_connection_get_close_data :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO CString + + +websocketConnectionGetCloseData :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m T.Text +websocketConnectionGetCloseData _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_close_data _obj' + checkUnexpectedReturnNULL "soup_websocket_connection_get_close_data" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebsocketConnection::get_connection_type +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "WebsocketConnectionType" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_connection_type" soup_websocket_connection_get_connection_type :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO CUInt + + +websocketConnectionGetConnectionType :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m WebsocketConnectionType +websocketConnectionGetConnectionType _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_connection_type _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebsocketConnection::get_io_stream +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Gio" "IOStream" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_io_stream" soup_websocket_connection_get_io_stream :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO (Ptr Gio.IOStream) + + +websocketConnectionGetIoStream :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m Gio.IOStream +websocketConnectionGetIoStream _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_io_stream _obj' + checkUnexpectedReturnNULL "soup_websocket_connection_get_io_stream" result + result' <- (newObject Gio.IOStream) result + touchManagedPtr _obj + return result' + +-- method WebsocketConnection::get_origin +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_origin" soup_websocket_connection_get_origin :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO CString + + +websocketConnectionGetOrigin :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m T.Text +websocketConnectionGetOrigin _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_origin _obj' + checkUnexpectedReturnNULL "soup_websocket_connection_get_origin" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebsocketConnection::get_protocol +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_protocol" soup_websocket_connection_get_protocol :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO CString + + +websocketConnectionGetProtocol :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m T.Text +websocketConnectionGetProtocol _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_protocol _obj' + checkUnexpectedReturnNULL "soup_websocket_connection_get_protocol" result + result' <- cstringToText result + touchManagedPtr _obj + return result' + +-- method WebsocketConnection::get_state +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "WebsocketState" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_state" soup_websocket_connection_get_state :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO CUInt + + +websocketConnectionGetState :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m WebsocketState +websocketConnectionGetState _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_state _obj' + let result' = (toEnum . fromIntegral) result + touchManagedPtr _obj + return result' + +-- method WebsocketConnection::get_uri +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "URI" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_get_uri" soup_websocket_connection_get_uri :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + IO (Ptr URI) + + +websocketConnectionGetUri :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + m URI +websocketConnectionGetUri _obj = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + result <- soup_websocket_connection_get_uri _obj' + checkUnexpectedReturnNULL "soup_websocket_connection_get_uri" result + result' <- (newBoxed URI) result + touchManagedPtr _obj + return result' + +-- method WebsocketConnection::send_binary +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_connection_send_binary" soup_websocket_connection_send_binary :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) + Word64 -> -- length : TBasicType TUInt64 + IO () + + +websocketConnectionSendBinary :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + ByteString -> -- data + m () +websocketConnectionSendBinary _obj data_ = liftIO $ do + let length_ = fromIntegral $ B.length data_ + let _obj' = unsafeManagedPtrCastPtr _obj + data_' <- packByteString data_ + soup_websocket_connection_send_binary _obj' data_' length_ + touchManagedPtr _obj + freeMem data_' + return () + +-- method WebsocketConnection::send_text +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", 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_websocket_connection_send_text" soup_websocket_connection_send_text :: + Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" + CString -> -- text : TBasicType TUTF8 + IO () + + +websocketConnectionSendText :: + (MonadIO m, WebsocketConnectionK a) => + a -> -- _obj + T.Text -> -- text + m () +websocketConnectionSendText _obj text = liftIO $ do + let _obj' = unsafeManagedPtrCastPtr _obj + text' <- textToCString text + soup_websocket_connection_send_text _obj' text' + touchManagedPtr _obj + freeMem text' + return () + +-- signal WebsocketConnection::closed +type WebsocketConnectionClosedCallback = + IO () + +noWebsocketConnectionClosedCallback :: Maybe WebsocketConnectionClosedCallback +noWebsocketConnectionClosedCallback = Nothing + +type WebsocketConnectionClosedCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebsocketConnectionClosedCallback :: WebsocketConnectionClosedCallbackC -> IO (FunPtr WebsocketConnectionClosedCallbackC) + +websocketConnectionClosedClosure :: WebsocketConnectionClosedCallback -> IO Closure +websocketConnectionClosedClosure cb = newCClosure =<< mkWebsocketConnectionClosedCallback wrapped + where wrapped = websocketConnectionClosedCallbackWrapper cb + +websocketConnectionClosedCallbackWrapper :: + WebsocketConnectionClosedCallback -> + Ptr () -> + Ptr () -> + IO () +websocketConnectionClosedCallbackWrapper _cb _ _ = do + _cb + +onWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId +onWebsocketConnectionClosed obj cb = liftIO $ connectWebsocketConnectionClosed obj cb SignalConnectBefore +afterWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId +afterWebsocketConnectionClosed obj cb = connectWebsocketConnectionClosed obj cb SignalConnectAfter + +connectWebsocketConnectionClosed :: (GObject a, MonadIO m) => + a -> WebsocketConnectionClosedCallback -> SignalConnectMode -> m SignalHandlerId +connectWebsocketConnectionClosed obj cb after = liftIO $ do + cb' <- mkWebsocketConnectionClosedCallback (websocketConnectionClosedCallbackWrapper cb) + connectSignalFunPtr obj "closed" cb' after + +-- signal WebsocketConnection::closing +type WebsocketConnectionClosingCallback = + IO () + +noWebsocketConnectionClosingCallback :: Maybe WebsocketConnectionClosingCallback +noWebsocketConnectionClosingCallback = Nothing + +type WebsocketConnectionClosingCallbackC = + Ptr () -> -- object + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebsocketConnectionClosingCallback :: WebsocketConnectionClosingCallbackC -> IO (FunPtr WebsocketConnectionClosingCallbackC) + +websocketConnectionClosingClosure :: WebsocketConnectionClosingCallback -> IO Closure +websocketConnectionClosingClosure cb = newCClosure =<< mkWebsocketConnectionClosingCallback wrapped + where wrapped = websocketConnectionClosingCallbackWrapper cb + +websocketConnectionClosingCallbackWrapper :: + WebsocketConnectionClosingCallback -> + Ptr () -> + Ptr () -> + IO () +websocketConnectionClosingCallbackWrapper _cb _ _ = do + _cb + +onWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId +onWebsocketConnectionClosing obj cb = liftIO $ connectWebsocketConnectionClosing obj cb SignalConnectBefore +afterWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId +afterWebsocketConnectionClosing obj cb = connectWebsocketConnectionClosing obj cb SignalConnectAfter + +connectWebsocketConnectionClosing :: (GObject a, MonadIO m) => + a -> WebsocketConnectionClosingCallback -> SignalConnectMode -> m SignalHandlerId +connectWebsocketConnectionClosing obj cb after = liftIO $ do + cb' <- mkWebsocketConnectionClosingCallback (websocketConnectionClosingCallbackWrapper cb) + connectSignalFunPtr obj "closing" cb' after + +-- signal WebsocketConnection::error +type WebsocketConnectionErrorCallback = + GError -> + IO () + +noWebsocketConnectionErrorCallback :: Maybe WebsocketConnectionErrorCallback +noWebsocketConnectionErrorCallback = Nothing + +type WebsocketConnectionErrorCallbackC = + Ptr () -> -- object + Ptr GError -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebsocketConnectionErrorCallback :: WebsocketConnectionErrorCallbackC -> IO (FunPtr WebsocketConnectionErrorCallbackC) + +websocketConnectionErrorClosure :: WebsocketConnectionErrorCallback -> IO Closure +websocketConnectionErrorClosure cb = newCClosure =<< mkWebsocketConnectionErrorCallback wrapped + where wrapped = websocketConnectionErrorCallbackWrapper cb + +websocketConnectionErrorCallbackWrapper :: + WebsocketConnectionErrorCallback -> + Ptr () -> + Ptr GError -> + Ptr () -> + IO () +websocketConnectionErrorCallbackWrapper _cb _ error_ _ = do + error_' <- (newBoxed GError) error_ + _cb error_' + +onWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId +onWebsocketConnectionError obj cb = liftIO $ connectWebsocketConnectionError obj cb SignalConnectBefore +afterWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId +afterWebsocketConnectionError obj cb = connectWebsocketConnectionError obj cb SignalConnectAfter + +connectWebsocketConnectionError :: (GObject a, MonadIO m) => + a -> WebsocketConnectionErrorCallback -> SignalConnectMode -> m SignalHandlerId +connectWebsocketConnectionError obj cb after = liftIO $ do + cb' <- mkWebsocketConnectionErrorCallback (websocketConnectionErrorCallbackWrapper cb) + connectSignalFunPtr obj "error" cb' after + +-- signal WebsocketConnection::message +type WebsocketConnectionMessageCallback = + Int32 -> + GLib.Bytes -> + IO () + +noWebsocketConnectionMessageCallback :: Maybe WebsocketConnectionMessageCallback +noWebsocketConnectionMessageCallback = Nothing + +type WebsocketConnectionMessageCallbackC = + Ptr () -> -- object + Int32 -> + Ptr GLib.Bytes -> + Ptr () -> -- user_data + IO () + +foreign import ccall "wrapper" + mkWebsocketConnectionMessageCallback :: WebsocketConnectionMessageCallbackC -> IO (FunPtr WebsocketConnectionMessageCallbackC) + +websocketConnectionMessageClosure :: WebsocketConnectionMessageCallback -> IO Closure +websocketConnectionMessageClosure cb = newCClosure =<< mkWebsocketConnectionMessageCallback wrapped + where wrapped = websocketConnectionMessageCallbackWrapper cb + +websocketConnectionMessageCallbackWrapper :: + WebsocketConnectionMessageCallback -> + Ptr () -> + Int32 -> + Ptr GLib.Bytes -> + Ptr () -> + IO () +websocketConnectionMessageCallbackWrapper _cb _ type_ message _ = do + message' <- (newBoxed GLib.Bytes) message + _cb type_ message' + +onWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId +onWebsocketConnectionMessage obj cb = liftIO $ connectWebsocketConnectionMessage obj cb SignalConnectBefore +afterWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId +afterWebsocketConnectionMessage obj cb = connectWebsocketConnectionMessage obj cb SignalConnectAfter + +connectWebsocketConnectionMessage :: (GObject a, MonadIO m) => + a -> WebsocketConnectionMessageCallback -> SignalConnectMode -> m SignalHandlerId +connectWebsocketConnectionMessage obj cb after = liftIO $ do + cb' <- mkWebsocketConnectionMessageCallback (websocketConnectionMessageCallbackWrapper cb) + connectSignalFunPtr obj "message" cb' after + +-- Enum WebsocketConnectionType + +data WebsocketConnectionType = + WebsocketConnectionTypeUnknown + | WebsocketConnectionTypeClient + | WebsocketConnectionTypeServer + | AnotherWebsocketConnectionType Int + deriving (Show, Eq) + +instance Enum WebsocketConnectionType where + fromEnum WebsocketConnectionTypeUnknown = 0 + fromEnum WebsocketConnectionTypeClient = 1 + fromEnum WebsocketConnectionTypeServer = 2 + fromEnum (AnotherWebsocketConnectionType k) = k + + toEnum 0 = WebsocketConnectionTypeUnknown + toEnum 1 = WebsocketConnectionTypeClient + toEnum 2 = WebsocketConnectionTypeServer + toEnum k = AnotherWebsocketConnectionType k + +foreign import ccall "soup_websocket_connection_type_get_type" c_soup_websocket_connection_type_get_type :: + IO GType + +instance BoxedEnum WebsocketConnectionType where + boxedEnumType _ = c_soup_websocket_connection_type_get_type + +-- Enum WebsocketDataType + +data WebsocketDataType = + WebsocketDataTypeText + | WebsocketDataTypeBinary + | AnotherWebsocketDataType Int + deriving (Show, Eq) + +instance Enum WebsocketDataType where + fromEnum WebsocketDataTypeText = 1 + fromEnum WebsocketDataTypeBinary = 2 + fromEnum (AnotherWebsocketDataType k) = k + + toEnum 1 = WebsocketDataTypeText + toEnum 2 = WebsocketDataTypeBinary + toEnum k = AnotherWebsocketDataType k + +foreign import ccall "soup_websocket_data_type_get_type" c_soup_websocket_data_type_get_type :: + IO GType + +instance BoxedEnum WebsocketDataType where + boxedEnumType _ = c_soup_websocket_data_type_get_type + +-- Enum WebsocketError + +data WebsocketError = + WebsocketErrorFailed + | WebsocketErrorNotWebsocket + | WebsocketErrorBadHandshake + | WebsocketErrorBadOrigin + | AnotherWebsocketError Int + deriving (Show, Eq) + +instance Enum WebsocketError where + fromEnum WebsocketErrorFailed = 0 + fromEnum WebsocketErrorNotWebsocket = 1 + fromEnum WebsocketErrorBadHandshake = 2 + fromEnum WebsocketErrorBadOrigin = 3 + fromEnum (AnotherWebsocketError k) = k + + toEnum 0 = WebsocketErrorFailed + toEnum 1 = WebsocketErrorNotWebsocket + toEnum 2 = WebsocketErrorBadHandshake + toEnum 3 = WebsocketErrorBadOrigin + toEnum k = AnotherWebsocketError k + +foreign import ccall "soup_websocket_error_get_type" c_soup_websocket_error_get_type :: + IO GType + +instance BoxedEnum WebsocketError where + boxedEnumType _ = c_soup_websocket_error_get_type + +-- Enum WebsocketState + +data WebsocketState = + WebsocketStateOpen + | WebsocketStateClosing + | WebsocketStateClosed + | AnotherWebsocketState Int + deriving (Show, Eq) + +instance Enum WebsocketState where + fromEnum WebsocketStateOpen = 1 + fromEnum WebsocketStateClosing = 2 + fromEnum WebsocketStateClosed = 3 + fromEnum (AnotherWebsocketState k) = k + + toEnum 1 = WebsocketStateOpen + toEnum 2 = WebsocketStateClosing + toEnum 3 = WebsocketStateClosed + toEnum k = AnotherWebsocketState k + +foreign import ccall "soup_websocket_state_get_type" c_soup_websocket_state_get_type :: + IO GType + +instance BoxedEnum WebsocketState where + boxedEnumType _ = c_soup_websocket_state_get_type + +-- Enum XMLRPCError + +data XMLRPCError = + XMLRPCErrorArguments + | XMLRPCErrorRetval + | AnotherXMLRPCError Int + deriving (Show, Eq) + +instance Enum XMLRPCError where + fromEnum XMLRPCErrorArguments = 0 + fromEnum XMLRPCErrorRetval = 1 + fromEnum (AnotherXMLRPCError k) = k + + toEnum 0 = XMLRPCErrorArguments + toEnum 1 = XMLRPCErrorRetval + toEnum k = AnotherXMLRPCError k + +instance GErrorClass XMLRPCError where + gerrorClassDomain _ = "soup_xmlrpc_error_quark" + +catchXMLRPCError :: + IO a -> + (XMLRPCError -> GErrorMessage -> IO a) -> + IO a +catchXMLRPCError = catchGErrorJustDomain + +handleXMLRPCError :: + (XMLRPCError -> GErrorMessage -> IO a) -> + IO a -> + IO a +handleXMLRPCError = handleGErrorJustDomain + +foreign import ccall "soup_xmlrpc_error_get_type" c_soup_xmlrpc_error_get_type :: + IO GType + +instance BoxedEnum XMLRPCError where + boxedEnumType _ = c_soup_xmlrpc_error_get_type + +-- Enum XMLRPCFault + +data XMLRPCFault = + XMLRPCFaultParseErrorNotWellFormed + | XMLRPCFaultParseErrorUnsupportedEncoding + | XMLRPCFaultParseErrorInvalidCharacterForEncoding + | XMLRPCFaultServerErrorInvalidXmlRpc + | XMLRPCFaultServerErrorRequestedMethodNotFound + | XMLRPCFaultServerErrorInvalidMethodParameters + | XMLRPCFaultServerErrorInternalXmlRpcError + | XMLRPCFaultApplicationError + | XMLRPCFaultSystemError + | XMLRPCFaultTransportError + | AnotherXMLRPCFault Int + deriving (Show, Eq) + +instance Enum XMLRPCFault where + fromEnum XMLRPCFaultParseErrorNotWellFormed = -32700 + fromEnum XMLRPCFaultParseErrorUnsupportedEncoding = -32701 + fromEnum XMLRPCFaultParseErrorInvalidCharacterForEncoding = -32702 + fromEnum XMLRPCFaultServerErrorInvalidXmlRpc = -32600 + fromEnum XMLRPCFaultServerErrorRequestedMethodNotFound = -32601 + fromEnum XMLRPCFaultServerErrorInvalidMethodParameters = -32602 + fromEnum XMLRPCFaultServerErrorInternalXmlRpcError = -32603 + fromEnum XMLRPCFaultApplicationError = -32500 + fromEnum XMLRPCFaultSystemError = -32400 + fromEnum XMLRPCFaultTransportError = -32300 + fromEnum (AnotherXMLRPCFault k) = k + + toEnum -32702 = XMLRPCFaultParseErrorInvalidCharacterForEncoding + toEnum -32701 = XMLRPCFaultParseErrorUnsupportedEncoding + toEnum -32700 = XMLRPCFaultParseErrorNotWellFormed + toEnum -32603 = XMLRPCFaultServerErrorInternalXmlRpcError + toEnum -32602 = XMLRPCFaultServerErrorInvalidMethodParameters + toEnum -32601 = XMLRPCFaultServerErrorRequestedMethodNotFound + toEnum -32600 = XMLRPCFaultServerErrorInvalidXmlRpc + toEnum -32500 = XMLRPCFaultApplicationError + toEnum -32400 = XMLRPCFaultSystemError + toEnum -32300 = XMLRPCFaultTransportError + toEnum k = AnotherXMLRPCFault k + +foreign import ccall "soup_xmlrpc_fault_get_type" c_soup_xmlrpc_fault_get_type :: + IO GType + +instance BoxedEnum XMLRPCFault where + boxedEnumType _ = c_soup_xmlrpc_fault_get_type + +-- struct XMLRPCParams +newtype XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams) +noXMLRPCParams :: Maybe XMLRPCParams +noXMLRPCParams = Nothing + +-- method XMLRPCParams::free +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_xmlrpc_params_free" soup_xmlrpc_params_free :: + Ptr XMLRPCParams -> -- _obj : TInterface "Soup" "XMLRPCParams" + IO () + + +xMLRPCParamsFree :: + (MonadIO m) => + XMLRPCParams -> -- _obj + m () +xMLRPCParamsFree _obj = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + soup_xmlrpc_params_free _obj' + touchManagedPtr _obj + return () + +-- method XMLRPCParams::parse +-- method type : OrdinaryMethod +-- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TVariant +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_params_parse" soup_xmlrpc_params_parse :: + Ptr XMLRPCParams -> -- _obj : TInterface "Soup" "XMLRPCParams" + CString -> -- signature : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr GVariant) + + +xMLRPCParamsParse :: + (MonadIO m) => + XMLRPCParams -> -- _obj + Maybe (T.Text) -> -- signature + m GVariant +xMLRPCParamsParse _obj signature = liftIO $ do + let _obj' = unsafeManagedPtrGetPtr _obj + maybeSignature <- case signature of + Nothing -> return nullPtr + Just jSignature -> do + jSignature' <- textToCString jSignature + return jSignature' + onException (do + result <- propagateGError $ soup_xmlrpc_params_parse _obj' maybeSignature + checkUnexpectedReturnNULL "soup_xmlrpc_params_parse" result + result' <- wrapGVariantPtr result + touchManagedPtr _obj + freeMem maybeSignature + return result' + ) (do + freeMem maybeSignature + ) + +-- constant _ADDRESS_ANY_PORT + +_ADDRESS_ANY_PORT :: Int32 +_ADDRESS_ANY_PORT = 0 +-- constant _ADDRESS_FAMILY + +_ADDRESS_FAMILY :: T.Text +_ADDRESS_FAMILY = "family" +-- constant _ADDRESS_NAME + +_ADDRESS_NAME :: T.Text +_ADDRESS_NAME = "name" +-- constant _ADDRESS_PHYSICAL + +_ADDRESS_PHYSICAL :: T.Text +_ADDRESS_PHYSICAL = "physical" +-- constant _ADDRESS_PORT + +_ADDRESS_PORT :: T.Text +_ADDRESS_PORT = "port" +-- constant _ADDRESS_PROTOCOL + +_ADDRESS_PROTOCOL :: T.Text +_ADDRESS_PROTOCOL = "protocol" +-- constant _ADDRESS_SOCKADDR + +_ADDRESS_SOCKADDR :: T.Text +_ADDRESS_SOCKADDR = "sockaddr" +-- constant _AUTH_DOMAIN_ADD_PATH + +_AUTH_DOMAIN_ADD_PATH :: T.Text +_AUTH_DOMAIN_ADD_PATH = "add-path" +-- constant _AUTH_DOMAIN_BASIC_AUTH_CALLBACK + +_AUTH_DOMAIN_BASIC_AUTH_CALLBACK :: T.Text +_AUTH_DOMAIN_BASIC_AUTH_CALLBACK = "auth-callback" +-- constant _AUTH_DOMAIN_BASIC_AUTH_DATA + +_AUTH_DOMAIN_BASIC_AUTH_DATA :: T.Text +_AUTH_DOMAIN_BASIC_AUTH_DATA = "auth-data" +-- constant _AUTH_DOMAIN_BASIC_H + +_AUTH_DOMAIN_BASIC_H :: Int32 +_AUTH_DOMAIN_BASIC_H = 1 +-- constant _AUTH_DOMAIN_DIGEST_AUTH_CALLBACK + +_AUTH_DOMAIN_DIGEST_AUTH_CALLBACK :: T.Text +_AUTH_DOMAIN_DIGEST_AUTH_CALLBACK = "auth-callback" +-- constant _AUTH_DOMAIN_DIGEST_AUTH_DATA + +_AUTH_DOMAIN_DIGEST_AUTH_DATA :: T.Text +_AUTH_DOMAIN_DIGEST_AUTH_DATA = "auth-data" +-- constant _AUTH_DOMAIN_DIGEST_H + +_AUTH_DOMAIN_DIGEST_H :: Int32 +_AUTH_DOMAIN_DIGEST_H = 1 +-- constant _AUTH_DOMAIN_FILTER + +_AUTH_DOMAIN_FILTER :: T.Text +_AUTH_DOMAIN_FILTER = "filter" +-- constant _AUTH_DOMAIN_FILTER_DATA + +_AUTH_DOMAIN_FILTER_DATA :: T.Text +_AUTH_DOMAIN_FILTER_DATA = "filter-data" +-- constant _AUTH_DOMAIN_GENERIC_AUTH_CALLBACK + +_AUTH_DOMAIN_GENERIC_AUTH_CALLBACK :: T.Text +_AUTH_DOMAIN_GENERIC_AUTH_CALLBACK = "generic-auth-callback" +-- constant _AUTH_DOMAIN_GENERIC_AUTH_DATA + +_AUTH_DOMAIN_GENERIC_AUTH_DATA :: T.Text +_AUTH_DOMAIN_GENERIC_AUTH_DATA = "generic-auth-data" +-- constant _AUTH_DOMAIN_H + +_AUTH_DOMAIN_H :: Int32 +_AUTH_DOMAIN_H = 1 +-- constant _AUTH_DOMAIN_PROXY + +_AUTH_DOMAIN_PROXY :: T.Text +_AUTH_DOMAIN_PROXY = "proxy" +-- constant _AUTH_DOMAIN_REALM + +_AUTH_DOMAIN_REALM :: T.Text +_AUTH_DOMAIN_REALM = "realm" +-- constant _AUTH_DOMAIN_REMOVE_PATH + +_AUTH_DOMAIN_REMOVE_PATH :: T.Text +_AUTH_DOMAIN_REMOVE_PATH = "remove-path" +-- constant _AUTH_H + +_AUTH_H :: Int32 +_AUTH_H = 1 +-- constant _AUTH_HOST + +_AUTH_HOST :: T.Text +_AUTH_HOST = "host" +-- constant _AUTH_IS_AUTHENTICATED + +_AUTH_IS_AUTHENTICATED :: T.Text +_AUTH_IS_AUTHENTICATED = "is-authenticated" +-- constant _AUTH_IS_FOR_PROXY + +_AUTH_IS_FOR_PROXY :: T.Text +_AUTH_IS_FOR_PROXY = "is-for-proxy" +-- constant _AUTH_MANAGER_H + +_AUTH_MANAGER_H :: Int32 +_AUTH_MANAGER_H = 1 +-- constant _AUTH_REALM + +_AUTH_REALM :: T.Text +_AUTH_REALM = "realm" +-- constant _AUTH_SCHEME_NAME + +_AUTH_SCHEME_NAME :: T.Text +_AUTH_SCHEME_NAME = "scheme-name" +-- constant _CACHE_H + +_CACHE_H :: Int32 +_CACHE_H = 1 +-- constant _CHAR_HTTP_CTL + +_CHAR_HTTP_CTL :: Int32 +_CHAR_HTTP_CTL = 16 +-- constant _CHAR_HTTP_SEPARATOR + +_CHAR_HTTP_SEPARATOR :: Int32 +_CHAR_HTTP_SEPARATOR = 8 +-- constant _CHAR_URI_GEN_DELIMS + +_CHAR_URI_GEN_DELIMS :: Int32 +_CHAR_URI_GEN_DELIMS = 2 +-- constant _CHAR_URI_PERCENT_ENCODED + +_CHAR_URI_PERCENT_ENCODED :: Int32 +_CHAR_URI_PERCENT_ENCODED = 1 +-- constant _CHAR_URI_SUB_DELIMS + +_CHAR_URI_SUB_DELIMS :: Int32 +_CHAR_URI_SUB_DELIMS = 4 +-- constant _CONTENT_DECODER_H + +_CONTENT_DECODER_H :: Int32 +_CONTENT_DECODER_H = 1 +-- constant _CONTENT_SNIFFER_H + +_CONTENT_SNIFFER_H :: Int32 +_CONTENT_SNIFFER_H = 1 +-- constant _COOKIE_H + +_COOKIE_H :: Int32 +_COOKIE_H = 1 +-- constant _COOKIE_JAR_ACCEPT_POLICY + +_COOKIE_JAR_ACCEPT_POLICY :: T.Text +_COOKIE_JAR_ACCEPT_POLICY = "accept-policy" +-- constant _COOKIE_JAR_DB_FILENAME + +_COOKIE_JAR_DB_FILENAME :: T.Text +_COOKIE_JAR_DB_FILENAME = "filename" +-- constant _COOKIE_JAR_DB_H + +_COOKIE_JAR_DB_H :: Int32 +_COOKIE_JAR_DB_H = 1 +-- constant _COOKIE_JAR_H + +_COOKIE_JAR_H :: Int32 +_COOKIE_JAR_H = 1 +-- constant _COOKIE_JAR_READ_ONLY + +_COOKIE_JAR_READ_ONLY :: T.Text +_COOKIE_JAR_READ_ONLY = "read-only" +-- constant _COOKIE_JAR_TEXT_FILENAME + +_COOKIE_JAR_TEXT_FILENAME :: T.Text +_COOKIE_JAR_TEXT_FILENAME = "filename" +-- constant _COOKIE_JAR_TEXT_H + +_COOKIE_JAR_TEXT_H :: Int32 +_COOKIE_JAR_TEXT_H = 1 +-- constant _COOKIE_MAX_AGE_ONE_DAY + +_COOKIE_MAX_AGE_ONE_DAY :: Int32 +_COOKIE_MAX_AGE_ONE_DAY = 0 +-- constant _COOKIE_MAX_AGE_ONE_HOUR + +_COOKIE_MAX_AGE_ONE_HOUR :: Int32 +_COOKIE_MAX_AGE_ONE_HOUR = 3600 +-- constant _COOKIE_MAX_AGE_ONE_WEEK + +_COOKIE_MAX_AGE_ONE_WEEK :: Int32 +_COOKIE_MAX_AGE_ONE_WEEK = 0 +-- constant _COOKIE_MAX_AGE_ONE_YEAR + +_COOKIE_MAX_AGE_ONE_YEAR :: Int32 +_COOKIE_MAX_AGE_ONE_YEAR = 0 +-- constant _DATE_H + +_DATE_H :: Int32 +_DATE_H = 1 +-- constant _FORM_H + +_FORM_H :: Int32 +_FORM_H = 1 +-- constant _FORM_MIME_TYPE_MULTIPART + +_FORM_MIME_TYPE_MULTIPART :: T.Text +_FORM_MIME_TYPE_MULTIPART = "multipart/form-data" +-- constant _FORM_MIME_TYPE_URLENCODED + +_FORM_MIME_TYPE_URLENCODED :: T.Text +_FORM_MIME_TYPE_URLENCODED = "application/x-www-form-urlencoded" +-- constant _HEADERS_H + +_HEADERS_H :: Int32 +_HEADERS_H = 1 +-- constant _LOGGER_H + +_LOGGER_H :: Int32 +_LOGGER_H = 1 +-- constant _MESSAGE_BODY_H + +_MESSAGE_BODY_H :: Int32 +_MESSAGE_BODY_H = 1 +-- constant _MESSAGE_FIRST_PARTY + +_MESSAGE_FIRST_PARTY :: T.Text +_MESSAGE_FIRST_PARTY = "first-party" +-- constant _MESSAGE_FLAGS + +_MESSAGE_FLAGS :: T.Text +_MESSAGE_FLAGS = "flags" +-- constant _MESSAGE_H + +_MESSAGE_H :: Int32 +_MESSAGE_H = 1 +-- constant _MESSAGE_HEADERS_H + +_MESSAGE_HEADERS_H :: Int32 +_MESSAGE_HEADERS_H = 1 +-- constant _MESSAGE_HTTP_VERSION + +_MESSAGE_HTTP_VERSION :: T.Text +_MESSAGE_HTTP_VERSION = "http-version" +-- constant _MESSAGE_METHOD + +_MESSAGE_METHOD :: T.Text +_MESSAGE_METHOD = "method" +-- constant _MESSAGE_PRIORITY + +_MESSAGE_PRIORITY :: T.Text +_MESSAGE_PRIORITY = "priority" +-- constant _MESSAGE_REASON_PHRASE + +_MESSAGE_REASON_PHRASE :: T.Text +_MESSAGE_REASON_PHRASE = "reason-phrase" +-- constant _MESSAGE_REQUEST_BODY + +_MESSAGE_REQUEST_BODY :: T.Text +_MESSAGE_REQUEST_BODY = "request-body" +-- constant _MESSAGE_REQUEST_BODY_DATA + +_MESSAGE_REQUEST_BODY_DATA :: T.Text +_MESSAGE_REQUEST_BODY_DATA = "request-body-data" +-- constant _MESSAGE_REQUEST_HEADERS + +_MESSAGE_REQUEST_HEADERS :: T.Text +_MESSAGE_REQUEST_HEADERS = "request-headers" +-- constant _MESSAGE_RESPONSE_BODY + +_MESSAGE_RESPONSE_BODY :: T.Text +_MESSAGE_RESPONSE_BODY = "response-body" +-- constant _MESSAGE_RESPONSE_BODY_DATA + +_MESSAGE_RESPONSE_BODY_DATA :: T.Text +_MESSAGE_RESPONSE_BODY_DATA = "response-body-data" +-- constant _MESSAGE_RESPONSE_HEADERS + +_MESSAGE_RESPONSE_HEADERS :: T.Text +_MESSAGE_RESPONSE_HEADERS = "response-headers" +-- constant _MESSAGE_SERVER_SIDE + +_MESSAGE_SERVER_SIDE :: T.Text +_MESSAGE_SERVER_SIDE = "server-side" +-- constant _MESSAGE_STATUS_CODE + +_MESSAGE_STATUS_CODE :: T.Text +_MESSAGE_STATUS_CODE = "status-code" +-- constant _MESSAGE_TLS_CERTIFICATE + +_MESSAGE_TLS_CERTIFICATE :: T.Text +_MESSAGE_TLS_CERTIFICATE = "tls-certificate" +-- constant _MESSAGE_TLS_ERRORS + +_MESSAGE_TLS_ERRORS :: T.Text +_MESSAGE_TLS_ERRORS = "tls-errors" +-- constant _MESSAGE_URI + +_MESSAGE_URI :: T.Text +_MESSAGE_URI = "uri" +-- constant _METHOD_H + +_METHOD_H :: Int32 +_METHOD_H = 1 +-- constant _MISC_H + +_MISC_H :: Int32 +_MISC_H = 1 +-- constant _MULTIPART_H + +_MULTIPART_H :: Int32 +_MULTIPART_H = 1 +-- constant _MULTIPART_INPUT_STREAM_H + +_MULTIPART_INPUT_STREAM_H :: Int32 +_MULTIPART_INPUT_STREAM_H = 1 +-- constant _PASSWORD_MANAGER_H + +_PASSWORD_MANAGER_H :: Int32 +_PASSWORD_MANAGER_H = 1 +-- constant _PROXY_RESOLVER_DEFAULT_H + +_PROXY_RESOLVER_DEFAULT_H :: Int32 +_PROXY_RESOLVER_DEFAULT_H = 1 +-- constant _PROXY_URI_RESOLVER_H + +_PROXY_URI_RESOLVER_H :: Int32 +_PROXY_URI_RESOLVER_H = 1 +-- constant _REQUESTER_H + +_REQUESTER_H :: Int32 +_REQUESTER_H = 1 +-- constant _REQUEST_DATA_H + +_REQUEST_DATA_H :: Int32 +_REQUEST_DATA_H = 1 +-- constant _REQUEST_FILE_H + +_REQUEST_FILE_H :: Int32 +_REQUEST_FILE_H = 1 +-- constant _REQUEST_H + +_REQUEST_H :: Int32 +_REQUEST_H = 1 +-- constant _REQUEST_HTTP_H + +_REQUEST_HTTP_H :: Int32 +_REQUEST_HTTP_H = 1 +-- constant _REQUEST_SESSION + +_REQUEST_SESSION :: T.Text +_REQUEST_SESSION = "session" +-- constant _REQUEST_URI + +_REQUEST_URI :: T.Text +_REQUEST_URI = "uri" +-- constant _SERVER_ASYNC_CONTEXT +{-# DEPRECATED _SERVER_ASYNC_CONTEXT ["The new API uses the thread-default #GMainContext","rather than having an explicitly-specified one."]#-} +_SERVER_ASYNC_CONTEXT :: T.Text +_SERVER_ASYNC_CONTEXT = "async-context" +-- constant _SERVER_H + +_SERVER_H :: Int32 +_SERVER_H = 1 +-- constant _SERVER_HTTPS_ALIASES + +_SERVER_HTTPS_ALIASES :: T.Text +_SERVER_HTTPS_ALIASES = "https-aliases" +-- constant _SERVER_HTTP_ALIASES + +_SERVER_HTTP_ALIASES :: T.Text +_SERVER_HTTP_ALIASES = "http-aliases" +-- constant _SERVER_INTERFACE +{-# DEPRECATED _SERVER_INTERFACE ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on an","interface, and soup_server_get_uris() to see what addresses","are being listened on."]#-} +_SERVER_INTERFACE :: T.Text +_SERVER_INTERFACE = "interface" +-- constant _SERVER_PORT +{-# DEPRECATED _SERVER_PORT ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on a","port, and soup_server_get_uris() to see what ports are","being listened on."]#-} +_SERVER_PORT :: T.Text +_SERVER_PORT = "port" +-- constant _SERVER_RAW_PATHS + +_SERVER_RAW_PATHS :: T.Text +_SERVER_RAW_PATHS = "raw-paths" +-- constant _SERVER_SERVER_HEADER + +_SERVER_SERVER_HEADER :: T.Text +_SERVER_SERVER_HEADER = "server-header" +-- constant _SERVER_SSL_CERT_FILE +{-# DEPRECATED _SERVER_SSL_CERT_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-} +_SERVER_SSL_CERT_FILE :: T.Text +_SERVER_SSL_CERT_FILE = "ssl-cert-file" +-- constant _SERVER_SSL_KEY_FILE +{-# DEPRECATED _SERVER_SSL_KEY_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-} +_SERVER_SSL_KEY_FILE :: T.Text +_SERVER_SSL_KEY_FILE = "ssl-key-file" +-- constant _SERVER_TLS_CERTIFICATE + +_SERVER_TLS_CERTIFICATE :: T.Text +_SERVER_TLS_CERTIFICATE = "tls-certificate" +-- constant _SESSION_ACCEPT_LANGUAGE + +_SESSION_ACCEPT_LANGUAGE :: T.Text +_SESSION_ACCEPT_LANGUAGE = "accept-language" +-- constant _SESSION_ACCEPT_LANGUAGE_AUTO + +_SESSION_ACCEPT_LANGUAGE_AUTO :: T.Text +_SESSION_ACCEPT_LANGUAGE_AUTO = "accept-language-auto" +-- constant _SESSION_ASYNC_CONTEXT + +_SESSION_ASYNC_CONTEXT :: T.Text +_SESSION_ASYNC_CONTEXT = "async-context" +-- constant _SESSION_ASYNC_H + +_SESSION_ASYNC_H :: Int32 +_SESSION_ASYNC_H = 1 +-- constant _SESSION_FEATURE_H + +_SESSION_FEATURE_H :: Int32 +_SESSION_FEATURE_H = 1 +-- constant _SESSION_H + +_SESSION_H :: Int32 +_SESSION_H = 1 +-- constant _SESSION_HTTPS_ALIASES + +_SESSION_HTTPS_ALIASES :: T.Text +_SESSION_HTTPS_ALIASES = "https-aliases" +-- constant _SESSION_HTTP_ALIASES + +_SESSION_HTTP_ALIASES :: T.Text +_SESSION_HTTP_ALIASES = "http-aliases" +-- constant _SESSION_IDLE_TIMEOUT + +_SESSION_IDLE_TIMEOUT :: T.Text +_SESSION_IDLE_TIMEOUT = "idle-timeout" +-- constant _SESSION_LOCAL_ADDRESS + +_SESSION_LOCAL_ADDRESS :: T.Text +_SESSION_LOCAL_ADDRESS = "local-address" +-- constant _SESSION_MAX_CONNS + +_SESSION_MAX_CONNS :: T.Text +_SESSION_MAX_CONNS = "max-conns" +-- constant _SESSION_MAX_CONNS_PER_HOST + +_SESSION_MAX_CONNS_PER_HOST :: T.Text +_SESSION_MAX_CONNS_PER_HOST = "max-conns-per-host" +-- constant _SESSION_PROXY_RESOLVER + +_SESSION_PROXY_RESOLVER :: T.Text +_SESSION_PROXY_RESOLVER = "proxy-resolver" +-- constant _SESSION_PROXY_URI + +_SESSION_PROXY_URI :: T.Text +_SESSION_PROXY_URI = "proxy-uri" +-- constant _SESSION_SSL_CA_FILE + +_SESSION_SSL_CA_FILE :: T.Text +_SESSION_SSL_CA_FILE = "ssl-ca-file" +-- constant _SESSION_SSL_STRICT + +_SESSION_SSL_STRICT :: T.Text +_SESSION_SSL_STRICT = "ssl-strict" +-- constant _SESSION_SSL_USE_SYSTEM_CA_FILE + +_SESSION_SSL_USE_SYSTEM_CA_FILE :: T.Text +_SESSION_SSL_USE_SYSTEM_CA_FILE = "ssl-use-system-ca-file" +-- constant _SESSION_SYNC_H + +_SESSION_SYNC_H :: Int32 +_SESSION_SYNC_H = 1 +-- constant _SESSION_TIMEOUT + +_SESSION_TIMEOUT :: T.Text +_SESSION_TIMEOUT = "timeout" +-- constant _SESSION_TLS_DATABASE + +_SESSION_TLS_DATABASE :: T.Text +_SESSION_TLS_DATABASE = "tls-database" +-- constant _SESSION_TLS_INTERACTION + +_SESSION_TLS_INTERACTION :: T.Text +_SESSION_TLS_INTERACTION = "tls-interaction" +-- constant _SESSION_USER_AGENT + +_SESSION_USER_AGENT :: T.Text +_SESSION_USER_AGENT = "user-agent" +-- constant _SESSION_USE_NTLM + +_SESSION_USE_NTLM :: T.Text +_SESSION_USE_NTLM = "use-ntlm" +-- constant _SESSION_USE_THREAD_CONTEXT + +_SESSION_USE_THREAD_CONTEXT :: T.Text +_SESSION_USE_THREAD_CONTEXT = "use-thread-context" +-- constant _SOCKET_ASYNC_CONTEXT + +_SOCKET_ASYNC_CONTEXT :: T.Text +_SOCKET_ASYNC_CONTEXT = "async-context" +-- constant _SOCKET_FLAG_NONBLOCKING + +_SOCKET_FLAG_NONBLOCKING :: T.Text +_SOCKET_FLAG_NONBLOCKING = "non-blocking" +-- constant _SOCKET_H + +_SOCKET_H :: Int32 +_SOCKET_H = 1 +-- constant _SOCKET_IS_SERVER + +_SOCKET_IS_SERVER :: T.Text +_SOCKET_IS_SERVER = "is-server" +-- constant _SOCKET_LOCAL_ADDRESS + +_SOCKET_LOCAL_ADDRESS :: T.Text +_SOCKET_LOCAL_ADDRESS = "local-address" +-- constant _SOCKET_REMOTE_ADDRESS + +_SOCKET_REMOTE_ADDRESS :: T.Text +_SOCKET_REMOTE_ADDRESS = "remote-address" +-- constant _SOCKET_SSL_CREDENTIALS + +_SOCKET_SSL_CREDENTIALS :: T.Text +_SOCKET_SSL_CREDENTIALS = "ssl-creds" +-- constant _SOCKET_SSL_FALLBACK + +_SOCKET_SSL_FALLBACK :: T.Text +_SOCKET_SSL_FALLBACK = "ssl-fallback" +-- constant _SOCKET_SSL_STRICT + +_SOCKET_SSL_STRICT :: T.Text +_SOCKET_SSL_STRICT = "ssl-strict" +-- constant _SOCKET_TIMEOUT + +_SOCKET_TIMEOUT :: T.Text +_SOCKET_TIMEOUT = "timeout" +-- constant _SOCKET_TLS_CERTIFICATE + +_SOCKET_TLS_CERTIFICATE :: T.Text +_SOCKET_TLS_CERTIFICATE = "tls-certificate" +-- constant _SOCKET_TLS_ERRORS + +_SOCKET_TLS_ERRORS :: T.Text +_SOCKET_TLS_ERRORS = "tls-errors" +-- constant _SOCKET_TRUSTED_CERTIFICATE + +_SOCKET_TRUSTED_CERTIFICATE :: T.Text +_SOCKET_TRUSTED_CERTIFICATE = "trusted-certificate" +-- constant _SOCKET_USE_THREAD_CONTEXT + +_SOCKET_USE_THREAD_CONTEXT :: T.Text +_SOCKET_USE_THREAD_CONTEXT = "use-thread-context" +-- constant _STATUS_H + +_STATUS_H :: Int32 +_STATUS_H = 1 +-- constant _TYPES_H + +_TYPES_H :: Int32 +_TYPES_H = 1 +-- constant _URI_H + +_URI_H :: Int32 +_URI_H = 1 +-- constant _VALUE_UTILS_H + +_VALUE_UTILS_H :: Int32 +_VALUE_UTILS_H = 1 +-- constant _XMLRPC_H + +_XMLRPC_H :: Int32 +_XMLRPC_H = 1 +-- constant _XMLRPC_OLD_H + +_XMLRPC_OLD_H :: Int32 +_XMLRPC_OLD_H = 1 +-- function soup_cookie_parse +-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Cookie" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookie_parse" soup_cookie_parse :: + CString -> -- header : TBasicType TUTF8 + Ptr URI -> -- origin : TInterface "Soup" "URI" + IO (Ptr Cookie) + + +cookieParse :: + (MonadIO m) => + T.Text -> -- header + URI -> -- origin + m Cookie +cookieParse header origin = liftIO $ do + header' <- textToCString header + let origin' = unsafeManagedPtrGetPtr origin + result <- soup_cookie_parse header' origin' + checkUnexpectedReturnNULL "soup_cookie_parse" result + result' <- (wrapBoxed Cookie) result + touchManagedPtr origin + freeMem header' + return result' + +-- function soup_cookies_from_request +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Soup" "Cookie") +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookies_from_request" soup_cookies_from_request :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO (Ptr (GSList (Ptr Cookie))) + + +cookiesFromRequest :: + (MonadIO m, MessageK a) => + a -> -- msg + m [Cookie] +cookiesFromRequest msg = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_cookies_from_request msg' + checkUnexpectedReturnNULL "soup_cookies_from_request" result + result' <- unpackGSList result + result'' <- mapM (wrapBoxed Cookie) result' + g_slist_free result + touchManagedPtr msg + return result'' + +-- function soup_cookies_from_response +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TInterface "Soup" "Cookie") +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookies_from_response" soup_cookies_from_response :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO (Ptr (GSList (Ptr Cookie))) + + +cookiesFromResponse :: + (MonadIO m, MessageK a) => + a -> -- msg + m [Cookie] +cookiesFromResponse msg = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + result <- soup_cookies_from_response msg' + checkUnexpectedReturnNULL "soup_cookies_from_response" result + result' <- unpackGSList result + result'' <- mapM (wrapBoxed Cookie) result' + g_slist_free result + touchManagedPtr msg + return result'' + +-- function soup_cookies_to_cookie_header +-- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookies_to_cookie_header" soup_cookies_to_cookie_header :: + Ptr (GSList (Ptr Cookie)) -> -- cookies : TGSList (TInterface "Soup" "Cookie") + IO CString + + +cookiesToCookieHeader :: + (MonadIO m) => + [Cookie] -> -- cookies + m T.Text +cookiesToCookieHeader cookies = liftIO $ do + let cookies' = map unsafeManagedPtrGetPtr cookies + cookies'' <- packGSList cookies' + result <- soup_cookies_to_cookie_header cookies'' + checkUnexpectedReturnNULL "soup_cookies_to_cookie_header" result + result' <- cstringToText result + freeMem result + mapM_ touchManagedPtr cookies + g_slist_free cookies'' + return result' + +-- function soup_cookies_to_request +-- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookies_to_request" soup_cookies_to_request :: + Ptr (GSList (Ptr Cookie)) -> -- cookies : TGSList (TInterface "Soup" "Cookie") + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +cookiesToRequest :: + (MonadIO m, MessageK a) => + [Cookie] -> -- cookies + a -> -- msg + m () +cookiesToRequest cookies msg = liftIO $ do + let cookies' = map unsafeManagedPtrGetPtr cookies + cookies'' <- packGSList cookies' + let msg' = unsafeManagedPtrCastPtr msg + soup_cookies_to_request cookies'' msg' + mapM_ touchManagedPtr cookies + touchManagedPtr msg + g_slist_free cookies'' + return () + +-- function soup_cookies_to_response +-- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TVoid +-- throws : False +-- Skip return : False + +foreign import ccall "soup_cookies_to_response" soup_cookies_to_response :: + Ptr (GSList (Ptr Cookie)) -> -- cookies : TGSList (TInterface "Soup" "Cookie") + Ptr Message -> -- msg : TInterface "Soup" "Message" + IO () + + +cookiesToResponse :: + (MonadIO m, MessageK a) => + [Cookie] -> -- cookies + a -> -- msg + m () +cookiesToResponse cookies msg = liftIO $ do + let cookies' = map unsafeManagedPtrGetPtr cookies + cookies'' <- packGSList cookies' + let msg' = unsafeManagedPtrCastPtr msg + soup_cookies_to_response cookies'' msg' + mapM_ touchManagedPtr cookies + touchManagedPtr msg + g_slist_free cookies'' + return () + +-- function soup_form_decode +-- Args : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_form_decode" soup_form_decode :: + CString -> -- encoded_form : TBasicType TUTF8 + IO (Ptr (GHashTable CString CString)) + + +formDecode :: + (MonadIO m) => + T.Text -> -- encoded_form + m (Map.Map T.Text T.Text) +formDecode encoded_form = liftIO $ do + encoded_form' <- textToCString encoded_form + result <- soup_form_decode encoded_form' + checkUnexpectedReturnNULL "soup_form_decode" result + result' <- unpackGHashTable result + let result'' = mapFirst cstringUnpackPtr result' + result''' <- mapFirstA cstringToText result'' + let result'''' = mapSecond cstringUnpackPtr result''' + result''''' <- mapSecondA cstringToText result'''' + let result'''''' = Map.fromList result''''' + unrefGHashTable result + freeMem encoded_form' + return result'''''' + +-- function soup_form_decode_multipart +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "file", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_form_decode_multipart" soup_form_decode_multipart :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- file_control_name : TBasicType TUTF8 + Ptr CString -> -- filename : TBasicType TUTF8 + Ptr CString -> -- content_type : TBasicType TUTF8 + Ptr Buffer -> -- file : TInterface "Soup" "Buffer" + IO (Ptr (GHashTable CString CString)) + + +formDecodeMultipart :: + (MonadIO m, MessageK a) => + a -> -- msg + Maybe (T.Text) -> -- file_control_name + m ((Map.Map T.Text T.Text),T.Text,T.Text,Buffer) +formDecodeMultipart msg file_control_name = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + maybeFile_control_name <- case file_control_name of + Nothing -> return nullPtr + Just jFile_control_name -> do + jFile_control_name' <- textToCString jFile_control_name + return jFile_control_name' + filename <- allocMem :: IO (Ptr CString) + content_type <- allocMem :: IO (Ptr CString) + file <- callocBoxedBytes 16 :: IO (Ptr Buffer) + result <- soup_form_decode_multipart msg' maybeFile_control_name filename content_type file + checkUnexpectedReturnNULL "soup_form_decode_multipart" result + result' <- unpackGHashTable result + let result'' = mapFirst cstringUnpackPtr result' + result''' <- mapFirstA cstringToText result'' + let result'''' = mapSecond cstringUnpackPtr result''' + result''''' <- mapSecondA cstringToText result'''' + let result'''''' = Map.fromList result''''' + unrefGHashTable result + filename' <- peek filename + filename'' <- cstringToText filename' + freeMem filename' + content_type' <- peek content_type + content_type'' <- cstringToText content_type' + freeMem content_type' + file' <- (wrapBoxed Buffer) file + touchManagedPtr msg + freeMem maybeFile_control_name + freeMem filename + freeMem content_type + return (result'''''', filename'', content_type'', file') + +-- function soup_form_encode_datalist +-- Args : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_form_encode_datalist" soup_form_encode_datalist :: + Ptr GLib.Data -> -- form_data_set : TInterface "GLib" "Data" + IO CString + + +formEncodeDatalist :: + (MonadIO m) => + GLib.Data -> -- form_data_set + m T.Text +formEncodeDatalist form_data_set = liftIO $ do + let form_data_set' = unsafeManagedPtrGetPtr form_data_set + result <- soup_form_encode_datalist form_data_set' + checkUnexpectedReturnNULL "soup_form_encode_datalist" result + result' <- cstringToText result + freeMem result + touchManagedPtr form_data_set + return result' + +-- function soup_form_encode_hash +-- Args : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (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_form_encode_hash" soup_form_encode_hash :: + Ptr (GHashTable CString CString) -> -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8) + IO CString + + +formEncodeHash :: + (MonadIO m) => + Map.Map T.Text T.Text -> -- form_data_set + m T.Text +formEncodeHash form_data_set = liftIO $ do + let form_data_set' = Map.toList form_data_set + form_data_set'' <- mapFirstA textToCString form_data_set' + form_data_set''' <- mapSecondA textToCString form_data_set'' + let form_data_set'''' = mapFirst cstringPackPtr form_data_set''' + let form_data_set''''' = mapSecond cstringPackPtr form_data_set'''' + form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set''''' + result <- soup_form_encode_hash form_data_set'''''' + checkUnexpectedReturnNULL "soup_form_encode_hash" result + result' <- cstringToText result + freeMem result + unrefGHashTable form_data_set'''''' + return result' + +-- function soup_form_request_new_from_datalist +-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_form_request_new_from_datalist" soup_form_request_new_from_datalist :: + CString -> -- method : TBasicType TUTF8 + CString -> -- uri : TBasicType TUTF8 + Ptr GLib.Data -> -- form_data_set : TInterface "GLib" "Data" + IO (Ptr Message) + + +formRequestNewFromDatalist :: + (MonadIO m) => + T.Text -> -- method + T.Text -> -- uri + GLib.Data -> -- form_data_set + m Message +formRequestNewFromDatalist method uri form_data_set = liftIO $ do + method' <- textToCString method + uri' <- textToCString uri + let form_data_set' = unsafeManagedPtrGetPtr form_data_set + result <- soup_form_request_new_from_datalist method' uri' form_data_set' + checkUnexpectedReturnNULL "soup_form_request_new_from_datalist" result + result' <- (wrapObject Message) result + touchManagedPtr form_data_set + freeMem method' + freeMem uri' + return result' + +-- function soup_form_request_new_from_hash +-- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_form_request_new_from_hash" soup_form_request_new_from_hash :: + CString -> -- method : TBasicType TUTF8 + CString -> -- uri : TBasicType TUTF8 + Ptr (GHashTable CString CString) -> -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8) + IO (Ptr Message) + + +formRequestNewFromHash :: + (MonadIO m) => + T.Text -> -- method + T.Text -> -- uri + Map.Map T.Text T.Text -> -- form_data_set + m Message +formRequestNewFromHash method uri form_data_set = liftIO $ do + method' <- textToCString method + uri' <- textToCString uri + let form_data_set' = Map.toList form_data_set + form_data_set'' <- mapFirstA textToCString form_data_set' + form_data_set''' <- mapSecondA textToCString form_data_set'' + let form_data_set'''' = mapFirst cstringPackPtr form_data_set''' + let form_data_set''''' = mapSecond cstringPackPtr form_data_set'''' + form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set''''' + result <- soup_form_request_new_from_hash method' uri' form_data_set'''''' + checkUnexpectedReturnNULL "soup_form_request_new_from_hash" result + result' <- (wrapObject Message) result + freeMem method' + freeMem uri' + unrefGHashTable form_data_set'''''' + return result' + +-- function soup_form_request_new_from_multipart +-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_form_request_new_from_multipart" soup_form_request_new_from_multipart :: + CString -> -- uri : TBasicType TUTF8 + Ptr Multipart -> -- multipart : TInterface "Soup" "Multipart" + IO (Ptr Message) + + +formRequestNewFromMultipart :: + (MonadIO m) => + T.Text -> -- uri + Multipart -> -- multipart + m Message +formRequestNewFromMultipart uri multipart = liftIO $ do + uri' <- textToCString uri + let multipart' = unsafeManagedPtrGetPtr multipart + result <- soup_form_request_new_from_multipart uri' multipart' + checkUnexpectedReturnNULL "soup_form_request_new_from_multipart" result + result' <- (wrapObject Message) result + touchManagedPtr multipart + freeMem uri' + return result' + +-- function soup_header_contains +-- Args : [Arg {argName = "header", 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 = "header", 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_header_contains" soup_header_contains :: + CString -> -- header : TBasicType TUTF8 + CString -> -- token : TBasicType TUTF8 + IO CInt + + +headerContains :: + (MonadIO m) => + T.Text -> -- header + T.Text -> -- token + m Bool +headerContains header token = liftIO $ do + header' <- textToCString header + token' <- textToCString token + result <- soup_header_contains header' token' + let result' = (/= 0) result + freeMem header' + freeMem token' + return result' + +-- function soup_header_free_param_list +-- Args : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (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_header_free_param_list" soup_header_free_param_list :: + Ptr (GHashTable CString CString) -> -- param_list : TGHash (TBasicType TUTF8) (TBasicType TUTF8) + IO () + + +headerFreeParamList :: + (MonadIO m) => + Map.Map T.Text T.Text -> -- param_list + m () +headerFreeParamList param_list = liftIO $ do + let param_list' = Map.toList param_list + param_list'' <- mapFirstA textToCString param_list' + param_list''' <- mapSecondA textToCString param_list'' + let param_list'''' = mapFirst cstringPackPtr param_list''' + let param_list''''' = mapSecond cstringPackPtr param_list'''' + param_list'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) param_list''''' + soup_header_free_param_list param_list'''''' + unrefGHashTable param_list'''''' + return () + +-- function soup_header_g_string_append_param +-- Args : [Arg {argName = "string", argType = TInterface "GLib" "String", 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 = "string", argType = TInterface "GLib" "String", 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_header_g_string_append_param" soup_header_g_string_append_param :: + Ptr GLib.String -> -- string : TInterface "GLib" "String" + CString -> -- name : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + IO () + + +headerGStringAppendParam :: + (MonadIO m) => + GLib.String -> -- string + T.Text -> -- name + T.Text -> -- value + m () +headerGStringAppendParam string name value = liftIO $ do + let string' = unsafeManagedPtrGetPtr string + name' <- textToCString name + value' <- textToCString value + soup_header_g_string_append_param string' name' value' + touchManagedPtr string + freeMem name' + freeMem value' + return () + +-- function soup_header_g_string_append_param_quoted +-- Args : [Arg {argName = "string", argType = TInterface "GLib" "String", 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 = "string", argType = TInterface "GLib" "String", 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_header_g_string_append_param_quoted" soup_header_g_string_append_param_quoted :: + Ptr GLib.String -> -- string : TInterface "GLib" "String" + CString -> -- name : TBasicType TUTF8 + CString -> -- value : TBasicType TUTF8 + IO () + + +headerGStringAppendParamQuoted :: + (MonadIO m) => + GLib.String -> -- string + T.Text -> -- name + T.Text -> -- value + m () +headerGStringAppendParamQuoted string name value = liftIO $ do + let string' = unsafeManagedPtrGetPtr string + name' <- textToCString name + value' <- textToCString value + soup_header_g_string_append_param_quoted string' name' value' + touchManagedPtr string + freeMem name' + freeMem value' + return () + +-- function soup_header_parse_list +-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_header_parse_list" soup_header_parse_list :: + CString -> -- header : TBasicType TUTF8 + IO (Ptr (GSList CString)) + + +headerParseList :: + (MonadIO m) => + T.Text -> -- header + m [T.Text] +headerParseList header = liftIO $ do + header' <- textToCString header + result <- soup_header_parse_list header' + checkUnexpectedReturnNULL "soup_header_parse_list" result + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + freeMem header' + return result'' + +-- function soup_header_parse_param_list +-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_header_parse_param_list" soup_header_parse_param_list :: + CString -> -- header : TBasicType TUTF8 + IO (Ptr (GHashTable CString CString)) + + +headerParseParamList :: + (MonadIO m) => + T.Text -> -- header + m (Map.Map T.Text T.Text) +headerParseParamList header = liftIO $ do + header' <- textToCString header + result <- soup_header_parse_param_list header' + checkUnexpectedReturnNULL "soup_header_parse_param_list" result + result' <- unpackGHashTable result + let result'' = mapFirst cstringUnpackPtr result' + result''' <- mapFirstA cstringToText result'' + let result'''' = mapSecond cstringUnpackPtr result''' + result''''' <- mapSecondA cstringToText result'''' + let result'''''' = Map.fromList result''''' + unrefGHashTable result + freeMem header' + return result'''''' + +-- function soup_header_parse_quality_list +-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGSList (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_header_parse_quality_list" soup_header_parse_quality_list :: + CString -> -- header : TBasicType TUTF8 + Ptr (Ptr (GSList CString)) -> -- unacceptable : TGSList (TBasicType TUTF8) + IO (Ptr (GSList CString)) + + +headerParseQualityList :: + (MonadIO m) => + T.Text -> -- header + m ([T.Text],[T.Text]) +headerParseQualityList header = liftIO $ do + header' <- textToCString header + unacceptable <- allocMem :: IO (Ptr (Ptr (GSList CString))) + result <- soup_header_parse_quality_list header' unacceptable + checkUnexpectedReturnNULL "soup_header_parse_quality_list" result + result' <- unpackGSList result + result'' <- mapM cstringToText result' + mapGSList freeMem result + g_slist_free result + unacceptable' <- peek unacceptable + unacceptable'' <- unpackGSList unacceptable' + unacceptable''' <- mapM cstringToText unacceptable'' + mapGSList freeMem unacceptable' + g_slist_free unacceptable' + freeMem header' + freeMem unacceptable + return (result'', unacceptable''') + +-- function soup_header_parse_semi_param_list +-- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) +-- throws : False +-- Skip return : False + +foreign import ccall "soup_header_parse_semi_param_list" soup_header_parse_semi_param_list :: + CString -> -- header : TBasicType TUTF8 + IO (Ptr (GHashTable CString CString)) + + +headerParseSemiParamList :: + (MonadIO m) => + T.Text -> -- header + m (Map.Map T.Text T.Text) +headerParseSemiParamList header = liftIO $ do + header' <- textToCString header + result <- soup_header_parse_semi_param_list header' + checkUnexpectedReturnNULL "soup_header_parse_semi_param_list" result + result' <- unpackGHashTable result + let result'' = mapFirst cstringUnpackPtr result' + result''' <- mapFirstA cstringToText result'' + let result'''' = mapSecond cstringUnpackPtr result''' + result''''' <- mapSecondA cstringToText result'''' + let result'''''' = Map.fromList result''''' + unrefGHashTable result + freeMem header' + return result'''''' + +-- function soup_headers_parse +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", 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_headers_parse" soup_headers_parse :: + CString -> -- str : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + Ptr MessageHeaders -> -- dest : TInterface "Soup" "MessageHeaders" + IO CInt + + +headersParse :: + (MonadIO m) => + T.Text -> -- str + Int32 -> -- len + MessageHeaders -> -- dest + m Bool +headersParse str len dest = liftIO $ do + str' <- textToCString str + let dest' = unsafeManagedPtrGetPtr dest + result <- soup_headers_parse str' len dest' + let result' = (/= 0) result + touchManagedPtr dest + freeMem str' + return result' + +-- function soup_headers_parse_request +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_headers_parse_request" soup_headers_parse_request :: + CString -> -- str : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + Ptr MessageHeaders -> -- req_headers : TInterface "Soup" "MessageHeaders" + Ptr CString -> -- req_method : TBasicType TUTF8 + Ptr CString -> -- req_path : TBasicType TUTF8 + Ptr CUInt -> -- ver : TInterface "Soup" "HTTPVersion" + IO Word32 + + +headersParseRequest :: + (MonadIO m) => + T.Text -> -- str + Int32 -> -- len + MessageHeaders -> -- req_headers + m (Word32,T.Text,T.Text,HTTPVersion) +headersParseRequest str len req_headers = liftIO $ do + str' <- textToCString str + let req_headers' = unsafeManagedPtrGetPtr req_headers + req_method <- allocMem :: IO (Ptr CString) + req_path <- allocMem :: IO (Ptr CString) + ver <- allocMem :: IO (Ptr CUInt) + result <- soup_headers_parse_request str' len req_headers' req_method req_path ver + req_method' <- peek req_method + req_method'' <- cstringToText req_method' + freeMem req_method' + req_path' <- peek req_path + req_path'' <- cstringToText req_path' + freeMem req_path' + ver' <- peek ver + let ver'' = (toEnum . fromIntegral) ver' + touchManagedPtr req_headers + freeMem str' + freeMem req_method + freeMem req_path + freeMem ver + return (result, req_method'', req_path'', ver'') + +-- function soup_headers_parse_response +-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", 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_headers_parse_response" soup_headers_parse_response :: + CString -> -- str : TBasicType TUTF8 + Int32 -> -- len : TBasicType TInt32 + Ptr MessageHeaders -> -- headers : TInterface "Soup" "MessageHeaders" + Ptr CUInt -> -- ver : TInterface "Soup" "HTTPVersion" + Ptr Word32 -> -- status_code : TBasicType TUInt32 + Ptr CString -> -- reason_phrase : TBasicType TUTF8 + IO CInt + + +headersParseResponse :: + (MonadIO m) => + T.Text -> -- str + Int32 -> -- len + MessageHeaders -> -- headers + m (Bool,HTTPVersion,Word32,T.Text) +headersParseResponse str len headers = liftIO $ do + str' <- textToCString str + let headers' = unsafeManagedPtrGetPtr headers + ver <- allocMem :: IO (Ptr CUInt) + status_code <- allocMem :: IO (Ptr Word32) + reason_phrase <- allocMem :: IO (Ptr CString) + result <- soup_headers_parse_response str' len headers' ver status_code reason_phrase + let result' = (/= 0) result + ver' <- peek ver + let ver'' = (toEnum . fromIntegral) ver' + status_code' <- peek status_code + reason_phrase' <- peek reason_phrase + reason_phrase'' <- cstringToText reason_phrase' + freeMem reason_phrase' + touchManagedPtr headers + freeMem str' + freeMem ver + freeMem status_code + freeMem reason_phrase + return (result', ver'', status_code', reason_phrase'') + +-- function soup_headers_parse_status_line +-- Args : [Arg {argName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "status_line", 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_headers_parse_status_line" soup_headers_parse_status_line :: + CString -> -- status_line : TBasicType TUTF8 + Ptr CUInt -> -- ver : TInterface "Soup" "HTTPVersion" + Ptr Word32 -> -- status_code : TBasicType TUInt32 + Ptr CString -> -- reason_phrase : TBasicType TUTF8 + IO CInt + + +headersParseStatusLine :: + (MonadIO m) => + T.Text -> -- status_line + m (Bool,HTTPVersion,Word32,T.Text) +headersParseStatusLine status_line = liftIO $ do + status_line' <- textToCString status_line + ver <- allocMem :: IO (Ptr CUInt) + status_code <- allocMem :: IO (Ptr Word32) + reason_phrase <- allocMem :: IO (Ptr CString) + result <- soup_headers_parse_status_line status_line' ver status_code reason_phrase + let result' = (/= 0) result + ver' <- peek ver + let ver'' = (toEnum . fromIntegral) ver' + status_code' <- peek status_code + reason_phrase' <- peek reason_phrase + reason_phrase'' <- cstringToText reason_phrase' + freeMem reason_phrase' + freeMem status_line' + freeMem ver + freeMem status_code + freeMem reason_phrase + return (result', ver'', status_code', reason_phrase'') + +-- function soup_http_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_http_error_quark" soup_http_error_quark :: + IO Word32 + + +httpErrorQuark :: + (MonadIO m) => + m Word32 +httpErrorQuark = liftIO $ do + result <- soup_http_error_quark + return result + +-- function soup_message_headers_iter_init +-- Args : [Arg {argName = "iter", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hdrs", 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_iter_init" soup_message_headers_iter_init :: + Ptr MessageHeadersIter -> -- iter : TInterface "Soup" "MessageHeadersIter" + Ptr MessageHeaders -> -- hdrs : TInterface "Soup" "MessageHeaders" + IO () + + +messageHeadersIterInit :: + (MonadIO m) => + MessageHeaders -> -- hdrs + m (MessageHeadersIter) +messageHeadersIterInit hdrs = liftIO $ do + iter <- callocBytes 24 :: IO (Ptr MessageHeadersIter) + let hdrs' = unsafeManagedPtrGetPtr hdrs + soup_message_headers_iter_init iter hdrs' + iter' <- (wrapPtr MessageHeadersIter) iter + touchManagedPtr hdrs + return iter' + +-- function soup_request_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_request_error_quark" soup_request_error_quark :: + IO Word32 + + +requestErrorQuark :: + (MonadIO m) => + m Word32 +requestErrorQuark = liftIO $ do + result <- soup_request_error_quark + return result + +-- function soup_requester_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_requester_error_quark" soup_requester_error_quark :: + IO Word32 + + +requesterErrorQuark :: + (MonadIO m) => + m Word32 +requesterErrorQuark = liftIO $ do + result <- soup_requester_error_quark + return result + +-- function soup_status_get_phrase +-- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_status_get_phrase" soup_status_get_phrase :: + Word32 -> -- status_code : TBasicType TUInt32 + IO CString + + +statusGetPhrase :: + (MonadIO m) => + Word32 -> -- status_code + m T.Text +statusGetPhrase status_code = liftIO $ do + result <- soup_status_get_phrase status_code + checkUnexpectedReturnNULL "soup_status_get_phrase" result + result' <- cstringToText result + return result' + +-- function soup_status_proxify +-- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_status_proxify" soup_status_proxify :: + Word32 -> -- status_code : TBasicType TUInt32 + IO Word32 + + +statusProxify :: + (MonadIO m) => + Word32 -> -- status_code + m Word32 +statusProxify status_code = liftIO $ do + result <- soup_status_proxify status_code + return result + +-- function soup_str_case_equal +-- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_str_case_equal" soup_str_case_equal :: + Ptr () -> -- v1 : TBasicType TVoid + Ptr () -> -- v2 : TBasicType TVoid + IO CInt + + +strCaseEqual :: + (MonadIO m) => + Ptr () -> -- v1 + Ptr () -> -- v2 + m Bool +strCaseEqual v1 v2 = liftIO $ do + result <- soup_str_case_equal v1 v2 + let result' = (/= 0) result + return result' + +-- function soup_str_case_hash +-- Args : [Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_str_case_hash" soup_str_case_hash :: + Ptr () -> -- key : TBasicType TVoid + IO Word32 + + +strCaseHash :: + (MonadIO m) => + Ptr () -> -- key + m Word32 +strCaseHash key = liftIO $ do + result <- soup_str_case_hash key + return result + +-- function soup_tld_domain_is_public_suffix +-- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "domain", 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_tld_domain_is_public_suffix" soup_tld_domain_is_public_suffix :: + CString -> -- domain : TBasicType TUTF8 + IO CInt + + +tldDomainIsPublicSuffix :: + (MonadIO m) => + T.Text -> -- domain + m Bool +tldDomainIsPublicSuffix domain = liftIO $ do + domain' <- textToCString domain + result <- soup_tld_domain_is_public_suffix domain' + let result' = (/= 0) result + freeMem domain' + return result' + +-- function soup_tld_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_tld_error_quark" soup_tld_error_quark :: + IO Word32 + + +tldErrorQuark :: + (MonadIO m) => + m Word32 +tldErrorQuark = liftIO $ do + result <- soup_tld_error_quark + return result + +-- function soup_tld_get_base_domain +-- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "soup_tld_get_base_domain" soup_tld_get_base_domain :: + CString -> -- hostname : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO CString + + +tldGetBaseDomain :: + (MonadIO m) => + T.Text -> -- hostname + m T.Text +tldGetBaseDomain hostname = liftIO $ do + hostname' <- textToCString hostname + onException (do + result <- propagateGError $ soup_tld_get_base_domain hostname' + checkUnexpectedReturnNULL "soup_tld_get_base_domain" result + result' <- cstringToText result + freeMem hostname' + return result' + ) (do + freeMem hostname' + ) + +-- function soup_uri_decode +-- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "part", 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_uri_decode" soup_uri_decode :: + CString -> -- part : TBasicType TUTF8 + IO CString + + +uriDecode :: + (MonadIO m) => + T.Text -> -- part + m T.Text +uriDecode part = liftIO $ do + part' <- textToCString part + result <- soup_uri_decode part' + checkUnexpectedReturnNULL "soup_uri_decode" result + result' <- cstringToText result + freeMem result + freeMem part' + return result' + +-- function soup_uri_encode +-- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_encode" soup_uri_encode :: + CString -> -- part : TBasicType TUTF8 + CString -> -- escape_extra : TBasicType TUTF8 + IO CString + + +uriEncode :: + (MonadIO m) => + T.Text -> -- part + Maybe (T.Text) -> -- escape_extra + m T.Text +uriEncode part escape_extra = liftIO $ do + part' <- textToCString part + maybeEscape_extra <- case escape_extra of + Nothing -> return nullPtr + Just jEscape_extra -> do + jEscape_extra' <- textToCString jEscape_extra + return jEscape_extra' + result <- soup_uri_encode part' maybeEscape_extra + checkUnexpectedReturnNULL "soup_uri_encode" result + result' <- cstringToText result + freeMem result + freeMem part' + freeMem maybeEscape_extra + return result' + +-- function soup_uri_normalize +-- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_uri_normalize" soup_uri_normalize :: + CString -> -- part : TBasicType TUTF8 + CString -> -- unescape_extra : TBasicType TUTF8 + IO CString + + +uriNormalize :: + (MonadIO m) => + T.Text -> -- part + Maybe (T.Text) -> -- unescape_extra + m T.Text +uriNormalize part unescape_extra = liftIO $ do + part' <- textToCString part + maybeUnescape_extra <- case unescape_extra of + Nothing -> return nullPtr + Just jUnescape_extra -> do + jUnescape_extra' <- textToCString jUnescape_extra + return jUnescape_extra' + result <- soup_uri_normalize part' maybeUnescape_extra + checkUnexpectedReturnNULL "soup_uri_normalize" result + result' <- cstringToText result + freeMem result + freeMem part' + freeMem maybeUnescape_extra + return result' + +-- function soup_value_array_new +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TInterface "GObject" "ValueArray" +-- throws : False +-- Skip return : False + +foreign import ccall "soup_value_array_new" soup_value_array_new :: + IO (Ptr GObject.ValueArray) + +{-# DEPRECATED valueArrayNew ["Use #GVariant API instead."]#-} +valueArrayNew :: + (MonadIO m) => + m GObject.ValueArray +valueArrayNew = liftIO $ do + result <- soup_value_array_new + checkUnexpectedReturnNULL "soup_value_array_new" result + result' <- (wrapBoxed GObject.ValueArray) result + return result' + +-- function soup_value_hash_insert_value +-- XXX Could not generate function soup_value_hash_insert_value +-- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported." +-- function soup_value_hash_new +-- XXX Could not generate function soup_value_hash_new +-- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported." +-- function soup_websocket_client_prepare_handshake +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (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_websocket_client_prepare_handshake" soup_websocket_client_prepare_handshake :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- origin : TBasicType TUTF8 + Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) + IO () + + +websocketClientPrepareHandshake :: + (MonadIO m, MessageK a) => + a -> -- msg + Maybe (T.Text) -> -- origin + Maybe ([T.Text]) -> -- protocols + m () +websocketClientPrepareHandshake msg origin protocols = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + maybeOrigin <- case origin of + Nothing -> return nullPtr + Just jOrigin -> do + jOrigin' <- textToCString jOrigin + return jOrigin' + maybeProtocols <- case protocols of + Nothing -> return nullPtr + Just jProtocols -> do + jProtocols' <- packZeroTerminatedUTF8CArray jProtocols + return jProtocols' + soup_websocket_client_prepare_handshake msg' maybeOrigin maybeProtocols + touchManagedPtr msg + freeMem maybeOrigin + mapZeroTerminatedCArray freeMem maybeProtocols + freeMem maybeProtocols + return () + +-- function soup_websocket_client_verify_handshake +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_websocket_client_verify_handshake" soup_websocket_client_verify_handshake :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr (Ptr GError) -> -- error + IO CInt + + +websocketClientVerifyHandshake :: + (MonadIO m, MessageK a) => + a -> -- msg + m () +websocketClientVerifyHandshake msg = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + onException (do + _ <- propagateGError $ soup_websocket_client_verify_handshake msg' + touchManagedPtr msg + return () + ) (do + return () + ) + +-- function soup_websocket_error_get_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_error_get_quark" soup_websocket_error_get_quark :: + IO Word32 + + +websocketErrorGetQuark :: + (MonadIO m) => + m Word32 +websocketErrorGetQuark = liftIO $ do + result <- soup_websocket_error_get_quark + return result + +-- function soup_websocket_server_check_handshake +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_websocket_server_check_handshake" soup_websocket_server_check_handshake :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- origin : TBasicType TUTF8 + Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) + Ptr (Ptr GError) -> -- error + IO CInt + + +websocketServerCheckHandshake :: + (MonadIO m, MessageK a) => + a -> -- msg + Maybe (T.Text) -> -- origin + Maybe ([T.Text]) -> -- protocols + m () +websocketServerCheckHandshake msg origin protocols = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + maybeOrigin <- case origin of + Nothing -> return nullPtr + Just jOrigin -> do + jOrigin' <- textToCString jOrigin + return jOrigin' + maybeProtocols <- case protocols of + Nothing -> return nullPtr + Just jProtocols -> do + jProtocols' <- packZeroTerminatedUTF8CArray jProtocols + return jProtocols' + onException (do + _ <- propagateGError $ soup_websocket_server_check_handshake msg' maybeOrigin maybeProtocols + touchManagedPtr msg + freeMem maybeOrigin + mapZeroTerminatedCArray freeMem maybeProtocols + freeMem maybeProtocols + return () + ) (do + freeMem maybeOrigin + mapZeroTerminatedCArray freeMem maybeProtocols + freeMem maybeProtocols + ) + +-- function soup_websocket_server_process_handshake +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_websocket_server_process_handshake" soup_websocket_server_process_handshake :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + CString -> -- expected_origin : TBasicType TUTF8 + Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) + IO CInt + + +websocketServerProcessHandshake :: + (MonadIO m, MessageK a) => + a -> -- msg + Maybe (T.Text) -> -- expected_origin + Maybe ([T.Text]) -> -- protocols + m Bool +websocketServerProcessHandshake msg expected_origin protocols = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + maybeExpected_origin <- case expected_origin of + Nothing -> return nullPtr + Just jExpected_origin -> do + jExpected_origin' <- textToCString jExpected_origin + return jExpected_origin' + maybeProtocols <- case protocols of + Nothing -> return nullPtr + Just jProtocols -> do + jProtocols' <- packZeroTerminatedUTF8CArray jProtocols + return jProtocols' + result <- soup_websocket_server_process_handshake msg' maybeExpected_origin maybeProtocols + let result' = (/= 0) result + touchManagedPtr msg + freeMem maybeExpected_origin + mapZeroTerminatedCArray freeMem maybeProtocols + freeMem maybeProtocols + return result' + +-- function soup_xmlrpc_build_method_call +-- Args : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- hInArgs : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_xmlrpc_build_method_call" soup_xmlrpc_build_method_call :: + CString -> -- method_name : TBasicType TUTF8 + Ptr GValue -> -- params : TCArray False (-1) 2 (TInterface "GObject" "Value") + Int32 -> -- n_params : TBasicType TInt32 + IO CString + +{-# DEPRECATED xmlrpcBuildMethodCall ["Use soup_xmlrpc_build_request() instead."]#-} +xmlrpcBuildMethodCall :: + (MonadIO m) => + T.Text -> -- method_name + [GValue] -> -- params + m T.Text +xmlrpcBuildMethodCall method_name params = liftIO $ do + let n_params = fromIntegral $ length params + method_name' <- textToCString method_name + let params' = map unsafeManagedPtrGetPtr params + params'' <- packBlockArray 24 params' + result <- soup_xmlrpc_build_method_call method_name' params'' n_params + checkUnexpectedReturnNULL "soup_xmlrpc_build_method_call" result + result' <- cstringToText result + freeMem result + mapM_ touchManagedPtr params + freeMem method_name' + freeMem params'' + return result' + +-- function soup_xmlrpc_build_method_response +-- Args : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_xmlrpc_build_method_response" soup_xmlrpc_build_method_response :: + Ptr GValue -> -- value : TInterface "GObject" "Value" + IO CString + +{-# DEPRECATED xmlrpcBuildMethodResponse ["Use soup_xmlrpc_build_response() instead."]#-} +xmlrpcBuildMethodResponse :: + (MonadIO m) => + GValue -> -- value + m T.Text +xmlrpcBuildMethodResponse value = liftIO $ do + let value' = unsafeManagedPtrGetPtr value + result <- soup_xmlrpc_build_method_response value' + checkUnexpectedReturnNULL "soup_xmlrpc_build_method_response" result + result' <- cstringToText result + freeMem result + touchManagedPtr value + return result' + +-- function soup_xmlrpc_build_request +-- Args : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_build_request" soup_xmlrpc_build_request :: + CString -> -- method_name : TBasicType TUTF8 + Ptr GVariant -> -- params : TVariant + Ptr (Ptr GError) -> -- error + IO CString + + +xmlrpcBuildRequest :: + (MonadIO m) => + T.Text -> -- method_name + GVariant -> -- params + m T.Text +xmlrpcBuildRequest method_name params = liftIO $ do + method_name' <- textToCString method_name + let params' = unsafeManagedPtrGetPtr params + onException (do + result <- propagateGError $ soup_xmlrpc_build_request method_name' params' + checkUnexpectedReturnNULL "soup_xmlrpc_build_request" result + result' <- cstringToText result + freeMem result + freeMem method_name' + return result' + ) (do + freeMem method_name' + ) + +-- function soup_xmlrpc_build_response +-- Args : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_build_response" soup_xmlrpc_build_response :: + Ptr GVariant -> -- value : TVariant + Ptr (Ptr GError) -> -- error + IO CString + + +xmlrpcBuildResponse :: + (MonadIO m) => + GVariant -> -- value + m T.Text +xmlrpcBuildResponse value = liftIO $ do + let value' = unsafeManagedPtrGetPtr value + onException (do + result <- propagateGError $ soup_xmlrpc_build_response value' + checkUnexpectedReturnNULL "soup_xmlrpc_build_response" result + result' <- cstringToText result + freeMem result + return result' + ) (do + return () + ) + +-- function soup_xmlrpc_error_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_xmlrpc_error_quark" soup_xmlrpc_error_quark :: + IO Word32 + + +xmlrpcErrorQuark :: + (MonadIO m) => + m Word32 +xmlrpcErrorQuark = liftIO $ do + result <- soup_xmlrpc_error_quark + return result + +-- function soup_xmlrpc_fault_quark +-- Args : [] +-- Lengths : [] +-- hInArgs : [] +-- returnType : TBasicType TUInt32 +-- throws : False +-- Skip return : False + +foreign import ccall "soup_xmlrpc_fault_quark" soup_xmlrpc_fault_quark :: + IO Word32 + + +xmlrpcFaultQuark :: + (MonadIO m) => + m Word32 +xmlrpcFaultQuark = liftIO $ do + result <- soup_xmlrpc_fault_quark + return result + +-- function soup_xmlrpc_message_new +-- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Message" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_message_new" soup_xmlrpc_message_new :: + CString -> -- uri : TBasicType TUTF8 + CString -> -- method_name : TBasicType TUTF8 + Ptr GVariant -> -- params : TVariant + Ptr (Ptr GError) -> -- error + IO (Ptr Message) + + +xmlrpcMessageNew :: + (MonadIO m) => + T.Text -> -- uri + T.Text -> -- method_name + GVariant -> -- params + m Message +xmlrpcMessageNew uri method_name params = liftIO $ do + uri' <- textToCString uri + method_name' <- textToCString method_name + let params' = unsafeManagedPtrGetPtr params + onException (do + result <- propagateGError $ soup_xmlrpc_message_new uri' method_name' params' + checkUnexpectedReturnNULL "soup_xmlrpc_message_new" result + result' <- (wrapObject Message) result + freeMem uri' + freeMem method_name' + return result' + ) (do + freeMem uri' + freeMem method_name' + ) + +-- function soup_xmlrpc_message_set_response +-- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TBasicType TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_message_set_response" soup_xmlrpc_message_set_response :: + Ptr Message -> -- msg : TInterface "Soup" "Message" + Ptr GVariant -> -- value : TVariant + Ptr (Ptr GError) -> -- error + IO CInt + + +xmlrpcMessageSetResponse :: + (MonadIO m, MessageK a) => + a -> -- msg + GVariant -> -- value + m () +xmlrpcMessageSetResponse msg value = liftIO $ do + let msg' = unsafeManagedPtrCastPtr msg + let value' = unsafeManagedPtrGetPtr value + onException (do + _ <- propagateGError $ soup_xmlrpc_message_set_response msg' value' + touchManagedPtr msg + return () + ) (do + return () + ) + +-- function soup_xmlrpc_parse_method_call +-- Args : [Arg {argName = "method_call", argType = TBasicType TUTF8, 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},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method_call", argType = TBasicType TUTF8, 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 TBoolean +-- throws : False +-- Skip return : False + +foreign import ccall "soup_xmlrpc_parse_method_call" soup_xmlrpc_parse_method_call :: + CString -> -- method_call : TBasicType TUTF8 + Int32 -> -- length : TBasicType TInt32 + Ptr CString -> -- method_name : TBasicType TUTF8 + Ptr GObject.ValueArray -> -- params : TInterface "GObject" "ValueArray" + IO CInt + +{-# DEPRECATED xmlrpcParseMethodCall ["Use soup_xmlrpc_parse_request_full() instead."]#-} +xmlrpcParseMethodCall :: + (MonadIO m) => + T.Text -> -- method_call + Int32 -> -- length + m (Bool,T.Text,GObject.ValueArray) +xmlrpcParseMethodCall method_call length_ = liftIO $ do + method_call' <- textToCString method_call + method_name <- allocMem :: IO (Ptr CString) + params <- callocBoxedBytes 24 :: IO (Ptr GObject.ValueArray) + result <- soup_xmlrpc_parse_method_call method_call' length_ method_name params + let result' = (/= 0) result + method_name' <- peek method_name + method_name'' <- cstringToText method_name' + freeMem method_name' + params' <- (wrapBoxed GObject.ValueArray) params + freeMem method_call' + freeMem method_name + return (result', method_name'', params') + +-- function soup_xmlrpc_parse_method_response +-- Args : [Arg {argName = "method_response", argType = TBasicType TUTF8, 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},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method_response", argType = TBasicType TUTF8, 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 TBoolean +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_parse_method_response" soup_xmlrpc_parse_method_response :: + CString -> -- method_response : TBasicType TUTF8 + Int32 -> -- length : TBasicType TInt32 + Ptr GValue -> -- value : TInterface "GObject" "Value" + Ptr (Ptr GError) -> -- error + IO CInt + +{-# DEPRECATED xmlrpcParseMethodResponse ["Use soup_xmlrpc_parse_response() instead."]#-} +xmlrpcParseMethodResponse :: + (MonadIO m) => + T.Text -> -- method_response + Int32 -> -- length + m (GValue) +xmlrpcParseMethodResponse method_response length_ = liftIO $ do + method_response' <- textToCString method_response + value <- callocBoxedBytes 24 :: IO (Ptr GValue) + onException (do + _ <- propagateGError $ soup_xmlrpc_parse_method_response method_response' length_ value + value' <- (wrapBoxed GValue) value + freeMem method_response' + return value' + ) (do + freeMem method_response' + freeMem value + ) + +-- function soup_xmlrpc_parse_request +-- Args : [Arg {argName = "method_call", argType = TBasicType TUTF8, 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},Arg {argName = "params", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method_call", argType = TBasicType TUTF8, 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 TUTF8 +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_parse_request" soup_xmlrpc_parse_request :: + CString -> -- method_call : TBasicType TUTF8 + Int32 -> -- length : TBasicType TInt32 + Ptr (Ptr XMLRPCParams) -> -- params : TInterface "Soup" "XMLRPCParams" + Ptr (Ptr GError) -> -- error + IO CString + + +xmlrpcParseRequest :: + (MonadIO m) => + T.Text -> -- method_call + Int32 -> -- length + m (T.Text,XMLRPCParams) +xmlrpcParseRequest method_call length_ = liftIO $ do + method_call' <- textToCString method_call + params <- allocMem :: IO (Ptr (Ptr XMLRPCParams)) + onException (do + result <- propagateGError $ soup_xmlrpc_parse_request method_call' length_ params + checkUnexpectedReturnNULL "soup_xmlrpc_parse_request" result + result' <- cstringToText result + freeMem result + params' <- peek params + -- XXX Wrapping a foreign struct/union with no known destructor, leak? + params'' <- (\x -> XMLRPCParams <$> newForeignPtr_ x) params' + freeMem method_call' + freeMem params + return (result', params'') + ) (do + freeMem method_call' + freeMem params + ) + +-- function soup_xmlrpc_parse_response +-- Args : [Arg {argName = "method_response", argType = TBasicType TUTF8, 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},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "method_response", argType = TBasicType TUTF8, 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},Arg {argName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TVariant +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_parse_response" soup_xmlrpc_parse_response :: + CString -> -- method_response : TBasicType TUTF8 + Int32 -> -- length : TBasicType TInt32 + CString -> -- signature : TBasicType TUTF8 + Ptr (Ptr GError) -> -- error + IO (Ptr GVariant) + + +xmlrpcParseResponse :: + (MonadIO m) => + T.Text -> -- method_response + Int32 -> -- length + Maybe (T.Text) -> -- signature + m GVariant +xmlrpcParseResponse method_response length_ signature = liftIO $ do + method_response' <- textToCString method_response + maybeSignature <- case signature of + Nothing -> return nullPtr + Just jSignature -> do + jSignature' <- textToCString jSignature + return jSignature' + onException (do + result <- propagateGError $ soup_xmlrpc_parse_response method_response' length_ maybeSignature + checkUnexpectedReturnNULL "soup_xmlrpc_parse_response" result + result' <- wrapGVariantPtr result + freeMem method_response' + freeMem maybeSignature + return result' + ) (do + freeMem method_response' + freeMem maybeSignature + ) + +-- function soup_xmlrpc_variant_get_datetime +-- Args : [Arg {argName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TInterface "Soup" "Date" +-- throws : True +-- Skip return : False + +foreign import ccall "soup_xmlrpc_variant_get_datetime" soup_xmlrpc_variant_get_datetime :: + Ptr GVariant -> -- variant : TVariant + Ptr (Ptr GError) -> -- error + IO (Ptr Date) + + +xmlrpcVariantGetDatetime :: + (MonadIO m) => + GVariant -> -- variant + m Date +xmlrpcVariantGetDatetime variant = liftIO $ do + let variant' = unsafeManagedPtrGetPtr variant + onException (do + result <- propagateGError $ soup_xmlrpc_variant_get_datetime variant' + checkUnexpectedReturnNULL "soup_xmlrpc_variant_get_datetime" result + result' <- (wrapBoxed Date) result + return result' + ) (do + return () + ) + +-- function soup_xmlrpc_variant_new_datetime +-- Args : [Arg {argName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- Lengths : [] +-- hInArgs : [Arg {argName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] +-- returnType : TVariant +-- throws : False +-- Skip return : False + +foreign import ccall "soup_xmlrpc_variant_new_datetime" soup_xmlrpc_variant_new_datetime :: + Ptr Date -> -- date : TInterface "Soup" "Date" + IO (Ptr GVariant) + + +xmlrpcVariantNewDatetime :: + (MonadIO m) => + Date -> -- date + m GVariant +xmlrpcVariantNewDatetime date = liftIO $ do + let date' = unsafeManagedPtrGetPtr date + result <- soup_xmlrpc_variant_new_datetime date' + checkUnexpectedReturnNULL "soup_xmlrpc_variant_new_datetime" result + result' <- wrapGVariantPtr result + touchManagedPtr date + return result' diff --git a/GI/Soup/Callbacks.hs b/GI/Soup/Callbacks.hs deleted file mode 100644 --- a/GI/Soup/Callbacks.hs +++ /dev/null @@ -1,759 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Callbacks - ( - - -- * Signals --- ** AddressCallback - AddressCallback , - AddressCallbackC , - addressCallbackClosure , - addressCallbackWrapper , - mkAddressCallback , - noAddressCallback , - - --- ** AuthDomainBasicAuthCallback - AuthDomainBasicAuthCallback , - AuthDomainBasicAuthCallbackC , - authDomainBasicAuthCallbackClosure , - authDomainBasicAuthCallbackWrapper , - mkAuthDomainBasicAuthCallback , - noAuthDomainBasicAuthCallback , - - --- ** AuthDomainDigestAuthCallback - AuthDomainDigestAuthCallback , - AuthDomainDigestAuthCallbackC , - authDomainDigestAuthCallbackClosure , - authDomainDigestAuthCallbackWrapper , - mkAuthDomainDigestAuthCallback , - noAuthDomainDigestAuthCallback , - - --- ** AuthDomainFilter - AuthDomainFilter , - AuthDomainFilterC , - authDomainFilterClosure , - authDomainFilterWrapper , - mkAuthDomainFilter , - noAuthDomainFilter , - - --- ** AuthDomainGenericAuthCallback - AuthDomainGenericAuthCallback , - AuthDomainGenericAuthCallbackC , - authDomainGenericAuthCallbackClosure , - authDomainGenericAuthCallbackWrapper , - mkAuthDomainGenericAuthCallback , - noAuthDomainGenericAuthCallback , - - --- ** ChunkAllocator - ChunkAllocator , - ChunkAllocatorC , - chunkAllocatorClosure , - chunkAllocatorWrapper , - mkChunkAllocator , - noChunkAllocator , - - --- ** LoggerFilter - LoggerFilter , - LoggerFilterC , - loggerFilterClosure , - loggerFilterWrapper , - mkLoggerFilter , - noLoggerFilter , - - --- ** LoggerPrinter - LoggerPrinter , - LoggerPrinterC , - loggerPrinterClosure , - loggerPrinterWrapper , - mkLoggerPrinter , - noLoggerPrinter , - - --- ** MessageHeadersForeachFunc - MessageHeadersForeachFunc , - MessageHeadersForeachFuncC , - messageHeadersForeachFuncClosure , - messageHeadersForeachFuncWrapper , - mkMessageHeadersForeachFunc , - noMessageHeadersForeachFunc , - - --- ** PasswordManagerCallback - PasswordManagerCallback , - PasswordManagerCallbackC , - mkPasswordManagerCallback , - noPasswordManagerCallback , - passwordManagerCallbackClosure , - passwordManagerCallbackWrapper , - - --- ** ProxyURIResolverCallback - ProxyURIResolverCallback , - ProxyURIResolverCallbackC , - mkProxyURIResolverCallback , - noProxyURIResolverCallback , - proxyURIResolverCallbackClosure , - proxyURIResolverCallbackWrapper , - - --- ** ServerCallback - ServerCallback , - ServerCallbackC , - mkServerCallback , - noServerCallback , - serverCallbackClosure , - serverCallbackWrapper , - - --- ** ServerWebsocketCallback - ServerWebsocketCallback , - ServerWebsocketCallbackC , - mkServerWebsocketCallback , - noServerWebsocketCallback , - serverWebsocketCallbackClosure , - serverWebsocketCallbackWrapper , - - --- ** SessionCallback - SessionCallback , - SessionCallbackC , - mkSessionCallback , - noSessionCallback , - sessionCallbackClosure , - sessionCallbackWrapper , - - --- ** SocketCallback - SocketCallback , - SocketCallbackC , - mkSocketCallback , - noSocketCallback , - socketCallbackClosure , - socketCallbackWrapper , - - - - - ) 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 - - --- callback SocketCallback -socketCallbackClosure :: SocketCallback -> IO Closure -socketCallbackClosure cb = newCClosure =<< mkSocketCallback wrapped - where wrapped = socketCallbackWrapper Nothing cb - -type SocketCallbackC = - Ptr Socket -> - Word32 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkSocketCallback :: SocketCallbackC -> IO (FunPtr SocketCallbackC) - -type SocketCallback = - Socket -> - Word32 -> - IO () - -noSocketCallback :: Maybe SocketCallback -noSocketCallback = Nothing - -socketCallbackWrapper :: - Maybe (Ptr (FunPtr (SocketCallbackC))) -> - SocketCallback -> - Ptr Socket -> - Word32 -> - Ptr () -> - IO () -socketCallbackWrapper funptrptr _cb sock status _ = do - sock' <- (newObject Socket) sock - _cb sock' status - maybeReleaseFunPtr funptrptr - --- callback SessionCallback -sessionCallbackClosure :: SessionCallback -> IO Closure -sessionCallbackClosure cb = newCClosure =<< mkSessionCallback wrapped - where wrapped = sessionCallbackWrapper Nothing cb - -type SessionCallbackC = - Ptr Session -> - Ptr Message -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkSessionCallback :: SessionCallbackC -> IO (FunPtr SessionCallbackC) - -type SessionCallback = - Session -> - Message -> - IO () - -noSessionCallback :: Maybe SessionCallback -noSessionCallback = Nothing - -sessionCallbackWrapper :: - Maybe (Ptr (FunPtr (SessionCallbackC))) -> - SessionCallback -> - Ptr Session -> - Ptr Message -> - Ptr () -> - IO () -sessionCallbackWrapper funptrptr _cb session msg _ = do - session' <- (newObject Session) session - msg' <- (newObject Message) msg - _cb session' msg' - maybeReleaseFunPtr funptrptr - --- callback ServerWebsocketCallback -serverWebsocketCallbackClosure :: ServerWebsocketCallback -> IO Closure -serverWebsocketCallbackClosure cb = newCClosure =<< mkServerWebsocketCallback wrapped - where wrapped = serverWebsocketCallbackWrapper Nothing cb - -type ServerWebsocketCallbackC = - Ptr Server -> - Ptr WebsocketConnection -> - CString -> - Ptr ClientContext -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkServerWebsocketCallback :: ServerWebsocketCallbackC -> IO (FunPtr ServerWebsocketCallbackC) - -type ServerWebsocketCallback = - Server -> - WebsocketConnection -> - T.Text -> - ClientContext -> - IO () - -noServerWebsocketCallback :: Maybe ServerWebsocketCallback -noServerWebsocketCallback = Nothing - -serverWebsocketCallbackWrapper :: - Maybe (Ptr (FunPtr (ServerWebsocketCallbackC))) -> - ServerWebsocketCallback -> - Ptr Server -> - Ptr WebsocketConnection -> - CString -> - Ptr ClientContext -> - Ptr () -> - IO () -serverWebsocketCallbackWrapper funptrptr _cb server connection path client _ = do - server' <- (newObject Server) server - connection' <- (newObject WebsocketConnection) connection - path' <- cstringToText path - client' <- (newBoxed ClientContext) client - _cb server' connection' path' client' - maybeReleaseFunPtr funptrptr - --- callback ServerCallback -serverCallbackClosure :: ServerCallback -> IO Closure -serverCallbackClosure cb = newCClosure =<< mkServerCallback wrapped - where wrapped = serverCallbackWrapper Nothing cb - -type ServerCallbackC = - Ptr Server -> - Ptr Message -> - CString -> - Ptr (GHashTable CString CString) -> - Ptr ClientContext -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkServerCallback :: ServerCallbackC -> IO (FunPtr ServerCallbackC) - -type ServerCallback = - Server -> - Message -> - T.Text -> - Maybe (Map.Map T.Text T.Text) -> - ClientContext -> - IO () - -noServerCallback :: Maybe ServerCallback -noServerCallback = Nothing - -serverCallbackWrapper :: - Maybe (Ptr (FunPtr (ServerCallbackC))) -> - ServerCallback -> - Ptr Server -> - Ptr Message -> - CString -> - Ptr (GHashTable CString CString) -> - Ptr ClientContext -> - Ptr () -> - IO () -serverCallbackWrapper funptrptr _cb server msg path query client _ = do - server' <- (newObject Server) server - msg' <- (newObject Message) msg - path' <- cstringToText path - maybeQuery <- - if query == nullPtr - then return Nothing - else do - query' <- unpackGHashTable query - let query'' = mapFirst cstringUnpackPtr query' - query''' <- mapFirstA cstringToText query'' - let query'''' = mapSecond cstringUnpackPtr query''' - query''''' <- mapSecondA cstringToText query'''' - let query'''''' = Map.fromList query''''' - return $ Just query'''''' - client' <- (newBoxed ClientContext) client - _cb server' msg' path' maybeQuery client' - maybeReleaseFunPtr funptrptr - --- callback ProxyURIResolverCallback -proxyURIResolverCallbackClosure :: ProxyURIResolverCallback -> IO Closure -proxyURIResolverCallbackClosure cb = newCClosure =<< mkProxyURIResolverCallback wrapped - where wrapped = proxyURIResolverCallbackWrapper Nothing cb - -type ProxyURIResolverCallbackC = - Ptr ProxyURIResolver -> - Word32 -> - Ptr URI -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkProxyURIResolverCallback :: ProxyURIResolverCallbackC -> IO (FunPtr ProxyURIResolverCallbackC) - -type ProxyURIResolverCallback = - ProxyURIResolver -> - Word32 -> - URI -> - IO () - -noProxyURIResolverCallback :: Maybe ProxyURIResolverCallback -noProxyURIResolverCallback = Nothing - -proxyURIResolverCallbackWrapper :: - Maybe (Ptr (FunPtr (ProxyURIResolverCallbackC))) -> - ProxyURIResolverCallback -> - Ptr ProxyURIResolver -> - Word32 -> - Ptr URI -> - Ptr () -> - IO () -proxyURIResolverCallbackWrapper funptrptr _cb resolver status proxy_uri _ = do - resolver' <- (newObject ProxyURIResolver) resolver - proxy_uri' <- (newBoxed URI) proxy_uri - _cb resolver' status proxy_uri' - maybeReleaseFunPtr funptrptr - --- callback PasswordManagerCallback -passwordManagerCallbackClosure :: PasswordManagerCallback -> IO Closure -passwordManagerCallbackClosure cb = newCClosure =<< mkPasswordManagerCallback wrapped - where wrapped = passwordManagerCallbackWrapper Nothing cb - -type PasswordManagerCallbackC = - Ptr PasswordManager -> - Ptr Message -> - Ptr Auth -> - CInt -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkPasswordManagerCallback :: PasswordManagerCallbackC -> IO (FunPtr PasswordManagerCallbackC) - -type PasswordManagerCallback = - PasswordManager -> - Message -> - Auth -> - Bool -> - IO () - -noPasswordManagerCallback :: Maybe PasswordManagerCallback -noPasswordManagerCallback = Nothing - -passwordManagerCallbackWrapper :: - Maybe (Ptr (FunPtr (PasswordManagerCallbackC))) -> - PasswordManagerCallback -> - Ptr PasswordManager -> - Ptr Message -> - Ptr Auth -> - CInt -> - Ptr () -> - IO () -passwordManagerCallbackWrapper funptrptr _cb password_manager msg auth retrying _ = do - password_manager' <- (newObject PasswordManager) password_manager - msg' <- (newObject Message) msg - auth' <- (newObject Auth) auth - let retrying' = (/= 0) retrying - _cb password_manager' msg' auth' retrying' - maybeReleaseFunPtr funptrptr - --- callback MessageHeadersForeachFunc -messageHeadersForeachFuncClosure :: MessageHeadersForeachFunc -> IO Closure -messageHeadersForeachFuncClosure cb = newCClosure =<< mkMessageHeadersForeachFunc wrapped - where wrapped = messageHeadersForeachFuncWrapper Nothing cb - -type MessageHeadersForeachFuncC = - CString -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkMessageHeadersForeachFunc :: MessageHeadersForeachFuncC -> IO (FunPtr MessageHeadersForeachFuncC) - -type MessageHeadersForeachFunc = - T.Text -> - T.Text -> - IO () - -noMessageHeadersForeachFunc :: Maybe MessageHeadersForeachFunc -noMessageHeadersForeachFunc = Nothing - -messageHeadersForeachFuncWrapper :: - Maybe (Ptr (FunPtr (MessageHeadersForeachFuncC))) -> - MessageHeadersForeachFunc -> - CString -> - CString -> - Ptr () -> - IO () -messageHeadersForeachFuncWrapper funptrptr _cb name value _ = do - name' <- cstringToText name - value' <- cstringToText value - _cb name' value' - maybeReleaseFunPtr funptrptr - --- callback LoggerPrinter -loggerPrinterClosure :: LoggerPrinter -> IO Closure -loggerPrinterClosure cb = newCClosure =<< mkLoggerPrinter wrapped - where wrapped = loggerPrinterWrapper Nothing cb - -type LoggerPrinterC = - Ptr Logger -> - CUInt -> - Int8 -> - CString -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkLoggerPrinter :: LoggerPrinterC -> IO (FunPtr LoggerPrinterC) - -type LoggerPrinter = - Logger -> - LoggerLogLevel -> - Int8 -> - T.Text -> - IO () - -noLoggerPrinter :: Maybe LoggerPrinter -noLoggerPrinter = Nothing - -loggerPrinterWrapper :: - Maybe (Ptr (FunPtr (LoggerPrinterC))) -> - LoggerPrinter -> - Ptr Logger -> - CUInt -> - Int8 -> - CString -> - Ptr () -> - IO () -loggerPrinterWrapper funptrptr _cb logger level direction data_ _ = do - logger' <- (newObject Logger) logger - let level' = (toEnum . fromIntegral) level - data_' <- cstringToText data_ - _cb logger' level' direction data_' - maybeReleaseFunPtr funptrptr - --- callback LoggerFilter -loggerFilterClosure :: LoggerFilter -> IO Closure -loggerFilterClosure cb = newCClosure =<< mkLoggerFilter wrapped - where wrapped = loggerFilterWrapper Nothing cb - -type LoggerFilterC = - Ptr Logger -> - Ptr Message -> - Ptr () -> - IO CUInt - -foreign import ccall "wrapper" - mkLoggerFilter :: LoggerFilterC -> IO (FunPtr LoggerFilterC) - -type LoggerFilter = - Logger -> - Message -> - IO LoggerLogLevel - -noLoggerFilter :: Maybe LoggerFilter -noLoggerFilter = Nothing - -loggerFilterWrapper :: - Maybe (Ptr (FunPtr (LoggerFilterC))) -> - LoggerFilter -> - Ptr Logger -> - Ptr Message -> - Ptr () -> - IO CUInt -loggerFilterWrapper funptrptr _cb logger msg _ = do - logger' <- (newObject Logger) logger - msg' <- (newObject Message) msg - result <- _cb logger' msg' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback ChunkAllocator -chunkAllocatorClosure :: ChunkAllocator -> IO Closure -chunkAllocatorClosure cb = newCClosure =<< mkChunkAllocator wrapped - where wrapped = chunkAllocatorWrapper Nothing cb - -type ChunkAllocatorC = - Ptr Message -> - Word64 -> - Ptr () -> - IO (Ptr Buffer) - -foreign import ccall "wrapper" - mkChunkAllocator :: ChunkAllocatorC -> IO (FunPtr ChunkAllocatorC) - -type ChunkAllocator = - Message -> - Word64 -> - IO Buffer - -noChunkAllocator :: Maybe ChunkAllocator -noChunkAllocator = Nothing - -chunkAllocatorWrapper :: - Maybe (Ptr (FunPtr (ChunkAllocatorC))) -> - ChunkAllocator -> - Ptr Message -> - Word64 -> - Ptr () -> - IO (Ptr Buffer) -chunkAllocatorWrapper funptrptr _cb msg max_len _ = do - msg' <- (newObject Message) msg - result <- _cb msg' max_len - maybeReleaseFunPtr funptrptr - result' <- copyBoxed result - return result' - --- callback AuthDomainGenericAuthCallback -authDomainGenericAuthCallbackClosure :: AuthDomainGenericAuthCallback -> IO Closure -authDomainGenericAuthCallbackClosure cb = newCClosure =<< mkAuthDomainGenericAuthCallback wrapped - where wrapped = authDomainGenericAuthCallbackWrapper Nothing cb - -type AuthDomainGenericAuthCallbackC = - Ptr AuthDomain -> - Ptr Message -> - CString -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkAuthDomainGenericAuthCallback :: AuthDomainGenericAuthCallbackC -> IO (FunPtr AuthDomainGenericAuthCallbackC) - -type AuthDomainGenericAuthCallback = - AuthDomain -> - Message -> - T.Text -> - IO Bool - -noAuthDomainGenericAuthCallback :: Maybe AuthDomainGenericAuthCallback -noAuthDomainGenericAuthCallback = Nothing - -authDomainGenericAuthCallbackWrapper :: - Maybe (Ptr (FunPtr (AuthDomainGenericAuthCallbackC))) -> - AuthDomainGenericAuthCallback -> - Ptr AuthDomain -> - Ptr Message -> - CString -> - Ptr () -> - IO CInt -authDomainGenericAuthCallbackWrapper funptrptr _cb domain msg username _ = do - domain' <- (newObject AuthDomain) domain - msg' <- (newObject Message) msg - username' <- cstringToText username - result <- _cb domain' msg' username' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback AuthDomainFilter -authDomainFilterClosure :: AuthDomainFilter -> IO Closure -authDomainFilterClosure cb = newCClosure =<< mkAuthDomainFilter wrapped - where wrapped = authDomainFilterWrapper Nothing cb - -type AuthDomainFilterC = - Ptr AuthDomain -> - Ptr Message -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkAuthDomainFilter :: AuthDomainFilterC -> IO (FunPtr AuthDomainFilterC) - -type AuthDomainFilter = - AuthDomain -> - Message -> - IO Bool - -noAuthDomainFilter :: Maybe AuthDomainFilter -noAuthDomainFilter = Nothing - -authDomainFilterWrapper :: - Maybe (Ptr (FunPtr (AuthDomainFilterC))) -> - AuthDomainFilter -> - Ptr AuthDomain -> - Ptr Message -> - Ptr () -> - IO CInt -authDomainFilterWrapper funptrptr _cb domain msg _ = do - domain' <- (newObject AuthDomain) domain - msg' <- (newObject Message) msg - result <- _cb domain' msg' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback AuthDomainDigestAuthCallback -authDomainDigestAuthCallbackClosure :: AuthDomainDigestAuthCallback -> IO Closure -authDomainDigestAuthCallbackClosure cb = newCClosure =<< mkAuthDomainDigestAuthCallback wrapped - where wrapped = authDomainDigestAuthCallbackWrapper Nothing cb - -type AuthDomainDigestAuthCallbackC = - Ptr AuthDomain -> - Ptr Message -> - CString -> - Ptr () -> - IO CString - -foreign import ccall "wrapper" - mkAuthDomainDigestAuthCallback :: AuthDomainDigestAuthCallbackC -> IO (FunPtr AuthDomainDigestAuthCallbackC) - -type AuthDomainDigestAuthCallback = - AuthDomain -> - Message -> - T.Text -> - IO T.Text - -noAuthDomainDigestAuthCallback :: Maybe AuthDomainDigestAuthCallback -noAuthDomainDigestAuthCallback = Nothing - -authDomainDigestAuthCallbackWrapper :: - Maybe (Ptr (FunPtr (AuthDomainDigestAuthCallbackC))) -> - AuthDomainDigestAuthCallback -> - Ptr AuthDomain -> - Ptr Message -> - CString -> - Ptr () -> - IO CString -authDomainDigestAuthCallbackWrapper funptrptr _cb domain msg username _ = do - domain' <- (newObject AuthDomain) domain - msg' <- (newObject Message) msg - username' <- cstringToText username - result <- _cb domain' msg' username' - maybeReleaseFunPtr funptrptr - result' <- textToCString result - return result' - --- callback AuthDomainBasicAuthCallback -authDomainBasicAuthCallbackClosure :: AuthDomainBasicAuthCallback -> IO Closure -authDomainBasicAuthCallbackClosure cb = newCClosure =<< mkAuthDomainBasicAuthCallback wrapped - where wrapped = authDomainBasicAuthCallbackWrapper Nothing cb - -type AuthDomainBasicAuthCallbackC = - Ptr AuthDomain -> - Ptr Message -> - CString -> - CString -> - Ptr () -> - IO CInt - -foreign import ccall "wrapper" - mkAuthDomainBasicAuthCallback :: AuthDomainBasicAuthCallbackC -> IO (FunPtr AuthDomainBasicAuthCallbackC) - -type AuthDomainBasicAuthCallback = - AuthDomain -> - Message -> - T.Text -> - T.Text -> - IO Bool - -noAuthDomainBasicAuthCallback :: Maybe AuthDomainBasicAuthCallback -noAuthDomainBasicAuthCallback = Nothing - -authDomainBasicAuthCallbackWrapper :: - Maybe (Ptr (FunPtr (AuthDomainBasicAuthCallbackC))) -> - AuthDomainBasicAuthCallback -> - Ptr AuthDomain -> - Ptr Message -> - CString -> - CString -> - Ptr () -> - IO CInt -authDomainBasicAuthCallbackWrapper funptrptr _cb domain msg username password _ = do - domain' <- (newObject AuthDomain) domain - msg' <- (newObject Message) msg - username' <- cstringToText username - password' <- cstringToText password - result <- _cb domain' msg' username' password' - maybeReleaseFunPtr funptrptr - let result' = (fromIntegral . fromEnum) result - return result' - --- callback AddressCallback -addressCallbackClosure :: AddressCallback -> IO Closure -addressCallbackClosure cb = newCClosure =<< mkAddressCallback wrapped - where wrapped = addressCallbackWrapper Nothing cb - -type AddressCallbackC = - Ptr Address -> - Word32 -> - Ptr () -> - IO () - -foreign import ccall "wrapper" - mkAddressCallback :: AddressCallbackC -> IO (FunPtr AddressCallbackC) - -type AddressCallback = - Address -> - Word32 -> - IO () - -noAddressCallback :: Maybe AddressCallback -noAddressCallback = Nothing - -addressCallbackWrapper :: - Maybe (Ptr (FunPtr (AddressCallbackC))) -> - AddressCallback -> - Ptr Address -> - Word32 -> - Ptr () -> - IO () -addressCallbackWrapper funptrptr _cb addr status _ = do - addr' <- (newObject Address) addr - _cb addr' status - maybeReleaseFunPtr funptrptr - - diff --git a/GI/Soup/Constants.hs b/GI/Soup/Constants.hs deleted file mode 100644 --- a/GI/Soup/Constants.hs +++ /dev/null @@ -1,596 +0,0 @@ -{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Constants - ( - pattern XMLRPC_H , - pattern VALUE_UTILS_H , - pattern URI_H , - pattern TYPES_H , - pattern STATUS_H , - pattern SOCKET_USE_THREAD_CONTEXT , - pattern SOCKET_TRUSTED_CERTIFICATE , - pattern SOCKET_TLS_ERRORS , - pattern SOCKET_TLS_CERTIFICATE , - pattern SOCKET_TIMEOUT , - pattern SOCKET_SSL_STRICT , - pattern SOCKET_SSL_FALLBACK , - pattern SOCKET_SSL_CREDENTIALS , - pattern SOCKET_REMOTE_ADDRESS , - pattern SOCKET_LOCAL_ADDRESS , - pattern SOCKET_IS_SERVER , - pattern SOCKET_H , - pattern SOCKET_FLAG_NONBLOCKING , - pattern SOCKET_ASYNC_CONTEXT , - pattern SESSION_USE_THREAD_CONTEXT , - pattern SESSION_USE_NTLM , - pattern SESSION_USER_AGENT , - pattern SESSION_TLS_INTERACTION , - pattern SESSION_TLS_DATABASE , - pattern SESSION_TIMEOUT , - pattern SESSION_SYNC_H , - pattern SESSION_SSL_USE_SYSTEM_CA_FILE , - pattern SESSION_SSL_STRICT , - pattern SESSION_SSL_CA_FILE , - pattern SESSION_PROXY_URI , - pattern SESSION_PROXY_RESOLVER , - pattern SESSION_MAX_CONNS_PER_HOST , - pattern SESSION_MAX_CONNS , - pattern SESSION_LOCAL_ADDRESS , - pattern SESSION_IDLE_TIMEOUT , - pattern SESSION_HTTP_ALIASES , - pattern SESSION_HTTPS_ALIASES , - pattern SESSION_H , - pattern SESSION_FEATURE_H , - pattern SESSION_ASYNC_H , - pattern SESSION_ASYNC_CONTEXT , - pattern SESSION_ACCEPT_LANGUAGE_AUTO , - pattern SESSION_ACCEPT_LANGUAGE , - pattern SERVER_TLS_CERTIFICATE , - pattern SERVER_SSL_KEY_FILE , - pattern SERVER_SSL_CERT_FILE , - pattern SERVER_SERVER_HEADER , - pattern SERVER_RAW_PATHS , - pattern SERVER_PORT , - pattern SERVER_INTERFACE , - pattern SERVER_HTTP_ALIASES , - pattern SERVER_HTTPS_ALIASES , - pattern SERVER_H , - pattern SERVER_ASYNC_CONTEXT , - pattern REQUEST_URI , - pattern REQUEST_SESSION , - pattern REQUEST_HTTP_H , - pattern REQUEST_H , - pattern REQUEST_FILE_H , - pattern REQUEST_DATA_H , - pattern REQUESTER_H , - pattern PROXY_URI_RESOLVER_H , - pattern PROXY_RESOLVER_DEFAULT_H , - pattern PASSWORD_MANAGER_H , - pattern MULTIPART_INPUT_STREAM_H , - pattern MULTIPART_H , - pattern MISC_H , - pattern METHOD_H , - pattern MESSAGE_URI , - pattern MESSAGE_TLS_ERRORS , - pattern MESSAGE_TLS_CERTIFICATE , - pattern MESSAGE_STATUS_CODE , - pattern MESSAGE_SERVER_SIDE , - pattern MESSAGE_RESPONSE_HEADERS , - pattern MESSAGE_RESPONSE_BODY_DATA , - pattern MESSAGE_RESPONSE_BODY , - pattern MESSAGE_REQUEST_HEADERS , - pattern MESSAGE_REQUEST_BODY_DATA , - pattern MESSAGE_REQUEST_BODY , - pattern MESSAGE_REASON_PHRASE , - pattern MESSAGE_PRIORITY , - pattern MESSAGE_METHOD , - pattern MESSAGE_HTTP_VERSION , - pattern MESSAGE_HEADERS_H , - pattern MESSAGE_H , - pattern MESSAGE_FLAGS , - pattern MESSAGE_FIRST_PARTY , - pattern MESSAGE_BODY_H , - pattern LOGGER_H , - pattern HEADERS_H , - pattern FORM_MIME_TYPE_URLENCODED , - pattern FORM_MIME_TYPE_MULTIPART , - pattern FORM_H , - pattern DATE_H , - pattern COOKIE_MAX_AGE_ONE_YEAR , - pattern COOKIE_MAX_AGE_ONE_WEEK , - pattern COOKIE_MAX_AGE_ONE_HOUR , - pattern COOKIE_MAX_AGE_ONE_DAY , - pattern COOKIE_JAR_TEXT_H , - pattern COOKIE_JAR_TEXT_FILENAME , - pattern COOKIE_JAR_READ_ONLY , - pattern COOKIE_JAR_H , - pattern COOKIE_JAR_DB_H , - pattern COOKIE_JAR_DB_FILENAME , - pattern COOKIE_JAR_ACCEPT_POLICY , - pattern COOKIE_H , - pattern CONTENT_SNIFFER_H , - pattern CONTENT_DECODER_H , - pattern CHAR_URI_SUB_DELIMS , - pattern CHAR_URI_PERCENT_ENCODED , - pattern CHAR_URI_GEN_DELIMS , - pattern CHAR_HTTP_SEPARATOR , - pattern CHAR_HTTP_CTL , - pattern CACHE_H , - pattern AUTH_SCHEME_NAME , - pattern AUTH_REALM , - pattern AUTH_MANAGER_H , - pattern AUTH_IS_FOR_PROXY , - pattern AUTH_IS_AUTHENTICATED , - pattern AUTH_HOST , - pattern AUTH_H , - pattern AUTH_DOMAIN_REMOVE_PATH , - pattern AUTH_DOMAIN_REALM , - pattern AUTH_DOMAIN_PROXY , - pattern AUTH_DOMAIN_H , - pattern AUTH_DOMAIN_GENERIC_AUTH_DATA , - pattern AUTH_DOMAIN_GENERIC_AUTH_CALLBACK, - pattern AUTH_DOMAIN_FILTER_DATA , - pattern AUTH_DOMAIN_FILTER , - pattern AUTH_DOMAIN_DIGEST_H , - pattern AUTH_DOMAIN_DIGEST_AUTH_DATA , - pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK, - pattern AUTH_DOMAIN_BASIC_H , - pattern AUTH_DOMAIN_BASIC_AUTH_DATA , - pattern AUTH_DOMAIN_BASIC_AUTH_CALLBACK , - pattern AUTH_DOMAIN_ADD_PATH , - pattern ADDRESS_SOCKADDR , - pattern ADDRESS_PROTOCOL , - pattern ADDRESS_PORT , - pattern ADDRESS_PHYSICAL , - pattern ADDRESS_NAME , - pattern ADDRESS_FAMILY , - pattern ADDRESS_ANY_PORT , - - ) 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 - - -pattern XMLRPC_H = 1 :: Int32 - - -pattern VALUE_UTILS_H = 1 :: Int32 - - -pattern URI_H = 1 :: Int32 - - -pattern TYPES_H = 1 :: Int32 - - -pattern STATUS_H = 1 :: Int32 - - -pattern SOCKET_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text - - -pattern SOCKET_TRUSTED_CERTIFICATE = "trusted-certificate" :: T.Text - - -pattern SOCKET_TLS_ERRORS = "tls-errors" :: T.Text - - -pattern SOCKET_TLS_CERTIFICATE = "tls-certificate" :: T.Text - - -pattern SOCKET_TIMEOUT = "timeout" :: T.Text - - -pattern SOCKET_SSL_STRICT = "ssl-strict" :: T.Text - - -pattern SOCKET_SSL_FALLBACK = "ssl-fallback" :: T.Text - - -pattern SOCKET_SSL_CREDENTIALS = "ssl-creds" :: T.Text - - -pattern SOCKET_REMOTE_ADDRESS = "remote-address" :: T.Text - - -pattern SOCKET_LOCAL_ADDRESS = "local-address" :: T.Text - - -pattern SOCKET_IS_SERVER = "is-server" :: T.Text - - -pattern SOCKET_H = 1 :: Int32 - - -pattern SOCKET_FLAG_NONBLOCKING = "non-blocking" :: T.Text - - -pattern SOCKET_ASYNC_CONTEXT = "async-context" :: T.Text - - -pattern SESSION_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text - - -pattern SESSION_USE_NTLM = "use-ntlm" :: T.Text - - -pattern SESSION_USER_AGENT = "user-agent" :: T.Text - - -pattern SESSION_TLS_INTERACTION = "tls-interaction" :: T.Text - - -pattern SESSION_TLS_DATABASE = "tls-database" :: T.Text - - -pattern SESSION_TIMEOUT = "timeout" :: T.Text - - -pattern SESSION_SYNC_H = 1 :: Int32 - - -pattern SESSION_SSL_USE_SYSTEM_CA_FILE = "ssl-use-system-ca-file" :: T.Text - - -pattern SESSION_SSL_STRICT = "ssl-strict" :: T.Text - - -pattern SESSION_SSL_CA_FILE = "ssl-ca-file" :: T.Text - - -pattern SESSION_PROXY_URI = "proxy-uri" :: T.Text - - -pattern SESSION_PROXY_RESOLVER = "proxy-resolver" :: T.Text - - -pattern SESSION_MAX_CONNS_PER_HOST = "max-conns-per-host" :: T.Text - - -pattern SESSION_MAX_CONNS = "max-conns" :: T.Text - - -pattern SESSION_LOCAL_ADDRESS = "local-address" :: T.Text - - -pattern SESSION_IDLE_TIMEOUT = "idle-timeout" :: T.Text - - -pattern SESSION_HTTP_ALIASES = "http-aliases" :: T.Text - - -pattern SESSION_HTTPS_ALIASES = "https-aliases" :: T.Text - - -pattern SESSION_H = 1 :: Int32 - - -pattern SESSION_FEATURE_H = 1 :: Int32 - - -pattern SESSION_ASYNC_H = 1 :: Int32 - - -pattern SESSION_ASYNC_CONTEXT = "async-context" :: T.Text - - -pattern SESSION_ACCEPT_LANGUAGE_AUTO = "accept-language-auto" :: T.Text - - -pattern SESSION_ACCEPT_LANGUAGE = "accept-language" :: T.Text - - -pattern SERVER_TLS_CERTIFICATE = "tls-certificate" :: T.Text - -{-# DEPRECATED SERVER_SSL_KEY_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-} -pattern SERVER_SSL_KEY_FILE = "ssl-key-file" :: T.Text - -{-# DEPRECATED SERVER_SSL_CERT_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-} -pattern SERVER_SSL_CERT_FILE = "ssl-cert-file" :: T.Text - - -pattern SERVER_SERVER_HEADER = "server-header" :: T.Text - - -pattern SERVER_RAW_PATHS = "raw-paths" :: T.Text - -{-# DEPRECATED SERVER_PORT ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on a","port, and soup_server_get_uris() to see what ports are","being listened on."]#-} -pattern SERVER_PORT = "port" :: T.Text - -{-# DEPRECATED SERVER_INTERFACE ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on an","interface, and soup_server_get_uris() to see what addresses","are being listened on."]#-} -pattern SERVER_INTERFACE = "interface" :: T.Text - - -pattern SERVER_HTTP_ALIASES = "http-aliases" :: T.Text - - -pattern SERVER_HTTPS_ALIASES = "https-aliases" :: T.Text - - -pattern SERVER_H = 1 :: Int32 - -{-# DEPRECATED SERVER_ASYNC_CONTEXT ["The new API uses the thread-default #GMainContext","rather than having an explicitly-specified one."]#-} -pattern SERVER_ASYNC_CONTEXT = "async-context" :: T.Text - - -pattern REQUEST_URI = "uri" :: T.Text - - -pattern REQUEST_SESSION = "session" :: T.Text - - -pattern REQUEST_HTTP_H = 1 :: Int32 - - -pattern REQUEST_H = 1 :: Int32 - - -pattern REQUEST_FILE_H = 1 :: Int32 - - -pattern REQUEST_DATA_H = 1 :: Int32 - - -pattern REQUESTER_H = 1 :: Int32 - - -pattern PROXY_URI_RESOLVER_H = 1 :: Int32 - - -pattern PROXY_RESOLVER_DEFAULT_H = 1 :: Int32 - - -pattern PASSWORD_MANAGER_H = 1 :: Int32 - - -pattern MULTIPART_INPUT_STREAM_H = 1 :: Int32 - - -pattern MULTIPART_H = 1 :: Int32 - - -pattern MISC_H = 1 :: Int32 - - -pattern METHOD_H = 1 :: Int32 - - -pattern MESSAGE_URI = "uri" :: T.Text - - -pattern MESSAGE_TLS_ERRORS = "tls-errors" :: T.Text - - -pattern MESSAGE_TLS_CERTIFICATE = "tls-certificate" :: T.Text - - -pattern MESSAGE_STATUS_CODE = "status-code" :: T.Text - - -pattern MESSAGE_SERVER_SIDE = "server-side" :: T.Text - - -pattern MESSAGE_RESPONSE_HEADERS = "response-headers" :: T.Text - - -pattern MESSAGE_RESPONSE_BODY_DATA = "response-body-data" :: T.Text - - -pattern MESSAGE_RESPONSE_BODY = "response-body" :: T.Text - - -pattern MESSAGE_REQUEST_HEADERS = "request-headers" :: T.Text - - -pattern MESSAGE_REQUEST_BODY_DATA = "request-body-data" :: T.Text - - -pattern MESSAGE_REQUEST_BODY = "request-body" :: T.Text - - -pattern MESSAGE_REASON_PHRASE = "reason-phrase" :: T.Text - - -pattern MESSAGE_PRIORITY = "priority" :: T.Text - - -pattern MESSAGE_METHOD = "method" :: T.Text - - -pattern MESSAGE_HTTP_VERSION = "http-version" :: T.Text - - -pattern MESSAGE_HEADERS_H = 1 :: Int32 - - -pattern MESSAGE_H = 1 :: Int32 - - -pattern MESSAGE_FLAGS = "flags" :: T.Text - - -pattern MESSAGE_FIRST_PARTY = "first-party" :: T.Text - - -pattern MESSAGE_BODY_H = 1 :: Int32 - - -pattern LOGGER_H = 1 :: Int32 - - -pattern HEADERS_H = 1 :: Int32 - - -pattern FORM_MIME_TYPE_URLENCODED = "application/x-www-form-urlencoded" :: T.Text - - -pattern FORM_MIME_TYPE_MULTIPART = "multipart/form-data" :: T.Text - - -pattern FORM_H = 1 :: Int32 - - -pattern DATE_H = 1 :: Int32 - - -pattern COOKIE_MAX_AGE_ONE_YEAR = 0 :: Int32 - - -pattern COOKIE_MAX_AGE_ONE_WEEK = 0 :: Int32 - - -pattern COOKIE_MAX_AGE_ONE_HOUR = 3600 :: Int32 - - -pattern COOKIE_MAX_AGE_ONE_DAY = 0 :: Int32 - - -pattern COOKIE_JAR_TEXT_H = 1 :: Int32 - - -pattern COOKIE_JAR_TEXT_FILENAME = "filename" :: T.Text - - -pattern COOKIE_JAR_READ_ONLY = "read-only" :: T.Text - - -pattern COOKIE_JAR_H = 1 :: Int32 - - -pattern COOKIE_JAR_DB_H = 1 :: Int32 - - -pattern COOKIE_JAR_DB_FILENAME = "filename" :: T.Text - - -pattern COOKIE_JAR_ACCEPT_POLICY = "accept-policy" :: T.Text - - -pattern COOKIE_H = 1 :: Int32 - - -pattern CONTENT_SNIFFER_H = 1 :: Int32 - - -pattern CONTENT_DECODER_H = 1 :: Int32 - - -pattern CHAR_URI_SUB_DELIMS = 4 :: Int32 - - -pattern CHAR_URI_PERCENT_ENCODED = 1 :: Int32 - - -pattern CHAR_URI_GEN_DELIMS = 2 :: Int32 - - -pattern CHAR_HTTP_SEPARATOR = 8 :: Int32 - - -pattern CHAR_HTTP_CTL = 16 :: Int32 - - -pattern CACHE_H = 1 :: Int32 - - -pattern AUTH_SCHEME_NAME = "scheme-name" :: T.Text - - -pattern AUTH_REALM = "realm" :: T.Text - - -pattern AUTH_MANAGER_H = 1 :: Int32 - - -pattern AUTH_IS_FOR_PROXY = "is-for-proxy" :: T.Text - - -pattern AUTH_IS_AUTHENTICATED = "is-authenticated" :: T.Text - - -pattern AUTH_HOST = "host" :: T.Text - - -pattern AUTH_H = 1 :: Int32 - - -pattern AUTH_DOMAIN_REMOVE_PATH = "remove-path" :: T.Text - - -pattern AUTH_DOMAIN_REALM = "realm" :: T.Text - - -pattern AUTH_DOMAIN_PROXY = "proxy" :: T.Text - - -pattern AUTH_DOMAIN_H = 1 :: Int32 - - -pattern AUTH_DOMAIN_GENERIC_AUTH_DATA = "generic-auth-data" :: T.Text - - -pattern AUTH_DOMAIN_GENERIC_AUTH_CALLBACK = "generic-auth-callback" :: T.Text - - -pattern AUTH_DOMAIN_FILTER_DATA = "filter-data" :: T.Text - - -pattern AUTH_DOMAIN_FILTER = "filter" :: T.Text - - -pattern AUTH_DOMAIN_DIGEST_H = 1 :: Int32 - - -pattern AUTH_DOMAIN_DIGEST_AUTH_DATA = "auth-data" :: T.Text - - -pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK = "auth-callback" :: T.Text - - -pattern AUTH_DOMAIN_BASIC_H = 1 :: Int32 - - -pattern AUTH_DOMAIN_BASIC_AUTH_DATA = "auth-data" :: T.Text - - -pattern AUTH_DOMAIN_BASIC_AUTH_CALLBACK = "auth-callback" :: T.Text - - -pattern AUTH_DOMAIN_ADD_PATH = "add-path" :: T.Text - - -pattern ADDRESS_SOCKADDR = "sockaddr" :: T.Text - - -pattern ADDRESS_PROTOCOL = "protocol" :: T.Text - - -pattern ADDRESS_PORT = "port" :: T.Text - - -pattern ADDRESS_PHYSICAL = "physical" :: T.Text - - -pattern ADDRESS_NAME = "name" :: T.Text - - -pattern ADDRESS_FAMILY = "family" :: T.Text - - -pattern ADDRESS_ANY_PORT = 0 :: Int32 - - diff --git a/GI/Soup/Enums.hs b/GI/Soup/Enums.hs deleted file mode 100644 --- a/GI/Soup/Enums.hs +++ /dev/null @@ -1,1209 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Enums - ( - catchXMLRPCError , - handleXMLRPCError , - catchTLDError , - handleTLDError , - catchRequesterError , - handleRequesterError , - catchRequestError , - handleRequestError , - --- * Exported types - XMLRPCFault(..) , - XMLRPCError(..) , - WebsocketState(..) , - WebsocketError(..) , - WebsocketDataType(..) , - WebsocketConnectionType(..) , - WebsocketCloseCode(..) , - TLDError(..) , - Status(..) , - SocketIOStatus(..) , - RequesterError(..) , - RequestError(..) , - MessagePriority(..) , - MessageHeadersType(..) , - MemoryUse(..) , - LoggerLogLevel(..) , - KnownStatusCode(..) , - HTTPVersion(..) , - Encoding(..) , - DateFormat(..) , - CookieJarAcceptPolicy(..) , - ConnectionState(..) , - CacheType(..) , - CacheResponse(..) , - AddressFamily(..) , - - - ) 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 - - - - --- Enum XMLRPCFault - -data XMLRPCFault = - XMLRPCFaultParseErrorNotWellFormed - | XMLRPCFaultParseErrorUnsupportedEncoding - | XMLRPCFaultParseErrorInvalidCharacterForEncoding - | XMLRPCFaultServerErrorInvalidXmlRpc - | XMLRPCFaultServerErrorRequestedMethodNotFound - | XMLRPCFaultServerErrorInvalidMethodParameters - | XMLRPCFaultServerErrorInternalXmlRpcError - | XMLRPCFaultApplicationError - | XMLRPCFaultSystemError - | XMLRPCFaultTransportError - | AnotherXMLRPCFault Int - deriving (Show, Eq) - -instance Enum XMLRPCFault where - fromEnum XMLRPCFaultParseErrorNotWellFormed = -32700 - fromEnum XMLRPCFaultParseErrorUnsupportedEncoding = -32701 - fromEnum XMLRPCFaultParseErrorInvalidCharacterForEncoding = -32702 - fromEnum XMLRPCFaultServerErrorInvalidXmlRpc = -32600 - fromEnum XMLRPCFaultServerErrorRequestedMethodNotFound = -32601 - fromEnum XMLRPCFaultServerErrorInvalidMethodParameters = -32602 - fromEnum XMLRPCFaultServerErrorInternalXmlRpcError = -32603 - fromEnum XMLRPCFaultApplicationError = -32500 - fromEnum XMLRPCFaultSystemError = -32400 - fromEnum XMLRPCFaultTransportError = -32300 - fromEnum (AnotherXMLRPCFault k) = k - - toEnum -32702 = XMLRPCFaultParseErrorInvalidCharacterForEncoding - toEnum -32701 = XMLRPCFaultParseErrorUnsupportedEncoding - toEnum -32700 = XMLRPCFaultParseErrorNotWellFormed - toEnum -32603 = XMLRPCFaultServerErrorInternalXmlRpcError - toEnum -32602 = XMLRPCFaultServerErrorInvalidMethodParameters - toEnum -32601 = XMLRPCFaultServerErrorRequestedMethodNotFound - toEnum -32600 = XMLRPCFaultServerErrorInvalidXmlRpc - toEnum -32500 = XMLRPCFaultApplicationError - toEnum -32400 = XMLRPCFaultSystemError - toEnum -32300 = XMLRPCFaultTransportError - toEnum k = AnotherXMLRPCFault k - -foreign import ccall "soup_xmlrpc_fault_get_type" c_soup_xmlrpc_fault_get_type :: - IO GType - -instance BoxedEnum XMLRPCFault where - boxedEnumType _ = c_soup_xmlrpc_fault_get_type - --- Enum XMLRPCError - -data XMLRPCError = - XMLRPCErrorArguments - | XMLRPCErrorRetval - | AnotherXMLRPCError Int - deriving (Show, Eq) - -instance Enum XMLRPCError where - fromEnum XMLRPCErrorArguments = 0 - fromEnum XMLRPCErrorRetval = 1 - fromEnum (AnotherXMLRPCError k) = k - - toEnum 0 = XMLRPCErrorArguments - toEnum 1 = XMLRPCErrorRetval - toEnum k = AnotherXMLRPCError k - -instance GErrorClass XMLRPCError where - gerrorClassDomain _ = "soup_xmlrpc_error_quark" - -catchXMLRPCError :: - IO a -> - (XMLRPCError -> GErrorMessage -> IO a) -> - IO a -catchXMLRPCError = catchGErrorJustDomain - -handleXMLRPCError :: - (XMLRPCError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleXMLRPCError = handleGErrorJustDomain - -foreign import ccall "soup_xmlrpc_error_get_type" c_soup_xmlrpc_error_get_type :: - IO GType - -instance BoxedEnum XMLRPCError where - boxedEnumType _ = c_soup_xmlrpc_error_get_type - --- Enum WebsocketState - -data WebsocketState = - WebsocketStateOpen - | WebsocketStateClosing - | WebsocketStateClosed - | AnotherWebsocketState Int - deriving (Show, Eq) - -instance Enum WebsocketState where - fromEnum WebsocketStateOpen = 1 - fromEnum WebsocketStateClosing = 2 - fromEnum WebsocketStateClosed = 3 - fromEnum (AnotherWebsocketState k) = k - - toEnum 1 = WebsocketStateOpen - toEnum 2 = WebsocketStateClosing - toEnum 3 = WebsocketStateClosed - toEnum k = AnotherWebsocketState k - -foreign import ccall "soup_websocket_state_get_type" c_soup_websocket_state_get_type :: - IO GType - -instance BoxedEnum WebsocketState where - boxedEnumType _ = c_soup_websocket_state_get_type - --- Enum WebsocketError - -data WebsocketError = - WebsocketErrorFailed - | WebsocketErrorNotWebsocket - | WebsocketErrorBadHandshake - | WebsocketErrorBadOrigin - | AnotherWebsocketError Int - deriving (Show, Eq) - -instance Enum WebsocketError where - fromEnum WebsocketErrorFailed = 0 - fromEnum WebsocketErrorNotWebsocket = 1 - fromEnum WebsocketErrorBadHandshake = 2 - fromEnum WebsocketErrorBadOrigin = 3 - fromEnum (AnotherWebsocketError k) = k - - toEnum 0 = WebsocketErrorFailed - toEnum 1 = WebsocketErrorNotWebsocket - toEnum 2 = WebsocketErrorBadHandshake - toEnum 3 = WebsocketErrorBadOrigin - toEnum k = AnotherWebsocketError k - -foreign import ccall "soup_websocket_error_get_type" c_soup_websocket_error_get_type :: - IO GType - -instance BoxedEnum WebsocketError where - boxedEnumType _ = c_soup_websocket_error_get_type - --- Enum WebsocketDataType - -data WebsocketDataType = - WebsocketDataTypeText - | WebsocketDataTypeBinary - | AnotherWebsocketDataType Int - deriving (Show, Eq) - -instance Enum WebsocketDataType where - fromEnum WebsocketDataTypeText = 1 - fromEnum WebsocketDataTypeBinary = 2 - fromEnum (AnotherWebsocketDataType k) = k - - toEnum 1 = WebsocketDataTypeText - toEnum 2 = WebsocketDataTypeBinary - toEnum k = AnotherWebsocketDataType k - -foreign import ccall "soup_websocket_data_type_get_type" c_soup_websocket_data_type_get_type :: - IO GType - -instance BoxedEnum WebsocketDataType where - boxedEnumType _ = c_soup_websocket_data_type_get_type - --- Enum WebsocketConnectionType - -data WebsocketConnectionType = - WebsocketConnectionTypeUnknown - | WebsocketConnectionTypeClient - | WebsocketConnectionTypeServer - | AnotherWebsocketConnectionType Int - deriving (Show, Eq) - -instance Enum WebsocketConnectionType where - fromEnum WebsocketConnectionTypeUnknown = 0 - fromEnum WebsocketConnectionTypeClient = 1 - fromEnum WebsocketConnectionTypeServer = 2 - fromEnum (AnotherWebsocketConnectionType k) = k - - toEnum 0 = WebsocketConnectionTypeUnknown - toEnum 1 = WebsocketConnectionTypeClient - toEnum 2 = WebsocketConnectionTypeServer - toEnum k = AnotherWebsocketConnectionType k - -foreign import ccall "soup_websocket_connection_type_get_type" c_soup_websocket_connection_type_get_type :: - IO GType - -instance BoxedEnum WebsocketConnectionType where - boxedEnumType _ = c_soup_websocket_connection_type_get_type - --- Enum WebsocketCloseCode - -data WebsocketCloseCode = - WebsocketCloseCodeNormal - | WebsocketCloseCodeGoingAway - | WebsocketCloseCodeProtocolError - | WebsocketCloseCodeUnsupportedData - | WebsocketCloseCodeNoStatus - | WebsocketCloseCodeAbnormal - | WebsocketCloseCodeBadData - | WebsocketCloseCodePolicyViolation - | WebsocketCloseCodeTooBig - | WebsocketCloseCodeNoExtension - | WebsocketCloseCodeServerError - | WebsocketCloseCodeTlsHandshake - | AnotherWebsocketCloseCode Int - deriving (Show, Eq) - -instance Enum WebsocketCloseCode where - fromEnum WebsocketCloseCodeNormal = 1000 - fromEnum WebsocketCloseCodeGoingAway = 1001 - fromEnum WebsocketCloseCodeProtocolError = 1002 - fromEnum WebsocketCloseCodeUnsupportedData = 1003 - fromEnum WebsocketCloseCodeNoStatus = 1005 - fromEnum WebsocketCloseCodeAbnormal = 1006 - fromEnum WebsocketCloseCodeBadData = 1007 - fromEnum WebsocketCloseCodePolicyViolation = 1008 - fromEnum WebsocketCloseCodeTooBig = 1009 - fromEnum WebsocketCloseCodeNoExtension = 1010 - fromEnum WebsocketCloseCodeServerError = 1011 - fromEnum WebsocketCloseCodeTlsHandshake = 1015 - fromEnum (AnotherWebsocketCloseCode k) = k - - toEnum 1000 = WebsocketCloseCodeNormal - toEnum 1001 = WebsocketCloseCodeGoingAway - toEnum 1002 = WebsocketCloseCodeProtocolError - toEnum 1003 = WebsocketCloseCodeUnsupportedData - toEnum 1005 = WebsocketCloseCodeNoStatus - toEnum 1006 = WebsocketCloseCodeAbnormal - toEnum 1007 = WebsocketCloseCodeBadData - toEnum 1008 = WebsocketCloseCodePolicyViolation - toEnum 1009 = WebsocketCloseCodeTooBig - toEnum 1010 = WebsocketCloseCodeNoExtension - toEnum 1011 = WebsocketCloseCodeServerError - toEnum 1015 = WebsocketCloseCodeTlsHandshake - toEnum k = AnotherWebsocketCloseCode k - -foreign import ccall "soup_websocket_close_code_get_type" c_soup_websocket_close_code_get_type :: - IO GType - -instance BoxedEnum WebsocketCloseCode where - boxedEnumType _ = c_soup_websocket_close_code_get_type - --- Enum TLDError - -data TLDError = - TLDErrorInvalidHostname - | TLDErrorIsIpAddress - | TLDErrorNotEnoughDomains - | TLDErrorNoBaseDomain - | AnotherTLDError Int - deriving (Show, Eq) - -instance Enum TLDError where - fromEnum TLDErrorInvalidHostname = 0 - fromEnum TLDErrorIsIpAddress = 1 - fromEnum TLDErrorNotEnoughDomains = 2 - fromEnum TLDErrorNoBaseDomain = 3 - fromEnum (AnotherTLDError k) = k - - toEnum 0 = TLDErrorInvalidHostname - toEnum 1 = TLDErrorIsIpAddress - toEnum 2 = TLDErrorNotEnoughDomains - toEnum 3 = TLDErrorNoBaseDomain - toEnum k = AnotherTLDError k - -instance GErrorClass TLDError where - gerrorClassDomain _ = "soup_tld_error_quark" - -catchTLDError :: - IO a -> - (TLDError -> GErrorMessage -> IO a) -> - IO a -catchTLDError = catchGErrorJustDomain - -handleTLDError :: - (TLDError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleTLDError = handleGErrorJustDomain - -foreign import ccall "soup_tld_error_get_type" c_soup_tld_error_get_type :: - IO GType - -instance BoxedEnum TLDError where - boxedEnumType _ = c_soup_tld_error_get_type - --- Enum Status - -data Status = - StatusNone - | StatusCancelled - | StatusCantResolve - | StatusCantResolveProxy - | StatusCantConnect - | StatusCantConnectProxy - | StatusSslFailed - | StatusIoError - | StatusMalformed - | StatusTryAgain - | StatusTooManyRedirects - | StatusTlsFailed - | StatusContinue - | StatusSwitchingProtocols - | StatusProcessing - | StatusOk - | StatusCreated - | StatusAccepted - | StatusNonAuthoritative - | StatusNoContent - | StatusResetContent - | StatusPartialContent - | StatusMultiStatus - | StatusMultipleChoices - | StatusMovedPermanently - | StatusFound - | StatusMovedTemporarily - | StatusSeeOther - | StatusNotModified - | StatusUseProxy - | StatusNotAppearingInThisProtocol - | StatusTemporaryRedirect - | StatusBadRequest - | StatusUnauthorized - | StatusPaymentRequired - | StatusForbidden - | StatusNotFound - | StatusMethodNotAllowed - | StatusNotAcceptable - | StatusProxyAuthenticationRequired - | StatusProxyUnauthorized - | StatusRequestTimeout - | StatusConflict - | StatusGone - | StatusLengthRequired - | StatusPreconditionFailed - | StatusRequestEntityTooLarge - | StatusRequestUriTooLong - | StatusUnsupportedMediaType - | StatusRequestedRangeNotSatisfiable - | StatusInvalidRange - | StatusExpectationFailed - | StatusUnprocessableEntity - | StatusLocked - | StatusFailedDependency - | StatusInternalServerError - | StatusNotImplemented - | StatusBadGateway - | StatusServiceUnavailable - | StatusGatewayTimeout - | StatusHttpVersionNotSupported - | StatusInsufficientStorage - | StatusNotExtended - | AnotherStatus Int - deriving (Show, Eq) - -instance Enum Status where - fromEnum StatusNone = 0 - fromEnum StatusCancelled = 1 - fromEnum StatusCantResolve = 2 - fromEnum StatusCantResolveProxy = 3 - fromEnum StatusCantConnect = 4 - fromEnum StatusCantConnectProxy = 5 - fromEnum StatusSslFailed = 6 - fromEnum StatusIoError = 7 - fromEnum StatusMalformed = 8 - fromEnum StatusTryAgain = 9 - fromEnum StatusTooManyRedirects = 10 - fromEnum StatusTlsFailed = 11 - fromEnum StatusContinue = 100 - fromEnum StatusSwitchingProtocols = 101 - fromEnum StatusProcessing = 102 - fromEnum StatusOk = 200 - fromEnum StatusCreated = 201 - fromEnum StatusAccepted = 202 - fromEnum StatusNonAuthoritative = 203 - fromEnum StatusNoContent = 204 - fromEnum StatusResetContent = 205 - fromEnum StatusPartialContent = 206 - fromEnum StatusMultiStatus = 207 - fromEnum StatusMultipleChoices = 300 - fromEnum StatusMovedPermanently = 301 - fromEnum StatusFound = 302 - fromEnum StatusMovedTemporarily = 302 - fromEnum StatusSeeOther = 303 - fromEnum StatusNotModified = 304 - fromEnum StatusUseProxy = 305 - fromEnum StatusNotAppearingInThisProtocol = 306 - fromEnum StatusTemporaryRedirect = 307 - fromEnum StatusBadRequest = 400 - fromEnum StatusUnauthorized = 401 - fromEnum StatusPaymentRequired = 402 - fromEnum StatusForbidden = 403 - fromEnum StatusNotFound = 404 - fromEnum StatusMethodNotAllowed = 405 - fromEnum StatusNotAcceptable = 406 - fromEnum StatusProxyAuthenticationRequired = 407 - fromEnum StatusProxyUnauthorized = 407 - fromEnum StatusRequestTimeout = 408 - fromEnum StatusConflict = 409 - fromEnum StatusGone = 410 - fromEnum StatusLengthRequired = 411 - fromEnum StatusPreconditionFailed = 412 - fromEnum StatusRequestEntityTooLarge = 413 - fromEnum StatusRequestUriTooLong = 414 - fromEnum StatusUnsupportedMediaType = 415 - fromEnum StatusRequestedRangeNotSatisfiable = 416 - fromEnum StatusInvalidRange = 416 - fromEnum StatusExpectationFailed = 417 - fromEnum StatusUnprocessableEntity = 422 - fromEnum StatusLocked = 423 - fromEnum StatusFailedDependency = 424 - fromEnum StatusInternalServerError = 500 - fromEnum StatusNotImplemented = 501 - fromEnum StatusBadGateway = 502 - fromEnum StatusServiceUnavailable = 503 - fromEnum StatusGatewayTimeout = 504 - fromEnum StatusHttpVersionNotSupported = 505 - fromEnum StatusInsufficientStorage = 507 - fromEnum StatusNotExtended = 510 - fromEnum (AnotherStatus k) = k - - toEnum 0 = StatusNone - toEnum 1 = StatusCancelled - toEnum 2 = StatusCantResolve - toEnum 3 = StatusCantResolveProxy - toEnum 4 = StatusCantConnect - toEnum 5 = StatusCantConnectProxy - toEnum 6 = StatusSslFailed - toEnum 7 = StatusIoError - toEnum 8 = StatusMalformed - toEnum 9 = StatusTryAgain - toEnum 10 = StatusTooManyRedirects - toEnum 11 = StatusTlsFailed - toEnum 100 = StatusContinue - toEnum 101 = StatusSwitchingProtocols - toEnum 102 = StatusProcessing - toEnum 200 = StatusOk - toEnum 201 = StatusCreated - toEnum 202 = StatusAccepted - toEnum 203 = StatusNonAuthoritative - toEnum 204 = StatusNoContent - toEnum 205 = StatusResetContent - toEnum 206 = StatusPartialContent - toEnum 207 = StatusMultiStatus - toEnum 300 = StatusMultipleChoices - toEnum 301 = StatusMovedPermanently - toEnum 302 = StatusFound - toEnum 303 = StatusSeeOther - toEnum 304 = StatusNotModified - toEnum 305 = StatusUseProxy - toEnum 306 = StatusNotAppearingInThisProtocol - toEnum 307 = StatusTemporaryRedirect - toEnum 400 = StatusBadRequest - toEnum 401 = StatusUnauthorized - toEnum 402 = StatusPaymentRequired - toEnum 403 = StatusForbidden - toEnum 404 = StatusNotFound - toEnum 405 = StatusMethodNotAllowed - toEnum 406 = StatusNotAcceptable - toEnum 407 = StatusProxyAuthenticationRequired - toEnum 408 = StatusRequestTimeout - toEnum 409 = StatusConflict - toEnum 410 = StatusGone - toEnum 411 = StatusLengthRequired - toEnum 412 = StatusPreconditionFailed - toEnum 413 = StatusRequestEntityTooLarge - toEnum 414 = StatusRequestUriTooLong - toEnum 415 = StatusUnsupportedMediaType - toEnum 416 = StatusRequestedRangeNotSatisfiable - toEnum 417 = StatusExpectationFailed - toEnum 422 = StatusUnprocessableEntity - toEnum 423 = StatusLocked - toEnum 424 = StatusFailedDependency - toEnum 500 = StatusInternalServerError - toEnum 501 = StatusNotImplemented - toEnum 502 = StatusBadGateway - toEnum 503 = StatusServiceUnavailable - toEnum 504 = StatusGatewayTimeout - toEnum 505 = StatusHttpVersionNotSupported - toEnum 507 = StatusInsufficientStorage - toEnum 510 = StatusNotExtended - toEnum k = AnotherStatus k - -foreign import ccall "soup_status_get_type" c_soup_status_get_type :: - IO GType - -instance BoxedEnum Status where - boxedEnumType _ = c_soup_status_get_type - --- Enum SocketIOStatus - -data SocketIOStatus = - SocketIOStatusOk - | SocketIOStatusWouldBlock - | SocketIOStatusEof - | SocketIOStatusError - | AnotherSocketIOStatus Int - deriving (Show, Eq) - -instance Enum SocketIOStatus where - fromEnum SocketIOStatusOk = 0 - fromEnum SocketIOStatusWouldBlock = 1 - fromEnum SocketIOStatusEof = 2 - fromEnum SocketIOStatusError = 3 - fromEnum (AnotherSocketIOStatus k) = k - - toEnum 0 = SocketIOStatusOk - toEnum 1 = SocketIOStatusWouldBlock - toEnum 2 = SocketIOStatusEof - toEnum 3 = SocketIOStatusError - toEnum k = AnotherSocketIOStatus k - -foreign import ccall "soup_socket_io_status_get_type" c_soup_socket_io_status_get_type :: - IO GType - -instance BoxedEnum SocketIOStatus where - boxedEnumType _ = c_soup_socket_io_status_get_type - --- Enum RequesterError - -data RequesterError = - RequesterErrorBadUri - | RequesterErrorUnsupportedUriScheme - | AnotherRequesterError Int - deriving (Show, Eq) - -instance Enum RequesterError where - fromEnum RequesterErrorBadUri = 0 - fromEnum RequesterErrorUnsupportedUriScheme = 1 - fromEnum (AnotherRequesterError k) = k - - toEnum 0 = RequesterErrorBadUri - toEnum 1 = RequesterErrorUnsupportedUriScheme - toEnum k = AnotherRequesterError k - -instance GErrorClass RequesterError where - gerrorClassDomain _ = "soup_requester_error_quark" - -catchRequesterError :: - IO a -> - (RequesterError -> GErrorMessage -> IO a) -> - IO a -catchRequesterError = catchGErrorJustDomain - -handleRequesterError :: - (RequesterError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleRequesterError = handleGErrorJustDomain - -foreign import ccall "soup_requester_error_get_type" c_soup_requester_error_get_type :: - IO GType - -instance BoxedEnum RequesterError where - boxedEnumType _ = c_soup_requester_error_get_type - --- Enum RequestError - -data RequestError = - RequestErrorBadUri - | RequestErrorUnsupportedUriScheme - | RequestErrorParsing - | RequestErrorEncoding - | AnotherRequestError Int - deriving (Show, Eq) - -instance Enum RequestError where - fromEnum RequestErrorBadUri = 0 - fromEnum RequestErrorUnsupportedUriScheme = 1 - fromEnum RequestErrorParsing = 2 - fromEnum RequestErrorEncoding = 3 - fromEnum (AnotherRequestError k) = k - - toEnum 0 = RequestErrorBadUri - toEnum 1 = RequestErrorUnsupportedUriScheme - toEnum 2 = RequestErrorParsing - toEnum 3 = RequestErrorEncoding - toEnum k = AnotherRequestError k - -instance GErrorClass RequestError where - gerrorClassDomain _ = "soup_request_error_quark" - -catchRequestError :: - IO a -> - (RequestError -> GErrorMessage -> IO a) -> - IO a -catchRequestError = catchGErrorJustDomain - -handleRequestError :: - (RequestError -> GErrorMessage -> IO a) -> - IO a -> - IO a -handleRequestError = handleGErrorJustDomain - -foreign import ccall "soup_request_error_get_type" c_soup_request_error_get_type :: - IO GType - -instance BoxedEnum RequestError where - boxedEnumType _ = c_soup_request_error_get_type - --- Enum MessagePriority - -data MessagePriority = - MessagePriorityVeryLow - | MessagePriorityLow - | MessagePriorityNormal - | MessagePriorityHigh - | MessagePriorityVeryHigh - | AnotherMessagePriority Int - deriving (Show, Eq) - -instance Enum MessagePriority where - fromEnum MessagePriorityVeryLow = 0 - fromEnum MessagePriorityLow = 1 - fromEnum MessagePriorityNormal = 2 - fromEnum MessagePriorityHigh = 3 - fromEnum MessagePriorityVeryHigh = 4 - fromEnum (AnotherMessagePriority k) = k - - toEnum 0 = MessagePriorityVeryLow - toEnum 1 = MessagePriorityLow - toEnum 2 = MessagePriorityNormal - toEnum 3 = MessagePriorityHigh - toEnum 4 = MessagePriorityVeryHigh - toEnum k = AnotherMessagePriority k - -foreign import ccall "soup_message_priority_get_type" c_soup_message_priority_get_type :: - IO GType - -instance BoxedEnum MessagePriority where - boxedEnumType _ = c_soup_message_priority_get_type - --- Enum MessageHeadersType - -data MessageHeadersType = - MessageHeadersTypeRequest - | MessageHeadersTypeResponse - | MessageHeadersTypeMultipart - | AnotherMessageHeadersType Int - deriving (Show, Eq) - -instance Enum MessageHeadersType where - fromEnum MessageHeadersTypeRequest = 0 - fromEnum MessageHeadersTypeResponse = 1 - fromEnum MessageHeadersTypeMultipart = 2 - fromEnum (AnotherMessageHeadersType k) = k - - toEnum 0 = MessageHeadersTypeRequest - toEnum 1 = MessageHeadersTypeResponse - toEnum 2 = MessageHeadersTypeMultipart - toEnum k = AnotherMessageHeadersType k - -foreign import ccall "soup_message_headers_type_get_type" c_soup_message_headers_type_get_type :: - IO GType - -instance BoxedEnum MessageHeadersType where - boxedEnumType _ = c_soup_message_headers_type_get_type - --- Enum MemoryUse - -data MemoryUse = - MemoryUseStatic - | MemoryUseTake - | MemoryUseCopy - | MemoryUseTemporary - | AnotherMemoryUse Int - deriving (Show, Eq) - -instance Enum MemoryUse where - fromEnum MemoryUseStatic = 0 - fromEnum MemoryUseTake = 1 - fromEnum MemoryUseCopy = 2 - fromEnum MemoryUseTemporary = 3 - fromEnum (AnotherMemoryUse k) = k - - toEnum 0 = MemoryUseStatic - toEnum 1 = MemoryUseTake - toEnum 2 = MemoryUseCopy - toEnum 3 = MemoryUseTemporary - toEnum k = AnotherMemoryUse k - -foreign import ccall "soup_memory_use_get_type" c_soup_memory_use_get_type :: - IO GType - -instance BoxedEnum MemoryUse where - boxedEnumType _ = c_soup_memory_use_get_type - --- Enum LoggerLogLevel - -data LoggerLogLevel = - LoggerLogLevelNone - | LoggerLogLevelMinimal - | LoggerLogLevelHeaders - | LoggerLogLevelBody - | AnotherLoggerLogLevel Int - deriving (Show, Eq) - -instance Enum LoggerLogLevel where - fromEnum LoggerLogLevelNone = 0 - fromEnum LoggerLogLevelMinimal = 1 - fromEnum LoggerLogLevelHeaders = 2 - fromEnum LoggerLogLevelBody = 3 - fromEnum (AnotherLoggerLogLevel k) = k - - toEnum 0 = LoggerLogLevelNone - toEnum 1 = LoggerLogLevelMinimal - toEnum 2 = LoggerLogLevelHeaders - toEnum 3 = LoggerLogLevelBody - toEnum k = AnotherLoggerLogLevel k - -foreign import ccall "soup_logger_log_level_get_type" c_soup_logger_log_level_get_type :: - IO GType - -instance BoxedEnum LoggerLogLevel where - boxedEnumType _ = c_soup_logger_log_level_get_type - --- Enum KnownStatusCode - -data KnownStatusCode = - KnownStatusCodeNone - | KnownStatusCodeCancelled - | KnownStatusCodeCantResolve - | KnownStatusCodeCantResolveProxy - | KnownStatusCodeCantConnect - | KnownStatusCodeCantConnectProxy - | KnownStatusCodeSslFailed - | KnownStatusCodeIoError - | KnownStatusCodeMalformed - | KnownStatusCodeTryAgain - | KnownStatusCodeTooManyRedirects - | KnownStatusCodeTlsFailed - | KnownStatusCodeContinue - | KnownStatusCodeSwitchingProtocols - | KnownStatusCodeProcessing - | KnownStatusCodeOk - | KnownStatusCodeCreated - | KnownStatusCodeAccepted - | KnownStatusCodeNonAuthoritative - | KnownStatusCodeNoContent - | KnownStatusCodeResetContent - | KnownStatusCodePartialContent - | KnownStatusCodeMultiStatus - | KnownStatusCodeMultipleChoices - | KnownStatusCodeMovedPermanently - | KnownStatusCodeFound - | KnownStatusCodeMovedTemporarily - | KnownStatusCodeSeeOther - | KnownStatusCodeNotModified - | KnownStatusCodeUseProxy - | KnownStatusCodeNotAppearingInThisProtocol - | KnownStatusCodeTemporaryRedirect - | KnownStatusCodeBadRequest - | KnownStatusCodeUnauthorized - | KnownStatusCodePaymentRequired - | KnownStatusCodeForbidden - | KnownStatusCodeNotFound - | KnownStatusCodeMethodNotAllowed - | KnownStatusCodeNotAcceptable - | KnownStatusCodeProxyAuthenticationRequired - | KnownStatusCodeProxyUnauthorized - | KnownStatusCodeRequestTimeout - | KnownStatusCodeConflict - | KnownStatusCodeGone - | KnownStatusCodeLengthRequired - | KnownStatusCodePreconditionFailed - | KnownStatusCodeRequestEntityTooLarge - | KnownStatusCodeRequestUriTooLong - | KnownStatusCodeUnsupportedMediaType - | KnownStatusCodeRequestedRangeNotSatisfiable - | KnownStatusCodeInvalidRange - | KnownStatusCodeExpectationFailed - | KnownStatusCodeUnprocessableEntity - | KnownStatusCodeLocked - | KnownStatusCodeFailedDependency - | KnownStatusCodeInternalServerError - | KnownStatusCodeNotImplemented - | KnownStatusCodeBadGateway - | KnownStatusCodeServiceUnavailable - | KnownStatusCodeGatewayTimeout - | KnownStatusCodeHttpVersionNotSupported - | KnownStatusCodeInsufficientStorage - | KnownStatusCodeNotExtended - | AnotherKnownStatusCode Int - deriving (Show, Eq) - -instance Enum KnownStatusCode where - fromEnum KnownStatusCodeNone = 0 - fromEnum KnownStatusCodeCancelled = 1 - fromEnum KnownStatusCodeCantResolve = 2 - fromEnum KnownStatusCodeCantResolveProxy = 3 - fromEnum KnownStatusCodeCantConnect = 4 - fromEnum KnownStatusCodeCantConnectProxy = 5 - fromEnum KnownStatusCodeSslFailed = 6 - fromEnum KnownStatusCodeIoError = 7 - fromEnum KnownStatusCodeMalformed = 8 - fromEnum KnownStatusCodeTryAgain = 9 - fromEnum KnownStatusCodeTooManyRedirects = 10 - fromEnum KnownStatusCodeTlsFailed = 11 - fromEnum KnownStatusCodeContinue = 100 - fromEnum KnownStatusCodeSwitchingProtocols = 101 - fromEnum KnownStatusCodeProcessing = 102 - fromEnum KnownStatusCodeOk = 200 - fromEnum KnownStatusCodeCreated = 201 - fromEnum KnownStatusCodeAccepted = 202 - fromEnum KnownStatusCodeNonAuthoritative = 203 - fromEnum KnownStatusCodeNoContent = 204 - fromEnum KnownStatusCodeResetContent = 205 - fromEnum KnownStatusCodePartialContent = 206 - fromEnum KnownStatusCodeMultiStatus = 207 - fromEnum KnownStatusCodeMultipleChoices = 300 - fromEnum KnownStatusCodeMovedPermanently = 301 - fromEnum KnownStatusCodeFound = 302 - fromEnum KnownStatusCodeMovedTemporarily = 302 - fromEnum KnownStatusCodeSeeOther = 303 - fromEnum KnownStatusCodeNotModified = 304 - fromEnum KnownStatusCodeUseProxy = 305 - fromEnum KnownStatusCodeNotAppearingInThisProtocol = 306 - fromEnum KnownStatusCodeTemporaryRedirect = 307 - fromEnum KnownStatusCodeBadRequest = 400 - fromEnum KnownStatusCodeUnauthorized = 401 - fromEnum KnownStatusCodePaymentRequired = 402 - fromEnum KnownStatusCodeForbidden = 403 - fromEnum KnownStatusCodeNotFound = 404 - fromEnum KnownStatusCodeMethodNotAllowed = 405 - fromEnum KnownStatusCodeNotAcceptable = 406 - fromEnum KnownStatusCodeProxyAuthenticationRequired = 407 - fromEnum KnownStatusCodeProxyUnauthorized = 407 - fromEnum KnownStatusCodeRequestTimeout = 408 - fromEnum KnownStatusCodeConflict = 409 - fromEnum KnownStatusCodeGone = 410 - fromEnum KnownStatusCodeLengthRequired = 411 - fromEnum KnownStatusCodePreconditionFailed = 412 - fromEnum KnownStatusCodeRequestEntityTooLarge = 413 - fromEnum KnownStatusCodeRequestUriTooLong = 414 - fromEnum KnownStatusCodeUnsupportedMediaType = 415 - fromEnum KnownStatusCodeRequestedRangeNotSatisfiable = 416 - fromEnum KnownStatusCodeInvalidRange = 416 - fromEnum KnownStatusCodeExpectationFailed = 417 - fromEnum KnownStatusCodeUnprocessableEntity = 422 - fromEnum KnownStatusCodeLocked = 423 - fromEnum KnownStatusCodeFailedDependency = 424 - fromEnum KnownStatusCodeInternalServerError = 500 - fromEnum KnownStatusCodeNotImplemented = 501 - fromEnum KnownStatusCodeBadGateway = 502 - fromEnum KnownStatusCodeServiceUnavailable = 503 - fromEnum KnownStatusCodeGatewayTimeout = 504 - fromEnum KnownStatusCodeHttpVersionNotSupported = 505 - fromEnum KnownStatusCodeInsufficientStorage = 507 - fromEnum KnownStatusCodeNotExtended = 510 - fromEnum (AnotherKnownStatusCode k) = k - - toEnum 0 = KnownStatusCodeNone - toEnum 1 = KnownStatusCodeCancelled - toEnum 2 = KnownStatusCodeCantResolve - toEnum 3 = KnownStatusCodeCantResolveProxy - toEnum 4 = KnownStatusCodeCantConnect - toEnum 5 = KnownStatusCodeCantConnectProxy - toEnum 6 = KnownStatusCodeSslFailed - toEnum 7 = KnownStatusCodeIoError - toEnum 8 = KnownStatusCodeMalformed - toEnum 9 = KnownStatusCodeTryAgain - toEnum 10 = KnownStatusCodeTooManyRedirects - toEnum 11 = KnownStatusCodeTlsFailed - toEnum 100 = KnownStatusCodeContinue - toEnum 101 = KnownStatusCodeSwitchingProtocols - toEnum 102 = KnownStatusCodeProcessing - toEnum 200 = KnownStatusCodeOk - toEnum 201 = KnownStatusCodeCreated - toEnum 202 = KnownStatusCodeAccepted - toEnum 203 = KnownStatusCodeNonAuthoritative - toEnum 204 = KnownStatusCodeNoContent - toEnum 205 = KnownStatusCodeResetContent - toEnum 206 = KnownStatusCodePartialContent - toEnum 207 = KnownStatusCodeMultiStatus - toEnum 300 = KnownStatusCodeMultipleChoices - toEnum 301 = KnownStatusCodeMovedPermanently - toEnum 302 = KnownStatusCodeFound - toEnum 303 = KnownStatusCodeSeeOther - toEnum 304 = KnownStatusCodeNotModified - toEnum 305 = KnownStatusCodeUseProxy - toEnum 306 = KnownStatusCodeNotAppearingInThisProtocol - toEnum 307 = KnownStatusCodeTemporaryRedirect - toEnum 400 = KnownStatusCodeBadRequest - toEnum 401 = KnownStatusCodeUnauthorized - toEnum 402 = KnownStatusCodePaymentRequired - toEnum 403 = KnownStatusCodeForbidden - toEnum 404 = KnownStatusCodeNotFound - toEnum 405 = KnownStatusCodeMethodNotAllowed - toEnum 406 = KnownStatusCodeNotAcceptable - toEnum 407 = KnownStatusCodeProxyAuthenticationRequired - toEnum 408 = KnownStatusCodeRequestTimeout - toEnum 409 = KnownStatusCodeConflict - toEnum 410 = KnownStatusCodeGone - toEnum 411 = KnownStatusCodeLengthRequired - toEnum 412 = KnownStatusCodePreconditionFailed - toEnum 413 = KnownStatusCodeRequestEntityTooLarge - toEnum 414 = KnownStatusCodeRequestUriTooLong - toEnum 415 = KnownStatusCodeUnsupportedMediaType - toEnum 416 = KnownStatusCodeRequestedRangeNotSatisfiable - toEnum 417 = KnownStatusCodeExpectationFailed - toEnum 422 = KnownStatusCodeUnprocessableEntity - toEnum 423 = KnownStatusCodeLocked - toEnum 424 = KnownStatusCodeFailedDependency - toEnum 500 = KnownStatusCodeInternalServerError - toEnum 501 = KnownStatusCodeNotImplemented - toEnum 502 = KnownStatusCodeBadGateway - toEnum 503 = KnownStatusCodeServiceUnavailable - toEnum 504 = KnownStatusCodeGatewayTimeout - toEnum 505 = KnownStatusCodeHttpVersionNotSupported - toEnum 507 = KnownStatusCodeInsufficientStorage - toEnum 510 = KnownStatusCodeNotExtended - toEnum k = AnotherKnownStatusCode k - -foreign import ccall "soup_known_status_code_get_type" c_soup_known_status_code_get_type :: - IO GType - -instance BoxedEnum KnownStatusCode where - boxedEnumType _ = c_soup_known_status_code_get_type - --- Enum HTTPVersion - -data HTTPVersion = - HTTPVersionHttp10 - | HTTPVersionHttp11 - | AnotherHTTPVersion Int - deriving (Show, Eq) - -instance Enum HTTPVersion where - fromEnum HTTPVersionHttp10 = 0 - fromEnum HTTPVersionHttp11 = 1 - fromEnum (AnotherHTTPVersion k) = k - - toEnum 0 = HTTPVersionHttp10 - toEnum 1 = HTTPVersionHttp11 - toEnum k = AnotherHTTPVersion k - -foreign import ccall "soup_http_version_get_type" c_soup_http_version_get_type :: - IO GType - -instance BoxedEnum HTTPVersion where - boxedEnumType _ = c_soup_http_version_get_type - --- Enum Encoding - -data Encoding = - EncodingUnrecognized - | EncodingNone - | EncodingContentLength - | EncodingEof - | EncodingChunked - | EncodingByteranges - | AnotherEncoding Int - deriving (Show, Eq) - -instance Enum Encoding where - fromEnum EncodingUnrecognized = 0 - fromEnum EncodingNone = 1 - fromEnum EncodingContentLength = 2 - fromEnum EncodingEof = 3 - fromEnum EncodingChunked = 4 - fromEnum EncodingByteranges = 5 - fromEnum (AnotherEncoding k) = k - - toEnum 0 = EncodingUnrecognized - toEnum 1 = EncodingNone - toEnum 2 = EncodingContentLength - toEnum 3 = EncodingEof - toEnum 4 = EncodingChunked - toEnum 5 = EncodingByteranges - toEnum k = AnotherEncoding k - -foreign import ccall "soup_encoding_get_type" c_soup_encoding_get_type :: - IO GType - -instance BoxedEnum Encoding where - boxedEnumType _ = c_soup_encoding_get_type - --- Enum DateFormat - -data DateFormat = - DateFormatHttp - | DateFormatCookie - | DateFormatRfc2822 - | DateFormatIso8601Compact - | DateFormatIso8601Full - | DateFormatIso8601 - | DateFormatIso8601Xmlrpc - | AnotherDateFormat Int - deriving (Show, Eq) - -instance Enum DateFormat where - fromEnum DateFormatHttp = 1 - fromEnum DateFormatCookie = 2 - fromEnum DateFormatRfc2822 = 3 - fromEnum DateFormatIso8601Compact = 4 - fromEnum DateFormatIso8601Full = 5 - fromEnum DateFormatIso8601 = 5 - fromEnum DateFormatIso8601Xmlrpc = 6 - fromEnum (AnotherDateFormat k) = k - - toEnum 1 = DateFormatHttp - toEnum 2 = DateFormatCookie - toEnum 3 = DateFormatRfc2822 - toEnum 4 = DateFormatIso8601Compact - toEnum 5 = DateFormatIso8601Full - toEnum 6 = DateFormatIso8601Xmlrpc - toEnum k = AnotherDateFormat k - -foreign import ccall "soup_date_format_get_type" c_soup_date_format_get_type :: - IO GType - -instance BoxedEnum DateFormat where - boxedEnumType _ = c_soup_date_format_get_type - --- Enum CookieJarAcceptPolicy - -data CookieJarAcceptPolicy = - CookieJarAcceptPolicyAlways - | CookieJarAcceptPolicyNever - | CookieJarAcceptPolicyNoThirdParty - | AnotherCookieJarAcceptPolicy Int - deriving (Show, Eq) - -instance Enum CookieJarAcceptPolicy where - fromEnum CookieJarAcceptPolicyAlways = 0 - fromEnum CookieJarAcceptPolicyNever = 1 - fromEnum CookieJarAcceptPolicyNoThirdParty = 2 - fromEnum (AnotherCookieJarAcceptPolicy k) = k - - toEnum 0 = CookieJarAcceptPolicyAlways - toEnum 1 = CookieJarAcceptPolicyNever - toEnum 2 = CookieJarAcceptPolicyNoThirdParty - toEnum k = AnotherCookieJarAcceptPolicy k - -foreign import ccall "soup_cookie_jar_accept_policy_get_type" c_soup_cookie_jar_accept_policy_get_type :: - IO GType - -instance BoxedEnum CookieJarAcceptPolicy where - boxedEnumType _ = c_soup_cookie_jar_accept_policy_get_type - --- Enum ConnectionState - -data ConnectionState = - ConnectionStateNew - | ConnectionStateConnecting - | ConnectionStateIdle - | ConnectionStateInUse - | ConnectionStateRemoteDisconnected - | ConnectionStateDisconnected - | AnotherConnectionState Int - deriving (Show, Eq) - -instance Enum ConnectionState where - fromEnum ConnectionStateNew = 0 - fromEnum ConnectionStateConnecting = 1 - fromEnum ConnectionStateIdle = 2 - fromEnum ConnectionStateInUse = 3 - fromEnum ConnectionStateRemoteDisconnected = 4 - fromEnum ConnectionStateDisconnected = 5 - fromEnum (AnotherConnectionState k) = k - - toEnum 0 = ConnectionStateNew - toEnum 1 = ConnectionStateConnecting - toEnum 2 = ConnectionStateIdle - toEnum 3 = ConnectionStateInUse - toEnum 4 = ConnectionStateRemoteDisconnected - toEnum 5 = ConnectionStateDisconnected - toEnum k = AnotherConnectionState k - -foreign import ccall "soup_connection_state_get_type" c_soup_connection_state_get_type :: - IO GType - -instance BoxedEnum ConnectionState where - boxedEnumType _ = c_soup_connection_state_get_type - --- Enum CacheType - -data CacheType = - CacheTypeSingleUser - | CacheTypeShared - | AnotherCacheType Int - deriving (Show, Eq) - -instance Enum CacheType where - fromEnum CacheTypeSingleUser = 0 - fromEnum CacheTypeShared = 1 - fromEnum (AnotherCacheType k) = k - - toEnum 0 = CacheTypeSingleUser - toEnum 1 = CacheTypeShared - toEnum k = AnotherCacheType k - -foreign import ccall "soup_cache_type_get_type" c_soup_cache_type_get_type :: - IO GType - -instance BoxedEnum CacheType where - boxedEnumType _ = c_soup_cache_type_get_type - --- Enum CacheResponse - -data CacheResponse = - CacheResponseFresh - | CacheResponseNeedsValidation - | CacheResponseStale - | AnotherCacheResponse Int - deriving (Show, Eq) - -instance Enum CacheResponse where - fromEnum CacheResponseFresh = 0 - fromEnum CacheResponseNeedsValidation = 1 - fromEnum CacheResponseStale = 2 - fromEnum (AnotherCacheResponse k) = k - - toEnum 0 = CacheResponseFresh - toEnum 1 = CacheResponseNeedsValidation - toEnum 2 = CacheResponseStale - toEnum k = AnotherCacheResponse k - -foreign import ccall "soup_cache_response_get_type" c_soup_cache_response_get_type :: - IO GType - -instance BoxedEnum CacheResponse where - boxedEnumType _ = c_soup_cache_response_get_type - --- Enum AddressFamily - -data AddressFamily = - AddressFamilyInvalid - | AddressFamilyIpv4 - | AddressFamilyIpv6 - | AnotherAddressFamily Int - deriving (Show, Eq) - -instance Enum AddressFamily where - fromEnum AddressFamilyInvalid = -1 - fromEnum AddressFamilyIpv4 = 2 - fromEnum AddressFamilyIpv6 = 10 - fromEnum (AnotherAddressFamily k) = k - - toEnum -1 = AddressFamilyInvalid - toEnum 2 = AddressFamilyIpv4 - toEnum 10 = AddressFamilyIpv6 - toEnum k = AnotherAddressFamily k - -foreign import ccall "soup_address_family_get_type" c_soup_address_family_get_type :: - IO GType - -instance BoxedEnum AddressFamily where - boxedEnumType _ = c_soup_address_family_get_type - - diff --git a/GI/Soup/Flags.hs b/GI/Soup/Flags.hs deleted file mode 100644 --- a/GI/Soup/Flags.hs +++ /dev/null @@ -1,157 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Flags - ( - --- * Exported types - ServerListenOptions(..) , - MessageFlags(..) , - Expectation(..) , - Cacheability(..) , - - - ) 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 - - - - --- Flags ServerListenOptions - -data ServerListenOptions = - ServerListenOptionsHttps - | ServerListenOptionsIpv4Only - | ServerListenOptionsIpv6Only - | AnotherServerListenOptions Int - deriving (Show, Eq) - -instance Enum ServerListenOptions where - fromEnum ServerListenOptionsHttps = 1 - fromEnum ServerListenOptionsIpv4Only = 2 - fromEnum ServerListenOptionsIpv6Only = 4 - fromEnum (AnotherServerListenOptions k) = k - - toEnum 1 = ServerListenOptionsHttps - toEnum 2 = ServerListenOptionsIpv4Only - toEnum 4 = ServerListenOptionsIpv6Only - toEnum k = AnotherServerListenOptions k - -foreign import ccall "soup_server_listen_options_get_type" c_soup_server_listen_options_get_type :: - IO GType - -instance BoxedEnum ServerListenOptions where - boxedEnumType _ = c_soup_server_listen_options_get_type - -instance IsGFlag ServerListenOptions - --- Flags MessageFlags - -data MessageFlags = - MessageFlagsNoRedirect - | MessageFlagsCanRebuild - | MessageFlagsOverwriteChunks - | MessageFlagsContentDecoded - | MessageFlagsCertificateTrusted - | MessageFlagsNewConnection - | MessageFlagsIdempotent - | MessageFlagsIgnoreConnectionLimits - | AnotherMessageFlags Int - deriving (Show, Eq) - -instance Enum MessageFlags where - fromEnum MessageFlagsNoRedirect = 2 - fromEnum MessageFlagsCanRebuild = 4 - fromEnum MessageFlagsOverwriteChunks = 8 - fromEnum MessageFlagsContentDecoded = 16 - fromEnum MessageFlagsCertificateTrusted = 32 - fromEnum MessageFlagsNewConnection = 64 - fromEnum MessageFlagsIdempotent = 128 - fromEnum MessageFlagsIgnoreConnectionLimits = 256 - fromEnum (AnotherMessageFlags k) = k - - toEnum 2 = MessageFlagsNoRedirect - toEnum 4 = MessageFlagsCanRebuild - toEnum 8 = MessageFlagsOverwriteChunks - toEnum 16 = MessageFlagsContentDecoded - toEnum 32 = MessageFlagsCertificateTrusted - toEnum 64 = MessageFlagsNewConnection - toEnum 128 = MessageFlagsIdempotent - toEnum 256 = MessageFlagsIgnoreConnectionLimits - toEnum k = AnotherMessageFlags k - -foreign import ccall "soup_message_flags_get_type" c_soup_message_flags_get_type :: - IO GType - -instance BoxedEnum MessageFlags where - boxedEnumType _ = c_soup_message_flags_get_type - -instance IsGFlag MessageFlags - --- Flags Expectation - -data Expectation = - ExpectationUnrecognized - | ExpectationContinue - | AnotherExpectation Int - deriving (Show, Eq) - -instance Enum Expectation where - fromEnum ExpectationUnrecognized = 1 - fromEnum ExpectationContinue = 2 - fromEnum (AnotherExpectation k) = k - - toEnum 1 = ExpectationUnrecognized - toEnum 2 = ExpectationContinue - toEnum k = AnotherExpectation k - -foreign import ccall "soup_expectation_get_type" c_soup_expectation_get_type :: - IO GType - -instance BoxedEnum Expectation where - boxedEnumType _ = c_soup_expectation_get_type - -instance IsGFlag Expectation - --- Flags Cacheability - -data Cacheability = - CacheabilityCacheable - | CacheabilityUncacheable - | CacheabilityInvalidates - | CacheabilityValidates - | AnotherCacheability Int - deriving (Show, Eq) - -instance Enum Cacheability where - fromEnum CacheabilityCacheable = 1 - fromEnum CacheabilityUncacheable = 2 - fromEnum CacheabilityInvalidates = 4 - fromEnum CacheabilityValidates = 8 - fromEnum (AnotherCacheability k) = k - - toEnum 1 = CacheabilityCacheable - toEnum 2 = CacheabilityUncacheable - toEnum 4 = CacheabilityInvalidates - toEnum 8 = CacheabilityValidates - toEnum k = AnotherCacheability k - -foreign import ccall "soup_cacheability_get_type" c_soup_cacheability_get_type :: - IO GType - -instance BoxedEnum Cacheability where - boxedEnumType _ = c_soup_cacheability_get_type - -instance IsGFlag Cacheability - - diff --git a/GI/Soup/Functions.hs b/GI/Soup/Functions.hs deleted file mode 100644 --- a/GI/Soup/Functions.hs +++ /dev/null @@ -1,1804 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Functions - ( - - -- * Methods --- ** cookieParse - cookieParse , - - --- ** cookiesFromRequest - cookiesFromRequest , - - --- ** cookiesFromResponse - cookiesFromResponse , - - --- ** cookiesToCookieHeader - cookiesToCookieHeader , - - --- ** cookiesToRequest - cookiesToRequest , - - --- ** cookiesToResponse - cookiesToResponse , - - --- ** formDecode - formDecode , - - --- ** formDecodeMultipart - formDecodeMultipart , - - --- ** formEncodeDatalist - formEncodeDatalist , - - --- ** formEncodeHash - formEncodeHash , - - --- ** formRequestNewFromDatalist - formRequestNewFromDatalist , - - --- ** formRequestNewFromHash - formRequestNewFromHash , - - --- ** formRequestNewFromMultipart - formRequestNewFromMultipart , - - --- ** headerContains - headerContains , - - --- ** headerFreeParamList - headerFreeParamList , - - --- ** headerGStringAppendParam - headerGStringAppendParam , - - --- ** headerGStringAppendParamQuoted - headerGStringAppendParamQuoted , - - --- ** headerParseList - headerParseList , - - --- ** headerParseParamList - headerParseParamList , - - --- ** headerParseQualityList - headerParseQualityList , - - --- ** headerParseSemiParamList - headerParseSemiParamList , - - --- ** headersParse - headersParse , - - --- ** headersParseRequest - headersParseRequest , - - --- ** headersParseResponse - headersParseResponse , - - --- ** headersParseStatusLine - headersParseStatusLine , - - --- ** httpErrorQuark - httpErrorQuark , - - --- ** messageHeadersIterInit - messageHeadersIterInit , - - --- ** requestErrorQuark - requestErrorQuark , - - --- ** requesterErrorQuark - requesterErrorQuark , - - --- ** statusGetPhrase - statusGetPhrase , - - --- ** statusProxify - statusProxify , - - --- ** strCaseEqual - strCaseEqual , - - --- ** strCaseHash - strCaseHash , - - --- ** tldDomainIsPublicSuffix - tldDomainIsPublicSuffix , - - --- ** tldErrorQuark - tldErrorQuark , - - --- ** tldGetBaseDomain - tldGetBaseDomain , - - --- ** uriDecode - uriDecode , - - --- ** uriEncode - uriEncode , - - --- ** uriNormalize - uriNormalize , - - --- ** valueArrayNew - valueArrayNew , - - --- ** websocketClientPrepareHandshake - websocketClientPrepareHandshake , - - --- ** websocketClientVerifyHandshake - websocketClientVerifyHandshake , - - --- ** websocketErrorGetQuark - websocketErrorGetQuark , - - --- ** websocketServerCheckHandshake - websocketServerCheckHandshake , - - --- ** websocketServerProcessHandshake - websocketServerProcessHandshake , - - --- ** xmlrpcBuildMethodCall - xmlrpcBuildMethodCall , - - --- ** xmlrpcBuildMethodResponse - xmlrpcBuildMethodResponse , - - --- ** xmlrpcErrorQuark - xmlrpcErrorQuark , - - --- ** xmlrpcFaultQuark - xmlrpcFaultQuark , - - --- ** xmlrpcParseMethodCall - xmlrpcParseMethodCall , - - --- ** xmlrpcParseMethodResponse - xmlrpcParseMethodResponse , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - --- function soup_xmlrpc_parse_method_response --- Args : [Arg {argName = "method_response", argType = TBasicType TUTF8, 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},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "method_response", argType = TBasicType TUTF8, 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 TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_xmlrpc_parse_method_response" soup_xmlrpc_parse_method_response :: - CString -> -- method_response : TBasicType TUTF8 - Int32 -> -- length : TBasicType TInt32 - Ptr GValue -> -- value : TInterface "GObject" "Value" - Ptr (Ptr GError) -> -- error - IO CInt - - -xmlrpcParseMethodResponse :: - (MonadIO m) => - T.Text -> -- method_response - Int32 -> -- length - m (GValue) -xmlrpcParseMethodResponse method_response length_ = liftIO $ do - method_response' <- textToCString method_response - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - onException (do - _ <- propagateGError $ soup_xmlrpc_parse_method_response method_response' length_ value - value' <- (wrapBoxed GValue) value - freeMem method_response' - return value' - ) (do - freeMem method_response' - freeMem value - ) - - --- function soup_xmlrpc_parse_method_call --- Args : [Arg {argName = "method_call", argType = TBasicType TUTF8, 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},Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "method_call", argType = TBasicType TUTF8, 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 TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_xmlrpc_parse_method_call" soup_xmlrpc_parse_method_call :: - CString -> -- method_call : TBasicType TUTF8 - Int32 -> -- length : TBasicType TInt32 - Ptr CString -> -- method_name : TBasicType TUTF8 - Ptr GObject.ValueArray -> -- params : TInterface "GObject" "ValueArray" - IO CInt - - -xmlrpcParseMethodCall :: - (MonadIO m) => - T.Text -> -- method_call - Int32 -> -- length - m (Bool,T.Text,GObject.ValueArray) -xmlrpcParseMethodCall method_call length_ = liftIO $ do - method_call' <- textToCString method_call - method_name <- allocMem :: IO (Ptr CString) - params <- callocBoxedBytes 24 :: IO (Ptr GObject.ValueArray) - result <- soup_xmlrpc_parse_method_call method_call' length_ method_name params - let result' = (/= 0) result - method_name' <- peek method_name - method_name'' <- cstringToText method_name' - freeMem method_name' - params' <- (wrapBoxed GObject.ValueArray) params - freeMem method_call' - freeMem method_name - return (result', method_name'', params') - - --- function soup_xmlrpc_fault_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_xmlrpc_fault_quark" soup_xmlrpc_fault_quark :: - IO Word32 - - -xmlrpcFaultQuark :: - (MonadIO m) => - m Word32 -xmlrpcFaultQuark = liftIO $ do - result <- soup_xmlrpc_fault_quark - return result - - --- function soup_xmlrpc_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_xmlrpc_error_quark" soup_xmlrpc_error_quark :: - IO Word32 - - -xmlrpcErrorQuark :: - (MonadIO m) => - m Word32 -xmlrpcErrorQuark = liftIO $ do - result <- soup_xmlrpc_error_quark - return result - - --- function soup_xmlrpc_build_method_response --- Args : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_xmlrpc_build_method_response" soup_xmlrpc_build_method_response :: - Ptr GValue -> -- value : TInterface "GObject" "Value" - IO CString - - -xmlrpcBuildMethodResponse :: - (MonadIO m) => - GValue -> -- value - m T.Text -xmlrpcBuildMethodResponse value = liftIO $ do - let value' = unsafeManagedPtrGetPtr value - result <- soup_xmlrpc_build_method_response value' - checkUnexpectedReturnNULL "soup_xmlrpc_build_method_response" result - result' <- cstringToText result - freeMem result - touchManagedPtr value - return result' - - --- function soup_xmlrpc_build_method_call --- Args : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "n_params", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_xmlrpc_build_method_call" soup_xmlrpc_build_method_call :: - CString -> -- method_name : TBasicType TUTF8 - Ptr GValue -> -- params : TCArray False (-1) 2 (TInterface "GObject" "Value") - Int32 -> -- n_params : TBasicType TInt32 - IO CString - - -xmlrpcBuildMethodCall :: - (MonadIO m) => - T.Text -> -- method_name - [GValue] -> -- params - m T.Text -xmlrpcBuildMethodCall method_name params = liftIO $ do - let n_params = fromIntegral $ length params - method_name' <- textToCString method_name - let params' = map unsafeManagedPtrGetPtr params - params'' <- packBlockArray 24 params' - result <- soup_xmlrpc_build_method_call method_name' params'' n_params - checkUnexpectedReturnNULL "soup_xmlrpc_build_method_call" result - result' <- cstringToText result - freeMem result - mapM_ touchManagedPtr params - freeMem method_name' - freeMem params'' - return result' - - --- function soup_websocket_server_process_handshake --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_server_process_handshake" soup_websocket_server_process_handshake :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- origin : TBasicType TUTF8 - Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) - IO CInt - - -websocketServerProcessHandshake :: - (MonadIO m, MessageK a) => - a -> -- msg - Maybe (T.Text) -> -- origin - Maybe ([T.Text]) -> -- protocols - m Bool -websocketServerProcessHandshake msg origin protocols = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - maybeOrigin <- case origin of - Nothing -> return nullPtr - Just jOrigin -> do - jOrigin' <- textToCString jOrigin - return jOrigin' - maybeProtocols <- case protocols of - Nothing -> return nullPtr - Just jProtocols -> do - jProtocols' <- packZeroTerminatedUTF8CArray jProtocols - return jProtocols' - result <- soup_websocket_server_process_handshake msg' maybeOrigin maybeProtocols - let result' = (/= 0) result - touchManagedPtr msg - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return result' - - --- function soup_websocket_server_check_handshake --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_websocket_server_check_handshake" soup_websocket_server_check_handshake :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- origin : TBasicType TUTF8 - Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr (Ptr GError) -> -- error - IO CInt - - -websocketServerCheckHandshake :: - (MonadIO m, MessageK a) => - a -> -- msg - Maybe (T.Text) -> -- origin - Maybe ([T.Text]) -> -- protocols - m () -websocketServerCheckHandshake msg origin protocols = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - maybeOrigin <- case origin of - Nothing -> return nullPtr - Just jOrigin -> do - jOrigin' <- textToCString jOrigin - return jOrigin' - maybeProtocols <- case protocols of - Nothing -> return nullPtr - Just jProtocols -> do - jProtocols' <- packZeroTerminatedUTF8CArray jProtocols - return jProtocols' - onException (do - _ <- propagateGError $ soup_websocket_server_check_handshake msg' maybeOrigin maybeProtocols - touchManagedPtr msg - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return () - ) (do - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - ) - - --- function soup_websocket_error_get_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_error_get_quark" soup_websocket_error_get_quark :: - IO Word32 - - -websocketErrorGetQuark :: - (MonadIO m) => - m Word32 -websocketErrorGetQuark = liftIO $ do - result <- soup_websocket_error_get_quark - return result - - --- function soup_websocket_client_verify_handshake --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_websocket_client_verify_handshake" soup_websocket_client_verify_handshake :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - Ptr (Ptr GError) -> -- error - IO CInt - - -websocketClientVerifyHandshake :: - (MonadIO m, MessageK a) => - a -> -- msg - m () -websocketClientVerifyHandshake msg = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - onException (do - _ <- propagateGError $ soup_websocket_client_verify_handshake msg' - touchManagedPtr msg - return () - ) (do - return () - ) - - --- function soup_websocket_client_prepare_handshake --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (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_websocket_client_prepare_handshake" soup_websocket_client_prepare_handshake :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- origin : TBasicType TUTF8 - Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) - IO () - - -websocketClientPrepareHandshake :: - (MonadIO m, MessageK a) => - a -> -- msg - Maybe (T.Text) -> -- origin - Maybe ([T.Text]) -> -- protocols - m () -websocketClientPrepareHandshake msg origin protocols = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - maybeOrigin <- case origin of - Nothing -> return nullPtr - Just jOrigin -> do - jOrigin' <- textToCString jOrigin - return jOrigin' - maybeProtocols <- case protocols of - Nothing -> return nullPtr - Just jProtocols -> do - jProtocols' <- packZeroTerminatedUTF8CArray jProtocols - return jProtocols' - soup_websocket_client_prepare_handshake msg' maybeOrigin maybeProtocols - touchManagedPtr msg - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return () - - --- function soup_value_hash_new --- XXX Could not generate function soup_value_hash_new --- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported." - --- function soup_value_hash_insert_value --- XXX Could not generate function soup_value_hash_insert_value --- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported." - --- function soup_value_array_new --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "GObject" "ValueArray" --- throws : False --- Skip return : False - -foreign import ccall "soup_value_array_new" soup_value_array_new :: - IO (Ptr GObject.ValueArray) - - -valueArrayNew :: - (MonadIO m) => - m GObject.ValueArray -valueArrayNew = liftIO $ do - result <- soup_value_array_new - checkUnexpectedReturnNULL "soup_value_array_new" result - result' <- (wrapBoxed GObject.ValueArray) result - return result' - - --- function soup_uri_normalize --- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unescape_extra", 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_uri_normalize" soup_uri_normalize :: - CString -> -- part : TBasicType TUTF8 - CString -> -- unescape_extra : TBasicType TUTF8 - IO CString - - -uriNormalize :: - (MonadIO m) => - T.Text -> -- part - T.Text -> -- unescape_extra - m T.Text -uriNormalize part unescape_extra = liftIO $ do - part' <- textToCString part - unescape_extra' <- textToCString unescape_extra - result <- soup_uri_normalize part' unescape_extra' - checkUnexpectedReturnNULL "soup_uri_normalize" result - result' <- cstringToText result - freeMem result - freeMem part' - freeMem unescape_extra' - return result' - - --- function soup_uri_encode --- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_encode" soup_uri_encode :: - CString -> -- part : TBasicType TUTF8 - CString -> -- escape_extra : TBasicType TUTF8 - IO CString - - -uriEncode :: - (MonadIO m) => - T.Text -> -- part - Maybe (T.Text) -> -- escape_extra - m T.Text -uriEncode part escape_extra = liftIO $ do - part' <- textToCString part - maybeEscape_extra <- case escape_extra of - Nothing -> return nullPtr - Just jEscape_extra -> do - jEscape_extra' <- textToCString jEscape_extra - return jEscape_extra' - result <- soup_uri_encode part' maybeEscape_extra - checkUnexpectedReturnNULL "soup_uri_encode" result - result' <- cstringToText result - freeMem result - freeMem part' - freeMem maybeEscape_extra - return result' - - --- function soup_uri_decode --- Args : [Arg {argName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "part", 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_uri_decode" soup_uri_decode :: - CString -> -- part : TBasicType TUTF8 - IO CString - - -uriDecode :: - (MonadIO m) => - T.Text -> -- part - m T.Text -uriDecode part = liftIO $ do - part' <- textToCString part - result <- soup_uri_decode part' - checkUnexpectedReturnNULL "soup_uri_decode" result - result' <- cstringToText result - freeMem result - freeMem part' - return result' - - --- function soup_tld_get_base_domain --- Args : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : True --- Skip return : False - -foreign import ccall "soup_tld_get_base_domain" soup_tld_get_base_domain :: - CString -> -- hostname : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CString - - -tldGetBaseDomain :: - (MonadIO m) => - T.Text -> -- hostname - m T.Text -tldGetBaseDomain hostname = liftIO $ do - hostname' <- textToCString hostname - onException (do - result <- propagateGError $ soup_tld_get_base_domain hostname' - checkUnexpectedReturnNULL "soup_tld_get_base_domain" result - result' <- cstringToText result - freeMem hostname' - return result' - ) (do - freeMem hostname' - ) - - --- function soup_tld_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_tld_error_quark" soup_tld_error_quark :: - IO Word32 - - -tldErrorQuark :: - (MonadIO m) => - m Word32 -tldErrorQuark = liftIO $ do - result <- soup_tld_error_quark - return result - - --- function soup_tld_domain_is_public_suffix --- Args : [Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "domain", 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_tld_domain_is_public_suffix" soup_tld_domain_is_public_suffix :: - CString -> -- domain : TBasicType TUTF8 - IO CInt - - -tldDomainIsPublicSuffix :: - (MonadIO m) => - T.Text -> -- domain - m Bool -tldDomainIsPublicSuffix domain = liftIO $ do - domain' <- textToCString domain - result <- soup_tld_domain_is_public_suffix domain' - let result' = (/= 0) result - freeMem domain' - return result' - - --- function soup_str_case_hash --- Args : [Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "key", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_str_case_hash" soup_str_case_hash :: - Ptr () -> -- key : TBasicType TVoid - IO Word32 - - -strCaseHash :: - (MonadIO m) => - Ptr () -> -- key - m Word32 -strCaseHash key = liftIO $ do - result <- soup_str_case_hash key - return result - - --- function soup_str_case_equal --- Args : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "v1", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_str_case_equal" soup_str_case_equal :: - Ptr () -> -- v1 : TBasicType TVoid - Ptr () -> -- v2 : TBasicType TVoid - IO CInt - - -strCaseEqual :: - (MonadIO m) => - Ptr () -> -- v1 - Ptr () -> -- v2 - m Bool -strCaseEqual v1 v2 = liftIO $ do - result <- soup_str_case_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function soup_status_proxify --- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_status_proxify" soup_status_proxify :: - Word32 -> -- status_code : TBasicType TUInt32 - IO Word32 - - -statusProxify :: - (MonadIO m) => - Word32 -> -- status_code - m Word32 -statusProxify status_code = liftIO $ do - result <- soup_status_proxify status_code - return result - - --- function soup_status_get_phrase --- Args : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_status_get_phrase" soup_status_get_phrase :: - Word32 -> -- status_code : TBasicType TUInt32 - IO CString - - -statusGetPhrase :: - (MonadIO m) => - Word32 -> -- status_code - m T.Text -statusGetPhrase status_code = liftIO $ do - result <- soup_status_get_phrase status_code - checkUnexpectedReturnNULL "soup_status_get_phrase" result - result' <- cstringToText result - return result' - - --- function soup_requester_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_requester_error_quark" soup_requester_error_quark :: - IO Word32 - - -requesterErrorQuark :: - (MonadIO m) => - m Word32 -requesterErrorQuark = liftIO $ do - result <- soup_requester_error_quark - return result - - --- function soup_request_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_request_error_quark" soup_request_error_quark :: - IO Word32 - - -requestErrorQuark :: - (MonadIO m) => - m Word32 -requestErrorQuark = liftIO $ do - result <- soup_request_error_quark - return result - - --- function soup_message_headers_iter_init --- Args : [Arg {argName = "iter", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "hdrs", 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_iter_init" soup_message_headers_iter_init :: - Ptr MessageHeadersIter -> -- iter : TInterface "Soup" "MessageHeadersIter" - Ptr MessageHeaders -> -- hdrs : TInterface "Soup" "MessageHeaders" - IO () - - -messageHeadersIterInit :: - (MonadIO m) => - MessageHeaders -> -- hdrs - m (MessageHeadersIter) -messageHeadersIterInit hdrs = liftIO $ do - iter <- callocBytes 24 :: IO (Ptr MessageHeadersIter) - let hdrs' = unsafeManagedPtrGetPtr hdrs - soup_message_headers_iter_init iter hdrs' - iter' <- (wrapPtr MessageHeadersIter) iter - touchManagedPtr hdrs - return iter' - - --- function soup_http_error_quark --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_http_error_quark" soup_http_error_quark :: - IO Word32 - - -httpErrorQuark :: - (MonadIO m) => - m Word32 -httpErrorQuark = liftIO $ do - result <- soup_http_error_quark - return result - - --- function soup_headers_parse_status_line --- Args : [Arg {argName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "status_line", 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_headers_parse_status_line" soup_headers_parse_status_line :: - CString -> -- status_line : TBasicType TUTF8 - Ptr CUInt -> -- ver : TInterface "Soup" "HTTPVersion" - Ptr Word32 -> -- status_code : TBasicType TUInt32 - Ptr CString -> -- reason_phrase : TBasicType TUTF8 - IO CInt - - -headersParseStatusLine :: - (MonadIO m) => - T.Text -> -- status_line - m (Bool,HTTPVersion,Word32,T.Text) -headersParseStatusLine status_line = liftIO $ do - status_line' <- textToCString status_line - ver <- allocMem :: IO (Ptr CUInt) - status_code <- allocMem :: IO (Ptr Word32) - reason_phrase <- allocMem :: IO (Ptr CString) - result <- soup_headers_parse_status_line status_line' ver status_code reason_phrase - let result' = (/= 0) result - ver' <- peek ver - let ver'' = (toEnum . fromIntegral) ver' - status_code' <- peek status_code - reason_phrase' <- peek reason_phrase - reason_phrase'' <- cstringToText reason_phrase' - freeMem reason_phrase' - freeMem status_line' - freeMem ver - freeMem status_code - freeMem reason_phrase - return (result', ver'', status_code', reason_phrase'') - - --- function soup_headers_parse_response --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", 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_headers_parse_response" soup_headers_parse_response :: - CString -> -- str : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - Ptr MessageHeaders -> -- headers : TInterface "Soup" "MessageHeaders" - Ptr CUInt -> -- ver : TInterface "Soup" "HTTPVersion" - Ptr Word32 -> -- status_code : TBasicType TUInt32 - Ptr CString -> -- reason_phrase : TBasicType TUTF8 - IO CInt - - -headersParseResponse :: - (MonadIO m) => - T.Text -> -- str - Int32 -> -- len - MessageHeaders -> -- headers - m (Bool,HTTPVersion,Word32,T.Text) -headersParseResponse str len headers = liftIO $ do - str' <- textToCString str - let headers' = unsafeManagedPtrGetPtr headers - ver <- allocMem :: IO (Ptr CUInt) - status_code <- allocMem :: IO (Ptr Word32) - reason_phrase <- allocMem :: IO (Ptr CString) - result <- soup_headers_parse_response str' len headers' ver status_code reason_phrase - let result' = (/= 0) result - ver' <- peek ver - let ver'' = (toEnum . fromIntegral) ver' - status_code' <- peek status_code - reason_phrase' <- peek reason_phrase - reason_phrase'' <- cstringToText reason_phrase' - freeMem reason_phrase' - touchManagedPtr headers - freeMem str' - freeMem ver - freeMem status_code - freeMem reason_phrase - return (result', ver'', status_code', reason_phrase'') - - --- function soup_headers_parse_request --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_headers_parse_request" soup_headers_parse_request :: - CString -> -- str : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - Ptr MessageHeaders -> -- req_headers : TInterface "Soup" "MessageHeaders" - Ptr CString -> -- req_method : TBasicType TUTF8 - Ptr CString -> -- req_path : TBasicType TUTF8 - Ptr CUInt -> -- ver : TInterface "Soup" "HTTPVersion" - IO Word32 - - -headersParseRequest :: - (MonadIO m) => - T.Text -> -- str - Int32 -> -- len - MessageHeaders -> -- req_headers - m (Word32,T.Text,T.Text,HTTPVersion) -headersParseRequest str len req_headers = liftIO $ do - str' <- textToCString str - let req_headers' = unsafeManagedPtrGetPtr req_headers - req_method <- allocMem :: IO (Ptr CString) - req_path <- allocMem :: IO (Ptr CString) - ver <- allocMem :: IO (Ptr CUInt) - result <- soup_headers_parse_request str' len req_headers' req_method req_path ver - req_method' <- peek req_method - req_method'' <- cstringToText req_method' - freeMem req_method' - req_path' <- peek req_path - req_path'' <- cstringToText req_path' - freeMem req_path' - ver' <- peek ver - let ver'' = (toEnum . fromIntegral) ver' - touchManagedPtr req_headers - freeMem str' - freeMem req_method - freeMem req_path - freeMem ver - return (result, req_method'', req_path'', ver'') - - --- function soup_headers_parse --- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", 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_headers_parse" soup_headers_parse :: - CString -> -- str : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt32 - Ptr MessageHeaders -> -- dest : TInterface "Soup" "MessageHeaders" - IO CInt - - -headersParse :: - (MonadIO m) => - T.Text -> -- str - Int32 -> -- len - MessageHeaders -> -- dest - m Bool -headersParse str len dest = liftIO $ do - str' <- textToCString str - let dest' = unsafeManagedPtrGetPtr dest - result <- soup_headers_parse str' len dest' - let result' = (/= 0) result - touchManagedPtr dest - freeMem str' - return result' - - --- function soup_header_parse_semi_param_list --- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_header_parse_semi_param_list" soup_header_parse_semi_param_list :: - CString -> -- header : TBasicType TUTF8 - IO (Ptr (GHashTable CString CString)) - - -headerParseSemiParamList :: - (MonadIO m) => - T.Text -> -- header - m (Map.Map T.Text T.Text) -headerParseSemiParamList header = liftIO $ do - header' <- textToCString header - result <- soup_header_parse_semi_param_list header' - checkUnexpectedReturnNULL "soup_header_parse_semi_param_list" result - result' <- unpackGHashTable result - let result'' = mapFirst cstringUnpackPtr result' - result''' <- mapFirstA cstringToText result'' - let result'''' = mapSecond cstringUnpackPtr result''' - result''''' <- mapSecondA cstringToText result'''' - let result'''''' = Map.fromList result''''' - unrefGHashTable result - freeMem header' - return result'''''' - - --- function soup_header_parse_quality_list --- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_header_parse_quality_list" soup_header_parse_quality_list :: - CString -> -- header : TBasicType TUTF8 - Ptr (Ptr (GSList CString)) -> -- unacceptable : TGSList (TBasicType TUTF8) - IO (Ptr (GSList CString)) - - -headerParseQualityList :: - (MonadIO m) => - T.Text -> -- header - m ([T.Text],[T.Text]) -headerParseQualityList header = liftIO $ do - header' <- textToCString header - unacceptable <- allocMem :: IO (Ptr (Ptr (GSList CString))) - result <- soup_header_parse_quality_list header' unacceptable - checkUnexpectedReturnNULL "soup_header_parse_quality_list" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - unacceptable' <- peek unacceptable - unacceptable'' <- unpackGSList unacceptable' - unacceptable''' <- mapM cstringToText unacceptable'' - mapGSList freeMem unacceptable' - g_slist_free unacceptable' - freeMem header' - freeMem unacceptable - return (result'', unacceptable''') - - --- function soup_header_parse_param_list --- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_header_parse_param_list" soup_header_parse_param_list :: - CString -> -- header : TBasicType TUTF8 - IO (Ptr (GHashTable CString CString)) - - -headerParseParamList :: - (MonadIO m) => - T.Text -> -- header - m (Map.Map T.Text T.Text) -headerParseParamList header = liftIO $ do - header' <- textToCString header - result <- soup_header_parse_param_list header' - checkUnexpectedReturnNULL "soup_header_parse_param_list" result - result' <- unpackGHashTable result - let result'' = mapFirst cstringUnpackPtr result' - result''' <- mapFirstA cstringToText result'' - let result'''' = mapSecond cstringUnpackPtr result''' - result''''' <- mapSecondA cstringToText result'''' - let result'''''' = Map.fromList result''''' - unrefGHashTable result - freeMem header' - return result'''''' - - --- function soup_header_parse_list --- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_header_parse_list" soup_header_parse_list :: - CString -> -- header : TBasicType TUTF8 - IO (Ptr (GSList CString)) - - -headerParseList :: - (MonadIO m) => - T.Text -> -- header - m [T.Text] -headerParseList header = liftIO $ do - header' <- textToCString header - result <- soup_header_parse_list header' - checkUnexpectedReturnNULL "soup_header_parse_list" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - freeMem header' - return result'' - - --- function soup_header_g_string_append_param_quoted --- Args : [Arg {argName = "string", argType = TInterface "GLib" "String", 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 = "string", argType = TInterface "GLib" "String", 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_header_g_string_append_param_quoted" soup_header_g_string_append_param_quoted :: - Ptr GLib.String -> -- string : TInterface "GLib" "String" - CString -> -- name : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - IO () - - -headerGStringAppendParamQuoted :: - (MonadIO m) => - GLib.String -> -- string - T.Text -> -- name - T.Text -> -- value - m () -headerGStringAppendParamQuoted string name value = liftIO $ do - let string' = unsafeManagedPtrGetPtr string - name' <- textToCString name - value' <- textToCString value - soup_header_g_string_append_param_quoted string' name' value' - touchManagedPtr string - freeMem name' - freeMem value' - return () - - --- function soup_header_g_string_append_param --- Args : [Arg {argName = "string", argType = TInterface "GLib" "String", 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 = "string", argType = TInterface "GLib" "String", 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_header_g_string_append_param" soup_header_g_string_append_param :: - Ptr GLib.String -> -- string : TInterface "GLib" "String" - CString -> -- name : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - IO () - - -headerGStringAppendParam :: - (MonadIO m) => - GLib.String -> -- string - T.Text -> -- name - T.Text -> -- value - m () -headerGStringAppendParam string name value = liftIO $ do - let string' = unsafeManagedPtrGetPtr string - name' <- textToCString name - value' <- textToCString value - soup_header_g_string_append_param string' name' value' - touchManagedPtr string - freeMem name' - freeMem value' - return () - - --- function soup_header_free_param_list --- Args : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "param_list", argType = TGHash (TBasicType TUTF8) (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_header_free_param_list" soup_header_free_param_list :: - Ptr (GHashTable CString CString) -> -- param_list : TGHash (TBasicType TUTF8) (TBasicType TUTF8) - IO () - - -headerFreeParamList :: - (MonadIO m) => - Map.Map T.Text T.Text -> -- param_list - m () -headerFreeParamList param_list = liftIO $ do - let param_list' = Map.toList param_list - param_list'' <- mapFirstA textToCString param_list' - param_list''' <- mapSecondA textToCString param_list'' - let param_list'''' = mapFirst cstringPackPtr param_list''' - let param_list''''' = mapSecond cstringPackPtr param_list'''' - param_list'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) param_list''''' - soup_header_free_param_list param_list'''''' - unrefGHashTable param_list'''''' - return () - - --- function soup_header_contains --- Args : [Arg {argName = "header", 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 = "header", 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_header_contains" soup_header_contains :: - CString -> -- header : TBasicType TUTF8 - CString -> -- token : TBasicType TUTF8 - IO CInt - - -headerContains :: - (MonadIO m) => - T.Text -> -- header - T.Text -> -- token - m Bool -headerContains header token = liftIO $ do - header' <- textToCString header - token' <- textToCString token - result <- soup_header_contains header' token' - let result' = (/= 0) result - freeMem header' - freeMem token' - return result' - - --- function soup_form_request_new_from_multipart --- Args : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Message" --- throws : False --- Skip return : False - -foreign import ccall "soup_form_request_new_from_multipart" soup_form_request_new_from_multipart :: - CString -> -- uri : TBasicType TUTF8 - Ptr Multipart -> -- multipart : TInterface "Soup" "Multipart" - IO (Ptr Message) - - -formRequestNewFromMultipart :: - (MonadIO m) => - T.Text -> -- uri - Multipart -> -- multipart - m Message -formRequestNewFromMultipart uri multipart = liftIO $ do - uri' <- textToCString uri - let multipart' = unsafeManagedPtrGetPtr multipart - result <- soup_form_request_new_from_multipart uri' multipart' - checkUnexpectedReturnNULL "soup_form_request_new_from_multipart" result - result' <- (wrapObject Message) result - touchManagedPtr multipart - freeMem uri' - return result' - - --- function soup_form_request_new_from_hash --- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Message" --- throws : False --- Skip return : False - -foreign import ccall "soup_form_request_new_from_hash" soup_form_request_new_from_hash :: - CString -> -- method : TBasicType TUTF8 - CString -> -- uri : TBasicType TUTF8 - Ptr (GHashTable CString CString) -> -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8) - IO (Ptr Message) - - -formRequestNewFromHash :: - (MonadIO m) => - T.Text -> -- method - T.Text -> -- uri - Map.Map T.Text T.Text -> -- form_data_set - m Message -formRequestNewFromHash method uri form_data_set = liftIO $ do - method' <- textToCString method - uri' <- textToCString uri - let form_data_set' = Map.toList form_data_set - form_data_set'' <- mapFirstA textToCString form_data_set' - form_data_set''' <- mapSecondA textToCString form_data_set'' - let form_data_set'''' = mapFirst cstringPackPtr form_data_set''' - let form_data_set''''' = mapSecond cstringPackPtr form_data_set'''' - form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set''''' - result <- soup_form_request_new_from_hash method' uri' form_data_set'''''' - checkUnexpectedReturnNULL "soup_form_request_new_from_hash" result - result' <- (wrapObject Message) result - freeMem method' - freeMem uri' - unrefGHashTable form_data_set'''''' - return result' - - --- function soup_form_request_new_from_datalist --- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Message" --- throws : False --- Skip return : False - -foreign import ccall "soup_form_request_new_from_datalist" soup_form_request_new_from_datalist :: - CString -> -- method : TBasicType TUTF8 - CString -> -- uri : TBasicType TUTF8 - Ptr GLib.Data -> -- form_data_set : TInterface "GLib" "Data" - IO (Ptr Message) - - -formRequestNewFromDatalist :: - (MonadIO m) => - T.Text -> -- method - T.Text -> -- uri - GLib.Data -> -- form_data_set - m Message -formRequestNewFromDatalist method uri form_data_set = liftIO $ do - method' <- textToCString method - uri' <- textToCString uri - let form_data_set' = unsafeManagedPtrGetPtr form_data_set - result <- soup_form_request_new_from_datalist method' uri' form_data_set' - checkUnexpectedReturnNULL "soup_form_request_new_from_datalist" result - result' <- (wrapObject Message) result - touchManagedPtr form_data_set - freeMem method' - freeMem uri' - return result' - - --- function soup_form_encode_hash --- Args : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "form_data_set", argType = TGHash (TBasicType TUTF8) (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_form_encode_hash" soup_form_encode_hash :: - Ptr (GHashTable CString CString) -> -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8) - IO CString - - -formEncodeHash :: - (MonadIO m) => - Map.Map T.Text T.Text -> -- form_data_set - m T.Text -formEncodeHash form_data_set = liftIO $ do - let form_data_set' = Map.toList form_data_set - form_data_set'' <- mapFirstA textToCString form_data_set' - form_data_set''' <- mapSecondA textToCString form_data_set'' - let form_data_set'''' = mapFirst cstringPackPtr form_data_set''' - let form_data_set''''' = mapSecond cstringPackPtr form_data_set'''' - form_data_set'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form_data_set''''' - result <- soup_form_encode_hash form_data_set'''''' - checkUnexpectedReturnNULL "soup_form_encode_hash" result - result' <- cstringToText result - freeMem result - unrefGHashTable form_data_set'''''' - return result' - - --- function soup_form_encode_datalist --- Args : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_form_encode_datalist" soup_form_encode_datalist :: - Ptr GLib.Data -> -- form_data_set : TInterface "GLib" "Data" - IO CString - - -formEncodeDatalist :: - (MonadIO m) => - GLib.Data -> -- form_data_set - m T.Text -formEncodeDatalist form_data_set = liftIO $ do - let form_data_set' = unsafeManagedPtrGetPtr form_data_set - result <- soup_form_encode_datalist form_data_set' - checkUnexpectedReturnNULL "soup_form_encode_datalist" result - result' <- cstringToText result - freeMem result - touchManagedPtr form_data_set - return result' - - --- function soup_form_decode_multipart --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "file", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_form_decode_multipart" soup_form_decode_multipart :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- file_control_name : TBasicType TUTF8 - Ptr CString -> -- filename : TBasicType TUTF8 - Ptr CString -> -- content_type : TBasicType TUTF8 - Ptr Buffer -> -- file : TInterface "Soup" "Buffer" - IO (Ptr (GHashTable CString CString)) - - -formDecodeMultipart :: - (MonadIO m, MessageK a) => - a -> -- msg - Maybe (T.Text) -> -- file_control_name - m ((Map.Map T.Text T.Text),T.Text,T.Text,Buffer) -formDecodeMultipart msg file_control_name = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - maybeFile_control_name <- case file_control_name of - Nothing -> return nullPtr - Just jFile_control_name -> do - jFile_control_name' <- textToCString jFile_control_name - return jFile_control_name' - filename <- allocMem :: IO (Ptr CString) - content_type <- allocMem :: IO (Ptr CString) - file <- callocBoxedBytes 16 :: IO (Ptr Buffer) - result <- soup_form_decode_multipart msg' maybeFile_control_name filename content_type file - checkUnexpectedReturnNULL "soup_form_decode_multipart" result - result' <- unpackGHashTable result - let result'' = mapFirst cstringUnpackPtr result' - result''' <- mapFirstA cstringToText result'' - let result'''' = mapSecond cstringUnpackPtr result''' - result''''' <- mapSecondA cstringToText result'''' - let result'''''' = Map.fromList result''''' - unrefGHashTable result - filename' <- peek filename - filename'' <- cstringToText filename' - freeMem filename' - content_type' <- peek content_type - content_type'' <- cstringToText content_type' - freeMem content_type' - file' <- (wrapBoxed Buffer) file - touchManagedPtr msg - freeMem maybeFile_control_name - freeMem filename - freeMem content_type - return (result'''''', filename'', content_type'', file') - - --- function soup_form_decode --- Args : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGHash (TBasicType TUTF8) (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_form_decode" soup_form_decode :: - CString -> -- encoded_form : TBasicType TUTF8 - IO (Ptr (GHashTable CString CString)) - - -formDecode :: - (MonadIO m) => - T.Text -> -- encoded_form - m (Map.Map T.Text T.Text) -formDecode encoded_form = liftIO $ do - encoded_form' <- textToCString encoded_form - result <- soup_form_decode encoded_form' - checkUnexpectedReturnNULL "soup_form_decode" result - result' <- unpackGHashTable result - let result'' = mapFirst cstringUnpackPtr result' - result''' <- mapFirstA cstringToText result'' - let result'''' = mapSecond cstringUnpackPtr result''' - result''''' <- mapSecondA cstringToText result'''' - let result'''''' = Map.fromList result''''' - unrefGHashTable result - freeMem encoded_form' - return result'''''' - - --- function soup_cookies_to_response --- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookies_to_response" soup_cookies_to_response :: - Ptr (GSList (Ptr Cookie)) -> -- cookies : TGSList (TInterface "Soup" "Cookie") - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -cookiesToResponse :: - (MonadIO m, MessageK a) => - [Cookie] -> -- cookies - a -> -- msg - m () -cookiesToResponse cookies msg = liftIO $ do - let cookies' = map unsafeManagedPtrGetPtr cookies - cookies'' <- packGSList cookies' - let msg' = unsafeManagedPtrCastPtr msg - soup_cookies_to_response cookies'' msg' - mapM_ touchManagedPtr cookies - touchManagedPtr msg - g_slist_free cookies'' - return () - - --- function soup_cookies_to_request --- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookies_to_request" soup_cookies_to_request :: - Ptr (GSList (Ptr Cookie)) -> -- cookies : TGSList (TInterface "Soup" "Cookie") - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -cookiesToRequest :: - (MonadIO m, MessageK a) => - [Cookie] -> -- cookies - a -> -- msg - m () -cookiesToRequest cookies msg = liftIO $ do - let cookies' = map unsafeManagedPtrGetPtr cookies - cookies'' <- packGSList cookies' - let msg' = unsafeManagedPtrCastPtr msg - soup_cookies_to_request cookies'' msg' - mapM_ touchManagedPtr cookies - touchManagedPtr msg - g_slist_free cookies'' - return () - - --- function soup_cookies_to_cookie_header --- Args : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookies_to_cookie_header" soup_cookies_to_cookie_header :: - Ptr (GSList (Ptr Cookie)) -> -- cookies : TGSList (TInterface "Soup" "Cookie") - IO CString - - -cookiesToCookieHeader :: - (MonadIO m) => - [Cookie] -> -- cookies - m T.Text -cookiesToCookieHeader cookies = liftIO $ do - let cookies' = map unsafeManagedPtrGetPtr cookies - cookies'' <- packGSList cookies' - result <- soup_cookies_to_cookie_header cookies'' - checkUnexpectedReturnNULL "soup_cookies_to_cookie_header" result - result' <- cstringToText result - freeMem result - mapM_ touchManagedPtr cookies - g_slist_free cookies'' - return result' - - --- function soup_cookies_from_response --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Soup" "Cookie") --- throws : False --- Skip return : False - -foreign import ccall "soup_cookies_from_response" soup_cookies_from_response :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO (Ptr (GSList (Ptr Cookie))) - - -cookiesFromResponse :: - (MonadIO m, MessageK a) => - a -> -- msg - m [Cookie] -cookiesFromResponse msg = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_cookies_from_response msg' - checkUnexpectedReturnNULL "soup_cookies_from_response" result - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr msg - return result'' - - --- function soup_cookies_from_request --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Soup" "Cookie") --- throws : False --- Skip return : False - -foreign import ccall "soup_cookies_from_request" soup_cookies_from_request :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO (Ptr (GSList (Ptr Cookie))) - - -cookiesFromRequest :: - (MonadIO m, MessageK a) => - a -> -- msg - m [Cookie] -cookiesFromRequest msg = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_cookies_from_request msg' - checkUnexpectedReturnNULL "soup_cookies_from_request" result - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr msg - return result'' - - --- function soup_cookie_parse --- Args : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Cookie" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_parse" soup_cookie_parse :: - CString -> -- header : TBasicType TUTF8 - Ptr URI -> -- origin : TInterface "Soup" "URI" - IO (Ptr Cookie) - - -cookieParse :: - (MonadIO m) => - T.Text -> -- header - URI -> -- origin - m Cookie -cookieParse header origin = liftIO $ do - header' <- textToCString header - let origin' = unsafeManagedPtrGetPtr origin - result <- soup_cookie_parse header' origin' - checkUnexpectedReturnNULL "soup_cookie_parse" result - result' <- (wrapBoxed Cookie) result - touchManagedPtr origin - freeMem header' - return result' - - - diff --git a/GI/Soup/Interfaces.hs b/GI/Soup/Interfaces.hs deleted file mode 100644 --- a/GI/Soup/Interfaces.hs +++ /dev/null @@ -1,30 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Interfaces - ( module GI.Soup.Interfaces.PasswordManager, - module GI.Soup.Interfaces.ProxyURIResolver, - module GI.Soup.Interfaces.SessionFeature, - - - ) where - -import GI.Soup.Interfaces.PasswordManager -import GI.Soup.Interfaces.ProxyURIResolver -import GI.Soup.Interfaces.SessionFeature - -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 - - diff --git a/GI/Soup/Interfaces/PasswordManager.hs b/GI/Soup/Interfaces/PasswordManager.hs deleted file mode 100644 --- a/GI/Soup/Interfaces/PasswordManager.hs +++ /dev/null @@ -1,167 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Interfaces.PasswordManager - ( - --- * Exported types - PasswordManager(..) , - noPasswordManager , - PasswordManagerK , - toPasswordManager , - - - -- * Methods --- ** passwordManagerGetPasswordsAsync - passwordManagerGetPasswordsAsync , - - --- ** passwordManagerGetPasswordsSync - passwordManagerGetPasswordsSync , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - --- interface PasswordManager - -newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager) -noPasswordManager :: Maybe PasswordManager -noPasswordManager = Nothing - -type instance AttributeList PasswordManager = PasswordManagerAttributeList -type PasswordManagerAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PasswordManager = PasswordManagerSignalList -type PasswordManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "soup_password_manager_get_type" - c_soup_password_manager_get_type :: IO GType - -type instance ParentTypes PasswordManager = PasswordManagerParentTypes -type PasswordManagerParentTypes = '[SessionFeature, GObject.Object] - -instance GObject PasswordManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_password_manager_get_type - - -class GObject o => PasswordManagerK o -instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o - -toPasswordManager :: PasswordManagerK o => o -> IO PasswordManager -toPasswordManager = unsafeCastTo PasswordManager - --- method PasswordManager::get_passwords_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, 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" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_password_manager_get_passwords_async" soup_password_manager_get_passwords_async :: - Ptr PasswordManager -> -- _obj : TInterface "Soup" "PasswordManager" - Ptr Message -> -- msg : TInterface "Soup" "Message" - Ptr Auth -> -- auth : TInterface "Soup" "Auth" - CInt -> -- retrying : TBasicType TBoolean - Ptr GLib.MainContext -> -- async_context : TInterface "GLib" "MainContext" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr PasswordManagerCallbackC -> -- callback : TInterface "Soup" "PasswordManagerCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -passwordManagerGetPasswordsAsync :: - (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => - a -> -- _obj - b -> -- msg - c -> -- auth - Bool -> -- retrying - GLib.MainContext -> -- async_context - Maybe (d) -> -- cancellable - PasswordManagerCallback -> -- callback - m () -passwordManagerGetPasswordsAsync _obj msg auth retrying async_context cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - let auth' = unsafeManagedPtrCastPtr auth - let retrying' = (fromIntegral . fromEnum) retrying - let async_context' = unsafeManagedPtrGetPtr async_context - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr PasswordManagerCallbackC)) - callback' <- mkPasswordManagerCallback (passwordManagerCallbackWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let user_data = nullPtr - soup_password_manager_get_passwords_async _obj' msg' auth' retrying' async_context' maybeCancellable callback' user_data - touchManagedPtr _obj - touchManagedPtr msg - touchManagedPtr auth - touchManagedPtr async_context - whenJust cancellable touchManagedPtr - return () - --- method PasswordManager::get_passwords_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_password_manager_get_passwords_sync" soup_password_manager_get_passwords_sync :: - Ptr PasswordManager -> -- _obj : TInterface "Soup" "PasswordManager" - Ptr Message -> -- msg : TInterface "Soup" "Message" - Ptr Auth -> -- auth : TInterface "Soup" "Auth" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO () - - -passwordManagerGetPasswordsSync :: - (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => - a -> -- _obj - b -> -- msg - c -> -- auth - Maybe (d) -> -- cancellable - m () -passwordManagerGetPasswordsSync _obj msg auth cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - let auth' = unsafeManagedPtrCastPtr auth - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - soup_password_manager_get_passwords_sync _obj' msg' auth' maybeCancellable - touchManagedPtr _obj - touchManagedPtr msg - touchManagedPtr auth - whenJust cancellable touchManagedPtr - return () - - diff --git a/GI/Soup/Interfaces/PasswordManager.hs-boot b/GI/Soup/Interfaces/PasswordManager.hs-boot deleted file mode 100644 --- a/GI/Soup/Interfaces/PasswordManager.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Interfaces.PasswordManager 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 - -newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager) -instance GObject PasswordManager where -class GObject o => PasswordManagerK o -instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o diff --git a/GI/Soup/Interfaces/ProxyURIResolver.hs b/GI/Soup/Interfaces/ProxyURIResolver.hs deleted file mode 100644 --- a/GI/Soup/Interfaces/ProxyURIResolver.hs +++ /dev/null @@ -1,163 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Interfaces.ProxyURIResolver - ( - --- * Exported types - ProxyURIResolver(..) , - noProxyURIResolver , - ProxyURIResolverK , - toProxyURIResolver , - - - -- * Methods --- ** proxyURIResolverGetProxyUriAsync - proxyURIResolverGetProxyUriAsync , - - --- ** proxyURIResolverGetProxyUriSync - proxyURIResolverGetProxyUriSync , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - --- interface ProxyURIResolver - -newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver) -noProxyURIResolver :: Maybe ProxyURIResolver -noProxyURIResolver = Nothing - -type instance AttributeList ProxyURIResolver = ProxyURIResolverAttributeList -type ProxyURIResolverAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ProxyURIResolver = ProxyURIResolverSignalList -type ProxyURIResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "soup_proxy_uri_resolver_get_type" - c_soup_proxy_uri_resolver_get_type :: IO GType - -type instance ParentTypes ProxyURIResolver = ProxyURIResolverParentTypes -type ProxyURIResolverParentTypes = '[SessionFeature, GObject.Object] - -instance GObject ProxyURIResolver where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_proxy_uri_resolver_get_type - - -class GObject o => ProxyURIResolverK o -instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o - -toProxyURIResolver :: ProxyURIResolverK o => o -> IO ProxyURIResolver -toProxyURIResolver = unsafeCastTo ProxyURIResolver - --- method ProxyURIResolver::get_proxy_uri_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, 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" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_async" soup_proxy_uri_resolver_get_proxy_uri_async :: - Ptr ProxyURIResolver -> -- _obj : TInterface "Soup" "ProxyURIResolver" - Ptr URI -> -- uri : TInterface "Soup" "URI" - Ptr GLib.MainContext -> -- async_context : TInterface "GLib" "MainContext" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr ProxyURIResolverCallbackC -> -- callback : TInterface "Soup" "ProxyURIResolverCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - -{-# DEPRECATED proxyURIResolverGetProxyUriAsync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-} -proxyURIResolverGetProxyUriAsync :: - (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => - a -> -- _obj - URI -> -- uri - Maybe (GLib.MainContext) -> -- async_context - Maybe (b) -> -- cancellable - ProxyURIResolverCallback -> -- callback - m () -proxyURIResolverGetProxyUriAsync _obj uri async_context cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - maybeAsync_context <- case async_context of - Nothing -> return nullPtr - Just jAsync_context -> do - let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context - return jAsync_context' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr ProxyURIResolverCallbackC)) - callback' <- mkProxyURIResolverCallback (proxyURIResolverCallbackWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let user_data = nullPtr - soup_proxy_uri_resolver_get_proxy_uri_async _obj' uri' maybeAsync_context maybeCancellable callback' user_data - touchManagedPtr _obj - touchManagedPtr uri - whenJust async_context touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method ProxyURIResolver::get_proxy_uri_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "proxy_uri", argType = TInterface "Soup" "URI", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_sync" soup_proxy_uri_resolver_get_proxy_uri_sync :: - Ptr ProxyURIResolver -> -- _obj : TInterface "Soup" "ProxyURIResolver" - Ptr URI -> -- uri : TInterface "Soup" "URI" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr URI -> -- proxy_uri : TInterface "Soup" "URI" - IO Word32 - -{-# DEPRECATED proxyURIResolverGetProxyUriSync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-} -proxyURIResolverGetProxyUriSync :: - (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => - a -> -- _obj - URI -> -- uri - Maybe (b) -> -- cancellable - m (Word32,URI) -proxyURIResolverGetProxyUriSync _obj uri cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - proxy_uri <- callocBoxedBytes 64 :: IO (Ptr URI) - result <- soup_proxy_uri_resolver_get_proxy_uri_sync _obj' uri' maybeCancellable proxy_uri - proxy_uri' <- (wrapBoxed URI) proxy_uri - touchManagedPtr _obj - touchManagedPtr uri - whenJust cancellable touchManagedPtr - return (result, proxy_uri') - - diff --git a/GI/Soup/Interfaces/ProxyURIResolver.hs-boot b/GI/Soup/Interfaces/ProxyURIResolver.hs-boot deleted file mode 100644 --- a/GI/Soup/Interfaces/ProxyURIResolver.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Interfaces.ProxyURIResolver 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 - -newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver) -instance GObject ProxyURIResolver where -class GObject o => ProxyURIResolverK o -instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o diff --git a/GI/Soup/Interfaces/SessionFeature.hs b/GI/Soup/Interfaces/SessionFeature.hs deleted file mode 100644 --- a/GI/Soup/Interfaces/SessionFeature.hs +++ /dev/null @@ -1,223 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Interfaces.SessionFeature - ( - --- * Exported types - SessionFeature(..) , - noSessionFeature , - SessionFeatureK , - toSessionFeature , - - - -- * Methods --- ** sessionFeatureAddFeature - sessionFeatureAddFeature , - - --- ** sessionFeatureAttach - sessionFeatureAttach , - - --- ** sessionFeatureDetach - sessionFeatureDetach , - - --- ** sessionFeatureHasFeature - sessionFeatureHasFeature , - - --- ** sessionFeatureRemoveFeature - sessionFeatureRemoveFeature , - - - - - ) 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 -import qualified GI.GObject as GObject - --- interface SessionFeature - -newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature) -noSessionFeature :: Maybe SessionFeature -noSessionFeature = Nothing - -type instance AttributeList SessionFeature = SessionFeatureAttributeList -type SessionFeatureAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SessionFeature = SessionFeatureSignalList -type SessionFeatureSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - -foreign import ccall "soup_session_feature_get_type" - c_soup_session_feature_get_type :: IO GType - -type instance ParentTypes SessionFeature = SessionFeatureParentTypes -type SessionFeatureParentTypes = '[GObject.Object] - -instance GObject SessionFeature where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_session_feature_get_type - - -class GObject o => SessionFeatureK o -instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o - -toSessionFeature :: SessionFeatureK o => o -> IO SessionFeature -toSessionFeature = unsafeCastTo SessionFeature - --- method SessionFeature::add_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_session_feature_add_feature" soup_session_feature_add_feature :: - Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" - CGType -> -- type : TBasicType TGType - IO CInt - - -sessionFeatureAddFeature :: - (MonadIO m, SessionFeatureK a) => - a -> -- _obj - GType -> -- type - m Bool -sessionFeatureAddFeature _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = gtypeToCGType type_ - result <- soup_session_feature_add_feature _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SessionFeature::attach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_feature_attach" soup_session_feature_attach :: - Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" - Ptr Session -> -- session : TInterface "Soup" "Session" - IO () - - -sessionFeatureAttach :: - (MonadIO m, SessionFeatureK a, SessionK b) => - a -> -- _obj - b -> -- session - m () -sessionFeatureAttach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_session_feature_attach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - --- method SessionFeature::detach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_feature_detach" soup_session_feature_detach :: - Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" - Ptr Session -> -- session : TInterface "Soup" "Session" - IO () - - -sessionFeatureDetach :: - (MonadIO m, SessionFeatureK a, SessionK b) => - a -> -- _obj - b -> -- session - m () -sessionFeatureDetach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_session_feature_detach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - --- method SessionFeature::has_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_session_feature_has_feature" soup_session_feature_has_feature :: - Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" - CGType -> -- type : TBasicType TGType - IO CInt - - -sessionFeatureHasFeature :: - (MonadIO m, SessionFeatureK a) => - a -> -- _obj - GType -> -- type - m Bool -sessionFeatureHasFeature _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = gtypeToCGType type_ - result <- soup_session_feature_has_feature _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method SessionFeature::remove_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_session_feature_remove_feature" soup_session_feature_remove_feature :: - Ptr SessionFeature -> -- _obj : TInterface "Soup" "SessionFeature" - CGType -> -- type : TBasicType TGType - IO CInt - - -sessionFeatureRemoveFeature :: - (MonadIO m, SessionFeatureK a) => - a -> -- _obj - GType -> -- type - m Bool -sessionFeatureRemoveFeature _obj type_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let type_' = gtypeToCGType type_ - result <- soup_session_feature_remove_feature _obj' type_' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - diff --git a/GI/Soup/Interfaces/SessionFeature.hs-boot b/GI/Soup/Interfaces/SessionFeature.hs-boot deleted file mode 100644 --- a/GI/Soup/Interfaces/SessionFeature.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Interfaces.SessionFeature 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 - -newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature) -instance GObject SessionFeature where -class GObject o => SessionFeatureK o -instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o diff --git a/GI/Soup/Objects.hs b/GI/Soup/Objects.hs deleted file mode 100644 --- a/GI/Soup/Objects.hs +++ /dev/null @@ -1,84 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects - ( module GI.Soup.Objects.Address , - module GI.Soup.Objects.Auth , - module GI.Soup.Objects.AuthBasic , - module GI.Soup.Objects.AuthDigest , - module GI.Soup.Objects.AuthDomain , - module GI.Soup.Objects.AuthDomainBasic , - module GI.Soup.Objects.AuthDomainDigest , - module GI.Soup.Objects.AuthManager , - module GI.Soup.Objects.AuthNTLM , - module GI.Soup.Objects.Cache , - module GI.Soup.Objects.ContentDecoder , - module GI.Soup.Objects.ContentSniffer , - module GI.Soup.Objects.CookieJar , - module GI.Soup.Objects.CookieJarDB , - module GI.Soup.Objects.CookieJarText , - module GI.Soup.Objects.Logger , - module GI.Soup.Objects.Message , - module GI.Soup.Objects.MultipartInputStream, - module GI.Soup.Objects.ProxyResolverDefault, - module GI.Soup.Objects.Request , - module GI.Soup.Objects.RequestData , - module GI.Soup.Objects.RequestFile , - module GI.Soup.Objects.RequestHTTP , - module GI.Soup.Objects.Requester , - module GI.Soup.Objects.Server , - module GI.Soup.Objects.Session , - module GI.Soup.Objects.SessionAsync , - module GI.Soup.Objects.SessionSync , - module GI.Soup.Objects.Socket , - module GI.Soup.Objects.WebsocketConnection, - - - ) where - -import GI.Soup.Objects.Address -import GI.Soup.Objects.Auth -import GI.Soup.Objects.AuthBasic -import GI.Soup.Objects.AuthDigest -import GI.Soup.Objects.AuthDomain -import GI.Soup.Objects.AuthDomainBasic -import GI.Soup.Objects.AuthDomainDigest -import GI.Soup.Objects.AuthManager -import GI.Soup.Objects.AuthNTLM -import GI.Soup.Objects.Cache -import GI.Soup.Objects.ContentDecoder -import GI.Soup.Objects.ContentSniffer -import GI.Soup.Objects.CookieJar -import GI.Soup.Objects.CookieJarDB -import GI.Soup.Objects.CookieJarText -import GI.Soup.Objects.Logger -import GI.Soup.Objects.Message -import GI.Soup.Objects.MultipartInputStream -import GI.Soup.Objects.ProxyResolverDefault -import GI.Soup.Objects.Request -import GI.Soup.Objects.RequestData -import GI.Soup.Objects.RequestFile -import GI.Soup.Objects.RequestHTTP -import GI.Soup.Objects.Requester -import GI.Soup.Objects.Server -import GI.Soup.Objects.Session -import GI.Soup.Objects.SessionAsync -import GI.Soup.Objects.SessionSync -import GI.Soup.Objects.Socket -import GI.Soup.Objects.WebsocketConnection - -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 - - diff --git a/GI/Soup/Objects/Address.hs b/GI/Soup/Objects/Address.hs deleted file mode 100644 --- a/GI/Soup/Objects/Address.hs +++ /dev/null @@ -1,673 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Address - ( - --- * Exported types - Address(..) , - AddressK , - toAddress , - noAddress , - - - -- * Methods --- ** addressEqualByIp - addressEqualByIp , - - --- ** addressEqualByName - addressEqualByName , - - --- ** addressGetGsockaddr - addressGetGsockaddr , - - --- ** addressGetName - addressGetName , - - --- ** addressGetPhysical - addressGetPhysical , - - --- ** addressGetPort - addressGetPort , - - --- ** addressHashByIp - addressHashByIp , - - --- ** addressHashByName - addressHashByName , - - --- ** addressIsResolved - addressIsResolved , - - --- ** addressNew - addressNew , - - --- ** addressNewAny - addressNewAny , - - --- ** addressNewFromSockaddr - addressNewFromSockaddr , - - --- ** addressResolveAsync - addressResolveAsync , - - --- ** addressResolveSync - addressResolveSync , - - - - - -- * Properties --- ** Family - AddressFamilyPropertyInfo , - constructAddressFamily , - getAddressFamily , - - --- ** Name - AddressNamePropertyInfo , - constructAddressName , - getAddressName , - - --- ** Physical - AddressPhysicalPropertyInfo , - getAddressPhysical , - - --- ** Port - AddressPortPropertyInfo , - constructAddressPort , - getAddressPort , - - --- ** Protocol - AddressProtocolPropertyInfo , - constructAddressProtocol , - getAddressProtocol , - - --- ** Sockaddr - AddressSockaddrPropertyInfo , - constructAddressSockaddr , - getAddressSockaddr , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Address = Address (ForeignPtr Address) -foreign import ccall "soup_address_get_type" - c_soup_address_get_type :: IO GType - -type instance ParentTypes Address = AddressParentTypes -type AddressParentTypes = '[GObject.Object, Gio.SocketConnectable] - -instance GObject Address where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_address_get_type - - -class GObject o => AddressK o -instance (GObject o, IsDescendantOf Address o) => AddressK o - -toAddress :: AddressK o => o -> IO Address -toAddress = unsafeCastTo Address - -noAddress :: Maybe Address -noAddress = Nothing - --- VVV Prop "family" - -- Type: TInterface "Soup" "AddressFamily" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAddressFamily :: (MonadIO m, AddressK o) => o -> m AddressFamily -getAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family" - -constructAddressFamily :: AddressFamily -> IO ([Char], GValue) -constructAddressFamily val = constructObjectPropertyEnum "family" val - -data AddressFamilyPropertyInfo -instance AttrInfo AddressFamilyPropertyInfo where - type AttrAllowedOps AddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AddressFamilyPropertyInfo = (~) AddressFamily - type AttrBaseTypeConstraint AddressFamilyPropertyInfo = AddressK - type AttrGetType AddressFamilyPropertyInfo = AddressFamily - type AttrLabel AddressFamilyPropertyInfo = "Address::family" - attrGet _ = getAddressFamily - attrSet _ = undefined - attrConstruct _ = constructAddressFamily - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAddressName :: (MonadIO m, AddressK o) => o -> m T.Text -getAddressName obj = liftIO $ getObjectPropertyString obj "name" - -constructAddressName :: T.Text -> IO ([Char], GValue) -constructAddressName val = constructObjectPropertyString "name" val - -data AddressNamePropertyInfo -instance AttrInfo AddressNamePropertyInfo where - type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AddressNamePropertyInfo = AddressK - type AttrGetType AddressNamePropertyInfo = T.Text - type AttrLabel AddressNamePropertyInfo = "Address::name" - attrGet _ = getAddressName - attrSet _ = undefined - attrConstruct _ = constructAddressName - --- VVV Prop "physical" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getAddressPhysical :: (MonadIO m, AddressK o) => o -> m T.Text -getAddressPhysical obj = liftIO $ getObjectPropertyString obj "physical" - -data AddressPhysicalPropertyInfo -instance AttrInfo AddressPhysicalPropertyInfo where - type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) () - type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = AddressK - type AttrGetType AddressPhysicalPropertyInfo = T.Text - type AttrLabel AddressPhysicalPropertyInfo = "Address::physical" - attrGet _ = getAddressPhysical - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "port" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAddressPort :: (MonadIO m, AddressK o) => o -> m Int32 -getAddressPort obj = liftIO $ getObjectPropertyCInt obj "port" - -constructAddressPort :: Int32 -> IO ([Char], GValue) -constructAddressPort val = constructObjectPropertyCInt "port" val - -data AddressPortPropertyInfo -instance AttrInfo AddressPortPropertyInfo where - type AttrAllowedOps AddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AddressPortPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint AddressPortPropertyInfo = AddressK - type AttrGetType AddressPortPropertyInfo = Int32 - type AttrLabel AddressPortPropertyInfo = "Address::port" - attrGet _ = getAddressPort - attrSet _ = undefined - attrConstruct _ = constructAddressPort - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAddressProtocol :: (MonadIO m, AddressK o) => o -> m T.Text -getAddressProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -constructAddressProtocol :: T.Text -> IO ([Char], GValue) -constructAddressProtocol val = constructObjectPropertyString "protocol" val - -data AddressProtocolPropertyInfo -instance AttrInfo AddressProtocolPropertyInfo where - type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AddressProtocolPropertyInfo = AddressK - type AttrGetType AddressProtocolPropertyInfo = T.Text - type AttrLabel AddressProtocolPropertyInfo = "Address::protocol" - attrGet _ = getAddressProtocol - attrSet _ = undefined - attrConstruct _ = constructAddressProtocol - --- VVV Prop "sockaddr" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAddressSockaddr :: (MonadIO m, AddressK o) => o -> m (Ptr ()) -getAddressSockaddr obj = liftIO $ getObjectPropertyPtr obj "sockaddr" - -constructAddressSockaddr :: (Ptr ()) -> IO ([Char], GValue) -constructAddressSockaddr val = constructObjectPropertyPtr "sockaddr" val - -data AddressSockaddrPropertyInfo -instance AttrInfo AddressSockaddrPropertyInfo where - type AttrAllowedOps AddressSockaddrPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AddressSockaddrPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AddressSockaddrPropertyInfo = AddressK - type AttrGetType AddressSockaddrPropertyInfo = (Ptr ()) - type AttrLabel AddressSockaddrPropertyInfo = "Address::sockaddr" - attrGet _ = getAddressSockaddr - attrSet _ = undefined - attrConstruct _ = constructAddressSockaddr - -type instance AttributeList Address = AddressAttributeList -type AddressAttributeList = ('[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Address = AddressSignalList -type AddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Address::new --- method type : Constructor --- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Address" --- throws : False --- Skip return : False - -foreign import ccall "soup_address_new" soup_address_new :: - CString -> -- name : TBasicType TUTF8 - Word32 -> -- port : TBasicType TUInt32 - IO (Ptr Address) - - -addressNew :: - (MonadIO m) => - T.Text -> -- name - Word32 -> -- port - m Address -addressNew name port = liftIO $ do - name' <- textToCString name - result <- soup_address_new name' port - checkUnexpectedReturnNULL "soup_address_new" result - result' <- (wrapObject Address) result - freeMem name' - return result' - --- method Address::new_any --- method type : Constructor --- Args : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Address" --- throws : False --- Skip return : False - -foreign import ccall "soup_address_new_any" soup_address_new_any :: - CUInt -> -- family : TInterface "Soup" "AddressFamily" - Word32 -> -- port : TBasicType TUInt32 - IO (Ptr Address) - - -addressNewAny :: - (MonadIO m) => - AddressFamily -> -- family - Word32 -> -- port - m Address -addressNewAny family port = liftIO $ do - let family' = (fromIntegral . fromEnum) family - result <- soup_address_new_any family' port - checkUnexpectedReturnNULL "soup_address_new_any" result - result' <- (wrapObject Address) result - return result' - --- method Address::new_from_sockaddr --- method type : Constructor --- Args : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "sa", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Address" --- throws : False --- Skip return : False - -foreign import ccall "soup_address_new_from_sockaddr" soup_address_new_from_sockaddr :: - Ptr () -> -- sa : TBasicType TVoid - Int32 -> -- len : TBasicType TInt32 - IO (Ptr Address) - - -addressNewFromSockaddr :: - (MonadIO m) => - Ptr () -> -- sa - Int32 -> -- len - m Address -addressNewFromSockaddr sa len = liftIO $ do - result <- soup_address_new_from_sockaddr sa len - checkUnexpectedReturnNULL "soup_address_new_from_sockaddr" result - result' <- (wrapObject Address) result - return result' - --- method Address::equal_by_ip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_address_equal_by_ip" soup_address_equal_by_ip :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - Ptr Address -> -- addr2 : TInterface "Soup" "Address" - IO CInt - - -addressEqualByIp :: - (MonadIO m, AddressK a, AddressK b) => - a -> -- _obj - b -> -- addr2 - m Bool -addressEqualByIp _obj addr2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let addr2' = unsafeManagedPtrCastPtr addr2 - result <- soup_address_equal_by_ip _obj' addr2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr addr2 - return result' - --- method Address::equal_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_address_equal_by_name" soup_address_equal_by_name :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - Ptr Address -> -- addr2 : TInterface "Soup" "Address" - IO CInt - - -addressEqualByName :: - (MonadIO m, AddressK a, AddressK b) => - a -> -- _obj - b -> -- addr2 - m Bool -addressEqualByName _obj addr2 = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let addr2' = unsafeManagedPtrCastPtr addr2 - result <- soup_address_equal_by_name _obj' addr2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr addr2 - return result' - --- method Address::get_gsockaddr --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "SocketAddress" --- throws : False --- Skip return : False - -foreign import ccall "soup_address_get_gsockaddr" soup_address_get_gsockaddr :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - IO (Ptr Gio.SocketAddress) - - -addressGetGsockaddr :: - (MonadIO m, AddressK a) => - a -> -- _obj - m Gio.SocketAddress -addressGetGsockaddr _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_get_gsockaddr _obj' - checkUnexpectedReturnNULL "soup_address_get_gsockaddr" result - result' <- (wrapObject Gio.SocketAddress) result - touchManagedPtr _obj - return result' - --- method Address::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_address_get_name" soup_address_get_name :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - IO CString - - -addressGetName :: - (MonadIO m, AddressK a) => - a -> -- _obj - m T.Text -addressGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_get_name _obj' - checkUnexpectedReturnNULL "soup_address_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Address::get_physical --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_address_get_physical" soup_address_get_physical :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - IO CString - - -addressGetPhysical :: - (MonadIO m, AddressK a) => - a -> -- _obj - m T.Text -addressGetPhysical _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_get_physical _obj' - checkUnexpectedReturnNULL "soup_address_get_physical" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Address::get_port --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_address_get_port" soup_address_get_port :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - IO Word32 - - -addressGetPort :: - (MonadIO m, AddressK a) => - a -> -- _obj - m Word32 -addressGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_get_port _obj' - touchManagedPtr _obj - return result - --- method Address::hash_by_ip --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_address_hash_by_ip" soup_address_hash_by_ip :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - IO Word32 - - -addressHashByIp :: - (MonadIO m, AddressK a) => - a -> -- _obj - m Word32 -addressHashByIp _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_hash_by_ip _obj' - touchManagedPtr _obj - return result - --- method Address::hash_by_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_address_hash_by_name" soup_address_hash_by_name :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - IO Word32 - - -addressHashByName :: - (MonadIO m, AddressK a) => - a -> -- _obj - m Word32 -addressHashByName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_hash_by_name _obj' - touchManagedPtr _obj - return result - --- method Address::is_resolved --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_address_is_resolved" soup_address_is_resolved :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - IO CInt - - -addressIsResolved :: - (MonadIO m, AddressK a) => - a -> -- _obj - m Bool -addressIsResolved _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_is_resolved _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Address::resolve_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, 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" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_address_resolve_async" soup_address_resolve_async :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - Ptr GLib.MainContext -> -- async_context : TInterface "GLib" "MainContext" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AddressCallbackC -> -- callback : TInterface "Soup" "AddressCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -addressResolveAsync :: - (MonadIO m, AddressK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (GLib.MainContext) -> -- async_context - Maybe (b) -> -- cancellable - AddressCallback -> -- callback - m () -addressResolveAsync _obj async_context cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAsync_context <- case async_context of - Nothing -> return nullPtr - Just jAsync_context -> do - let jAsync_context' = unsafeManagedPtrGetPtr jAsync_context - return jAsync_context' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC)) - callback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let user_data = nullPtr - soup_address_resolve_async _obj' maybeAsync_context maybeCancellable callback' user_data - touchManagedPtr _obj - whenJust async_context touchManagedPtr - whenJust cancellable touchManagedPtr - return () - --- method Address::resolve_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_address_resolve_sync" soup_address_resolve_sync :: - Ptr Address -> -- _obj : TInterface "Soup" "Address" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO Word32 - - -addressResolveSync :: - (MonadIO m, AddressK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Word32 -addressResolveSync _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- soup_address_resolve_sync _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - - diff --git a/GI/Soup/Objects/Address.hs-boot b/GI/Soup/Objects/Address.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Address.hs-boot +++ /dev/null @@ -1,19 +0,0 @@ -module GI.Soup.Objects.Address 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 - -newtype Address = Address (ForeignPtr Address) -instance GObject Address where -class GObject o => AddressK o -instance (GObject o, IsDescendantOf Address o) => AddressK o -data AddressFamilyPropertyInfo -data AddressNamePropertyInfo -data AddressPhysicalPropertyInfo -data AddressPortPropertyInfo -data AddressProtocolPropertyInfo -data AddressSockaddrPropertyInfo diff --git a/GI/Soup/Objects/Auth.hs b/GI/Soup/Objects/Auth.hs deleted file mode 100644 --- a/GI/Soup/Objects/Auth.hs +++ /dev/null @@ -1,736 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Auth - ( - --- * Exported types - Auth(..) , - AuthK , - toAuth , - noAuth , - - - -- * Methods --- ** authAuthenticate - authAuthenticate , - - --- ** authGetAuthorization - authGetAuthorization , - - --- ** authGetHost - authGetHost , - - --- ** authGetInfo - authGetInfo , - - --- ** authGetProtectionSpace - authGetProtectionSpace , - - --- ** authGetRealm - authGetRealm , - - --- ** authGetSavedPassword - authGetSavedPassword , - - --- ** authGetSavedUsers - authGetSavedUsers , - - --- ** authGetSchemeName - authGetSchemeName , - - --- ** authHasSavedPassword - authHasSavedPassword , - - --- ** authIsAuthenticated - authIsAuthenticated , - - --- ** authIsForProxy - authIsForProxy , - - --- ** authIsReady - authIsReady , - - --- ** authNew - authNew , - - --- ** authSavePassword - authSavePassword , - - --- ** authUpdate - authUpdate , - - - - - -- * Properties --- ** Host - AuthHostPropertyInfo , - constructAuthHost , - getAuthHost , - setAuthHost , - - --- ** IsAuthenticated - AuthIsAuthenticatedPropertyInfo , - getAuthIsAuthenticated , - - --- ** IsForProxy - AuthIsForProxyPropertyInfo , - constructAuthIsForProxy , - getAuthIsForProxy , - setAuthIsForProxy , - - --- ** Realm - AuthRealmPropertyInfo , - constructAuthRealm , - getAuthRealm , - setAuthRealm , - - --- ** SchemeName - AuthSchemeNamePropertyInfo , - getAuthSchemeName , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype Auth = Auth (ForeignPtr Auth) -foreign import ccall "soup_auth_get_type" - c_soup_auth_get_type :: IO GType - -type instance ParentTypes Auth = AuthParentTypes -type AuthParentTypes = '[GObject.Object] - -instance GObject Auth where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_get_type - - -class GObject o => AuthK o -instance (GObject o, IsDescendantOf Auth o) => AuthK o - -toAuth :: AuthK o => o -> IO Auth -toAuth = unsafeCastTo Auth - -noAuth :: Maybe Auth -noAuth = Nothing - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthHost :: (MonadIO m, AuthK o) => o -> m T.Text -getAuthHost obj = liftIO $ getObjectPropertyString obj "host" - -setAuthHost :: (MonadIO m, AuthK o) => o -> T.Text -> m () -setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" val - -constructAuthHost :: T.Text -> IO ([Char], GValue) -constructAuthHost val = constructObjectPropertyString "host" val - -data AuthHostPropertyInfo -instance AttrInfo AuthHostPropertyInfo where - type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthHostPropertyInfo = AuthK - type AttrGetType AuthHostPropertyInfo = T.Text - type AttrLabel AuthHostPropertyInfo = "Auth::host" - attrGet _ = getAuthHost - attrSet _ = setAuthHost - attrConstruct _ = constructAuthHost - --- VVV Prop "is-authenticated" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getAuthIsAuthenticated :: (MonadIO m, AuthK o) => o -> m Bool -getAuthIsAuthenticated obj = liftIO $ getObjectPropertyBool obj "is-authenticated" - -data AuthIsAuthenticatedPropertyInfo -instance AttrInfo AuthIsAuthenticatedPropertyInfo where - type AttrAllowedOps AuthIsAuthenticatedPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint AuthIsAuthenticatedPropertyInfo = (~) () - type AttrBaseTypeConstraint AuthIsAuthenticatedPropertyInfo = AuthK - type AttrGetType AuthIsAuthenticatedPropertyInfo = Bool - type AttrLabel AuthIsAuthenticatedPropertyInfo = "Auth::is-authenticated" - attrGet _ = getAuthIsAuthenticated - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "is-for-proxy" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthIsForProxy :: (MonadIO m, AuthK o) => o -> m Bool -getAuthIsForProxy obj = liftIO $ getObjectPropertyBool obj "is-for-proxy" - -setAuthIsForProxy :: (MonadIO m, AuthK o) => o -> Bool -> m () -setAuthIsForProxy obj val = liftIO $ setObjectPropertyBool obj "is-for-proxy" val - -constructAuthIsForProxy :: Bool -> IO ([Char], GValue) -constructAuthIsForProxy val = constructObjectPropertyBool "is-for-proxy" val - -data AuthIsForProxyPropertyInfo -instance AttrInfo AuthIsForProxyPropertyInfo where - type AttrAllowedOps AuthIsForProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthIsForProxyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AuthIsForProxyPropertyInfo = AuthK - type AttrGetType AuthIsForProxyPropertyInfo = Bool - type AttrLabel AuthIsForProxyPropertyInfo = "Auth::is-for-proxy" - attrGet _ = getAuthIsForProxy - attrSet _ = setAuthIsForProxy - attrConstruct _ = constructAuthIsForProxy - --- VVV Prop "realm" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthRealm :: (MonadIO m, AuthK o) => o -> m T.Text -getAuthRealm obj = liftIO $ getObjectPropertyString obj "realm" - -setAuthRealm :: (MonadIO m, AuthK o) => o -> T.Text -> m () -setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" val - -constructAuthRealm :: T.Text -> IO ([Char], GValue) -constructAuthRealm val = constructObjectPropertyString "realm" val - -data AuthRealmPropertyInfo -instance AttrInfo AuthRealmPropertyInfo where - type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthRealmPropertyInfo = AuthK - type AttrGetType AuthRealmPropertyInfo = T.Text - type AttrLabel AuthRealmPropertyInfo = "Auth::realm" - attrGet _ = getAuthRealm - attrSet _ = setAuthRealm - attrConstruct _ = constructAuthRealm - --- VVV Prop "scheme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -getAuthSchemeName :: (MonadIO m, AuthK o) => o -> m T.Text -getAuthSchemeName obj = liftIO $ getObjectPropertyString obj "scheme-name" - -data AuthSchemeNamePropertyInfo -instance AttrInfo AuthSchemeNamePropertyInfo where - type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) () - type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = AuthK - type AttrGetType AuthSchemeNamePropertyInfo = T.Text - type AttrLabel AuthSchemeNamePropertyInfo = "Auth::scheme-name" - attrGet _ = getAuthSchemeName - attrSet _ = undefined - attrConstruct _ = undefined - -type instance AttributeList Auth = AuthAttributeList -type AuthAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Auth = AuthSignalList -type AuthSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Auth::new --- method type : Constructor --- Args : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Auth" --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_new" soup_auth_new :: - CGType -> -- type : TBasicType TGType - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- auth_header : TBasicType TUTF8 - IO (Ptr Auth) - - -authNew :: - (MonadIO m, MessageK a) => - GType -> -- type - a -> -- msg - T.Text -> -- auth_header - m Auth -authNew type_ msg auth_header = liftIO $ do - let type_' = gtypeToCGType type_ - let msg' = unsafeManagedPtrCastPtr msg - auth_header' <- textToCString auth_header - result <- soup_auth_new type_' msg' auth_header' - checkUnexpectedReturnNULL "soup_auth_new" result - result' <- (wrapObject Auth) result - touchManagedPtr msg - freeMem auth_header' - return result' - --- method Auth::authenticate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_authenticate" soup_auth_authenticate :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - CString -> -- username : TBasicType TUTF8 - CString -> -- password : TBasicType TUTF8 - IO () - - -authAuthenticate :: - (MonadIO m, AuthK a) => - a -> -- _obj - T.Text -> -- username - T.Text -> -- password - m () -authAuthenticate _obj username password = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - username' <- textToCString username - password' <- textToCString password - soup_auth_authenticate _obj' username' password' - touchManagedPtr _obj - freeMem username' - freeMem password' - return () - --- method Auth::get_authorization --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_get_authorization" soup_auth_get_authorization :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO CString - - -authGetAuthorization :: - (MonadIO m, AuthK a, MessageK b) => - a -> -- _obj - b -> -- msg - m T.Text -authGetAuthorization _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_auth_get_authorization _obj' msg' - checkUnexpectedReturnNULL "soup_auth_get_authorization" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr msg - return result' - --- method Auth::get_host --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_get_host" soup_auth_get_host :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - IO CString - - -authGetHost :: - (MonadIO m, AuthK a) => - a -> -- _obj - m T.Text -authGetHost _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_get_host _obj' - checkUnexpectedReturnNULL "soup_auth_get_host" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Auth::get_info --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_get_info" soup_auth_get_info :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - IO CString - - -authGetInfo :: - (MonadIO m, AuthK a) => - a -> -- _obj - m T.Text -authGetInfo _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_get_info _obj' - checkUnexpectedReturnNULL "soup_auth_get_info" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Auth::get_protection_space --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_get_protection_space" soup_auth_get_protection_space :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - Ptr URI -> -- source_uri : TInterface "Soup" "URI" - IO (Ptr (GSList CString)) - - -authGetProtectionSpace :: - (MonadIO m, AuthK a) => - a -> -- _obj - URI -> -- source_uri - m [T.Text] -authGetProtectionSpace _obj source_uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let source_uri' = unsafeManagedPtrGetPtr source_uri - result <- soup_auth_get_protection_space _obj' source_uri' - checkUnexpectedReturnNULL "soup_auth_get_protection_space" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - touchManagedPtr source_uri - return result'' - --- method Auth::get_realm --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_get_realm" soup_auth_get_realm :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - IO CString - - -authGetRealm :: - (MonadIO m, AuthK a) => - a -> -- _obj - m T.Text -authGetRealm _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_get_realm _obj' - checkUnexpectedReturnNULL "soup_auth_get_realm" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Auth::get_saved_password --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", 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_auth_get_saved_password" soup_auth_get_saved_password :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - CString -> -- user : TBasicType TUTF8 - IO CString - - -authGetSavedPassword :: - (MonadIO m, AuthK a) => - a -> -- _obj - T.Text -> -- user - m T.Text -authGetSavedPassword _obj user = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - user' <- textToCString user - result <- soup_auth_get_saved_password _obj' user' - checkUnexpectedReturnNULL "soup_auth_get_saved_password" result - result' <- cstringToText result - touchManagedPtr _obj - freeMem user' - return result' - --- method Auth::get_saved_users --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TBasicType TUTF8) --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_get_saved_users" soup_auth_get_saved_users :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - IO (Ptr (GSList CString)) - - -authGetSavedUsers :: - (MonadIO m, AuthK a) => - a -> -- _obj - m [T.Text] -authGetSavedUsers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_get_saved_users _obj' - checkUnexpectedReturnNULL "soup_auth_get_saved_users" result - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - --- method Auth::get_scheme_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_get_scheme_name" soup_auth_get_scheme_name :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - IO CString - - -authGetSchemeName :: - (MonadIO m, AuthK a) => - a -> -- _obj - m T.Text -authGetSchemeName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_get_scheme_name _obj' - checkUnexpectedReturnNULL "soup_auth_get_scheme_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Auth::has_saved_password --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_has_saved_password" soup_auth_has_saved_password :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - CString -> -- username : TBasicType TUTF8 - CString -> -- password : TBasicType TUTF8 - IO () - - -authHasSavedPassword :: - (MonadIO m, AuthK a) => - a -> -- _obj - T.Text -> -- username - T.Text -> -- password - m () -authHasSavedPassword _obj username password = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - username' <- textToCString username - password' <- textToCString password - soup_auth_has_saved_password _obj' username' password' - touchManagedPtr _obj - freeMem username' - freeMem password' - return () - --- method Auth::is_authenticated --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_is_authenticated" soup_auth_is_authenticated :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - IO CInt - - -authIsAuthenticated :: - (MonadIO m, AuthK a) => - a -> -- _obj - m Bool -authIsAuthenticated _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_is_authenticated _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Auth::is_for_proxy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_is_for_proxy" soup_auth_is_for_proxy :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - IO CInt - - -authIsForProxy :: - (MonadIO m, AuthK a) => - a -> -- _obj - m Bool -authIsForProxy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_is_for_proxy _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Auth::is_ready --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_is_ready" soup_auth_is_ready :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO CInt - - -authIsReady :: - (MonadIO m, AuthK a, MessageK b) => - a -> -- _obj - b -> -- msg - m Bool -authIsReady _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_auth_is_ready _obj' msg' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - return result' - --- method Auth::save_password --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_save_password" soup_auth_save_password :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - CString -> -- username : TBasicType TUTF8 - CString -> -- password : TBasicType TUTF8 - IO () - - -authSavePassword :: - (MonadIO m, AuthK a) => - a -> -- _obj - T.Text -> -- username - T.Text -> -- password - m () -authSavePassword _obj username password = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - username' <- textToCString username - password' <- textToCString password - soup_auth_save_password _obj' username' password' - touchManagedPtr _obj - freeMem username' - freeMem password' - return () - --- method Auth::update --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_header", 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_auth_update" soup_auth_update :: - Ptr Auth -> -- _obj : TInterface "Soup" "Auth" - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- auth_header : TBasicType TUTF8 - IO CInt - - -authUpdate :: - (MonadIO m, AuthK a, MessageK b) => - a -> -- _obj - b -> -- msg - T.Text -> -- auth_header - m Bool -authUpdate _obj msg auth_header = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - auth_header' <- textToCString auth_header - result <- soup_auth_update _obj' msg' auth_header' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - freeMem auth_header' - return result' - - diff --git a/GI/Soup/Objects/Auth.hs-boot b/GI/Soup/Objects/Auth.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Auth.hs-boot +++ /dev/null @@ -1,18 +0,0 @@ -module GI.Soup.Objects.Auth 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 - -newtype Auth = Auth (ForeignPtr Auth) -instance GObject Auth where -class GObject o => AuthK o -instance (GObject o, IsDescendantOf Auth o) => AuthK o -data AuthHostPropertyInfo -data AuthIsAuthenticatedPropertyInfo -data AuthIsForProxyPropertyInfo -data AuthRealmPropertyInfo -data AuthSchemeNamePropertyInfo diff --git a/GI/Soup/Objects/AuthBasic.hs b/GI/Soup/Objects/AuthBasic.hs deleted file mode 100644 --- a/GI/Soup/Objects/AuthBasic.hs +++ /dev/null @@ -1,58 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.AuthBasic - ( - --- * Exported types - AuthBasic(..) , - AuthBasicK , - toAuthBasic , - noAuthBasic , - - - ) 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 -import qualified GI.GObject as GObject - -newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic) -foreign import ccall "soup_auth_basic_get_type" - c_soup_auth_basic_get_type :: IO GType - -type instance ParentTypes AuthBasic = AuthBasicParentTypes -type AuthBasicParentTypes = '[Auth, GObject.Object] - -instance GObject AuthBasic where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_basic_get_type - - -class GObject o => AuthBasicK o -instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o - -toAuthBasic :: AuthBasicK o => o -> IO AuthBasic -toAuthBasic = unsafeCastTo AuthBasic - -noAuthBasic :: Maybe AuthBasic -noAuthBasic = Nothing - -type instance AttributeList AuthBasic = AuthBasicAttributeList -type AuthBasicAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthBasic = AuthBasicSignalList -type AuthBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Soup/Objects/AuthBasic.hs-boot b/GI/Soup/Objects/AuthBasic.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/AuthBasic.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.AuthBasic 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 - -newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic) -instance GObject AuthBasic where -class GObject o => AuthBasicK o -instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o diff --git a/GI/Soup/Objects/AuthDigest.hs b/GI/Soup/Objects/AuthDigest.hs deleted file mode 100644 --- a/GI/Soup/Objects/AuthDigest.hs +++ /dev/null @@ -1,58 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.AuthDigest - ( - --- * Exported types - AuthDigest(..) , - AuthDigestK , - toAuthDigest , - noAuthDigest , - - - ) 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 -import qualified GI.GObject as GObject - -newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest) -foreign import ccall "soup_auth_digest_get_type" - c_soup_auth_digest_get_type :: IO GType - -type instance ParentTypes AuthDigest = AuthDigestParentTypes -type AuthDigestParentTypes = '[Auth, GObject.Object] - -instance GObject AuthDigest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_digest_get_type - - -class GObject o => AuthDigestK o -instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o - -toAuthDigest :: AuthDigestK o => o -> IO AuthDigest -toAuthDigest = unsafeCastTo AuthDigest - -noAuthDigest :: Maybe AuthDigest -noAuthDigest = Nothing - -type instance AttributeList AuthDigest = AuthDigestAttributeList -type AuthDigestAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthDigest = AuthDigestSignalList -type AuthDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Soup/Objects/AuthDigest.hs-boot b/GI/Soup/Objects/AuthDigest.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/AuthDigest.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.AuthDigest 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 - -newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest) -instance GObject AuthDigest where -class GObject o => AuthDigestK o -instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o diff --git a/GI/Soup/Objects/AuthDomain.hs b/GI/Soup/Objects/AuthDomain.hs deleted file mode 100644 --- a/GI/Soup/Objects/AuthDomain.hs +++ /dev/null @@ -1,709 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.AuthDomain - ( - --- * Exported types - AuthDomain(..) , - AuthDomainK , - toAuthDomain , - noAuthDomain , - - - -- * Methods --- ** authDomainAccepts - authDomainAccepts , - - --- ** authDomainAddPath - authDomainAddPath , - - --- ** authDomainBasicSetAuthCallback - authDomainBasicSetAuthCallback , - - --- ** authDomainChallenge - authDomainChallenge , - - --- ** authDomainCheckPassword - authDomainCheckPassword , - - --- ** authDomainCovers - authDomainCovers , - - --- ** authDomainDigestSetAuthCallback - authDomainDigestSetAuthCallback , - - --- ** authDomainGetRealm - authDomainGetRealm , - - --- ** authDomainRemovePath - authDomainRemovePath , - - --- ** authDomainSetFilter - authDomainSetFilter , - - --- ** authDomainSetGenericAuthCallback - authDomainSetGenericAuthCallback , - - --- ** authDomainTryGenericAuthCallback - authDomainTryGenericAuthCallback , - - - - - -- * Properties --- ** AddPath - AuthDomainAddPathPropertyInfo , - constructAuthDomainAddPath , - setAuthDomainAddPath , - - --- ** Filter - AuthDomainFilterPropertyInfo , - constructAuthDomainFilter , - getAuthDomainFilter , - setAuthDomainFilter , - - --- ** FilterData - AuthDomainFilterDataPropertyInfo , - constructAuthDomainFilterData , - getAuthDomainFilterData , - setAuthDomainFilterData , - - --- ** GenericAuthCallback - AuthDomainGenericAuthCallbackPropertyInfo, - constructAuthDomainGenericAuthCallback , - getAuthDomainGenericAuthCallback , - setAuthDomainGenericAuthCallback , - - --- ** GenericAuthData - AuthDomainGenericAuthDataPropertyInfo , - constructAuthDomainGenericAuthData , - getAuthDomainGenericAuthData , - setAuthDomainGenericAuthData , - - --- ** Proxy - AuthDomainProxyPropertyInfo , - constructAuthDomainProxy , - getAuthDomainProxy , - - --- ** Realm - AuthDomainRealmPropertyInfo , - constructAuthDomainRealm , - getAuthDomainRealm , - - --- ** RemovePath - AuthDomainRemovePathPropertyInfo , - constructAuthDomainRemovePath , - setAuthDomainRemovePath , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain) -foreign import ccall "soup_auth_domain_get_type" - c_soup_auth_domain_get_type :: IO GType - -type instance ParentTypes AuthDomain = AuthDomainParentTypes -type AuthDomainParentTypes = '[GObject.Object] - -instance GObject AuthDomain where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_domain_get_type - - -class GObject o => AuthDomainK o -instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o - -toAuthDomain :: AuthDomainK o => o -> IO AuthDomain -toAuthDomain = unsafeCastTo AuthDomain - -noAuthDomain :: Maybe AuthDomain -noAuthDomain = Nothing - --- VVV Prop "add-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m () -setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" val - -constructAuthDomainAddPath :: T.Text -> IO ([Char], GValue) -constructAuthDomainAddPath val = constructObjectPropertyString "add-path" val - -data AuthDomainAddPathPropertyInfo -instance AttrInfo AuthDomainAddPathPropertyInfo where - type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = AuthDomainK - type AttrGetType AuthDomainAddPathPropertyInfo = () - type AttrLabel AuthDomainAddPathPropertyInfo = "AuthDomain::add-path" - attrGet _ = undefined - attrSet _ = setAuthDomainAddPath - attrConstruct _ = constructAuthDomainAddPath - --- VVV Prop "filter" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) -getAuthDomainFilter obj = liftIO $ getObjectPropertyPtr obj "filter" - -setAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () -setAuthDomainFilter obj val = liftIO $ setObjectPropertyPtr obj "filter" val - -constructAuthDomainFilter :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainFilter val = constructObjectPropertyPtr "filter" val - -data AuthDomainFilterPropertyInfo -instance AttrInfo AuthDomainFilterPropertyInfo where - type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = AuthDomainK - type AttrGetType AuthDomainFilterPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainFilterPropertyInfo = "AuthDomain::filter" - attrGet _ = getAuthDomainFilter - attrSet _ = setAuthDomainFilter - attrConstruct _ = constructAuthDomainFilter - --- VVV Prop "filter-data" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) -getAuthDomainFilterData obj = liftIO $ getObjectPropertyPtr obj "filter-data" - -setAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () -setAuthDomainFilterData obj val = liftIO $ setObjectPropertyPtr obj "filter-data" val - -constructAuthDomainFilterData :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainFilterData val = constructObjectPropertyPtr "filter-data" val - -data AuthDomainFilterDataPropertyInfo -instance AttrInfo AuthDomainFilterDataPropertyInfo where - type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = AuthDomainK - type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainFilterDataPropertyInfo = "AuthDomain::filter-data" - attrGet _ = getAuthDomainFilterData - attrSet _ = setAuthDomainFilterData - attrConstruct _ = constructAuthDomainFilterData - --- VVV Prop "generic-auth-callback" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) -getAuthDomainGenericAuthCallback obj = liftIO $ getObjectPropertyPtr obj "generic-auth-callback" - -setAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () -setAuthDomainGenericAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-callback" val - -constructAuthDomainGenericAuthCallback :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainGenericAuthCallback val = constructObjectPropertyPtr "generic-auth-callback" val - -data AuthDomainGenericAuthCallbackPropertyInfo -instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where - type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = AuthDomainK - type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "AuthDomain::generic-auth-callback" - attrGet _ = getAuthDomainGenericAuthCallback - attrSet _ = setAuthDomainGenericAuthCallback - attrConstruct _ = constructAuthDomainGenericAuthCallback - --- VVV Prop "generic-auth-data" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) -getAuthDomainGenericAuthData obj = liftIO $ getObjectPropertyPtr obj "generic-auth-data" - -setAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () -setAuthDomainGenericAuthData obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-data" val - -constructAuthDomainGenericAuthData :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainGenericAuthData val = constructObjectPropertyPtr "generic-auth-data" val - -data AuthDomainGenericAuthDataPropertyInfo -instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where - type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = AuthDomainK - type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "AuthDomain::generic-auth-data" - attrGet _ = getAuthDomainGenericAuthData - attrSet _ = setAuthDomainGenericAuthData - attrConstruct _ = constructAuthDomainGenericAuthData - --- VVV Prop "proxy" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAuthDomainProxy :: (MonadIO m, AuthDomainK o) => o -> m Bool -getAuthDomainProxy obj = liftIO $ getObjectPropertyBool obj "proxy" - -constructAuthDomainProxy :: Bool -> IO ([Char], GValue) -constructAuthDomainProxy val = constructObjectPropertyBool "proxy" val - -data AuthDomainProxyPropertyInfo -instance AttrInfo AuthDomainProxyPropertyInfo where - type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = AuthDomainK - type AttrGetType AuthDomainProxyPropertyInfo = Bool - type AttrLabel AuthDomainProxyPropertyInfo = "AuthDomain::proxy" - attrGet _ = getAuthDomainProxy - attrSet _ = undefined - attrConstruct _ = constructAuthDomainProxy - --- VVV Prop "realm" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getAuthDomainRealm :: (MonadIO m, AuthDomainK o) => o -> m T.Text -getAuthDomainRealm obj = liftIO $ getObjectPropertyString obj "realm" - -constructAuthDomainRealm :: T.Text -> IO ([Char], GValue) -constructAuthDomainRealm val = constructObjectPropertyString "realm" val - -data AuthDomainRealmPropertyInfo -instance AttrInfo AuthDomainRealmPropertyInfo where - type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = AuthDomainK - type AttrGetType AuthDomainRealmPropertyInfo = T.Text - type AttrLabel AuthDomainRealmPropertyInfo = "AuthDomain::realm" - attrGet _ = getAuthDomainRealm - attrSet _ = undefined - attrConstruct _ = constructAuthDomainRealm - --- VVV Prop "remove-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -setAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m () -setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" val - -constructAuthDomainRemovePath :: T.Text -> IO ([Char], GValue) -constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" val - -data AuthDomainRemovePathPropertyInfo -instance AttrInfo AuthDomainRemovePathPropertyInfo where - type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = AuthDomainK - type AttrGetType AuthDomainRemovePathPropertyInfo = () - type AttrLabel AuthDomainRemovePathPropertyInfo = "AuthDomain::remove-path" - attrGet _ = undefined - attrSet _ = setAuthDomainRemovePath - attrConstruct _ = constructAuthDomainRemovePath - -type instance AttributeList AuthDomain = AuthDomainAttributeList -type AuthDomainAttributeList = ('[ '("add-path", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthDomain = AuthDomainSignalList -type AuthDomainSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AuthDomain::accepts --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_accepts" soup_auth_domain_accepts :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO CString - - -authDomainAccepts :: - (MonadIO m, AuthDomainK a, MessageK b) => - a -> -- _obj - b -> -- msg - m T.Text -authDomainAccepts _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_auth_domain_accepts _obj' msg' - checkUnexpectedReturnNULL "soup_auth_domain_accepts" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr msg - return result' - --- method AuthDomain::add_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_auth_domain_add_path" soup_auth_domain_add_path :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - CString -> -- path : TBasicType TUTF8 - IO () - - -authDomainAddPath :: - (MonadIO m, AuthDomainK a) => - a -> -- _obj - T.Text -> -- path - m () -authDomainAddPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - soup_auth_domain_add_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - --- method AuthDomain::basic_set_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_basic_set_auth_callback" soup_auth_domain_basic_set_auth_callback :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - FunPtr AuthDomainBasicAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainBasicAuthCallback" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainBasicSetAuthCallback :: - (MonadIO m, AuthDomainK a) => - a -> -- _obj - AuthDomainBasicAuthCallback -> -- callback - m () -authDomainBasicSetAuthCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkAuthDomainBasicAuthCallback (authDomainBasicAuthCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_basic_set_auth_callback _obj' callback' user_data dnotify - touchManagedPtr _obj - return () - --- method AuthDomain::challenge --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_challenge" soup_auth_domain_challenge :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -authDomainChallenge :: - (MonadIO m, AuthDomainK a, MessageK b) => - a -> -- _obj - b -> -- msg - m () -authDomainChallenge _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_auth_domain_challenge _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - --- method AuthDomain::check_password --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_domain_check_password" soup_auth_domain_check_password :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- username : TBasicType TUTF8 - CString -> -- password : TBasicType TUTF8 - IO CInt - - -authDomainCheckPassword :: - (MonadIO m, AuthDomainK a, MessageK b) => - a -> -- _obj - b -> -- msg - T.Text -> -- username - T.Text -> -- password - m Bool -authDomainCheckPassword _obj msg username password = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - username' <- textToCString username - password' <- textToCString password - result <- soup_auth_domain_check_password _obj' msg' username' password' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - freeMem username' - freeMem password' - return result' - --- method AuthDomain::covers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_covers" soup_auth_domain_covers :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO CInt - - -authDomainCovers :: - (MonadIO m, AuthDomainK a, MessageK b) => - a -> -- _obj - b -> -- msg - m Bool -authDomainCovers _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_auth_domain_covers _obj' msg' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - return result' - --- method AuthDomain::digest_set_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - FunPtr AuthDomainDigestAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainDigestAuthCallback" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainDigestSetAuthCallback :: - (MonadIO m, AuthDomainK a) => - a -> -- _obj - AuthDomainDigestAuthCallback -> -- callback - m () -authDomainDigestSetAuthCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkAuthDomainDigestAuthCallback (authDomainDigestAuthCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_digest_set_auth_callback _obj' callback' user_data dnotify - touchManagedPtr _obj - return () - --- method AuthDomain::get_realm --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_get_realm" soup_auth_domain_get_realm :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - IO CString - - -authDomainGetRealm :: - (MonadIO m, AuthDomainK a) => - a -> -- _obj - m T.Text -authDomainGetRealm _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_domain_get_realm _obj' - checkUnexpectedReturnNULL "soup_auth_domain_get_realm" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method AuthDomain::remove_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_auth_domain_remove_path" soup_auth_domain_remove_path :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - CString -> -- path : TBasicType TUTF8 - IO () - - -authDomainRemovePath :: - (MonadIO m, AuthDomainK a) => - a -> -- _obj - T.Text -> -- path - m () -authDomainRemovePath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - soup_auth_domain_remove_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - --- method AuthDomain::set_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_set_filter" soup_auth_domain_set_filter :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - FunPtr AuthDomainFilterC -> -- filter : TInterface "Soup" "AuthDomainFilter" - Ptr () -> -- filter_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainSetFilter :: - (MonadIO m, AuthDomainK a) => - a -> -- _obj - AuthDomainFilter -> -- filter - m () -authDomainSetFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filter' <- mkAuthDomainFilter (authDomainFilterWrapper Nothing filter) - let filter_data = castFunPtrToPtr filter' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_set_filter _obj' filter' filter_data dnotify - touchManagedPtr _obj - return () - --- method AuthDomain::set_generic_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "auth_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_domain_set_generic_auth_callback" soup_auth_domain_set_generic_auth_callback :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - FunPtr AuthDomainGenericAuthCallbackC -> -- auth_callback : TInterface "Soup" "AuthDomainGenericAuthCallback" - Ptr () -> -- auth_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainSetGenericAuthCallback :: - (MonadIO m, AuthDomainK a) => - a -> -- _obj - AuthDomainGenericAuthCallback -> -- auth_callback - m () -authDomainSetGenericAuthCallback _obj auth_callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - auth_callback' <- mkAuthDomainGenericAuthCallback (authDomainGenericAuthCallbackWrapper Nothing auth_callback) - let auth_data = castFunPtrToPtr auth_callback' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_set_generic_auth_callback _obj' auth_callback' auth_data dnotify - touchManagedPtr _obj - return () - --- method AuthDomain::try_generic_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "username", 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_auth_domain_try_generic_auth_callback" soup_auth_domain_try_generic_auth_callback :: - Ptr AuthDomain -> -- _obj : TInterface "Soup" "AuthDomain" - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- username : TBasicType TUTF8 - IO CInt - - -authDomainTryGenericAuthCallback :: - (MonadIO m, AuthDomainK a, MessageK b) => - a -> -- _obj - b -> -- msg - T.Text -> -- username - m Bool -authDomainTryGenericAuthCallback _obj msg username = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - username' <- textToCString username - result <- soup_auth_domain_try_generic_auth_callback _obj' msg' username' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - freeMem username' - return result' - - diff --git a/GI/Soup/Objects/AuthDomain.hs-boot b/GI/Soup/Objects/AuthDomain.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/AuthDomain.hs-boot +++ /dev/null @@ -1,21 +0,0 @@ -module GI.Soup.Objects.AuthDomain 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 - -newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain) -instance GObject AuthDomain where -class GObject o => AuthDomainK o -instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o -data AuthDomainAddPathPropertyInfo -data AuthDomainFilterPropertyInfo -data AuthDomainFilterDataPropertyInfo -data AuthDomainGenericAuthCallbackPropertyInfo -data AuthDomainGenericAuthDataPropertyInfo -data AuthDomainProxyPropertyInfo -data AuthDomainRealmPropertyInfo -data AuthDomainRemovePathPropertyInfo diff --git a/GI/Soup/Objects/AuthDomainBasic.hs b/GI/Soup/Objects/AuthDomainBasic.hs deleted file mode 100644 --- a/GI/Soup/Objects/AuthDomainBasic.hs +++ /dev/null @@ -1,123 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.AuthDomainBasic - ( - --- * Exported types - AuthDomainBasic(..) , - AuthDomainBasicK , - toAuthDomainBasic , - noAuthDomainBasic , - - - -- * Properties --- ** AuthCallback - AuthDomainBasicAuthCallbackPropertyInfo , - constructAuthDomainBasicAuthCallback , - getAuthDomainBasicAuthCallback , - setAuthDomainBasicAuthCallback , - - --- ** AuthData - AuthDomainBasicAuthDataPropertyInfo , - constructAuthDomainBasicAuthData , - getAuthDomainBasicAuthData , - setAuthDomainBasicAuthData , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic) -foreign import ccall "soup_auth_domain_basic_get_type" - c_soup_auth_domain_basic_get_type :: IO GType - -type instance ParentTypes AuthDomainBasic = AuthDomainBasicParentTypes -type AuthDomainBasicParentTypes = '[AuthDomain, GObject.Object] - -instance GObject AuthDomainBasic where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_domain_basic_get_type - - -class GObject o => AuthDomainBasicK o -instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o - -toAuthDomainBasic :: AuthDomainBasicK o => o -> IO AuthDomainBasic -toAuthDomainBasic = unsafeCastTo AuthDomainBasic - -noAuthDomainBasic :: Maybe AuthDomainBasic -noAuthDomainBasic = Nothing - --- VVV Prop "auth-callback" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ()) -getAuthDomainBasicAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback" - -setAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m () -setAuthDomainBasicAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val - -constructAuthDomainBasicAuthCallback :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainBasicAuthCallback val = constructObjectPropertyPtr "auth-callback" val - -data AuthDomainBasicAuthCallbackPropertyInfo -instance AttrInfo AuthDomainBasicAuthCallbackPropertyInfo where - type AttrAllowedOps AuthDomainBasicAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = AuthDomainBasicK - type AttrGetType AuthDomainBasicAuthCallbackPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainBasicAuthCallbackPropertyInfo = "AuthDomainBasic::auth-callback" - attrGet _ = getAuthDomainBasicAuthCallback - attrSet _ = setAuthDomainBasicAuthCallback - attrConstruct _ = constructAuthDomainBasicAuthCallback - --- VVV Prop "auth-data" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ()) -getAuthDomainBasicAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data" - -setAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m () -setAuthDomainBasicAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val - -constructAuthDomainBasicAuthData :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainBasicAuthData val = constructObjectPropertyPtr "auth-data" val - -data AuthDomainBasicAuthDataPropertyInfo -instance AttrInfo AuthDomainBasicAuthDataPropertyInfo where - type AttrAllowedOps AuthDomainBasicAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainBasicAuthDataPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainBasicAuthDataPropertyInfo = AuthDomainBasicK - type AttrGetType AuthDomainBasicAuthDataPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainBasicAuthDataPropertyInfo = "AuthDomainBasic::auth-data" - attrGet _ = getAuthDomainBasicAuthData - attrSet _ = setAuthDomainBasicAuthData - attrConstruct _ = constructAuthDomainBasicAuthData - -type instance AttributeList AuthDomainBasic = AuthDomainBasicAttributeList -type AuthDomainBasicAttributeList = ('[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainBasicAuthCallbackPropertyInfo), '("auth-data", AuthDomainBasicAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthDomainBasic = AuthDomainBasicSignalList -type AuthDomainBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Soup/Objects/AuthDomainBasic.hs-boot b/GI/Soup/Objects/AuthDomainBasic.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/AuthDomainBasic.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Soup.Objects.AuthDomainBasic 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 - -newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic) -instance GObject AuthDomainBasic where -class GObject o => AuthDomainBasicK o -instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o -data AuthDomainBasicAuthCallbackPropertyInfo -data AuthDomainBasicAuthDataPropertyInfo diff --git a/GI/Soup/Objects/AuthDomainDigest.hs b/GI/Soup/Objects/AuthDomainDigest.hs deleted file mode 100644 --- a/GI/Soup/Objects/AuthDomainDigest.hs +++ /dev/null @@ -1,165 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.AuthDomainDigest - ( - --- * Exported types - AuthDomainDigest(..) , - AuthDomainDigestK , - toAuthDomainDigest , - noAuthDomainDigest , - - - -- * Methods --- ** authDomainDigestEncodePassword - authDomainDigestEncodePassword , - - - - - -- * Properties --- ** AuthCallback - AuthDomainDigestAuthCallbackPropertyInfo, - constructAuthDomainDigestAuthCallback , - getAuthDomainDigestAuthCallback , - setAuthDomainDigestAuthCallback , - - --- ** AuthData - AuthDomainDigestAuthDataPropertyInfo , - constructAuthDomainDigestAuthData , - getAuthDomainDigestAuthData , - setAuthDomainDigestAuthData , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest) -foreign import ccall "soup_auth_domain_digest_get_type" - c_soup_auth_domain_digest_get_type :: IO GType - -type instance ParentTypes AuthDomainDigest = AuthDomainDigestParentTypes -type AuthDomainDigestParentTypes = '[AuthDomain, GObject.Object] - -instance GObject AuthDomainDigest where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_domain_digest_get_type - - -class GObject o => AuthDomainDigestK o -instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o - -toAuthDomainDigest :: AuthDomainDigestK o => o -> IO AuthDomainDigest -toAuthDomainDigest = unsafeCastTo AuthDomainDigest - -noAuthDomainDigest :: Maybe AuthDomainDigest -noAuthDomainDigest = Nothing - --- VVV Prop "auth-callback" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ()) -getAuthDomainDigestAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback" - -setAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m () -setAuthDomainDigestAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val - -constructAuthDomainDigestAuthCallback :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainDigestAuthCallback val = constructObjectPropertyPtr "auth-callback" val - -data AuthDomainDigestAuthCallbackPropertyInfo -instance AttrInfo AuthDomainDigestAuthCallbackPropertyInfo where - type AttrAllowedOps AuthDomainDigestAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = AuthDomainDigestK - type AttrGetType AuthDomainDigestAuthCallbackPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainDigestAuthCallbackPropertyInfo = "AuthDomainDigest::auth-callback" - attrGet _ = getAuthDomainDigestAuthCallback - attrSet _ = setAuthDomainDigestAuthCallback - attrConstruct _ = constructAuthDomainDigestAuthCallback - --- VVV Prop "auth-data" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ()) -getAuthDomainDigestAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data" - -setAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m () -setAuthDomainDigestAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val - -constructAuthDomainDigestAuthData :: (Ptr ()) -> IO ([Char], GValue) -constructAuthDomainDigestAuthData val = constructObjectPropertyPtr "auth-data" val - -data AuthDomainDigestAuthDataPropertyInfo -instance AttrInfo AuthDomainDigestAuthDataPropertyInfo where - type AttrAllowedOps AuthDomainDigestAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint AuthDomainDigestAuthDataPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint AuthDomainDigestAuthDataPropertyInfo = AuthDomainDigestK - type AttrGetType AuthDomainDigestAuthDataPropertyInfo = (Ptr ()) - type AttrLabel AuthDomainDigestAuthDataPropertyInfo = "AuthDomainDigest::auth-data" - attrGet _ = getAuthDomainDigestAuthData - attrSet _ = setAuthDomainDigestAuthData - attrConstruct _ = constructAuthDomainDigestAuthData - -type instance AttributeList AuthDomainDigest = AuthDomainDigestAttributeList -type AuthDomainDigestAttributeList = ('[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainDigestAuthCallbackPropertyInfo), '("auth-data", AuthDomainDigestAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthDomainDigest = AuthDomainDigestSignalList -type AuthDomainDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AuthDomainDigest::encode_password --- method type : MemberFunction --- Args : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", 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_auth_domain_digest_encode_password" soup_auth_domain_digest_encode_password :: - CString -> -- username : TBasicType TUTF8 - CString -> -- realm : TBasicType TUTF8 - CString -> -- password : TBasicType TUTF8 - IO CString - - -authDomainDigestEncodePassword :: - (MonadIO m) => - T.Text -> -- username - T.Text -> -- realm - T.Text -> -- password - m T.Text -authDomainDigestEncodePassword username realm password = liftIO $ do - username' <- textToCString username - realm' <- textToCString realm - password' <- textToCString password - result <- soup_auth_domain_digest_encode_password username' realm' password' - checkUnexpectedReturnNULL "soup_auth_domain_digest_encode_password" result - result' <- cstringToText result - freeMem result - freeMem username' - freeMem realm' - freeMem password' - return result' - - diff --git a/GI/Soup/Objects/AuthDomainDigest.hs-boot b/GI/Soup/Objects/AuthDomainDigest.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/AuthDomainDigest.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Soup.Objects.AuthDomainDigest 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 - -newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest) -instance GObject AuthDomainDigest where -class GObject o => AuthDomainDigestK o -instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o -data AuthDomainDigestAuthCallbackPropertyInfo -data AuthDomainDigestAuthDataPropertyInfo diff --git a/GI/Soup/Objects/AuthManager.hs b/GI/Soup/Objects/AuthManager.hs deleted file mode 100644 --- a/GI/Soup/Objects/AuthManager.hs +++ /dev/null @@ -1,167 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.AuthManager - ( - --- * Exported types - AuthManager(..) , - AuthManagerK , - toAuthManager , - noAuthManager , - - - -- * Methods --- ** authManagerUseAuth - authManagerUseAuth , - - - - - -- * Signals --- ** Authenticate - AuthManagerAuthenticateCallback , - AuthManagerAuthenticateCallbackC , - AuthManagerAuthenticateSignalInfo , - afterAuthManagerAuthenticate , - authManagerAuthenticateCallbackWrapper , - authManagerAuthenticateClosure , - mkAuthManagerAuthenticateCallback , - noAuthManagerAuthenticateCallback , - onAuthManagerAuthenticate , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype AuthManager = AuthManager (ForeignPtr AuthManager) -foreign import ccall "soup_auth_manager_get_type" - c_soup_auth_manager_get_type :: IO GType - -type instance ParentTypes AuthManager = AuthManagerParentTypes -type AuthManagerParentTypes = '[GObject.Object, SessionFeature] - -instance GObject AuthManager where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_manager_get_type - - -class GObject o => AuthManagerK o -instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o - -toAuthManager :: AuthManagerK o => o -> IO AuthManager -toAuthManager = unsafeCastTo AuthManager - -noAuthManager :: Maybe AuthManager -noAuthManager = Nothing - --- signal AuthManager::authenticate -type AuthManagerAuthenticateCallback = - Message -> - Auth -> - Bool -> - IO () - -noAuthManagerAuthenticateCallback :: Maybe AuthManagerAuthenticateCallback -noAuthManagerAuthenticateCallback = Nothing - -type AuthManagerAuthenticateCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr Auth -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkAuthManagerAuthenticateCallback :: AuthManagerAuthenticateCallbackC -> IO (FunPtr AuthManagerAuthenticateCallbackC) - -authManagerAuthenticateClosure :: AuthManagerAuthenticateCallback -> IO Closure -authManagerAuthenticateClosure cb = newCClosure =<< mkAuthManagerAuthenticateCallback wrapped - where wrapped = authManagerAuthenticateCallbackWrapper cb - -authManagerAuthenticateCallbackWrapper :: - AuthManagerAuthenticateCallback -> - Ptr () -> - Ptr Message -> - Ptr Auth -> - CInt -> - Ptr () -> - IO () -authManagerAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do - msg' <- (newObject Message) msg - auth' <- (newObject Auth) auth - let retrying' = (/= 0) retrying - _cb msg' auth' retrying' - -onAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId -onAuthManagerAuthenticate obj cb = liftIO $ connectAuthManagerAuthenticate obj cb SignalConnectBefore -afterAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId -afterAuthManagerAuthenticate obj cb = connectAuthManagerAuthenticate obj cb SignalConnectAfter - -connectAuthManagerAuthenticate :: (GObject a, MonadIO m) => - a -> AuthManagerAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId -connectAuthManagerAuthenticate obj cb after = liftIO $ do - cb' <- mkAuthManagerAuthenticateCallback (authManagerAuthenticateCallbackWrapper cb) - connectSignalFunPtr obj "authenticate" cb' after - -type instance AttributeList AuthManager = AuthManagerAttributeList -type AuthManagerAttributeList = ('[ ] :: [(Symbol, *)]) - -data AuthManagerAuthenticateSignalInfo -instance SignalInfo AuthManagerAuthenticateSignalInfo where - type HaskellCallbackType AuthManagerAuthenticateSignalInfo = AuthManagerAuthenticateCallback - connectSignal _ = connectAuthManagerAuthenticate - -type instance SignalList AuthManager = AuthManagerSignalList -type AuthManagerSignalList = ('[ '("authenticate", AuthManagerAuthenticateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AuthManager::use_auth --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_auth_manager_use_auth" soup_auth_manager_use_auth :: - Ptr AuthManager -> -- _obj : TInterface "Soup" "AuthManager" - Ptr URI -> -- uri : TInterface "Soup" "URI" - Ptr Auth -> -- auth : TInterface "Soup" "Auth" - IO () - - -authManagerUseAuth :: - (MonadIO m, AuthManagerK a, AuthK b) => - a -> -- _obj - URI -> -- uri - b -> -- auth - m () -authManagerUseAuth _obj uri auth = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - let auth' = unsafeManagedPtrCastPtr auth - soup_auth_manager_use_auth _obj' uri' auth' - touchManagedPtr _obj - touchManagedPtr uri - touchManagedPtr auth - return () - - diff --git a/GI/Soup/Objects/AuthManager.hs-boot b/GI/Soup/Objects/AuthManager.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/AuthManager.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Soup.Objects.AuthManager 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 - -newtype AuthManager = AuthManager (ForeignPtr AuthManager) -instance GObject AuthManager where -class GObject o => AuthManagerK o -instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o -data AuthManagerAuthenticateSignalInfo diff --git a/GI/Soup/Objects/AuthNTLM.hs b/GI/Soup/Objects/AuthNTLM.hs deleted file mode 100644 --- a/GI/Soup/Objects/AuthNTLM.hs +++ /dev/null @@ -1,58 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.AuthNTLM - ( - --- * Exported types - AuthNTLM(..) , - AuthNTLMK , - toAuthNTLM , - noAuthNTLM , - - - ) 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 -import qualified GI.GObject as GObject - -newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM) -foreign import ccall "soup_auth_ntlm_get_type" - c_soup_auth_ntlm_get_type :: IO GType - -type instance ParentTypes AuthNTLM = AuthNTLMParentTypes -type AuthNTLMParentTypes = '[Auth, GObject.Object] - -instance GObject AuthNTLM where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_auth_ntlm_get_type - - -class GObject o => AuthNTLMK o -instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o - -toAuthNTLM :: AuthNTLMK o => o -> IO AuthNTLM -toAuthNTLM = unsafeCastTo AuthNTLM - -noAuthNTLM :: Maybe AuthNTLM -noAuthNTLM = Nothing - -type instance AttributeList AuthNTLM = AuthNTLMAttributeList -type AuthNTLMAttributeList = ('[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthNTLM = AuthNTLMSignalList -type AuthNTLMSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Soup/Objects/AuthNTLM.hs-boot b/GI/Soup/Objects/AuthNTLM.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/AuthNTLM.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.AuthNTLM 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 - -newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM) -instance GObject AuthNTLM where -class GObject o => AuthNTLMK o -instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o diff --git a/GI/Soup/Objects/Cache.hs b/GI/Soup/Objects/Cache.hs deleted file mode 100644 --- a/GI/Soup/Objects/Cache.hs +++ /dev/null @@ -1,321 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Cache - ( - --- * Exported types - Cache(..) , - CacheK , - toCache , - noCache , - - - -- * Methods --- ** cacheClear - cacheClear , - - --- ** cacheDump - cacheDump , - - --- ** cacheFlush - cacheFlush , - - --- ** cacheGetMaxSize - cacheGetMaxSize , - - --- ** cacheLoad - cacheLoad , - - --- ** cacheNew - cacheNew , - - --- ** cacheSetMaxSize - cacheSetMaxSize , - - - - - -- * Properties --- ** CacheDir - CacheCacheDirPropertyInfo , - constructCacheCacheDir , - getCacheCacheDir , - - --- ** CacheType - CacheCacheTypePropertyInfo , - constructCacheCacheType , - getCacheCacheType , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype Cache = Cache (ForeignPtr Cache) -foreign import ccall "soup_cache_get_type" - c_soup_cache_get_type :: IO GType - -type instance ParentTypes Cache = CacheParentTypes -type CacheParentTypes = '[GObject.Object, SessionFeature] - -instance GObject Cache where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_cache_get_type - - -class GObject o => CacheK o -instance (GObject o, IsDescendantOf Cache o) => CacheK o - -toCache :: CacheK o => o -> IO Cache -toCache = unsafeCastTo Cache - -noCache :: Maybe Cache -noCache = Nothing - --- VVV Prop "cache-dir" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m T.Text -getCacheCacheDir obj = liftIO $ getObjectPropertyString obj "cache-dir" - -constructCacheCacheDir :: T.Text -> IO ([Char], GValue) -constructCacheCacheDir val = constructObjectPropertyString "cache-dir" val - -data CacheCacheDirPropertyInfo -instance AttrInfo CacheCacheDirPropertyInfo where - type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = CacheK - type AttrGetType CacheCacheDirPropertyInfo = T.Text - type AttrLabel CacheCacheDirPropertyInfo = "Cache::cache-dir" - attrGet _ = getCacheCacheDir - attrSet _ = undefined - attrConstruct _ = constructCacheCacheDir - --- VVV Prop "cache-type" - -- Type: TInterface "Soup" "CacheType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCacheCacheType :: (MonadIO m, CacheK o) => o -> m CacheType -getCacheCacheType obj = liftIO $ getObjectPropertyEnum obj "cache-type" - -constructCacheCacheType :: CacheType -> IO ([Char], GValue) -constructCacheCacheType val = constructObjectPropertyEnum "cache-type" val - -data CacheCacheTypePropertyInfo -instance AttrInfo CacheCacheTypePropertyInfo where - type AttrAllowedOps CacheCacheTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CacheCacheTypePropertyInfo = (~) CacheType - type AttrBaseTypeConstraint CacheCacheTypePropertyInfo = CacheK - type AttrGetType CacheCacheTypePropertyInfo = CacheType - type AttrLabel CacheCacheTypePropertyInfo = "Cache::cache-type" - attrGet _ = getCacheCacheType - attrSet _ = undefined - attrConstruct _ = constructCacheCacheType - -type instance AttributeList Cache = CacheAttributeList -type CacheAttributeList = ('[ '("cache-dir", CacheCacheDirPropertyInfo), '("cache-type", CacheCacheTypePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Cache = CacheSignalList -type CacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Cache::new --- method type : Constructor --- Args : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Cache" --- throws : False --- Skip return : False - -foreign import ccall "soup_cache_new" soup_cache_new :: - CString -> -- cache_dir : TBasicType TUTF8 - CUInt -> -- cache_type : TInterface "Soup" "CacheType" - IO (Ptr Cache) - - -cacheNew :: - (MonadIO m) => - T.Text -> -- cache_dir - CacheType -> -- cache_type - m Cache -cacheNew cache_dir cache_type = liftIO $ do - cache_dir' <- textToCString cache_dir - let cache_type' = (fromIntegral . fromEnum) cache_type - result <- soup_cache_new cache_dir' cache_type' - checkUnexpectedReturnNULL "soup_cache_new" result - result' <- (wrapObject Cache) result - freeMem cache_dir' - return result' - --- method Cache::clear --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cache_clear" soup_cache_clear :: - Ptr Cache -> -- _obj : TInterface "Soup" "Cache" - IO () - - -cacheClear :: - (MonadIO m, CacheK a) => - a -> -- _obj - m () -cacheClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_clear _obj' - touchManagedPtr _obj - return () - --- method Cache::dump --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cache_dump" soup_cache_dump :: - Ptr Cache -> -- _obj : TInterface "Soup" "Cache" - IO () - - -cacheDump :: - (MonadIO m, CacheK a) => - a -> -- _obj - m () -cacheDump _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_dump _obj' - touchManagedPtr _obj - return () - --- method Cache::flush --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cache_flush" soup_cache_flush :: - Ptr Cache -> -- _obj : TInterface "Soup" "Cache" - IO () - - -cacheFlush :: - (MonadIO m, CacheK a) => - a -> -- _obj - m () -cacheFlush _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_flush _obj' - touchManagedPtr _obj - return () - --- method Cache::get_max_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_cache_get_max_size" soup_cache_get_max_size :: - Ptr Cache -> -- _obj : TInterface "Soup" "Cache" - IO Word32 - - -cacheGetMaxSize :: - (MonadIO m, CacheK a) => - a -> -- _obj - m Word32 -cacheGetMaxSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_cache_get_max_size _obj' - touchManagedPtr _obj - return result - --- method Cache::load --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cache_load" soup_cache_load :: - Ptr Cache -> -- _obj : TInterface "Soup" "Cache" - IO () - - -cacheLoad :: - (MonadIO m, CacheK a) => - a -> -- _obj - m () -cacheLoad _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_load _obj' - touchManagedPtr _obj - return () - --- method Cache::set_max_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_size", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cache_set_max_size" soup_cache_set_max_size :: - Ptr Cache -> -- _obj : TInterface "Soup" "Cache" - Word32 -> -- max_size : TBasicType TUInt32 - IO () - - -cacheSetMaxSize :: - (MonadIO m, CacheK a) => - a -> -- _obj - Word32 -> -- max_size - m () -cacheSetMaxSize _obj max_size = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_set_max_size _obj' max_size - touchManagedPtr _obj - return () - - diff --git a/GI/Soup/Objects/Cache.hs-boot b/GI/Soup/Objects/Cache.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Cache.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Soup.Objects.Cache 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 - -newtype Cache = Cache (ForeignPtr Cache) -instance GObject Cache where -class GObject o => CacheK o -instance (GObject o, IsDescendantOf Cache o) => CacheK o -data CacheCacheDirPropertyInfo -data CacheCacheTypePropertyInfo diff --git a/GI/Soup/Objects/ContentDecoder.hs b/GI/Soup/Objects/ContentDecoder.hs deleted file mode 100644 --- a/GI/Soup/Objects/ContentDecoder.hs +++ /dev/null @@ -1,58 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.ContentDecoder - ( - --- * Exported types - ContentDecoder(..) , - ContentDecoderK , - toContentDecoder , - noContentDecoder , - - - ) 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 -import qualified GI.GObject as GObject - -newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder) -foreign import ccall "soup_content_decoder_get_type" - c_soup_content_decoder_get_type :: IO GType - -type instance ParentTypes ContentDecoder = ContentDecoderParentTypes -type ContentDecoderParentTypes = '[GObject.Object, SessionFeature] - -instance GObject ContentDecoder where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_content_decoder_get_type - - -class GObject o => ContentDecoderK o -instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o - -toContentDecoder :: ContentDecoderK o => o -> IO ContentDecoder -toContentDecoder = unsafeCastTo ContentDecoder - -noContentDecoder :: Maybe ContentDecoder -noContentDecoder = Nothing - -type instance AttributeList ContentDecoder = ContentDecoderAttributeList -type ContentDecoderAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContentDecoder = ContentDecoderSignalList -type ContentDecoderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Soup/Objects/ContentDecoder.hs-boot b/GI/Soup/Objects/ContentDecoder.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/ContentDecoder.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.ContentDecoder 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 - -newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder) -instance GObject ContentDecoder where -class GObject o => ContentDecoderK o -instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o diff --git a/GI/Soup/Objects/ContentSniffer.hs b/GI/Soup/Objects/ContentSniffer.hs deleted file mode 100644 --- a/GI/Soup/Objects/ContentSniffer.hs +++ /dev/null @@ -1,165 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.ContentSniffer - ( - --- * Exported types - ContentSniffer(..) , - ContentSnifferK , - toContentSniffer , - noContentSniffer , - - - -- * Methods --- ** contentSnifferGetBufferSize - contentSnifferGetBufferSize , - - --- ** contentSnifferNew - contentSnifferNew , - - --- ** contentSnifferSniff - contentSnifferSniff , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer) -foreign import ccall "soup_content_sniffer_get_type" - c_soup_content_sniffer_get_type :: IO GType - -type instance ParentTypes ContentSniffer = ContentSnifferParentTypes -type ContentSnifferParentTypes = '[GObject.Object, SessionFeature] - -instance GObject ContentSniffer where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_content_sniffer_get_type - - -class GObject o => ContentSnifferK o -instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o - -toContentSniffer :: ContentSnifferK o => o -> IO ContentSniffer -toContentSniffer = unsafeCastTo ContentSniffer - -noContentSniffer :: Maybe ContentSniffer -noContentSniffer = Nothing - -type instance AttributeList ContentSniffer = ContentSnifferAttributeList -type ContentSnifferAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContentSniffer = ContentSnifferSignalList -type ContentSnifferSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ContentSniffer::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Soup" "ContentSniffer" --- throws : False --- Skip return : False - -foreign import ccall "soup_content_sniffer_new" soup_content_sniffer_new :: - IO (Ptr ContentSniffer) - - -contentSnifferNew :: - (MonadIO m) => - m ContentSniffer -contentSnifferNew = liftIO $ do - result <- soup_content_sniffer_new - checkUnexpectedReturnNULL "soup_content_sniffer_new" result - result' <- (wrapObject ContentSniffer) result - return result' - --- method ContentSniffer::get_buffer_size --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt64 --- throws : False --- Skip return : False - -foreign import ccall "soup_content_sniffer_get_buffer_size" soup_content_sniffer_get_buffer_size :: - Ptr ContentSniffer -> -- _obj : TInterface "Soup" "ContentSniffer" - IO Word64 - - -contentSnifferGetBufferSize :: - (MonadIO m, ContentSnifferK a) => - a -> -- _obj - m Word64 -contentSnifferGetBufferSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_content_sniffer_get_buffer_size _obj' - touchManagedPtr _obj - return result - --- method ContentSniffer::sniff --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", 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" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_content_sniffer_sniff" soup_content_sniffer_sniff :: - Ptr ContentSniffer -> -- _obj : TInterface "Soup" "ContentSniffer" - Ptr Message -> -- msg : TInterface "Soup" "Message" - Ptr Buffer -> -- buffer : TInterface "Soup" "Buffer" - Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8) - IO CString - - -contentSnifferSniff :: - (MonadIO m, ContentSnifferK a, MessageK b) => - a -> -- _obj - b -> -- msg - Buffer -> -- buffer - m (T.Text,(Map.Map T.Text T.Text)) -contentSnifferSniff _obj msg buffer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - let buffer' = unsafeManagedPtrGetPtr buffer - params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString))) - result <- soup_content_sniffer_sniff _obj' msg' buffer' params - checkUnexpectedReturnNULL "soup_content_sniffer_sniff" result - result' <- cstringToText result - freeMem 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 - touchManagedPtr msg - touchManagedPtr buffer - freeMem params - return (result', params''''''') - - diff --git a/GI/Soup/Objects/ContentSniffer.hs-boot b/GI/Soup/Objects/ContentSniffer.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/ContentSniffer.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.ContentSniffer 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 - -newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer) -instance GObject ContentSniffer where -class GObject o => ContentSnifferK o -instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o diff --git a/GI/Soup/Objects/CookieJar.hs b/GI/Soup/Objects/CookieJar.hs deleted file mode 100644 --- a/GI/Soup/Objects/CookieJar.hs +++ /dev/null @@ -1,616 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.CookieJar - ( - --- * Exported types - CookieJar(..) , - CookieJarK , - toCookieJar , - noCookieJar , - - - -- * Methods --- ** cookieJarAddCookie - cookieJarAddCookie , - - --- ** cookieJarAddCookieWithFirstParty - cookieJarAddCookieWithFirstParty , - - --- ** cookieJarAllCookies - cookieJarAllCookies , - - --- ** cookieJarDeleteCookie - cookieJarDeleteCookie , - - --- ** cookieJarGetAcceptPolicy - cookieJarGetAcceptPolicy , - - --- ** cookieJarGetCookieList - cookieJarGetCookieList , - - --- ** cookieJarGetCookies - cookieJarGetCookies , - - --- ** cookieJarIsPersistent - cookieJarIsPersistent , - - --- ** cookieJarNew - cookieJarNew , - - --- ** cookieJarSave - cookieJarSave , - - --- ** cookieJarSetAcceptPolicy - cookieJarSetAcceptPolicy , - - --- ** cookieJarSetCookie - cookieJarSetCookie , - - --- ** cookieJarSetCookieWithFirstParty - cookieJarSetCookieWithFirstParty , - - - - - -- * Properties --- ** AcceptPolicy - CookieJarAcceptPolicyPropertyInfo , - constructCookieJarAcceptPolicy , - getCookieJarAcceptPolicy , - setCookieJarAcceptPolicy , - - --- ** ReadOnly - CookieJarReadOnlyPropertyInfo , - constructCookieJarReadOnly , - getCookieJarReadOnly , - - - - - -- * Signals --- ** Changed - CookieJarChangedCallback , - CookieJarChangedCallbackC , - CookieJarChangedSignalInfo , - afterCookieJarChanged , - cookieJarChangedCallbackWrapper , - cookieJarChangedClosure , - mkCookieJarChangedCallback , - noCookieJarChangedCallback , - onCookieJarChanged , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype CookieJar = CookieJar (ForeignPtr CookieJar) -foreign import ccall "soup_cookie_jar_get_type" - c_soup_cookie_jar_get_type :: IO GType - -type instance ParentTypes CookieJar = CookieJarParentTypes -type CookieJarParentTypes = '[GObject.Object, SessionFeature] - -instance GObject CookieJar where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_cookie_jar_get_type - - -class GObject o => CookieJarK o -instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o - -toCookieJar :: CookieJarK o => o -> IO CookieJar -toCookieJar = unsafeCastTo CookieJar - -noCookieJar :: Maybe CookieJar -noCookieJar = Nothing - --- signal CookieJar::changed -type CookieJarChangedCallback = - Cookie -> - Cookie -> - IO () - -noCookieJarChangedCallback :: Maybe CookieJarChangedCallback -noCookieJarChangedCallback = Nothing - -type CookieJarChangedCallbackC = - Ptr () -> -- object - Ptr Cookie -> - Ptr Cookie -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkCookieJarChangedCallback :: CookieJarChangedCallbackC -> IO (FunPtr CookieJarChangedCallbackC) - -cookieJarChangedClosure :: CookieJarChangedCallback -> IO Closure -cookieJarChangedClosure cb = newCClosure =<< mkCookieJarChangedCallback wrapped - where wrapped = cookieJarChangedCallbackWrapper cb - -cookieJarChangedCallbackWrapper :: - CookieJarChangedCallback -> - Ptr () -> - Ptr Cookie -> - Ptr Cookie -> - Ptr () -> - IO () -cookieJarChangedCallbackWrapper _cb _ old_cookie new_cookie _ = do - old_cookie' <- (newBoxed Cookie) old_cookie - new_cookie' <- (newBoxed Cookie) new_cookie - _cb old_cookie' new_cookie' - -onCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId -onCookieJarChanged obj cb = liftIO $ connectCookieJarChanged obj cb SignalConnectBefore -afterCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId -afterCookieJarChanged obj cb = connectCookieJarChanged obj cb SignalConnectAfter - -connectCookieJarChanged :: (GObject a, MonadIO m) => - a -> CookieJarChangedCallback -> SignalConnectMode -> m SignalHandlerId -connectCookieJarChanged obj cb after = liftIO $ do - cb' <- mkCookieJarChangedCallback (cookieJarChangedCallbackWrapper cb) - connectSignalFunPtr obj "changed" cb' after - --- VVV Prop "accept-policy" - -- Type: TInterface "Soup" "CookieJarAcceptPolicy" - -- Flags: [PropertyReadable,PropertyWritable] - -getCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> m CookieJarAcceptPolicy -getCookieJarAcceptPolicy obj = liftIO $ getObjectPropertyEnum obj "accept-policy" - -setCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> CookieJarAcceptPolicy -> m () -setCookieJarAcceptPolicy obj val = liftIO $ setObjectPropertyEnum obj "accept-policy" val - -constructCookieJarAcceptPolicy :: CookieJarAcceptPolicy -> IO ([Char], GValue) -constructCookieJarAcceptPolicy val = constructObjectPropertyEnum "accept-policy" val - -data CookieJarAcceptPolicyPropertyInfo -instance AttrInfo CookieJarAcceptPolicyPropertyInfo where - type AttrAllowedOps CookieJarAcceptPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) CookieJarAcceptPolicy - type AttrBaseTypeConstraint CookieJarAcceptPolicyPropertyInfo = CookieJarK - type AttrGetType CookieJarAcceptPolicyPropertyInfo = CookieJarAcceptPolicy - type AttrLabel CookieJarAcceptPolicyPropertyInfo = "CookieJar::accept-policy" - attrGet _ = getCookieJarAcceptPolicy - attrSet _ = setCookieJarAcceptPolicy - attrConstruct _ = constructCookieJarAcceptPolicy - --- VVV Prop "read-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCookieJarReadOnly :: (MonadIO m, CookieJarK o) => o -> m Bool -getCookieJarReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" - -constructCookieJarReadOnly :: Bool -> IO ([Char], GValue) -constructCookieJarReadOnly val = constructObjectPropertyBool "read-only" val - -data CookieJarReadOnlyPropertyInfo -instance AttrInfo CookieJarReadOnlyPropertyInfo where - type AttrAllowedOps CookieJarReadOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint CookieJarReadOnlyPropertyInfo = CookieJarK - type AttrGetType CookieJarReadOnlyPropertyInfo = Bool - type AttrLabel CookieJarReadOnlyPropertyInfo = "CookieJar::read-only" - attrGet _ = getCookieJarReadOnly - attrSet _ = undefined - attrConstruct _ = constructCookieJarReadOnly - -type instance AttributeList CookieJar = CookieJarAttributeList -type CookieJarAttributeList = ('[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) - -data CookieJarChangedSignalInfo -instance SignalInfo CookieJarChangedSignalInfo where - type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback - connectSignal _ = connectCookieJarChanged - -type instance SignalList CookieJar = CookieJarSignalList -type CookieJarSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CookieJar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Soup" "CookieJar" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_new" soup_cookie_jar_new :: - IO (Ptr CookieJar) - - -cookieJarNew :: - (MonadIO m) => - m CookieJar -cookieJarNew = liftIO $ do - result <- soup_cookie_jar_new - checkUnexpectedReturnNULL "soup_cookie_jar_new" result - result' <- (wrapObject CookieJar) result - return result' - --- method CookieJar::add_cookie --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_add_cookie" soup_cookie_jar_add_cookie :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - Ptr Cookie -> -- cookie : TInterface "Soup" "Cookie" - IO () - - -cookieJarAddCookie :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - Cookie -> -- cookie - m () -cookieJarAddCookie _obj cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - cookie' <- copyBoxed cookie - soup_cookie_jar_add_cookie _obj' cookie' - touchManagedPtr _obj - touchManagedPtr cookie - return () - --- method CookieJar::add_cookie_with_first_party --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_add_cookie_with_first_party" soup_cookie_jar_add_cookie_with_first_party :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - Ptr URI -> -- first_party : TInterface "Soup" "URI" - Ptr Cookie -> -- cookie : TInterface "Soup" "Cookie" - IO () - - -cookieJarAddCookieWithFirstParty :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - URI -> -- first_party - Cookie -> -- cookie - m () -cookieJarAddCookieWithFirstParty _obj first_party cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let first_party' = unsafeManagedPtrGetPtr first_party - cookie' <- copyBoxed cookie - soup_cookie_jar_add_cookie_with_first_party _obj' first_party' cookie' - touchManagedPtr _obj - touchManagedPtr first_party - touchManagedPtr cookie - return () - --- method CookieJar::all_cookies --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Soup" "Cookie") --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_all_cookies" soup_cookie_jar_all_cookies :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - IO (Ptr (GSList (Ptr Cookie))) - - -cookieJarAllCookies :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - m [Cookie] -cookieJarAllCookies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_cookie_jar_all_cookies _obj' - checkUnexpectedReturnNULL "soup_cookie_jar_all_cookies" result - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method CookieJar::delete_cookie --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_delete_cookie" soup_cookie_jar_delete_cookie :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - Ptr Cookie -> -- cookie : TInterface "Soup" "Cookie" - IO () - - -cookieJarDeleteCookie :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - Cookie -> -- cookie - m () -cookieJarDeleteCookie _obj cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let cookie' = unsafeManagedPtrGetPtr cookie - soup_cookie_jar_delete_cookie _obj' cookie' - touchManagedPtr _obj - touchManagedPtr cookie - return () - --- method CookieJar::get_accept_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "CookieJarAcceptPolicy" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_get_accept_policy" soup_cookie_jar_get_accept_policy :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - IO CUInt - - -cookieJarGetAcceptPolicy :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - m CookieJarAcceptPolicy -cookieJarGetAcceptPolicy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_cookie_jar_get_accept_policy _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method CookieJar::get_cookie_list --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Soup" "Cookie") --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_get_cookie_list" soup_cookie_jar_get_cookie_list :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - Ptr URI -> -- uri : TInterface "Soup" "URI" - CInt -> -- for_http : TBasicType TBoolean - IO (Ptr (GSList (Ptr Cookie))) - - -cookieJarGetCookieList :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - URI -> -- uri - Bool -> -- for_http - m [Cookie] -cookieJarGetCookieList _obj uri for_http = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - let for_http' = (fromIntegral . fromEnum) for_http - result <- soup_cookie_jar_get_cookie_list _obj' uri' for_http' - checkUnexpectedReturnNULL "soup_cookie_jar_get_cookie_list" result - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr _obj - touchManagedPtr uri - return result'' - --- method CookieJar::get_cookies --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_get_cookies" soup_cookie_jar_get_cookies :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - Ptr URI -> -- uri : TInterface "Soup" "URI" - CInt -> -- for_http : TBasicType TBoolean - IO CString - - -cookieJarGetCookies :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - URI -> -- uri - Bool -> -- for_http - m T.Text -cookieJarGetCookies _obj uri for_http = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - let for_http' = (fromIntegral . fromEnum) for_http - result <- soup_cookie_jar_get_cookies _obj' uri' for_http' - checkUnexpectedReturnNULL "soup_cookie_jar_get_cookies" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - touchManagedPtr uri - return result' - --- method CookieJar::is_persistent --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_is_persistent" soup_cookie_jar_is_persistent :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - IO CInt - - -cookieJarIsPersistent :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - m Bool -cookieJarIsPersistent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_cookie_jar_is_persistent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method CookieJar::save --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_save" soup_cookie_jar_save :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - IO () - -{-# DEPRECATED cookieJarSave ["This is a no-op."]#-} -cookieJarSave :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - m () -cookieJarSave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cookie_jar_save _obj' - touchManagedPtr _obj - return () - --- method CookieJar::set_accept_policy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_set_accept_policy" soup_cookie_jar_set_accept_policy :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - CUInt -> -- policy : TInterface "Soup" "CookieJarAcceptPolicy" - IO () - - -cookieJarSetAcceptPolicy :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - CookieJarAcceptPolicy -> -- policy - m () -cookieJarSetAcceptPolicy _obj policy = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let policy' = (fromIntegral . fromEnum) policy - soup_cookie_jar_set_accept_policy _obj' policy' - touchManagedPtr _obj - return () - --- method CookieJar::set_cookie --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", 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_cookie_jar_set_cookie" soup_cookie_jar_set_cookie :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - Ptr URI -> -- uri : TInterface "Soup" "URI" - CString -> -- cookie : TBasicType TUTF8 - IO () - - -cookieJarSetCookie :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - URI -> -- uri - T.Text -> -- cookie - m () -cookieJarSetCookie _obj uri cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - cookie' <- textToCString cookie - soup_cookie_jar_set_cookie _obj' uri' cookie' - touchManagedPtr _obj - touchManagedPtr uri - freeMem cookie' - return () - --- method CookieJar::set_cookie_with_first_party --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie", 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_cookie_jar_set_cookie_with_first_party" soup_cookie_jar_set_cookie_with_first_party :: - Ptr CookieJar -> -- _obj : TInterface "Soup" "CookieJar" - Ptr URI -> -- uri : TInterface "Soup" "URI" - Ptr URI -> -- first_party : TInterface "Soup" "URI" - CString -> -- cookie : TBasicType TUTF8 - IO () - - -cookieJarSetCookieWithFirstParty :: - (MonadIO m, CookieJarK a) => - a -> -- _obj - URI -> -- uri - URI -> -- first_party - T.Text -> -- cookie - m () -cookieJarSetCookieWithFirstParty _obj uri first_party cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - let first_party' = unsafeManagedPtrGetPtr first_party - cookie' <- textToCString cookie - soup_cookie_jar_set_cookie_with_first_party _obj' uri' first_party' cookie' - touchManagedPtr _obj - touchManagedPtr uri - touchManagedPtr first_party - freeMem cookie' - return () - - diff --git a/GI/Soup/Objects/CookieJar.hs-boot b/GI/Soup/Objects/CookieJar.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/CookieJar.hs-boot +++ /dev/null @@ -1,16 +0,0 @@ -module GI.Soup.Objects.CookieJar 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 - -newtype CookieJar = CookieJar (ForeignPtr CookieJar) -instance GObject CookieJar where -class GObject o => CookieJarK o -instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o -data CookieJarAcceptPolicyPropertyInfo -data CookieJarReadOnlyPropertyInfo -data CookieJarChangedSignalInfo diff --git a/GI/Soup/Objects/CookieJarDB.hs b/GI/Soup/Objects/CookieJarDB.hs deleted file mode 100644 --- a/GI/Soup/Objects/CookieJarDB.hs +++ /dev/null @@ -1,124 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.CookieJarDB - ( - --- * Exported types - CookieJarDB(..) , - CookieJarDBK , - toCookieJarDB , - noCookieJarDB , - - - -- * Methods --- ** cookieJarDBNew - cookieJarDBNew , - - - - - -- * Properties --- ** Filename - CookieJarDBFilenamePropertyInfo , - constructCookieJarDBFilename , - getCookieJarDBFilename , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB) -foreign import ccall "soup_cookie_jar_db_get_type" - c_soup_cookie_jar_db_get_type :: IO GType - -type instance ParentTypes CookieJarDB = CookieJarDBParentTypes -type CookieJarDBParentTypes = '[CookieJar, GObject.Object, SessionFeature] - -instance GObject CookieJarDB where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_cookie_jar_db_get_type - - -class GObject o => CookieJarDBK o -instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o - -toCookieJarDB :: CookieJarDBK o => o -> IO CookieJarDB -toCookieJarDB = unsafeCastTo CookieJarDB - -noCookieJarDB :: Maybe CookieJarDB -noCookieJarDB = Nothing - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m T.Text -getCookieJarDBFilename obj = liftIO $ getObjectPropertyString obj "filename" - -constructCookieJarDBFilename :: T.Text -> IO ([Char], GValue) -constructCookieJarDBFilename val = constructObjectPropertyString "filename" val - -data CookieJarDBFilenamePropertyInfo -instance AttrInfo CookieJarDBFilenamePropertyInfo where - type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = CookieJarDBK - type AttrGetType CookieJarDBFilenamePropertyInfo = T.Text - type AttrLabel CookieJarDBFilenamePropertyInfo = "CookieJarDB::filename" - attrGet _ = getCookieJarDBFilename - attrSet _ = undefined - attrConstruct _ = constructCookieJarDBFilename - -type instance AttributeList CookieJarDB = CookieJarDBAttributeList -type CookieJarDBAttributeList = ('[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CookieJarDB = CookieJarDBSignalList -type CookieJarDBSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CookieJarDB::new --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "CookieJarDB" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_db_new" soup_cookie_jar_db_new :: - CString -> -- filename : TBasicType TUTF8 - CInt -> -- read_only : TBasicType TBoolean - IO (Ptr CookieJarDB) - - -cookieJarDBNew :: - (MonadIO m) => - T.Text -> -- filename - Bool -> -- read_only - m CookieJarDB -cookieJarDBNew filename read_only = liftIO $ do - filename' <- textToCString filename - let read_only' = (fromIntegral . fromEnum) read_only - result <- soup_cookie_jar_db_new filename' read_only' - checkUnexpectedReturnNULL "soup_cookie_jar_db_new" result - result' <- (wrapObject CookieJarDB) result - freeMem filename' - return result' - - diff --git a/GI/Soup/Objects/CookieJarDB.hs-boot b/GI/Soup/Objects/CookieJarDB.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/CookieJarDB.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Soup.Objects.CookieJarDB 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 - -newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB) -instance GObject CookieJarDB where -class GObject o => CookieJarDBK o -instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o -data CookieJarDBFilenamePropertyInfo diff --git a/GI/Soup/Objects/CookieJarText.hs b/GI/Soup/Objects/CookieJarText.hs deleted file mode 100644 --- a/GI/Soup/Objects/CookieJarText.hs +++ /dev/null @@ -1,124 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.CookieJarText - ( - --- * Exported types - CookieJarText(..) , - CookieJarTextK , - toCookieJarText , - noCookieJarText , - - - -- * Methods --- ** cookieJarTextNew - cookieJarTextNew , - - - - - -- * Properties --- ** Filename - CookieJarTextFilenamePropertyInfo , - constructCookieJarTextFilename , - getCookieJarTextFilename , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText) -foreign import ccall "soup_cookie_jar_text_get_type" - c_soup_cookie_jar_text_get_type :: IO GType - -type instance ParentTypes CookieJarText = CookieJarTextParentTypes -type CookieJarTextParentTypes = '[CookieJar, GObject.Object, SessionFeature] - -instance GObject CookieJarText where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_cookie_jar_text_get_type - - -class GObject o => CookieJarTextK o -instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o - -toCookieJarText :: CookieJarTextK o => o -> IO CookieJarText -toCookieJarText = unsafeCastTo CookieJarText - -noCookieJarText :: Maybe CookieJarText -noCookieJarText = Nothing - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m T.Text -getCookieJarTextFilename obj = liftIO $ getObjectPropertyString obj "filename" - -constructCookieJarTextFilename :: T.Text -> IO ([Char], GValue) -constructCookieJarTextFilename val = constructObjectPropertyString "filename" val - -data CookieJarTextFilenamePropertyInfo -instance AttrInfo CookieJarTextFilenamePropertyInfo where - type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = CookieJarTextK - type AttrGetType CookieJarTextFilenamePropertyInfo = T.Text - type AttrLabel CookieJarTextFilenamePropertyInfo = "CookieJarText::filename" - attrGet _ = getCookieJarTextFilename - attrSet _ = undefined - attrConstruct _ = constructCookieJarTextFilename - -type instance AttributeList CookieJarText = CookieJarTextAttributeList -type CookieJarTextAttributeList = ('[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList CookieJarText = CookieJarTextSignalList -type CookieJarTextSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CookieJarText::new --- method type : Constructor --- Args : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "CookieJarText" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_jar_text_new" soup_cookie_jar_text_new :: - CString -> -- filename : TBasicType TUTF8 - CInt -> -- read_only : TBasicType TBoolean - IO (Ptr CookieJarText) - - -cookieJarTextNew :: - (MonadIO m) => - T.Text -> -- filename - Bool -> -- read_only - m CookieJarText -cookieJarTextNew filename read_only = liftIO $ do - filename' <- textToCString filename - let read_only' = (fromIntegral . fromEnum) read_only - result <- soup_cookie_jar_text_new filename' read_only' - checkUnexpectedReturnNULL "soup_cookie_jar_text_new" result - result' <- (wrapObject CookieJarText) result - freeMem filename' - return result' - - diff --git a/GI/Soup/Objects/CookieJarText.hs-boot b/GI/Soup/Objects/CookieJarText.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/CookieJarText.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Soup.Objects.CookieJarText 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 - -newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText) -instance GObject CookieJarText where -class GObject o => CookieJarTextK o -instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o -data CookieJarTextFilenamePropertyInfo diff --git a/GI/Soup/Objects/Logger.hs b/GI/Soup/Objects/Logger.hs deleted file mode 100644 --- a/GI/Soup/Objects/Logger.hs +++ /dev/null @@ -1,262 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Logger - ( - --- * Exported types - Logger(..) , - LoggerK , - toLogger , - noLogger , - - - -- * Methods --- ** loggerAttach - loggerAttach , - - --- ** loggerDetach - loggerDetach , - - --- ** loggerNew - loggerNew , - - --- ** loggerSetPrinter - loggerSetPrinter , - - --- ** loggerSetRequestFilter - loggerSetRequestFilter , - - --- ** loggerSetResponseFilter - loggerSetResponseFilter , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject - -newtype Logger = Logger (ForeignPtr Logger) -foreign import ccall "soup_logger_get_type" - c_soup_logger_get_type :: IO GType - -type instance ParentTypes Logger = LoggerParentTypes -type LoggerParentTypes = '[GObject.Object, SessionFeature] - -instance GObject Logger where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_logger_get_type - - -class GObject o => LoggerK o -instance (GObject o, IsDescendantOf Logger o) => LoggerK o - -toLogger :: LoggerK o => o -> IO Logger -toLogger = unsafeCastTo Logger - -noLogger :: Maybe Logger -noLogger = Nothing - -type instance AttributeList Logger = LoggerAttributeList -type LoggerAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Logger = LoggerSignalList -type LoggerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Logger::new --- method type : Constructor --- Args : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_body_size", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Logger" --- throws : False --- Skip return : False - -foreign import ccall "soup_logger_new" soup_logger_new :: - CUInt -> -- level : TInterface "Soup" "LoggerLogLevel" - Int32 -> -- max_body_size : TBasicType TInt32 - IO (Ptr Logger) - - -loggerNew :: - (MonadIO m) => - LoggerLogLevel -> -- level - Int32 -> -- max_body_size - m Logger -loggerNew level max_body_size = liftIO $ do - let level' = (fromIntegral . fromEnum) level - result <- soup_logger_new level' max_body_size - checkUnexpectedReturnNULL "soup_logger_new" result - result' <- (wrapObject Logger) result - return result' - --- method Logger::attach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_logger_attach" soup_logger_attach :: - Ptr Logger -> -- _obj : TInterface "Soup" "Logger" - Ptr Session -> -- session : TInterface "Soup" "Session" - IO () - -{-# DEPRECATED loggerAttach ["Use soup_session_add_feature() instead."]#-} -loggerAttach :: - (MonadIO m, LoggerK a, SessionK b) => - a -> -- _obj - b -> -- session - m () -loggerAttach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_logger_attach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - --- method Logger::detach --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_logger_detach" soup_logger_detach :: - Ptr Logger -> -- _obj : TInterface "Soup" "Logger" - Ptr Session -> -- session : TInterface "Soup" "Session" - IO () - -{-# DEPRECATED loggerDetach ["Use soup_session_remove_feature() instead."]#-} -loggerDetach :: - (MonadIO m, LoggerK a, SessionK b) => - a -> -- _obj - b -> -- session - m () -loggerDetach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_logger_detach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - --- method Logger::set_printer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "printer_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_logger_set_printer" soup_logger_set_printer :: - Ptr Logger -> -- _obj : TInterface "Soup" "Logger" - FunPtr LoggerPrinterC -> -- printer : TInterface "Soup" "LoggerPrinter" - Ptr () -> -- printer_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -loggerSetPrinter :: - (MonadIO m, LoggerK a) => - a -> -- _obj - LoggerPrinter -> -- printer - m () -loggerSetPrinter _obj printer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - printer' <- mkLoggerPrinter (loggerPrinterWrapper Nothing printer) - let printer_data = castFunPtrToPtr printer' - let destroy = safeFreeFunPtrPtr - soup_logger_set_printer _obj' printer' printer_data destroy - touchManagedPtr _obj - return () - --- method Logger::set_request_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_logger_set_request_filter" soup_logger_set_request_filter :: - Ptr Logger -> -- _obj : TInterface "Soup" "Logger" - FunPtr LoggerFilterC -> -- request_filter : TInterface "Soup" "LoggerFilter" - Ptr () -> -- filter_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -loggerSetRequestFilter :: - (MonadIO m, LoggerK a) => - a -> -- _obj - LoggerFilter -> -- request_filter - m () -loggerSetRequestFilter _obj request_filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - request_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing request_filter) - let filter_data = castFunPtrToPtr request_filter' - let destroy = safeFreeFunPtrPtr - soup_logger_set_request_filter _obj' request_filter' filter_data destroy - touchManagedPtr _obj - return () - --- method Logger::set_response_filter --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "filter_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_logger_set_response_filter" soup_logger_set_response_filter :: - Ptr Logger -> -- _obj : TInterface "Soup" "Logger" - FunPtr LoggerFilterC -> -- response_filter : TInterface "Soup" "LoggerFilter" - Ptr () -> -- filter_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -loggerSetResponseFilter :: - (MonadIO m, LoggerK a) => - a -> -- _obj - LoggerFilter -> -- response_filter - m () -loggerSetResponseFilter _obj response_filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - response_filter' <- mkLoggerFilter (loggerFilterWrapper Nothing response_filter) - let filter_data = castFunPtrToPtr response_filter' - let destroy = safeFreeFunPtrPtr - soup_logger_set_response_filter _obj' response_filter' filter_data destroy - touchManagedPtr _obj - return () - - diff --git a/GI/Soup/Objects/Logger.hs-boot b/GI/Soup/Objects/Logger.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Logger.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.Logger 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 - -newtype Logger = Logger (ForeignPtr Logger) -instance GObject Logger where -class GObject o => LoggerK o -instance (GObject o, IsDescendantOf Logger o) => LoggerK o diff --git a/GI/Soup/Objects/Message.hs b/GI/Soup/Objects/Message.hs deleted file mode 100644 --- a/GI/Soup/Objects/Message.hs +++ /dev/null @@ -1,2492 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Message - ( - --- * Exported types - Message(..) , - MessageK , - toMessage , - noMessage , - - - -- * Methods --- ** messageContentSniffed - messageContentSniffed , - - --- ** messageDisableFeature - messageDisableFeature , - - --- ** messageFinished - messageFinished , - - --- ** messageGetAddress - messageGetAddress , - - --- ** messageGetFirstParty - messageGetFirstParty , - - --- ** messageGetFlags - messageGetFlags , - - --- ** messageGetHttpVersion - messageGetHttpVersion , - - --- ** messageGetHttpsStatus - messageGetHttpsStatus , - - --- ** messageGetPriority - messageGetPriority , - - --- ** messageGetSoupRequest - messageGetSoupRequest , - - --- ** messageGetUri - messageGetUri , - - --- ** messageGotBody - messageGotBody , - - --- ** messageGotChunk - messageGotChunk , - - --- ** messageGotHeaders - messageGotHeaders , - - --- ** messageGotInformational - messageGotInformational , - - --- ** messageIsKeepalive - messageIsKeepalive , - - --- ** messageNew - messageNew , - - --- ** messageNewFromUri - messageNewFromUri , - - --- ** messageRestarted - messageRestarted , - - --- ** messageSetChunkAllocator - messageSetChunkAllocator , - - --- ** messageSetFirstParty - messageSetFirstParty , - - --- ** messageSetFlags - messageSetFlags , - - --- ** messageSetHttpVersion - messageSetHttpVersion , - - --- ** messageSetPriority - messageSetPriority , - - --- ** messageSetRedirect - messageSetRedirect , - - --- ** messageSetRequest - messageSetRequest , - - --- ** messageSetResponse - messageSetResponse , - - --- ** messageSetStatus - messageSetStatus , - - --- ** messageSetStatusFull - messageSetStatusFull , - - --- ** messageSetUri - messageSetUri , - - --- ** messageStarting - messageStarting , - - --- ** messageWroteBody - messageWroteBody , - - --- ** messageWroteBodyData - messageWroteBodyData , - - --- ** messageWroteChunk - messageWroteChunk , - - --- ** messageWroteHeaders - messageWroteHeaders , - - --- ** messageWroteInformational - messageWroteInformational , - - - - - -- * Properties --- ** FirstParty - MessageFirstPartyPropertyInfo , - constructMessageFirstParty , - getMessageFirstParty , - setMessageFirstParty , - - --- ** Flags - MessageFlagsPropertyInfo , - constructMessageFlags , - getMessageFlags , - setMessageFlags , - - --- ** HttpVersion - MessageHttpVersionPropertyInfo , - constructMessageHttpVersion , - getMessageHttpVersion , - setMessageHttpVersion , - - --- ** Method - MessageMethodPropertyInfo , - constructMessageMethod , - getMessageMethod , - setMessageMethod , - - --- ** Priority - MessagePriorityPropertyInfo , - constructMessagePriority , - getMessagePriority , - setMessagePriority , - - --- ** ReasonPhrase - MessageReasonPhrasePropertyInfo , - constructMessageReasonPhrase , - getMessageReasonPhrase , - setMessageReasonPhrase , - - --- ** RequestBody - MessageRequestBodyPropertyInfo , - getMessageRequestBody , - - --- ** RequestBodyData - MessageRequestBodyDataPropertyInfo , - getMessageRequestBodyData , - - --- ** RequestHeaders - MessageRequestHeadersPropertyInfo , - getMessageRequestHeaders , - - --- ** ResponseBody - MessageResponseBodyPropertyInfo , - getMessageResponseBody , - - --- ** ResponseBodyData - MessageResponseBodyDataPropertyInfo , - getMessageResponseBodyData , - - --- ** ResponseHeaders - MessageResponseHeadersPropertyInfo , - getMessageResponseHeaders , - - --- ** ServerSide - MessageServerSidePropertyInfo , - constructMessageServerSide , - getMessageServerSide , - - --- ** StatusCode - MessageStatusCodePropertyInfo , - constructMessageStatusCode , - getMessageStatusCode , - setMessageStatusCode , - - --- ** TlsCertificate - MessageTlsCertificatePropertyInfo , - constructMessageTlsCertificate , - getMessageTlsCertificate , - setMessageTlsCertificate , - - --- ** TlsErrors - MessageTlsErrorsPropertyInfo , - constructMessageTlsErrors , - getMessageTlsErrors , - setMessageTlsErrors , - - --- ** Uri - MessageUriPropertyInfo , - constructMessageUri , - getMessageUri , - setMessageUri , - - - - - -- * Signals --- ** ContentSniffed - MessageContentSniffedCallback , - MessageContentSniffedCallbackC , - MessageContentSniffedSignalInfo , - afterMessageContentSniffed , - messageContentSniffedCallbackWrapper , - messageContentSniffedClosure , - mkMessageContentSniffedCallback , - noMessageContentSniffedCallback , - onMessageContentSniffed , - - --- ** Finished - MessageFinishedCallback , - MessageFinishedCallbackC , - MessageFinishedSignalInfo , - afterMessageFinished , - messageFinishedCallbackWrapper , - messageFinishedClosure , - mkMessageFinishedCallback , - noMessageFinishedCallback , - onMessageFinished , - - --- ** GotBody - MessageGotBodyCallback , - MessageGotBodyCallbackC , - MessageGotBodySignalInfo , - afterMessageGotBody , - messageGotBodyCallbackWrapper , - messageGotBodyClosure , - mkMessageGotBodyCallback , - noMessageGotBodyCallback , - onMessageGotBody , - - --- ** GotChunk - MessageGotChunkCallback , - MessageGotChunkCallbackC , - MessageGotChunkSignalInfo , - afterMessageGotChunk , - messageGotChunkCallbackWrapper , - messageGotChunkClosure , - mkMessageGotChunkCallback , - noMessageGotChunkCallback , - onMessageGotChunk , - - --- ** GotHeaders - MessageGotHeadersCallback , - MessageGotHeadersCallbackC , - MessageGotHeadersSignalInfo , - afterMessageGotHeaders , - messageGotHeadersCallbackWrapper , - messageGotHeadersClosure , - mkMessageGotHeadersCallback , - noMessageGotHeadersCallback , - onMessageGotHeaders , - - --- ** GotInformational - MessageGotInformationalCallback , - MessageGotInformationalCallbackC , - MessageGotInformationalSignalInfo , - afterMessageGotInformational , - messageGotInformationalCallbackWrapper , - messageGotInformationalClosure , - mkMessageGotInformationalCallback , - noMessageGotInformationalCallback , - onMessageGotInformational , - - --- ** NetworkEvent - MessageNetworkEventCallback , - MessageNetworkEventCallbackC , - MessageNetworkEventSignalInfo , - afterMessageNetworkEvent , - messageNetworkEventCallbackWrapper , - messageNetworkEventClosure , - mkMessageNetworkEventCallback , - noMessageNetworkEventCallback , - onMessageNetworkEvent , - - --- ** Restarted - MessageRestartedCallback , - MessageRestartedCallbackC , - MessageRestartedSignalInfo , - afterMessageRestarted , - messageRestartedCallbackWrapper , - messageRestartedClosure , - mkMessageRestartedCallback , - noMessageRestartedCallback , - onMessageRestarted , - - --- ** Starting - MessageStartingCallback , - MessageStartingCallbackC , - MessageStartingSignalInfo , - afterMessageStarting , - messageStartingCallbackWrapper , - messageStartingClosure , - mkMessageStartingCallback , - noMessageStartingCallback , - onMessageStarting , - - --- ** WroteBody - MessageWroteBodyCallback , - MessageWroteBodyCallbackC , - MessageWroteBodySignalInfo , - afterMessageWroteBody , - messageWroteBodyCallbackWrapper , - messageWroteBodyClosure , - mkMessageWroteBodyCallback , - noMessageWroteBodyCallback , - onMessageWroteBody , - - --- ** WroteBodyData - MessageWroteBodyDataCallback , - MessageWroteBodyDataCallbackC , - MessageWroteBodyDataSignalInfo , - afterMessageWroteBodyData , - messageWroteBodyDataCallbackWrapper , - messageWroteBodyDataClosure , - mkMessageWroteBodyDataCallback , - noMessageWroteBodyDataCallback , - onMessageWroteBodyData , - - --- ** WroteChunk - MessageWroteChunkCallback , - MessageWroteChunkCallbackC , - MessageWroteChunkSignalInfo , - afterMessageWroteChunk , - messageWroteChunkCallbackWrapper , - messageWroteChunkClosure , - mkMessageWroteChunkCallback , - noMessageWroteChunkCallback , - onMessageWroteChunk , - - --- ** WroteHeaders - MessageWroteHeadersCallback , - MessageWroteHeadersCallbackC , - MessageWroteHeadersSignalInfo , - afterMessageWroteHeaders , - messageWroteHeadersCallbackWrapper , - messageWroteHeadersClosure , - mkMessageWroteHeadersCallback , - noMessageWroteHeadersCallback , - onMessageWroteHeaders , - - --- ** WroteInformational - MessageWroteInformationalCallback , - MessageWroteInformationalCallbackC , - MessageWroteInformationalSignalInfo , - afterMessageWroteInformational , - messageWroteInformationalCallbackWrapper, - messageWroteInformationalClosure , - mkMessageWroteInformationalCallback , - noMessageWroteInformationalCallback , - onMessageWroteInformational , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Message = Message (ForeignPtr Message) -foreign import ccall "soup_message_get_type" - c_soup_message_get_type :: IO GType - -type instance ParentTypes Message = MessageParentTypes -type MessageParentTypes = '[GObject.Object] - -instance GObject Message where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_message_get_type - - -class GObject o => MessageK o -instance (GObject o, IsDescendantOf Message o) => MessageK o - -toMessage :: MessageK o => o -> IO Message -toMessage = unsafeCastTo Message - -noMessage :: Maybe Message -noMessage = Nothing - --- signal Message::content-sniffed -type MessageContentSniffedCallback = - T.Text -> - Map.Map T.Text T.Text -> - IO () - -noMessageContentSniffedCallback :: Maybe MessageContentSniffedCallback -noMessageContentSniffedCallback = Nothing - -type MessageContentSniffedCallbackC = - Ptr () -> -- object - CString -> - Ptr (GHashTable CString CString) -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageContentSniffedCallback :: MessageContentSniffedCallbackC -> IO (FunPtr MessageContentSniffedCallbackC) - -messageContentSniffedClosure :: MessageContentSniffedCallback -> IO Closure -messageContentSniffedClosure cb = newCClosure =<< mkMessageContentSniffedCallback wrapped - where wrapped = messageContentSniffedCallbackWrapper cb - -messageContentSniffedCallbackWrapper :: - MessageContentSniffedCallback -> - Ptr () -> - CString -> - Ptr (GHashTable CString CString) -> - Ptr () -> - IO () -messageContentSniffedCallbackWrapper _cb _ type_ params _ = do - type_' <- cstringToText type_ - 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''''' - _cb type_' params'''''' - -onMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId -onMessageContentSniffed obj cb = liftIO $ connectMessageContentSniffed obj cb SignalConnectBefore -afterMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId -afterMessageContentSniffed obj cb = connectMessageContentSniffed obj cb SignalConnectAfter - -connectMessageContentSniffed :: (GObject a, MonadIO m) => - a -> MessageContentSniffedCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageContentSniffed obj cb after = liftIO $ do - cb' <- mkMessageContentSniffedCallback (messageContentSniffedCallbackWrapper cb) - connectSignalFunPtr obj "content-sniffed" cb' after - --- signal Message::finished -type MessageFinishedCallback = - IO () - -noMessageFinishedCallback :: Maybe MessageFinishedCallback -noMessageFinishedCallback = Nothing - -type MessageFinishedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageFinishedCallback :: MessageFinishedCallbackC -> IO (FunPtr MessageFinishedCallbackC) - -messageFinishedClosure :: MessageFinishedCallback -> IO Closure -messageFinishedClosure cb = newCClosure =<< mkMessageFinishedCallback wrapped - where wrapped = messageFinishedCallbackWrapper cb - -messageFinishedCallbackWrapper :: - MessageFinishedCallback -> - Ptr () -> - Ptr () -> - IO () -messageFinishedCallbackWrapper _cb _ _ = do - _cb - -onMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId -onMessageFinished obj cb = liftIO $ connectMessageFinished obj cb SignalConnectBefore -afterMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId -afterMessageFinished obj cb = connectMessageFinished obj cb SignalConnectAfter - -connectMessageFinished :: (GObject a, MonadIO m) => - a -> MessageFinishedCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageFinished obj cb after = liftIO $ do - cb' <- mkMessageFinishedCallback (messageFinishedCallbackWrapper cb) - connectSignalFunPtr obj "finished" cb' after - --- signal Message::got-body -type MessageGotBodyCallback = - IO () - -noMessageGotBodyCallback :: Maybe MessageGotBodyCallback -noMessageGotBodyCallback = Nothing - -type MessageGotBodyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageGotBodyCallback :: MessageGotBodyCallbackC -> IO (FunPtr MessageGotBodyCallbackC) - -messageGotBodyClosure :: MessageGotBodyCallback -> IO Closure -messageGotBodyClosure cb = newCClosure =<< mkMessageGotBodyCallback wrapped - where wrapped = messageGotBodyCallbackWrapper cb - -messageGotBodyCallbackWrapper :: - MessageGotBodyCallback -> - Ptr () -> - Ptr () -> - IO () -messageGotBodyCallbackWrapper _cb _ _ = do - _cb - -onMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId -onMessageGotBody obj cb = liftIO $ connectMessageGotBody obj cb SignalConnectBefore -afterMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId -afterMessageGotBody obj cb = connectMessageGotBody obj cb SignalConnectAfter - -connectMessageGotBody :: (GObject a, MonadIO m) => - a -> MessageGotBodyCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageGotBody obj cb after = liftIO $ do - cb' <- mkMessageGotBodyCallback (messageGotBodyCallbackWrapper cb) - connectSignalFunPtr obj "got-body" cb' after - --- signal Message::got-chunk -type MessageGotChunkCallback = - Buffer -> - IO () - -noMessageGotChunkCallback :: Maybe MessageGotChunkCallback -noMessageGotChunkCallback = Nothing - -type MessageGotChunkCallbackC = - Ptr () -> -- object - Ptr Buffer -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageGotChunkCallback :: MessageGotChunkCallbackC -> IO (FunPtr MessageGotChunkCallbackC) - -messageGotChunkClosure :: MessageGotChunkCallback -> IO Closure -messageGotChunkClosure cb = newCClosure =<< mkMessageGotChunkCallback wrapped - where wrapped = messageGotChunkCallbackWrapper cb - -messageGotChunkCallbackWrapper :: - MessageGotChunkCallback -> - Ptr () -> - Ptr Buffer -> - Ptr () -> - IO () -messageGotChunkCallbackWrapper _cb _ chunk _ = do - chunk' <- (newBoxed Buffer) chunk - _cb chunk' - -onMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId -onMessageGotChunk obj cb = liftIO $ connectMessageGotChunk obj cb SignalConnectBefore -afterMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId -afterMessageGotChunk obj cb = connectMessageGotChunk obj cb SignalConnectAfter - -connectMessageGotChunk :: (GObject a, MonadIO m) => - a -> MessageGotChunkCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageGotChunk obj cb after = liftIO $ do - cb' <- mkMessageGotChunkCallback (messageGotChunkCallbackWrapper cb) - connectSignalFunPtr obj "got-chunk" cb' after - --- signal Message::got-headers -type MessageGotHeadersCallback = - IO () - -noMessageGotHeadersCallback :: Maybe MessageGotHeadersCallback -noMessageGotHeadersCallback = Nothing - -type MessageGotHeadersCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageGotHeadersCallback :: MessageGotHeadersCallbackC -> IO (FunPtr MessageGotHeadersCallbackC) - -messageGotHeadersClosure :: MessageGotHeadersCallback -> IO Closure -messageGotHeadersClosure cb = newCClosure =<< mkMessageGotHeadersCallback wrapped - where wrapped = messageGotHeadersCallbackWrapper cb - -messageGotHeadersCallbackWrapper :: - MessageGotHeadersCallback -> - Ptr () -> - Ptr () -> - IO () -messageGotHeadersCallbackWrapper _cb _ _ = do - _cb - -onMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId -onMessageGotHeaders obj cb = liftIO $ connectMessageGotHeaders obj cb SignalConnectBefore -afterMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId -afterMessageGotHeaders obj cb = connectMessageGotHeaders obj cb SignalConnectAfter - -connectMessageGotHeaders :: (GObject a, MonadIO m) => - a -> MessageGotHeadersCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageGotHeaders obj cb after = liftIO $ do - cb' <- mkMessageGotHeadersCallback (messageGotHeadersCallbackWrapper cb) - connectSignalFunPtr obj "got-headers" cb' after - --- signal Message::got-informational -type MessageGotInformationalCallback = - IO () - -noMessageGotInformationalCallback :: Maybe MessageGotInformationalCallback -noMessageGotInformationalCallback = Nothing - -type MessageGotInformationalCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageGotInformationalCallback :: MessageGotInformationalCallbackC -> IO (FunPtr MessageGotInformationalCallbackC) - -messageGotInformationalClosure :: MessageGotInformationalCallback -> IO Closure -messageGotInformationalClosure cb = newCClosure =<< mkMessageGotInformationalCallback wrapped - where wrapped = messageGotInformationalCallbackWrapper cb - -messageGotInformationalCallbackWrapper :: - MessageGotInformationalCallback -> - Ptr () -> - Ptr () -> - IO () -messageGotInformationalCallbackWrapper _cb _ _ = do - _cb - -onMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId -onMessageGotInformational obj cb = liftIO $ connectMessageGotInformational obj cb SignalConnectBefore -afterMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId -afterMessageGotInformational obj cb = connectMessageGotInformational obj cb SignalConnectAfter - -connectMessageGotInformational :: (GObject a, MonadIO m) => - a -> MessageGotInformationalCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageGotInformational obj cb after = liftIO $ do - cb' <- mkMessageGotInformationalCallback (messageGotInformationalCallbackWrapper cb) - connectSignalFunPtr obj "got-informational" cb' after - --- signal Message::network-event -type MessageNetworkEventCallback = - Gio.SocketClientEvent -> - Gio.IOStream -> - IO () - -noMessageNetworkEventCallback :: Maybe MessageNetworkEventCallback -noMessageNetworkEventCallback = Nothing - -type MessageNetworkEventCallbackC = - Ptr () -> -- object - CUInt -> - Ptr Gio.IOStream -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageNetworkEventCallback :: MessageNetworkEventCallbackC -> IO (FunPtr MessageNetworkEventCallbackC) - -messageNetworkEventClosure :: MessageNetworkEventCallback -> IO Closure -messageNetworkEventClosure cb = newCClosure =<< mkMessageNetworkEventCallback wrapped - where wrapped = messageNetworkEventCallbackWrapper cb - -messageNetworkEventCallbackWrapper :: - MessageNetworkEventCallback -> - Ptr () -> - CUInt -> - Ptr Gio.IOStream -> - Ptr () -> - IO () -messageNetworkEventCallbackWrapper _cb _ event connection _ = do - let event' = (toEnum . fromIntegral) event - connection' <- (newObject Gio.IOStream) connection - _cb event' connection' - -onMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId -onMessageNetworkEvent obj cb = liftIO $ connectMessageNetworkEvent obj cb SignalConnectBefore -afterMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId -afterMessageNetworkEvent obj cb = connectMessageNetworkEvent obj cb SignalConnectAfter - -connectMessageNetworkEvent :: (GObject a, MonadIO m) => - a -> MessageNetworkEventCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageNetworkEvent obj cb after = liftIO $ do - cb' <- mkMessageNetworkEventCallback (messageNetworkEventCallbackWrapper cb) - connectSignalFunPtr obj "network-event" cb' after - --- signal Message::restarted -type MessageRestartedCallback = - IO () - -noMessageRestartedCallback :: Maybe MessageRestartedCallback -noMessageRestartedCallback = Nothing - -type MessageRestartedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageRestartedCallback :: MessageRestartedCallbackC -> IO (FunPtr MessageRestartedCallbackC) - -messageRestartedClosure :: MessageRestartedCallback -> IO Closure -messageRestartedClosure cb = newCClosure =<< mkMessageRestartedCallback wrapped - where wrapped = messageRestartedCallbackWrapper cb - -messageRestartedCallbackWrapper :: - MessageRestartedCallback -> - Ptr () -> - Ptr () -> - IO () -messageRestartedCallbackWrapper _cb _ _ = do - _cb - -onMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId -onMessageRestarted obj cb = liftIO $ connectMessageRestarted obj cb SignalConnectBefore -afterMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId -afterMessageRestarted obj cb = connectMessageRestarted obj cb SignalConnectAfter - -connectMessageRestarted :: (GObject a, MonadIO m) => - a -> MessageRestartedCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageRestarted obj cb after = liftIO $ do - cb' <- mkMessageRestartedCallback (messageRestartedCallbackWrapper cb) - connectSignalFunPtr obj "restarted" cb' after - --- signal Message::starting -type MessageStartingCallback = - IO () - -noMessageStartingCallback :: Maybe MessageStartingCallback -noMessageStartingCallback = Nothing - -type MessageStartingCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageStartingCallback :: MessageStartingCallbackC -> IO (FunPtr MessageStartingCallbackC) - -messageStartingClosure :: MessageStartingCallback -> IO Closure -messageStartingClosure cb = newCClosure =<< mkMessageStartingCallback wrapped - where wrapped = messageStartingCallbackWrapper cb - -messageStartingCallbackWrapper :: - MessageStartingCallback -> - Ptr () -> - Ptr () -> - IO () -messageStartingCallbackWrapper _cb _ _ = do - _cb - -onMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId -onMessageStarting obj cb = liftIO $ connectMessageStarting obj cb SignalConnectBefore -afterMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId -afterMessageStarting obj cb = connectMessageStarting obj cb SignalConnectAfter - -connectMessageStarting :: (GObject a, MonadIO m) => - a -> MessageStartingCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageStarting obj cb after = liftIO $ do - cb' <- mkMessageStartingCallback (messageStartingCallbackWrapper cb) - connectSignalFunPtr obj "starting" cb' after - --- signal Message::wrote-body -type MessageWroteBodyCallback = - IO () - -noMessageWroteBodyCallback :: Maybe MessageWroteBodyCallback -noMessageWroteBodyCallback = Nothing - -type MessageWroteBodyCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageWroteBodyCallback :: MessageWroteBodyCallbackC -> IO (FunPtr MessageWroteBodyCallbackC) - -messageWroteBodyClosure :: MessageWroteBodyCallback -> IO Closure -messageWroteBodyClosure cb = newCClosure =<< mkMessageWroteBodyCallback wrapped - where wrapped = messageWroteBodyCallbackWrapper cb - -messageWroteBodyCallbackWrapper :: - MessageWroteBodyCallback -> - Ptr () -> - Ptr () -> - IO () -messageWroteBodyCallbackWrapper _cb _ _ = do - _cb - -onMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId -onMessageWroteBody obj cb = liftIO $ connectMessageWroteBody obj cb SignalConnectBefore -afterMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId -afterMessageWroteBody obj cb = connectMessageWroteBody obj cb SignalConnectAfter - -connectMessageWroteBody :: (GObject a, MonadIO m) => - a -> MessageWroteBodyCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageWroteBody obj cb after = liftIO $ do - cb' <- mkMessageWroteBodyCallback (messageWroteBodyCallbackWrapper cb) - connectSignalFunPtr obj "wrote-body" cb' after - --- signal Message::wrote-body-data -type MessageWroteBodyDataCallback = - Buffer -> - IO () - -noMessageWroteBodyDataCallback :: Maybe MessageWroteBodyDataCallback -noMessageWroteBodyDataCallback = Nothing - -type MessageWroteBodyDataCallbackC = - Ptr () -> -- object - Ptr Buffer -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageWroteBodyDataCallback :: MessageWroteBodyDataCallbackC -> IO (FunPtr MessageWroteBodyDataCallbackC) - -messageWroteBodyDataClosure :: MessageWroteBodyDataCallback -> IO Closure -messageWroteBodyDataClosure cb = newCClosure =<< mkMessageWroteBodyDataCallback wrapped - where wrapped = messageWroteBodyDataCallbackWrapper cb - -messageWroteBodyDataCallbackWrapper :: - MessageWroteBodyDataCallback -> - Ptr () -> - Ptr Buffer -> - Ptr () -> - IO () -messageWroteBodyDataCallbackWrapper _cb _ chunk _ = do - chunk' <- (newBoxed Buffer) chunk - _cb chunk' - -onMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId -onMessageWroteBodyData obj cb = liftIO $ connectMessageWroteBodyData obj cb SignalConnectBefore -afterMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId -afterMessageWroteBodyData obj cb = connectMessageWroteBodyData obj cb SignalConnectAfter - -connectMessageWroteBodyData :: (GObject a, MonadIO m) => - a -> MessageWroteBodyDataCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageWroteBodyData obj cb after = liftIO $ do - cb' <- mkMessageWroteBodyDataCallback (messageWroteBodyDataCallbackWrapper cb) - connectSignalFunPtr obj "wrote-body-data" cb' after - --- signal Message::wrote-chunk -type MessageWroteChunkCallback = - IO () - -noMessageWroteChunkCallback :: Maybe MessageWroteChunkCallback -noMessageWroteChunkCallback = Nothing - -type MessageWroteChunkCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageWroteChunkCallback :: MessageWroteChunkCallbackC -> IO (FunPtr MessageWroteChunkCallbackC) - -messageWroteChunkClosure :: MessageWroteChunkCallback -> IO Closure -messageWroteChunkClosure cb = newCClosure =<< mkMessageWroteChunkCallback wrapped - where wrapped = messageWroteChunkCallbackWrapper cb - -messageWroteChunkCallbackWrapper :: - MessageWroteChunkCallback -> - Ptr () -> - Ptr () -> - IO () -messageWroteChunkCallbackWrapper _cb _ _ = do - _cb - -onMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId -onMessageWroteChunk obj cb = liftIO $ connectMessageWroteChunk obj cb SignalConnectBefore -afterMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId -afterMessageWroteChunk obj cb = connectMessageWroteChunk obj cb SignalConnectAfter - -connectMessageWroteChunk :: (GObject a, MonadIO m) => - a -> MessageWroteChunkCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageWroteChunk obj cb after = liftIO $ do - cb' <- mkMessageWroteChunkCallback (messageWroteChunkCallbackWrapper cb) - connectSignalFunPtr obj "wrote-chunk" cb' after - --- signal Message::wrote-headers -type MessageWroteHeadersCallback = - IO () - -noMessageWroteHeadersCallback :: Maybe MessageWroteHeadersCallback -noMessageWroteHeadersCallback = Nothing - -type MessageWroteHeadersCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageWroteHeadersCallback :: MessageWroteHeadersCallbackC -> IO (FunPtr MessageWroteHeadersCallbackC) - -messageWroteHeadersClosure :: MessageWroteHeadersCallback -> IO Closure -messageWroteHeadersClosure cb = newCClosure =<< mkMessageWroteHeadersCallback wrapped - where wrapped = messageWroteHeadersCallbackWrapper cb - -messageWroteHeadersCallbackWrapper :: - MessageWroteHeadersCallback -> - Ptr () -> - Ptr () -> - IO () -messageWroteHeadersCallbackWrapper _cb _ _ = do - _cb - -onMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId -onMessageWroteHeaders obj cb = liftIO $ connectMessageWroteHeaders obj cb SignalConnectBefore -afterMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId -afterMessageWroteHeaders obj cb = connectMessageWroteHeaders obj cb SignalConnectAfter - -connectMessageWroteHeaders :: (GObject a, MonadIO m) => - a -> MessageWroteHeadersCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageWroteHeaders obj cb after = liftIO $ do - cb' <- mkMessageWroteHeadersCallback (messageWroteHeadersCallbackWrapper cb) - connectSignalFunPtr obj "wrote-headers" cb' after - --- signal Message::wrote-informational -type MessageWroteInformationalCallback = - IO () - -noMessageWroteInformationalCallback :: Maybe MessageWroteInformationalCallback -noMessageWroteInformationalCallback = Nothing - -type MessageWroteInformationalCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkMessageWroteInformationalCallback :: MessageWroteInformationalCallbackC -> IO (FunPtr MessageWroteInformationalCallbackC) - -messageWroteInformationalClosure :: MessageWroteInformationalCallback -> IO Closure -messageWroteInformationalClosure cb = newCClosure =<< mkMessageWroteInformationalCallback wrapped - where wrapped = messageWroteInformationalCallbackWrapper cb - -messageWroteInformationalCallbackWrapper :: - MessageWroteInformationalCallback -> - Ptr () -> - Ptr () -> - IO () -messageWroteInformationalCallbackWrapper _cb _ _ = do - _cb - -onMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId -onMessageWroteInformational obj cb = liftIO $ connectMessageWroteInformational obj cb SignalConnectBefore -afterMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId -afterMessageWroteInformational obj cb = connectMessageWroteInformational obj cb SignalConnectAfter - -connectMessageWroteInformational :: (GObject a, MonadIO m) => - a -> MessageWroteInformationalCallback -> SignalConnectMode -> m SignalHandlerId -connectMessageWroteInformational obj cb after = liftIO $ do - cb' <- mkMessageWroteInformationalCallback (messageWroteInformationalCallbackWrapper cb) - connectSignalFunPtr obj "wrote-informational" cb' after - --- VVV Prop "first-party" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI -getMessageFirstParty obj = liftIO $ getObjectPropertyBoxed obj "first-party" URI - -setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m () -setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" val - -constructMessageFirstParty :: URI -> IO ([Char], GValue) -constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" val - -data MessageFirstPartyPropertyInfo -instance AttrInfo MessageFirstPartyPropertyInfo where - type AttrAllowedOps MessageFirstPartyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageFirstPartyPropertyInfo = (~) URI - type AttrBaseTypeConstraint MessageFirstPartyPropertyInfo = MessageK - type AttrGetType MessageFirstPartyPropertyInfo = URI - type AttrLabel MessageFirstPartyPropertyInfo = "Message::first-party" - attrGet _ = getMessageFirstParty - attrSet _ = setMessageFirstParty - attrConstruct _ = constructMessageFirstParty - --- VVV Prop "flags" - -- Type: TInterface "Soup" "MessageFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageFlags :: (MonadIO m, MessageK o) => o -> m [MessageFlags] -getMessageFlags obj = liftIO $ getObjectPropertyFlags obj "flags" - -setMessageFlags :: (MonadIO m, MessageK o) => o -> [MessageFlags] -> m () -setMessageFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val - -constructMessageFlags :: [MessageFlags] -> IO ([Char], GValue) -constructMessageFlags val = constructObjectPropertyFlags "flags" val - -data MessageFlagsPropertyInfo -instance AttrInfo MessageFlagsPropertyInfo where - type AttrAllowedOps MessageFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageFlagsPropertyInfo = (~) [MessageFlags] - type AttrBaseTypeConstraint MessageFlagsPropertyInfo = MessageK - type AttrGetType MessageFlagsPropertyInfo = [MessageFlags] - type AttrLabel MessageFlagsPropertyInfo = "Message::flags" - attrGet _ = getMessageFlags - attrSet _ = setMessageFlags - attrConstruct _ = constructMessageFlags - --- VVV Prop "http-version" - -- Type: TInterface "Soup" "HTTPVersion" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageHttpVersion :: (MonadIO m, MessageK o) => o -> m HTTPVersion -getMessageHttpVersion obj = liftIO $ getObjectPropertyEnum obj "http-version" - -setMessageHttpVersion :: (MonadIO m, MessageK o) => o -> HTTPVersion -> m () -setMessageHttpVersion obj val = liftIO $ setObjectPropertyEnum obj "http-version" val - -constructMessageHttpVersion :: HTTPVersion -> IO ([Char], GValue) -constructMessageHttpVersion val = constructObjectPropertyEnum "http-version" val - -data MessageHttpVersionPropertyInfo -instance AttrInfo MessageHttpVersionPropertyInfo where - type AttrAllowedOps MessageHttpVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageHttpVersionPropertyInfo = (~) HTTPVersion - type AttrBaseTypeConstraint MessageHttpVersionPropertyInfo = MessageK - type AttrGetType MessageHttpVersionPropertyInfo = HTTPVersion - type AttrLabel MessageHttpVersionPropertyInfo = "Message::http-version" - attrGet _ = getMessageHttpVersion - attrSet _ = setMessageHttpVersion - attrConstruct _ = constructMessageHttpVersion - --- VVV Prop "method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageMethod :: (MonadIO m, MessageK o) => o -> m T.Text -getMessageMethod obj = liftIO $ getObjectPropertyString obj "method" - -setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m () -setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" val - -constructMessageMethod :: T.Text -> IO ([Char], GValue) -constructMessageMethod val = constructObjectPropertyString "method" val - -data MessageMethodPropertyInfo -instance AttrInfo MessageMethodPropertyInfo where - type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK - type AttrGetType MessageMethodPropertyInfo = T.Text - type AttrLabel MessageMethodPropertyInfo = "Message::method" - attrGet _ = getMessageMethod - attrSet _ = setMessageMethod - attrConstruct _ = constructMessageMethod - --- VVV Prop "priority" - -- Type: TInterface "Soup" "MessagePriority" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessagePriority :: (MonadIO m, MessageK o) => o -> m MessagePriority -getMessagePriority obj = liftIO $ getObjectPropertyEnum obj "priority" - -setMessagePriority :: (MonadIO m, MessageK o) => o -> MessagePriority -> m () -setMessagePriority obj val = liftIO $ setObjectPropertyEnum obj "priority" val - -constructMessagePriority :: MessagePriority -> IO ([Char], GValue) -constructMessagePriority val = constructObjectPropertyEnum "priority" val - -data MessagePriorityPropertyInfo -instance AttrInfo MessagePriorityPropertyInfo where - type AttrAllowedOps MessagePriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessagePriorityPropertyInfo = (~) MessagePriority - type AttrBaseTypeConstraint MessagePriorityPropertyInfo = MessageK - type AttrGetType MessagePriorityPropertyInfo = MessagePriority - type AttrLabel MessagePriorityPropertyInfo = "Message::priority" - attrGet _ = getMessagePriority - attrSet _ = setMessagePriority - attrConstruct _ = constructMessagePriority - --- VVV Prop "reason-phrase" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m T.Text -getMessageReasonPhrase obj = liftIO $ getObjectPropertyString obj "reason-phrase" - -setMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> T.Text -> m () -setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" val - -constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue) -constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" val - -data MessageReasonPhrasePropertyInfo -instance AttrInfo MessageReasonPhrasePropertyInfo where - type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK - type AttrGetType MessageReasonPhrasePropertyInfo = T.Text - type AttrLabel MessageReasonPhrasePropertyInfo = "Message::reason-phrase" - attrGet _ = getMessageReasonPhrase - attrSet _ = setMessageReasonPhrase - attrConstruct _ = constructMessageReasonPhrase - --- VVV Prop "request-body" - -- Type: TInterface "Soup" "MessageBody" - -- Flags: [PropertyReadable] - -getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m MessageBody -getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody - -data MessageRequestBodyPropertyInfo -instance AttrInfo MessageRequestBodyPropertyInfo where - type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK - type AttrGetType MessageRequestBodyPropertyInfo = MessageBody - type AttrLabel MessageRequestBodyPropertyInfo = "Message::request-body" - attrGet _ = getMessageRequestBody - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "request-body-data" - -- Type: TInterface "GLib" "Bytes" - -- Flags: [PropertyReadable] - -getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes -getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes - -data MessageRequestBodyDataPropertyInfo -instance AttrInfo MessageRequestBodyDataPropertyInfo where - type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK - type AttrGetType MessageRequestBodyDataPropertyInfo = GLib.Bytes - type AttrLabel MessageRequestBodyDataPropertyInfo = "Message::request-body-data" - attrGet _ = getMessageRequestBodyData - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "request-headers" - -- Type: TInterface "Soup" "MessageHeaders" - -- Flags: [PropertyReadable] - -getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders -getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders - -data MessageRequestHeadersPropertyInfo -instance AttrInfo MessageRequestHeadersPropertyInfo where - type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK - type AttrGetType MessageRequestHeadersPropertyInfo = MessageHeaders - type AttrLabel MessageRequestHeadersPropertyInfo = "Message::request-headers" - attrGet _ = getMessageRequestHeaders - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "response-body" - -- Type: TInterface "Soup" "MessageBody" - -- Flags: [PropertyReadable] - -getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m MessageBody -getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody - -data MessageResponseBodyPropertyInfo -instance AttrInfo MessageResponseBodyPropertyInfo where - type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK - type AttrGetType MessageResponseBodyPropertyInfo = MessageBody - type AttrLabel MessageResponseBodyPropertyInfo = "Message::response-body" - attrGet _ = getMessageResponseBody - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "response-body-data" - -- Type: TInterface "GLib" "Bytes" - -- Flags: [PropertyReadable] - -getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes -getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes - -data MessageResponseBodyDataPropertyInfo -instance AttrInfo MessageResponseBodyDataPropertyInfo where - type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK - type AttrGetType MessageResponseBodyDataPropertyInfo = GLib.Bytes - type AttrLabel MessageResponseBodyDataPropertyInfo = "Message::response-body-data" - attrGet _ = getMessageResponseBodyData - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "response-headers" - -- Type: TInterface "Soup" "MessageHeaders" - -- Flags: [PropertyReadable] - -getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders -getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders - -data MessageResponseHeadersPropertyInfo -instance AttrInfo MessageResponseHeadersPropertyInfo where - type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK - type AttrGetType MessageResponseHeadersPropertyInfo = MessageHeaders - type AttrLabel MessageResponseHeadersPropertyInfo = "Message::response-headers" - attrGet _ = getMessageResponseHeaders - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "server-side" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getMessageServerSide :: (MonadIO m, MessageK o) => o -> m Bool -getMessageServerSide obj = liftIO $ getObjectPropertyBool obj "server-side" - -constructMessageServerSide :: Bool -> IO ([Char], GValue) -constructMessageServerSide val = constructObjectPropertyBool "server-side" val - -data MessageServerSidePropertyInfo -instance AttrInfo MessageServerSidePropertyInfo where - type AttrAllowedOps MessageServerSidePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageServerSidePropertyInfo = (~) Bool - type AttrBaseTypeConstraint MessageServerSidePropertyInfo = MessageK - type AttrGetType MessageServerSidePropertyInfo = Bool - type AttrLabel MessageServerSidePropertyInfo = "Message::server-side" - attrGet _ = getMessageServerSide - attrSet _ = undefined - attrConstruct _ = constructMessageServerSide - --- VVV Prop "status-code" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32 -getMessageStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code" - -setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m () -setMessageStatusCode obj val = liftIO $ setObjectPropertyCUInt obj "status-code" val - -constructMessageStatusCode :: Word32 -> IO ([Char], GValue) -constructMessageStatusCode val = constructObjectPropertyCUInt "status-code" val - -data MessageStatusCodePropertyInfo -instance AttrInfo MessageStatusCodePropertyInfo where - type AttrAllowedOps MessageStatusCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageStatusCodePropertyInfo = (~) Word32 - type AttrBaseTypeConstraint MessageStatusCodePropertyInfo = MessageK - type AttrGetType MessageStatusCodePropertyInfo = Word32 - type AttrLabel MessageStatusCodePropertyInfo = "Message::status-code" - attrGet _ = getMessageStatusCode - attrSet _ = setMessageStatusCode - attrConstruct _ = constructMessageStatusCode - --- VVV Prop "tls-certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m Gio.TlsCertificate -getMessageTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate - -setMessageTlsCertificate :: (MonadIO m, MessageK o, Gio.TlsCertificateK a) => o -> a -> m () -setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" val - -constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue) -constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" val - -data MessageTlsCertificatePropertyInfo -instance AttrInfo MessageTlsCertificatePropertyInfo where - type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK - type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK - type AttrGetType MessageTlsCertificatePropertyInfo = Gio.TlsCertificate - type AttrLabel MessageTlsCertificatePropertyInfo = "Message::tls-certificate" - attrGet _ = getMessageTlsCertificate - attrSet _ = setMessageTlsCertificate - attrConstruct _ = constructMessageTlsCertificate - --- VVV Prop "tls-errors" - -- Type: TInterface "Gio" "TlsCertificateFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageTlsErrors :: (MonadIO m, MessageK o) => o -> m [Gio.TlsCertificateFlags] -getMessageTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors" - -setMessageTlsErrors :: (MonadIO m, MessageK o) => o -> [Gio.TlsCertificateFlags] -> m () -setMessageTlsErrors obj val = liftIO $ setObjectPropertyFlags obj "tls-errors" val - -constructMessageTlsErrors :: [Gio.TlsCertificateFlags] -> IO ([Char], GValue) -constructMessageTlsErrors val = constructObjectPropertyFlags "tls-errors" val - -data MessageTlsErrorsPropertyInfo -instance AttrInfo MessageTlsErrorsPropertyInfo where - type AttrAllowedOps MessageTlsErrorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageTlsErrorsPropertyInfo = (~) [Gio.TlsCertificateFlags] - type AttrBaseTypeConstraint MessageTlsErrorsPropertyInfo = MessageK - type AttrGetType MessageTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags] - type AttrLabel MessageTlsErrorsPropertyInfo = "Message::tls-errors" - attrGet _ = getMessageTlsErrors - attrSet _ = setMessageTlsErrors - attrConstruct _ = constructMessageTlsErrors - --- VVV Prop "uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable] - -getMessageUri :: (MonadIO m, MessageK o) => o -> m URI -getMessageUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI - -setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m () -setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" val - -constructMessageUri :: URI -> IO ([Char], GValue) -constructMessageUri val = constructObjectPropertyBoxed "uri" val - -data MessageUriPropertyInfo -instance AttrInfo MessageUriPropertyInfo where - type AttrAllowedOps MessageUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MessageUriPropertyInfo = (~) URI - type AttrBaseTypeConstraint MessageUriPropertyInfo = MessageK - type AttrGetType MessageUriPropertyInfo = URI - type AttrLabel MessageUriPropertyInfo = "Message::uri" - attrGet _ = getMessageUri - attrSet _ = setMessageUri - attrConstruct _ = constructMessageUri - -type instance AttributeList Message = MessageAttributeList -type MessageAttributeList = ('[ '("first-party", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("http-version", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reason-phrase", MessageReasonPhrasePropertyInfo), '("request-body", MessageRequestBodyPropertyInfo), '("request-body-data", MessageRequestBodyDataPropertyInfo), '("request-headers", MessageRequestHeadersPropertyInfo), '("response-body", MessageResponseBodyPropertyInfo), '("response-body-data", MessageResponseBodyDataPropertyInfo), '("response-headers", MessageResponseHeadersPropertyInfo), '("server-side", MessageServerSidePropertyInfo), '("status-code", MessageStatusCodePropertyInfo), '("tls-certificate", MessageTlsCertificatePropertyInfo), '("tls-errors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)] :: [(Symbol, *)]) - -data MessageContentSniffedSignalInfo -instance SignalInfo MessageContentSniffedSignalInfo where - type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback - connectSignal _ = connectMessageContentSniffed - -data MessageFinishedSignalInfo -instance SignalInfo MessageFinishedSignalInfo where - type HaskellCallbackType MessageFinishedSignalInfo = MessageFinishedCallback - connectSignal _ = connectMessageFinished - -data MessageGotBodySignalInfo -instance SignalInfo MessageGotBodySignalInfo where - type HaskellCallbackType MessageGotBodySignalInfo = MessageGotBodyCallback - connectSignal _ = connectMessageGotBody - -data MessageGotChunkSignalInfo -instance SignalInfo MessageGotChunkSignalInfo where - type HaskellCallbackType MessageGotChunkSignalInfo = MessageGotChunkCallback - connectSignal _ = connectMessageGotChunk - -data MessageGotHeadersSignalInfo -instance SignalInfo MessageGotHeadersSignalInfo where - type HaskellCallbackType MessageGotHeadersSignalInfo = MessageGotHeadersCallback - connectSignal _ = connectMessageGotHeaders - -data MessageGotInformationalSignalInfo -instance SignalInfo MessageGotInformationalSignalInfo where - type HaskellCallbackType MessageGotInformationalSignalInfo = MessageGotInformationalCallback - connectSignal _ = connectMessageGotInformational - -data MessageNetworkEventSignalInfo -instance SignalInfo MessageNetworkEventSignalInfo where - type HaskellCallbackType MessageNetworkEventSignalInfo = MessageNetworkEventCallback - connectSignal _ = connectMessageNetworkEvent - -data MessageRestartedSignalInfo -instance SignalInfo MessageRestartedSignalInfo where - type HaskellCallbackType MessageRestartedSignalInfo = MessageRestartedCallback - connectSignal _ = connectMessageRestarted - -data MessageStartingSignalInfo -instance SignalInfo MessageStartingSignalInfo where - type HaskellCallbackType MessageStartingSignalInfo = MessageStartingCallback - connectSignal _ = connectMessageStarting - -data MessageWroteBodySignalInfo -instance SignalInfo MessageWroteBodySignalInfo where - type HaskellCallbackType MessageWroteBodySignalInfo = MessageWroteBodyCallback - connectSignal _ = connectMessageWroteBody - -data MessageWroteBodyDataSignalInfo -instance SignalInfo MessageWroteBodyDataSignalInfo where - type HaskellCallbackType MessageWroteBodyDataSignalInfo = MessageWroteBodyDataCallback - connectSignal _ = connectMessageWroteBodyData - -data MessageWroteChunkSignalInfo -instance SignalInfo MessageWroteChunkSignalInfo where - type HaskellCallbackType MessageWroteChunkSignalInfo = MessageWroteChunkCallback - connectSignal _ = connectMessageWroteChunk - -data MessageWroteHeadersSignalInfo -instance SignalInfo MessageWroteHeadersSignalInfo where - type HaskellCallbackType MessageWroteHeadersSignalInfo = MessageWroteHeadersCallback - connectSignal _ = connectMessageWroteHeaders - -data MessageWroteInformationalSignalInfo -instance SignalInfo MessageWroteInformationalSignalInfo where - type HaskellCallbackType MessageWroteInformationalSignalInfo = MessageWroteInformationalCallback - connectSignal _ = connectMessageWroteInformational - -type instance SignalList Message = MessageSignalList -type MessageSignalList = ('[ '("content-sniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("got-body", MessageGotBodySignalInfo), '("got-chunk", MessageGotChunkSignalInfo), '("got-headers", MessageGotHeadersSignalInfo), '("got-informational", MessageGotInformationalSignalInfo), '("network-event", MessageNetworkEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wrote-body", MessageWroteBodySignalInfo), '("wrote-body-data", MessageWroteBodyDataSignalInfo), '("wrote-chunk", MessageWroteChunkSignalInfo), '("wrote-headers", MessageWroteHeadersSignalInfo), '("wrote-informational", MessageWroteInformationalSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Message::new --- method type : Constructor --- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Message" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_new" soup_message_new :: - CString -> -- method : TBasicType TUTF8 - CString -> -- uri_string : TBasicType TUTF8 - IO (Ptr Message) - - -messageNew :: - (MonadIO m) => - T.Text -> -- method - T.Text -> -- uri_string - m Message -messageNew method uri_string = liftIO $ do - method' <- textToCString method - uri_string' <- textToCString uri_string - result <- soup_message_new method' uri_string' - checkUnexpectedReturnNULL "soup_message_new" result - result' <- (wrapObject Message) result - freeMem method' - freeMem uri_string' - return result' - --- method Message::new_from_uri --- method type : Constructor --- Args : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Message" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_new_from_uri" soup_message_new_from_uri :: - CString -> -- method : TBasicType TUTF8 - Ptr URI -> -- uri : TInterface "Soup" "URI" - IO (Ptr Message) - - -messageNewFromUri :: - (MonadIO m) => - T.Text -> -- method - URI -> -- uri - m Message -messageNewFromUri method uri = liftIO $ do - method' <- textToCString method - let uri' = unsafeManagedPtrGetPtr uri - result <- soup_message_new_from_uri method' uri' - checkUnexpectedReturnNULL "soup_message_new_from_uri" result - result' <- (wrapObject Message) result - touchManagedPtr uri - freeMem method' - return result' - --- method Message::content_sniffed --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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 TVoid) (TBasicType TVoid), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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 TVoid) (TBasicType TVoid), 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_content_sniffed" soup_message_content_sniffed :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - CString -> -- content_type : TBasicType TUTF8 - Ptr (GHashTable (Ptr ()) (Ptr ())) -> -- params : TGHash (TBasicType TVoid) (TBasicType TVoid) - IO () - - -messageContentSniffed :: - (MonadIO m, MessageK a) => - a -> -- _obj - T.Text -> -- content_type - Map.Map (Ptr ()) (Ptr ()) -> -- params - m () -messageContentSniffed _obj content_type params = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - content_type' <- textToCString content_type - let params' = Map.toList params - let params'' = mapFirst ptrPackPtr params' - let params''' = mapSecond ptrPackPtr params'' - params'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing params''' - soup_message_content_sniffed _obj' content_type' params'''' - touchManagedPtr _obj - freeMem content_type' - unrefGHashTable params'''' - return () - --- method Message::disable_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, 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_disable_feature" soup_message_disable_feature :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - CGType -> -- feature_type : TBasicType TGType - IO () - - -messageDisableFeature :: - (MonadIO m, MessageK a) => - a -> -- _obj - GType -> -- feature_type - m () -messageDisableFeature _obj feature_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature_type' = gtypeToCGType feature_type - soup_message_disable_feature _obj' feature_type' - touchManagedPtr _obj - return () - --- method Message::finished --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_finished" soup_message_finished :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageFinished :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageFinished _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_finished _obj' - touchManagedPtr _obj - return () - --- method Message::get_address --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Address" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_get_address" soup_message_get_address :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO (Ptr Address) - - -messageGetAddress :: - (MonadIO m, MessageK a) => - a -> -- _obj - m Address -messageGetAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_address _obj' - checkUnexpectedReturnNULL "soup_message_get_address" result - result' <- (newObject Address) result - touchManagedPtr _obj - return result' - --- method Message::get_first_party --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_get_first_party" soup_message_get_first_party :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO (Ptr URI) - - -messageGetFirstParty :: - (MonadIO m, MessageK a) => - a -> -- _obj - m URI -messageGetFirstParty _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_first_party _obj' - checkUnexpectedReturnNULL "soup_message_get_first_party" result - result' <- (newBoxed URI) result - touchManagedPtr _obj - return result' - --- method Message::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "MessageFlags" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_get_flags" soup_message_get_flags :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO CUInt - - -messageGetFlags :: - (MonadIO m, MessageK a) => - a -> -- _obj - m [MessageFlags] -messageGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - --- method Message::get_http_version --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "HTTPVersion" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_get_http_version" soup_message_get_http_version :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO CUInt - - -messageGetHttpVersion :: - (MonadIO m, MessageK a) => - a -> -- _obj - m HTTPVersion -messageGetHttpVersion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_http_version _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Message::get_https_status --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_get_https_status" soup_message_get_https_status :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Ptr (Ptr Gio.TlsCertificate) -> -- certificate : TInterface "Gio" "TlsCertificate" - Ptr CUInt -> -- errors : TInterface "Gio" "TlsCertificateFlags" - IO CInt - - -messageGetHttpsStatus :: - (MonadIO m, MessageK a) => - a -> -- _obj - m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags]) -messageGetHttpsStatus _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate)) - errors <- allocMem :: IO (Ptr CUInt) - result <- soup_message_get_https_status _obj' certificate errors - let result' = (/= 0) result - certificate' <- peek certificate - certificate'' <- (newObject Gio.TlsCertificate) certificate' - errors' <- peek errors - let errors'' = wordToGFlags errors' - touchManagedPtr _obj - freeMem certificate - freeMem errors - return (result', certificate'', errors'') - --- method Message::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "MessagePriority" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_get_priority" soup_message_get_priority :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO CUInt - - -messageGetPriority :: - (MonadIO m, MessageK a) => - a -> -- _obj - m MessagePriority -messageGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_priority _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method Message::get_soup_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Request" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_get_soup_request" soup_message_get_soup_request :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO (Ptr Request) - - -messageGetSoupRequest :: - (MonadIO m, MessageK a) => - a -> -- _obj - m Request -messageGetSoupRequest _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_soup_request _obj' - checkUnexpectedReturnNULL "soup_message_get_soup_request" result - result' <- (newObject Request) result - touchManagedPtr _obj - return result' - --- method Message::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_get_uri" soup_message_get_uri :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO (Ptr URI) - - -messageGetUri :: - (MonadIO m, MessageK a) => - a -> -- _obj - m URI -messageGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_uri _obj' - checkUnexpectedReturnNULL "soup_message_get_uri" result - result' <- (newBoxed URI) result - touchManagedPtr _obj - return result' - --- method Message::got_body --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_got_body" soup_message_got_body :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageGotBody :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageGotBody _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_got_body _obj' - touchManagedPtr _obj - return () - --- method Message::got_chunk --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_got_chunk" soup_message_got_chunk :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" - IO () - - -messageGotChunk :: - (MonadIO m, MessageK a) => - a -> -- _obj - Buffer -> -- chunk - m () -messageGotChunk _obj chunk = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let chunk' = unsafeManagedPtrGetPtr chunk - soup_message_got_chunk _obj' chunk' - touchManagedPtr _obj - touchManagedPtr chunk - return () - --- method Message::got_headers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_got_headers" soup_message_got_headers :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageGotHeaders :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageGotHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_got_headers _obj' - touchManagedPtr _obj - return () - --- method Message::got_informational --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_got_informational" soup_message_got_informational :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageGotInformational :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageGotInformational _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_got_informational _obj' - touchManagedPtr _obj - return () - --- method Message::is_keepalive --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_is_keepalive" soup_message_is_keepalive :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO CInt - - -messageIsKeepalive :: - (MonadIO m, MessageK a) => - a -> -- _obj - m Bool -messageIsKeepalive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_is_keepalive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Message::restarted --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_restarted" soup_message_restarted :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageRestarted :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageRestarted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_restarted _obj' - touchManagedPtr _obj - return () - --- method Message::set_chunk_allocator --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_message_set_chunk_allocator" soup_message_set_chunk_allocator :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - FunPtr ChunkAllocatorC -> -- allocator : TInterface "Soup" "ChunkAllocator" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy_notify : TInterface "GLib" "DestroyNotify" - IO () - -{-# DEPRECATED messageSetChunkAllocator ["#SoupRequest provides a much simpler API that lets you","read the response directly into your own buffers without needing to","mess with callbacks, pausing/unpausing, etc."]#-} -messageSetChunkAllocator :: - (MonadIO m, MessageK a) => - a -> -- _obj - ChunkAllocator -> -- allocator - m () -messageSetChunkAllocator _obj allocator = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - allocator' <- mkChunkAllocator (chunkAllocatorWrapper Nothing allocator) - let user_data = castFunPtrToPtr allocator' - let destroy_notify = safeFreeFunPtrPtr - soup_message_set_chunk_allocator _obj' allocator' user_data destroy_notify - touchManagedPtr _obj - return () - --- method Message::set_first_party --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "first_party", argType = TInterface "Soup" "URI", 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_set_first_party" soup_message_set_first_party :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Ptr URI -> -- first_party : TInterface "Soup" "URI" - IO () - - -messageSetFirstParty :: - (MonadIO m, MessageK a) => - a -> -- _obj - URI -> -- first_party - m () -messageSetFirstParty _obj first_party = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let first_party' = unsafeManagedPtrGetPtr first_party - soup_message_set_first_party _obj' first_party' - touchManagedPtr _obj - touchManagedPtr first_party - return () - --- method Message::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Soup" "MessageFlags", 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_set_flags" soup_message_set_flags :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - CUInt -> -- flags : TInterface "Soup" "MessageFlags" - IO () - - -messageSetFlags :: - (MonadIO m, MessageK a) => - a -> -- _obj - [MessageFlags] -> -- flags - m () -messageSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - soup_message_set_flags _obj' flags' - touchManagedPtr _obj - return () - --- method Message::set_http_version --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "version", argType = TInterface "Soup" "HTTPVersion", 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_set_http_version" soup_message_set_http_version :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - CUInt -> -- version : TInterface "Soup" "HTTPVersion" - IO () - - -messageSetHttpVersion :: - (MonadIO m, MessageK a) => - a -> -- _obj - HTTPVersion -> -- version - m () -messageSetHttpVersion _obj version = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let version' = (fromIntegral . fromEnum) version - soup_message_set_http_version _obj' version' - touchManagedPtr _obj - return () - --- method Message::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "priority", argType = TInterface "Soup" "MessagePriority", 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_set_priority" soup_message_set_priority :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - CUInt -> -- priority : TInterface "Soup" "MessagePriority" - IO () - - -messageSetPriority :: - (MonadIO m, MessageK a) => - a -> -- _obj - MessagePriority -> -- priority - m () -messageSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let priority' = (fromIntegral . fromEnum) priority - soup_message_set_priority _obj' priority' - touchManagedPtr _obj - return () - --- method Message::set_redirect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "redirect_uri", 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_set_redirect" soup_message_set_redirect :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Word32 -> -- status_code : TBasicType TUInt32 - CString -> -- redirect_uri : TBasicType TUTF8 - IO () - - -messageSetRedirect :: - (MonadIO m, MessageK a) => - a -> -- _obj - Word32 -> -- status_code - T.Text -> -- redirect_uri - m () -messageSetRedirect _obj status_code redirect_uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - redirect_uri' <- textToCString redirect_uri - soup_message_set_redirect _obj' status_code redirect_uri' - touchManagedPtr _obj - freeMem redirect_uri' - return () - --- method Message::set_request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), 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_set_request" soup_message_set_request :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - CString -> -- content_type : TBasicType TUTF8 - CUInt -> -- req_use : TInterface "Soup" "MemoryUse" - Ptr Word8 -> -- req_body : TCArray False (-1) 4 (TBasicType TUInt8) - Word64 -> -- req_length : TBasicType TUInt64 - IO () - - -messageSetRequest :: - (MonadIO m, MessageK a) => - a -> -- _obj - Maybe (T.Text) -> -- content_type - MemoryUse -> -- req_use - Maybe (ByteString) -> -- req_body - m () -messageSetRequest _obj content_type req_use req_body = liftIO $ do - let req_length = case req_body of - Nothing -> 0 - Just jReq_body -> fromIntegral $ B.length jReq_body - let _obj' = unsafeManagedPtrCastPtr _obj - maybeContent_type <- case content_type of - Nothing -> return nullPtr - Just jContent_type -> do - jContent_type' <- textToCString jContent_type - return jContent_type' - let req_use' = (fromIntegral . fromEnum) req_use - maybeReq_body <- case req_body of - Nothing -> return nullPtr - Just jReq_body -> do - jReq_body' <- packByteString jReq_body - return jReq_body' - soup_message_set_request _obj' maybeContent_type req_use' maybeReq_body req_length - touchManagedPtr _obj - freeMem maybeContent_type - freeMem maybeReq_body - return () - --- method Message::set_response --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), 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_set_response" soup_message_set_response :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - CString -> -- content_type : TBasicType TUTF8 - CUInt -> -- resp_use : TInterface "Soup" "MemoryUse" - Ptr Word8 -> -- resp_body : TCArray False (-1) 4 (TBasicType TUInt8) - Word64 -> -- resp_length : TBasicType TUInt64 - IO () - - -messageSetResponse :: - (MonadIO m, MessageK a) => - a -> -- _obj - Maybe (T.Text) -> -- content_type - MemoryUse -> -- resp_use - Maybe (ByteString) -> -- resp_body - m () -messageSetResponse _obj content_type resp_use resp_body = liftIO $ do - let resp_length = case resp_body of - Nothing -> 0 - Just jResp_body -> fromIntegral $ B.length jResp_body - let _obj' = unsafeManagedPtrCastPtr _obj - maybeContent_type <- case content_type of - Nothing -> return nullPtr - Just jContent_type -> do - jContent_type' <- textToCString jContent_type - return jContent_type' - let resp_use' = (fromIntegral . fromEnum) resp_use - maybeResp_body <- case resp_body of - Nothing -> return nullPtr - Just jResp_body -> do - jResp_body' <- packByteString jResp_body - return jResp_body' - soup_message_set_response _obj' maybeContent_type resp_use' maybeResp_body resp_length - touchManagedPtr _obj - freeMem maybeContent_type - freeMem maybeResp_body - return () - --- method Message::set_status --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, 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_set_status" soup_message_set_status :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Word32 -> -- status_code : TBasicType TUInt32 - IO () - - -messageSetStatus :: - (MonadIO m, MessageK a) => - a -> -- _obj - Word32 -> -- status_code - m () -messageSetStatus _obj status_code = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_set_status _obj' status_code - touchManagedPtr _obj - return () - --- method Message::set_status_full --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "reason_phrase", 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_set_status_full" soup_message_set_status_full :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Word32 -> -- status_code : TBasicType TUInt32 - CString -> -- reason_phrase : TBasicType TUTF8 - IO () - - -messageSetStatusFull :: - (MonadIO m, MessageK a) => - a -> -- _obj - Word32 -> -- status_code - T.Text -> -- reason_phrase - m () -messageSetStatusFull _obj status_code reason_phrase = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - reason_phrase' <- textToCString reason_phrase - soup_message_set_status_full _obj' status_code reason_phrase' - touchManagedPtr _obj - freeMem reason_phrase' - return () - --- method Message::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", 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_set_uri" soup_message_set_uri :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Ptr URI -> -- uri : TInterface "Soup" "URI" - IO () - - -messageSetUri :: - (MonadIO m, MessageK a) => - a -> -- _obj - URI -> -- uri - m () -messageSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - soup_message_set_uri _obj' uri' - touchManagedPtr _obj - touchManagedPtr uri - return () - --- method Message::starting --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_starting" soup_message_starting :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageStarting :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageStarting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_starting _obj' - touchManagedPtr _obj - return () - --- method Message::wrote_body --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_body" soup_message_wrote_body :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageWroteBody :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageWroteBody _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_body _obj' - touchManagedPtr _obj - return () - --- method Message::wrote_body_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_wrote_body_data" soup_message_wrote_body_data :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" - IO () - - -messageWroteBodyData :: - (MonadIO m, MessageK a) => - a -> -- _obj - Buffer -> -- chunk - m () -messageWroteBodyData _obj chunk = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let chunk' = unsafeManagedPtrGetPtr chunk - soup_message_wrote_body_data _obj' chunk' - touchManagedPtr _obj - touchManagedPtr chunk - return () - --- method Message::wrote_chunk --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_chunk" soup_message_wrote_chunk :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageWroteChunk :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageWroteChunk _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_chunk _obj' - touchManagedPtr _obj - return () - --- method Message::wrote_headers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_headers" soup_message_wrote_headers :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageWroteHeaders :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageWroteHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_headers _obj' - touchManagedPtr _obj - return () - --- method Message::wrote_informational --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Message", 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_wrote_informational" soup_message_wrote_informational :: - Ptr Message -> -- _obj : TInterface "Soup" "Message" - IO () - - -messageWroteInformational :: - (MonadIO m, MessageK a) => - a -> -- _obj - m () -messageWroteInformational _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_informational _obj' - touchManagedPtr _obj - return () - - diff --git a/GI/Soup/Objects/Message.hs-boot b/GI/Soup/Objects/Message.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Message.hs-boot +++ /dev/null @@ -1,44 +0,0 @@ -module GI.Soup.Objects.Message 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 - -newtype Message = Message (ForeignPtr Message) -instance GObject Message where -class GObject o => MessageK o -instance (GObject o, IsDescendantOf Message o) => MessageK o -data MessageFirstPartyPropertyInfo -data MessageFlagsPropertyInfo -data MessageHttpVersionPropertyInfo -data MessageMethodPropertyInfo -data MessagePriorityPropertyInfo -data MessageReasonPhrasePropertyInfo -data MessageRequestBodyPropertyInfo -data MessageRequestBodyDataPropertyInfo -data MessageRequestHeadersPropertyInfo -data MessageResponseBodyPropertyInfo -data MessageResponseBodyDataPropertyInfo -data MessageResponseHeadersPropertyInfo -data MessageServerSidePropertyInfo -data MessageStatusCodePropertyInfo -data MessageTlsCertificatePropertyInfo -data MessageTlsErrorsPropertyInfo -data MessageUriPropertyInfo -data MessageContentSniffedSignalInfo -data MessageFinishedSignalInfo -data MessageGotBodySignalInfo -data MessageGotChunkSignalInfo -data MessageGotHeadersSignalInfo -data MessageGotInformationalSignalInfo -data MessageNetworkEventSignalInfo -data MessageRestartedSignalInfo -data MessageStartingSignalInfo -data MessageWroteBodySignalInfo -data MessageWroteBodyDataSignalInfo -data MessageWroteChunkSignalInfo -data MessageWroteHeadersSignalInfo -data MessageWroteInformationalSignalInfo diff --git a/GI/Soup/Objects/MultipartInputStream.hs b/GI/Soup/Objects/MultipartInputStream.hs deleted file mode 100644 --- a/GI/Soup/Objects/MultipartInputStream.hs +++ /dev/null @@ -1,287 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.MultipartInputStream - ( - --- * Exported types - MultipartInputStream(..) , - MultipartInputStreamK , - toMultipartInputStream , - noMultipartInputStream , - - - -- * Methods --- ** multipartInputStreamGetHeaders - multipartInputStreamGetHeaders , - - --- ** multipartInputStreamNew - multipartInputStreamNew , - - --- ** multipartInputStreamNextPart - multipartInputStreamNextPart , - - --- ** multipartInputStreamNextPartAsync - multipartInputStreamNextPartAsync , - - --- ** multipartInputStreamNextPartFinish - multipartInputStreamNextPartFinish , - - - - - -- * Properties --- ** Message - MultipartInputStreamMessagePropertyInfo , - constructMultipartInputStreamMessage , - getMultipartInputStreamMessage , - - - - - ) 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 -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream) -foreign import ccall "soup_multipart_input_stream_get_type" - c_soup_multipart_input_stream_get_type :: IO GType - -type instance ParentTypes MultipartInputStream = MultipartInputStreamParentTypes -type MultipartInputStreamParentTypes = '[Gio.FilterInputStream, Gio.InputStream, GObject.Object, Gio.PollableInputStream] - -instance GObject MultipartInputStream where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_multipart_input_stream_get_type - - -class GObject o => MultipartInputStreamK o -instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o - -toMultipartInputStream :: MultipartInputStreamK o => o -> IO MultipartInputStream -toMultipartInputStream = unsafeCastTo MultipartInputStream - -noMultipartInputStream :: Maybe MultipartInputStream -noMultipartInputStream = Nothing - --- VVV Prop "message" - -- Type: TInterface "Soup" "Message" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m Message -getMultipartInputStreamMessage obj = liftIO $ getObjectPropertyObject obj "message" Message - -constructMultipartInputStreamMessage :: (MessageK a) => a -> IO ([Char], GValue) -constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" val - -data MultipartInputStreamMessagePropertyInfo -instance AttrInfo MultipartInputStreamMessagePropertyInfo where - type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = MessageK - type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = MultipartInputStreamK - type AttrGetType MultipartInputStreamMessagePropertyInfo = Message - type AttrLabel MultipartInputStreamMessagePropertyInfo = "MultipartInputStream::message" - attrGet _ = getMultipartInputStreamMessage - attrSet _ = undefined - attrConstruct _ = constructMultipartInputStreamMessage - -type instance AttributeList MultipartInputStream = MultipartInputStreamAttributeList -type MultipartInputStreamAttributeList = ('[ '("base-stream", Gio.FilterInputStreamBaseStreamPropertyInfo), '("close-base-stream", Gio.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList MultipartInputStream = MultipartInputStreamSignalList -type MultipartInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MultipartInputStream::new --- method type : Constructor --- Args : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "MultipartInputStream" --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_input_stream_new" soup_multipart_input_stream_new :: - Ptr Message -> -- msg : TInterface "Soup" "Message" - Ptr Gio.InputStream -> -- base_stream : TInterface "Gio" "InputStream" - IO (Ptr MultipartInputStream) - - -multipartInputStreamNew :: - (MonadIO m, MessageK a, Gio.InputStreamK b) => - a -> -- msg - b -> -- base_stream - m MultipartInputStream -multipartInputStreamNew msg base_stream = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - let base_stream' = unsafeManagedPtrCastPtr base_stream - result <- soup_multipart_input_stream_new msg' base_stream' - checkUnexpectedReturnNULL "soup_multipart_input_stream_new" result - result' <- (wrapObject MultipartInputStream) result - touchManagedPtr msg - touchManagedPtr base_stream - return result' - --- method MultipartInputStream::get_headers --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", 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_multipart_input_stream_get_headers" soup_multipart_input_stream_get_headers :: - Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" - IO (Ptr MessageHeaders) - - -multipartInputStreamGetHeaders :: - (MonadIO m, MultipartInputStreamK a) => - a -> -- _obj - m MessageHeaders -multipartInputStreamGetHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_multipart_input_stream_get_headers _obj' - checkUnexpectedReturnNULL "soup_multipart_input_stream_get_headers" result - result' <- (newBoxed MessageHeaders) result - touchManagedPtr _obj - return result' - --- method MultipartInputStream::next_part --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "soup_multipart_input_stream_next_part" soup_multipart_input_stream_next_part :: - Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -multipartInputStreamNextPart :: - (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Gio.InputStream -multipartInputStreamNextPart _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ soup_multipart_input_stream_next_part _obj' maybeCancellable - checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - --- method MultipartInputStream::next_part_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "io_priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_input_stream_next_part_async" soup_multipart_input_stream_next_part_async :: - Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" - Int32 -> -- io_priority : TBasicType TInt32 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- data : TBasicType TVoid - IO () - - -multipartInputStreamNextPartAsync :: - (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => - a -> -- _obj - Int32 -> -- io_priority - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -multipartInputStreamNextPartAsync _obj io_priority cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let data_ = nullPtr - soup_multipart_input_stream_next_part_async _obj' io_priority maybeCancellable maybeCallback data_ - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method MultipartInputStream::next_part_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "soup_multipart_input_stream_next_part_finish" soup_multipart_input_stream_next_part_finish :: - Ptr MultipartInputStream -> -- _obj : TInterface "Soup" "MultipartInputStream" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -multipartInputStreamNextPartFinish :: - (MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m Gio.InputStream -multipartInputStreamNextPartFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ soup_multipart_input_stream_next_part_finish _obj' result_' - checkUnexpectedReturnNULL "soup_multipart_input_stream_next_part_finish" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - - diff --git a/GI/Soup/Objects/MultipartInputStream.hs-boot b/GI/Soup/Objects/MultipartInputStream.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/MultipartInputStream.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Soup.Objects.MultipartInputStream 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 - -newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream) -instance GObject MultipartInputStream where -class GObject o => MultipartInputStreamK o -instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o -data MultipartInputStreamMessagePropertyInfo diff --git a/GI/Soup/Objects/ProxyResolverDefault.hs b/GI/Soup/Objects/ProxyResolverDefault.hs deleted file mode 100644 --- a/GI/Soup/Objects/ProxyResolverDefault.hs +++ /dev/null @@ -1,89 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.ProxyResolverDefault - ( - --- * Exported types - ProxyResolverDefault(..) , - ProxyResolverDefaultK , - toProxyResolverDefault , - noProxyResolverDefault , - - - -- * Properties --- ** GproxyResolver - ProxyResolverDefaultGproxyResolverPropertyInfo, - constructProxyResolverDefaultGproxyResolver, - setProxyResolverDefaultGproxyResolver , - - - - - ) 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 -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault) -foreign import ccall "soup_proxy_resolver_default_get_type" - c_soup_proxy_resolver_default_get_type :: IO GType - -type instance ParentTypes ProxyResolverDefault = ProxyResolverDefaultParentTypes -type ProxyResolverDefaultParentTypes = '[GObject.Object, ProxyURIResolver, SessionFeature] - -instance GObject ProxyResolverDefault where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_proxy_resolver_default_get_type - - -class GObject o => ProxyResolverDefaultK o -instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o - -toProxyResolverDefault :: ProxyResolverDefaultK o => o -> IO ProxyResolverDefault -toProxyResolverDefault = unsafeCastTo ProxyResolverDefault - -noProxyResolverDefault :: Maybe ProxyResolverDefault -noProxyResolverDefault = Nothing - --- VVV Prop "gproxy-resolver" - -- Type: TInterface "Gio" "ProxyResolver" - -- Flags: [PropertyWritable] - -setProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o, Gio.ProxyResolverK a) => o -> a -> m () -setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" val - -constructProxyResolverDefaultGproxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue) -constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" val - -data ProxyResolverDefaultGproxyResolverPropertyInfo -instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where - type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct] - type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolverK - type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefaultK - type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = () - type AttrLabel ProxyResolverDefaultGproxyResolverPropertyInfo = "ProxyResolverDefault::gproxy-resolver" - attrGet _ = undefined - attrSet _ = setProxyResolverDefaultGproxyResolver - attrConstruct _ = constructProxyResolverDefaultGproxyResolver - -type instance AttributeList ProxyResolverDefault = ProxyResolverDefaultAttributeList -type ProxyResolverDefaultAttributeList = ('[ '("gproxy-resolver", ProxyResolverDefaultGproxyResolverPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList ProxyResolverDefault = ProxyResolverDefaultSignalList -type ProxyResolverDefaultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Soup/Objects/ProxyResolverDefault.hs-boot b/GI/Soup/Objects/ProxyResolverDefault.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/ProxyResolverDefault.hs-boot +++ /dev/null @@ -1,14 +0,0 @@ -module GI.Soup.Objects.ProxyResolverDefault 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 - -newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault) -instance GObject ProxyResolverDefault where -class GObject o => ProxyResolverDefaultK o -instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o -data ProxyResolverDefaultGproxyResolverPropertyInfo diff --git a/GI/Soup/Objects/Request.hs b/GI/Soup/Objects/Request.hs deleted file mode 100644 --- a/GI/Soup/Objects/Request.hs +++ /dev/null @@ -1,366 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Request - ( - --- * Exported types - Request(..) , - RequestK , - toRequest , - noRequest , - - - -- * Methods --- ** requestGetContentLength - requestGetContentLength , - - --- ** requestGetContentType - requestGetContentType , - - --- ** requestGetSession - requestGetSession , - - --- ** requestGetUri - requestGetUri , - - --- ** requestSend - requestSend , - - --- ** requestSendAsync - requestSendAsync , - - --- ** requestSendFinish - requestSendFinish , - - - - - -- * Properties --- ** Session - RequestSessionPropertyInfo , - constructRequestSession , - getRequestSession , - - --- ** Uri - RequestUriPropertyInfo , - constructRequestUri , - getRequestUri , - - - - - ) 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 -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Request = Request (ForeignPtr Request) -foreign import ccall "soup_request_get_type" - c_soup_request_get_type :: IO GType - -type instance ParentTypes Request = RequestParentTypes -type RequestParentTypes = '[GObject.Object, Gio.Initable] - -instance GObject Request where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_request_get_type - - -class GObject o => RequestK o -instance (GObject o, IsDescendantOf Request o) => RequestK o - -toRequest :: RequestK o => o -> IO Request -toRequest = unsafeCastTo Request - -noRequest :: Maybe Request -noRequest = Nothing - --- VVV Prop "session" - -- Type: TInterface "Soup" "Session" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getRequestSession :: (MonadIO m, RequestK o) => o -> m Session -getRequestSession obj = liftIO $ getObjectPropertyObject obj "session" Session - -constructRequestSession :: (SessionK a) => a -> IO ([Char], GValue) -constructRequestSession val = constructObjectPropertyObject "session" val - -data RequestSessionPropertyInfo -instance AttrInfo RequestSessionPropertyInfo where - type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RequestSessionPropertyInfo = SessionK - type AttrBaseTypeConstraint RequestSessionPropertyInfo = RequestK - type AttrGetType RequestSessionPropertyInfo = Session - type AttrLabel RequestSessionPropertyInfo = "Request::session" - attrGet _ = getRequestSession - attrSet _ = undefined - attrConstruct _ = constructRequestSession - --- VVV Prop "uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getRequestUri :: (MonadIO m, RequestK o) => o -> m URI -getRequestUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI - -constructRequestUri :: URI -> IO ([Char], GValue) -constructRequestUri val = constructObjectPropertyBoxed "uri" val - -data RequestUriPropertyInfo -instance AttrInfo RequestUriPropertyInfo where - type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint RequestUriPropertyInfo = (~) URI - type AttrBaseTypeConstraint RequestUriPropertyInfo = RequestK - type AttrGetType RequestUriPropertyInfo = URI - type AttrLabel RequestUriPropertyInfo = "Request::uri" - attrGet _ = getRequestUri - attrSet _ = undefined - attrConstruct _ = constructRequestUri - -type instance AttributeList Request = RequestAttributeList -type RequestAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList Request = RequestSignalList -type RequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Request::get_content_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "soup_request_get_content_length" soup_request_get_content_length :: - Ptr Request -> -- _obj : TInterface "Soup" "Request" - IO Int64 - - -requestGetContentLength :: - (MonadIO m, RequestK a) => - a -> -- _obj - m Int64 -requestGetContentLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_get_content_length _obj' - touchManagedPtr _obj - return result - --- method Request::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_request_get_content_type" soup_request_get_content_type :: - Ptr Request -> -- _obj : TInterface "Soup" "Request" - IO CString - - -requestGetContentType :: - (MonadIO m, RequestK a) => - a -> -- _obj - m T.Text -requestGetContentType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_get_content_type _obj' - checkUnexpectedReturnNULL "soup_request_get_content_type" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Request::get_session --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Session" --- throws : False --- Skip return : False - -foreign import ccall "soup_request_get_session" soup_request_get_session :: - Ptr Request -> -- _obj : TInterface "Soup" "Request" - IO (Ptr Session) - - -requestGetSession :: - (MonadIO m, RequestK a) => - a -> -- _obj - m Session -requestGetSession _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_get_session _obj' - checkUnexpectedReturnNULL "soup_request_get_session" result - result' <- (newObject Session) result - touchManagedPtr _obj - return result' - --- method Request::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_request_get_uri" soup_request_get_uri :: - Ptr Request -> -- _obj : TInterface "Soup" "Request" - IO (Ptr URI) - - -requestGetUri :: - (MonadIO m, RequestK a) => - a -> -- _obj - m URI -requestGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_get_uri _obj' - checkUnexpectedReturnNULL "soup_request_get_uri" result - result' <- (newBoxed URI) result - touchManagedPtr _obj - return result' - --- method Request::send --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "soup_request_send" soup_request_send :: - Ptr Request -> -- _obj : TInterface "Soup" "Request" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -requestSend :: - (MonadIO m, RequestK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Gio.InputStream -requestSend _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ soup_request_send _obj' maybeCancellable - checkUnexpectedReturnNULL "soup_request_send" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - --- method Request::send_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, 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" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_request_send_async" soup_request_send_async :: - Ptr Request -> -- _obj : TInterface "Soup" "Request" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -requestSendAsync :: - (MonadIO m, RequestK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -requestSendAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - soup_request_send_async _obj' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method Request::send_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "soup_request_send_finish" soup_request_send_finish :: - Ptr Request -> -- _obj : TInterface "Soup" "Request" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -requestSendFinish :: - (MonadIO m, RequestK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m Gio.InputStream -requestSendFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ soup_request_send_finish _obj' result_' - checkUnexpectedReturnNULL "soup_request_send_finish" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - - diff --git a/GI/Soup/Objects/Request.hs-boot b/GI/Soup/Objects/Request.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Request.hs-boot +++ /dev/null @@ -1,15 +0,0 @@ -module GI.Soup.Objects.Request 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 - -newtype Request = Request (ForeignPtr Request) -instance GObject Request where -class GObject o => RequestK o -instance (GObject o, IsDescendantOf Request o) => RequestK o -data RequestSessionPropertyInfo -data RequestUriPropertyInfo diff --git a/GI/Soup/Objects/RequestData.hs b/GI/Soup/Objects/RequestData.hs deleted file mode 100644 --- a/GI/Soup/Objects/RequestData.hs +++ /dev/null @@ -1,59 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.RequestData - ( - --- * Exported types - RequestData(..) , - RequestDataK , - toRequestData , - noRequestData , - - - ) 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 -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype RequestData = RequestData (ForeignPtr RequestData) -foreign import ccall "soup_request_data_get_type" - c_soup_request_data_get_type :: IO GType - -type instance ParentTypes RequestData = RequestDataParentTypes -type RequestDataParentTypes = '[Request, GObject.Object, Gio.Initable] - -instance GObject RequestData where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_request_data_get_type - - -class GObject o => RequestDataK o -instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o - -toRequestData :: RequestDataK o => o -> IO RequestData -toRequestData = unsafeCastTo RequestData - -noRequestData :: Maybe RequestData -noRequestData = Nothing - -type instance AttributeList RequestData = RequestDataAttributeList -type RequestDataAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RequestData = RequestDataSignalList -type RequestDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - - diff --git a/GI/Soup/Objects/RequestData.hs-boot b/GI/Soup/Objects/RequestData.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/RequestData.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.RequestData 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 - -newtype RequestData = RequestData (ForeignPtr RequestData) -instance GObject RequestData where -class GObject o => RequestDataK o -instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o diff --git a/GI/Soup/Objects/RequestFile.hs b/GI/Soup/Objects/RequestFile.hs deleted file mode 100644 --- a/GI/Soup/Objects/RequestFile.hs +++ /dev/null @@ -1,92 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.RequestFile - ( - --- * Exported types - RequestFile(..) , - RequestFileK , - toRequestFile , - noRequestFile , - - - -- * Methods --- ** requestFileGetFile - requestFileGetFile , - - - - - ) 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 -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype RequestFile = RequestFile (ForeignPtr RequestFile) -foreign import ccall "soup_request_file_get_type" - c_soup_request_file_get_type :: IO GType - -type instance ParentTypes RequestFile = RequestFileParentTypes -type RequestFileParentTypes = '[Request, GObject.Object, Gio.Initable] - -instance GObject RequestFile where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_request_file_get_type - - -class GObject o => RequestFileK o -instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o - -toRequestFile :: RequestFileK o => o -> IO RequestFile -toRequestFile = unsafeCastTo RequestFile - -noRequestFile :: Maybe RequestFile -noRequestFile = Nothing - -type instance AttributeList RequestFile = RequestFileAttributeList -type RequestFileAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RequestFile = RequestFileSignalList -type RequestFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RequestFile::get_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "File" --- throws : False --- Skip return : False - -foreign import ccall "soup_request_file_get_file" soup_request_file_get_file :: - Ptr RequestFile -> -- _obj : TInterface "Soup" "RequestFile" - IO (Ptr Gio.File) - - -requestFileGetFile :: - (MonadIO m, RequestFileK a) => - a -> -- _obj - m Gio.File -requestFileGetFile _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_file_get_file _obj' - checkUnexpectedReturnNULL "soup_request_file_get_file" result - result' <- (wrapObject Gio.File) result - touchManagedPtr _obj - return result' - - diff --git a/GI/Soup/Objects/RequestFile.hs-boot b/GI/Soup/Objects/RequestFile.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/RequestFile.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.RequestFile 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 - -newtype RequestFile = RequestFile (ForeignPtr RequestFile) -instance GObject RequestFile where -class GObject o => RequestFileK o -instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o diff --git a/GI/Soup/Objects/RequestHTTP.hs b/GI/Soup/Objects/RequestHTTP.hs deleted file mode 100644 --- a/GI/Soup/Objects/RequestHTTP.hs +++ /dev/null @@ -1,92 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.RequestHTTP - ( - --- * Exported types - RequestHTTP(..) , - RequestHTTPK , - toRequestHTTP , - noRequestHTTP , - - - -- * Methods --- ** requestHTTPGetMessage - requestHTTPGetMessage , - - - - - ) 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 -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP) -foreign import ccall "soup_request_http_get_type" - c_soup_request_http_get_type :: IO GType - -type instance ParentTypes RequestHTTP = RequestHTTPParentTypes -type RequestHTTPParentTypes = '[Request, GObject.Object, Gio.Initable] - -instance GObject RequestHTTP where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_request_http_get_type - - -class GObject o => RequestHTTPK o -instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o - -toRequestHTTP :: RequestHTTPK o => o -> IO RequestHTTP -toRequestHTTP = unsafeCastTo RequestHTTP - -noRequestHTTP :: Maybe RequestHTTP -noRequestHTTP = Nothing - -type instance AttributeList RequestHTTP = RequestHTTPAttributeList -type RequestHTTPAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RequestHTTP = RequestHTTPSignalList -type RequestHTTPSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RequestHTTP::get_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Message" --- throws : False --- Skip return : False - -foreign import ccall "soup_request_http_get_message" soup_request_http_get_message :: - Ptr RequestHTTP -> -- _obj : TInterface "Soup" "RequestHTTP" - IO (Ptr Message) - - -requestHTTPGetMessage :: - (MonadIO m, RequestHTTPK a) => - a -> -- _obj - m Message -requestHTTPGetMessage _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_http_get_message _obj' - checkUnexpectedReturnNULL "soup_request_http_get_message" result - result' <- (wrapObject Message) result - touchManagedPtr _obj - return result' - - diff --git a/GI/Soup/Objects/RequestHTTP.hs-boot b/GI/Soup/Objects/RequestHTTP.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/RequestHTTP.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.RequestHTTP 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 - -newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP) -instance GObject RequestHTTP where -class GObject o => RequestHTTPK o -instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o diff --git a/GI/Soup/Objects/Requester.hs b/GI/Soup/Objects/Requester.hs deleted file mode 100644 --- a/GI/Soup/Objects/Requester.hs +++ /dev/null @@ -1,165 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Requester - ( - --- * Exported types - Requester(..) , - RequesterK , - toRequester , - noRequester , - - - -- * Methods --- ** requesterNew - requesterNew , - - --- ** requesterRequest - requesterRequest , - - --- ** requesterRequestUri - requesterRequestUri , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype Requester = Requester (ForeignPtr Requester) -foreign import ccall "soup_requester_get_type" - c_soup_requester_get_type :: IO GType - -type instance ParentTypes Requester = RequesterParentTypes -type RequesterParentTypes = '[GObject.Object, SessionFeature] - -instance GObject Requester where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_requester_get_type - - -class GObject o => RequesterK o -instance (GObject o, IsDescendantOf Requester o) => RequesterK o - -toRequester :: RequesterK o => o -> IO Requester -toRequester = unsafeCastTo Requester - -noRequester :: Maybe Requester -noRequester = Nothing - -type instance AttributeList Requester = RequesterAttributeList -type RequesterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Requester = RequesterSignalList -type RequesterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Requester::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Soup" "Requester" --- throws : False --- Skip return : False - -foreign import ccall "soup_requester_new" soup_requester_new :: - IO (Ptr Requester) - - -requesterNew :: - (MonadIO m) => - m Requester -requesterNew = liftIO $ do - result <- soup_requester_new - checkUnexpectedReturnNULL "soup_requester_new" result - result' <- (wrapObject Requester) result - return result' - --- method Requester::request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Request" --- throws : True --- Skip return : False - -foreign import ccall "soup_requester_request" soup_requester_request :: - Ptr Requester -> -- _obj : TInterface "Soup" "Requester" - CString -> -- uri_string : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Request) - - -requesterRequest :: - (MonadIO m, RequesterK a) => - a -> -- _obj - T.Text -> -- uri_string - m Request -requesterRequest _obj uri_string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri_string' <- textToCString uri_string - onException (do - result <- propagateGError $ soup_requester_request _obj' uri_string' - checkUnexpectedReturnNULL "soup_requester_request" result - result' <- (wrapObject Request) result - touchManagedPtr _obj - freeMem uri_string' - return result' - ) (do - freeMem uri_string' - ) - --- method Requester::request_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Request" --- throws : True --- Skip return : False - -foreign import ccall "soup_requester_request_uri" soup_requester_request_uri :: - Ptr Requester -> -- _obj : TInterface "Soup" "Requester" - Ptr URI -> -- uri : TInterface "Soup" "URI" - Ptr (Ptr GError) -> -- error - IO (Ptr Request) - - -requesterRequestUri :: - (MonadIO m, RequesterK a) => - a -> -- _obj - URI -> -- uri - m Request -requesterRequestUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - onException (do - result <- propagateGError $ soup_requester_request_uri _obj' uri' - checkUnexpectedReturnNULL "soup_requester_request_uri" result - result' <- (wrapObject Request) result - touchManagedPtr _obj - touchManagedPtr uri - return result' - ) (do - return () - ) - - diff --git a/GI/Soup/Objects/Requester.hs-boot b/GI/Soup/Objects/Requester.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Requester.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.Requester 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 - -newtype Requester = Requester (ForeignPtr Requester) -instance GObject Requester where -class GObject o => RequesterK o -instance (GObject o, IsDescendantOf Requester o) => RequesterK o diff --git a/GI/Soup/Objects/Server.hs b/GI/Soup/Objects/Server.hs deleted file mode 100644 --- a/GI/Soup/Objects/Server.hs +++ /dev/null @@ -1,1491 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Server - ( - --- * Exported types - Server(..) , - ServerK , - toServer , - noServer , - - - -- * Methods --- ** serverAcceptIostream - serverAcceptIostream , - - --- ** serverAddAuthDomain - serverAddAuthDomain , - - --- ** serverAddEarlyHandler - serverAddEarlyHandler , - - --- ** serverAddHandler - serverAddHandler , - - --- ** serverAddWebsocketHandler - serverAddWebsocketHandler , - - --- ** serverDisconnect - serverDisconnect , - - --- ** serverGetAsyncContext - serverGetAsyncContext , - - --- ** serverGetListener - serverGetListener , - - --- ** serverGetListeners - serverGetListeners , - - --- ** serverGetPort - serverGetPort , - - --- ** serverGetUris - serverGetUris , - - --- ** serverIsHttps - serverIsHttps , - - --- ** serverListen - serverListen , - - --- ** serverListenAll - serverListenAll , - - --- ** serverListenFd - serverListenFd , - - --- ** serverListenLocal - serverListenLocal , - - --- ** serverListenSocket - serverListenSocket , - - --- ** serverPauseMessage - serverPauseMessage , - - --- ** serverQuit - serverQuit , - - --- ** serverRemoveAuthDomain - serverRemoveAuthDomain , - - --- ** serverRemoveHandler - serverRemoveHandler , - - --- ** serverRun - serverRun , - - --- ** serverRunAsync - serverRunAsync , - - --- ** serverSetSslCertFile - serverSetSslCertFile , - - --- ** serverUnpauseMessage - serverUnpauseMessage , - - - - - -- * Properties --- ** AsyncContext - ServerAsyncContextPropertyInfo , - constructServerAsyncContext , - getServerAsyncContext , - - --- ** HttpAliases - ServerHttpAliasesPropertyInfo , - constructServerHttpAliases , - getServerHttpAliases , - setServerHttpAliases , - - --- ** HttpsAliases - ServerHttpsAliasesPropertyInfo , - constructServerHttpsAliases , - getServerHttpsAliases , - setServerHttpsAliases , - - --- ** Interface - ServerInterfacePropertyInfo , - constructServerInterface , - getServerInterface , - - --- ** Port - ServerPortPropertyInfo , - constructServerPort , - getServerPort , - - --- ** RawPaths - ServerRawPathsPropertyInfo , - constructServerRawPaths , - getServerRawPaths , - - --- ** ServerHeader - ServerServerHeaderPropertyInfo , - constructServerServerHeader , - getServerServerHeader , - setServerServerHeader , - - --- ** SslCertFile - ServerSslCertFilePropertyInfo , - constructServerSslCertFile , - getServerSslCertFile , - - --- ** SslKeyFile - ServerSslKeyFilePropertyInfo , - constructServerSslKeyFile , - getServerSslKeyFile , - - --- ** TlsCertificate - ServerTlsCertificatePropertyInfo , - constructServerTlsCertificate , - getServerTlsCertificate , - - - - - -- * Signals --- ** RequestAborted - ServerRequestAbortedCallback , - ServerRequestAbortedCallbackC , - ServerRequestAbortedSignalInfo , - afterServerRequestAborted , - mkServerRequestAbortedCallback , - noServerRequestAbortedCallback , - onServerRequestAborted , - serverRequestAbortedCallbackWrapper , - serverRequestAbortedClosure , - - --- ** RequestFinished - ServerRequestFinishedCallback , - ServerRequestFinishedCallbackC , - ServerRequestFinishedSignalInfo , - afterServerRequestFinished , - mkServerRequestFinishedCallback , - noServerRequestFinishedCallback , - onServerRequestFinished , - serverRequestFinishedCallbackWrapper , - serverRequestFinishedClosure , - - --- ** RequestRead - ServerRequestReadCallback , - ServerRequestReadCallbackC , - ServerRequestReadSignalInfo , - afterServerRequestRead , - mkServerRequestReadCallback , - noServerRequestReadCallback , - onServerRequestRead , - serverRequestReadCallbackWrapper , - serverRequestReadClosure , - - --- ** RequestStarted - ServerRequestStartedCallback , - ServerRequestStartedCallbackC , - ServerRequestStartedSignalInfo , - afterServerRequestStarted , - mkServerRequestStartedCallback , - noServerRequestStartedCallback , - onServerRequestStarted , - serverRequestStartedCallbackWrapper , - serverRequestStartedClosure , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Server = Server (ForeignPtr Server) -foreign import ccall "soup_server_get_type" - c_soup_server_get_type :: IO GType - -type instance ParentTypes Server = ServerParentTypes -type ServerParentTypes = '[GObject.Object] - -instance GObject Server where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_server_get_type - - -class GObject o => ServerK o -instance (GObject o, IsDescendantOf Server o) => ServerK o - -toServer :: ServerK o => o -> IO Server -toServer = unsafeCastTo Server - -noServer :: Maybe Server -noServer = Nothing - --- signal Server::request-aborted -type ServerRequestAbortedCallback = - Message -> - ClientContext -> - IO () - -noServerRequestAbortedCallback :: Maybe ServerRequestAbortedCallback -noServerRequestAbortedCallback = Nothing - -type ServerRequestAbortedCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr ClientContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkServerRequestAbortedCallback :: ServerRequestAbortedCallbackC -> IO (FunPtr ServerRequestAbortedCallbackC) - -serverRequestAbortedClosure :: ServerRequestAbortedCallback -> IO Closure -serverRequestAbortedClosure cb = newCClosure =<< mkServerRequestAbortedCallback wrapped - where wrapped = serverRequestAbortedCallbackWrapper cb - -serverRequestAbortedCallbackWrapper :: - ServerRequestAbortedCallback -> - Ptr () -> - Ptr Message -> - Ptr ClientContext -> - Ptr () -> - IO () -serverRequestAbortedCallbackWrapper _cb _ message client _ = do - message' <- (newObject Message) message - client' <- (newBoxed ClientContext) client - _cb message' client' - -onServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId -onServerRequestAborted obj cb = liftIO $ connectServerRequestAborted obj cb SignalConnectBefore -afterServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId -afterServerRequestAborted obj cb = connectServerRequestAborted obj cb SignalConnectAfter - -connectServerRequestAborted :: (GObject a, MonadIO m) => - a -> ServerRequestAbortedCallback -> SignalConnectMode -> m SignalHandlerId -connectServerRequestAborted obj cb after = liftIO $ do - cb' <- mkServerRequestAbortedCallback (serverRequestAbortedCallbackWrapper cb) - connectSignalFunPtr obj "request-aborted" cb' after - --- signal Server::request-finished -type ServerRequestFinishedCallback = - Message -> - ClientContext -> - IO () - -noServerRequestFinishedCallback :: Maybe ServerRequestFinishedCallback -noServerRequestFinishedCallback = Nothing - -type ServerRequestFinishedCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr ClientContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkServerRequestFinishedCallback :: ServerRequestFinishedCallbackC -> IO (FunPtr ServerRequestFinishedCallbackC) - -serverRequestFinishedClosure :: ServerRequestFinishedCallback -> IO Closure -serverRequestFinishedClosure cb = newCClosure =<< mkServerRequestFinishedCallback wrapped - where wrapped = serverRequestFinishedCallbackWrapper cb - -serverRequestFinishedCallbackWrapper :: - ServerRequestFinishedCallback -> - Ptr () -> - Ptr Message -> - Ptr ClientContext -> - Ptr () -> - IO () -serverRequestFinishedCallbackWrapper _cb _ message client _ = do - message' <- (newObject Message) message - client' <- (newBoxed ClientContext) client - _cb message' client' - -onServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId -onServerRequestFinished obj cb = liftIO $ connectServerRequestFinished obj cb SignalConnectBefore -afterServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId -afterServerRequestFinished obj cb = connectServerRequestFinished obj cb SignalConnectAfter - -connectServerRequestFinished :: (GObject a, MonadIO m) => - a -> ServerRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId -connectServerRequestFinished obj cb after = liftIO $ do - cb' <- mkServerRequestFinishedCallback (serverRequestFinishedCallbackWrapper cb) - connectSignalFunPtr obj "request-finished" cb' after - --- signal Server::request-read -type ServerRequestReadCallback = - Message -> - ClientContext -> - IO () - -noServerRequestReadCallback :: Maybe ServerRequestReadCallback -noServerRequestReadCallback = Nothing - -type ServerRequestReadCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr ClientContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkServerRequestReadCallback :: ServerRequestReadCallbackC -> IO (FunPtr ServerRequestReadCallbackC) - -serverRequestReadClosure :: ServerRequestReadCallback -> IO Closure -serverRequestReadClosure cb = newCClosure =<< mkServerRequestReadCallback wrapped - where wrapped = serverRequestReadCallbackWrapper cb - -serverRequestReadCallbackWrapper :: - ServerRequestReadCallback -> - Ptr () -> - Ptr Message -> - Ptr ClientContext -> - Ptr () -> - IO () -serverRequestReadCallbackWrapper _cb _ message client _ = do - message' <- (newObject Message) message - client' <- (newBoxed ClientContext) client - _cb message' client' - -onServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId -onServerRequestRead obj cb = liftIO $ connectServerRequestRead obj cb SignalConnectBefore -afterServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId -afterServerRequestRead obj cb = connectServerRequestRead obj cb SignalConnectAfter - -connectServerRequestRead :: (GObject a, MonadIO m) => - a -> ServerRequestReadCallback -> SignalConnectMode -> m SignalHandlerId -connectServerRequestRead obj cb after = liftIO $ do - cb' <- mkServerRequestReadCallback (serverRequestReadCallbackWrapper cb) - connectSignalFunPtr obj "request-read" cb' after - --- signal Server::request-started -type ServerRequestStartedCallback = - Message -> - ClientContext -> - IO () - -noServerRequestStartedCallback :: Maybe ServerRequestStartedCallback -noServerRequestStartedCallback = Nothing - -type ServerRequestStartedCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr ClientContext -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkServerRequestStartedCallback :: ServerRequestStartedCallbackC -> IO (FunPtr ServerRequestStartedCallbackC) - -serverRequestStartedClosure :: ServerRequestStartedCallback -> IO Closure -serverRequestStartedClosure cb = newCClosure =<< mkServerRequestStartedCallback wrapped - where wrapped = serverRequestStartedCallbackWrapper cb - -serverRequestStartedCallbackWrapper :: - ServerRequestStartedCallback -> - Ptr () -> - Ptr Message -> - Ptr ClientContext -> - Ptr () -> - IO () -serverRequestStartedCallbackWrapper _cb _ message client _ = do - message' <- (newObject Message) message - client' <- (newBoxed ClientContext) client - _cb message' client' - -onServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId -onServerRequestStarted obj cb = liftIO $ connectServerRequestStarted obj cb SignalConnectBefore -afterServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId -afterServerRequestStarted obj cb = connectServerRequestStarted obj cb SignalConnectAfter - -connectServerRequestStarted :: (GObject a, MonadIO m) => - a -> ServerRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId -connectServerRequestStarted obj cb after = liftIO $ do - cb' <- mkServerRequestStartedCallback (serverRequestStartedCallbackWrapper cb) - connectSignalFunPtr obj "request-started" cb' after - --- VVV Prop "async-context" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getServerAsyncContext :: (MonadIO m, ServerK o) => o -> m (Ptr ()) -getServerAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context" - -constructServerAsyncContext :: (Ptr ()) -> IO ([Char], GValue) -constructServerAsyncContext val = constructObjectPropertyPtr "async-context" val - -data ServerAsyncContextPropertyInfo -instance AttrInfo ServerAsyncContextPropertyInfo where - type AttrAllowedOps ServerAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerAsyncContextPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint ServerAsyncContextPropertyInfo = ServerK - type AttrGetType ServerAsyncContextPropertyInfo = (Ptr ()) - type AttrLabel ServerAsyncContextPropertyInfo = "Server::async-context" - attrGet _ = getServerAsyncContext - attrSet _ = undefined - attrConstruct _ = constructServerAsyncContext - --- VVV Prop "http-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -getServerHttpAliases :: (MonadIO m, ServerK o) => o -> m [T.Text] -getServerHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases" - -setServerHttpAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m () -setServerHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val - -constructServerHttpAliases :: [T.Text] -> IO ([Char], GValue) -constructServerHttpAliases val = constructObjectPropertyStringArray "http-aliases" val - -data ServerHttpAliasesPropertyInfo -instance AttrInfo ServerHttpAliasesPropertyInfo where - type AttrAllowedOps ServerHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerHttpAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint ServerHttpAliasesPropertyInfo = ServerK - type AttrGetType ServerHttpAliasesPropertyInfo = [T.Text] - type AttrLabel ServerHttpAliasesPropertyInfo = "Server::http-aliases" - attrGet _ = getServerHttpAliases - attrSet _ = setServerHttpAliases - attrConstruct _ = constructServerHttpAliases - --- VVV Prop "https-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -getServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m [T.Text] -getServerHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases" - -setServerHttpsAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m () -setServerHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val - -constructServerHttpsAliases :: [T.Text] -> IO ([Char], GValue) -constructServerHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val - -data ServerHttpsAliasesPropertyInfo -instance AttrInfo ServerHttpsAliasesPropertyInfo where - type AttrAllowedOps ServerHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerHttpsAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint ServerHttpsAliasesPropertyInfo = ServerK - type AttrGetType ServerHttpsAliasesPropertyInfo = [T.Text] - type AttrLabel ServerHttpsAliasesPropertyInfo = "Server::https-aliases" - attrGet _ = getServerHttpsAliases - attrSet _ = setServerHttpsAliases - attrConstruct _ = constructServerHttpsAliases - --- VVV Prop "interface" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getServerInterface :: (MonadIO m, ServerK o) => o -> m Address -getServerInterface obj = liftIO $ getObjectPropertyObject obj "interface" Address - -constructServerInterface :: (AddressK a) => a -> IO ([Char], GValue) -constructServerInterface val = constructObjectPropertyObject "interface" val - -data ServerInterfacePropertyInfo -instance AttrInfo ServerInterfacePropertyInfo where - type AttrAllowedOps ServerInterfacePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerInterfacePropertyInfo = AddressK - type AttrBaseTypeConstraint ServerInterfacePropertyInfo = ServerK - type AttrGetType ServerInterfacePropertyInfo = Address - type AttrLabel ServerInterfacePropertyInfo = "Server::interface" - attrGet _ = getServerInterface - attrSet _ = undefined - attrConstruct _ = constructServerInterface - --- VVV Prop "port" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getServerPort :: (MonadIO m, ServerK o) => o -> m Word32 -getServerPort obj = liftIO $ getObjectPropertyCUInt obj "port" - -constructServerPort :: Word32 -> IO ([Char], GValue) -constructServerPort val = constructObjectPropertyCUInt "port" val - -data ServerPortPropertyInfo -instance AttrInfo ServerPortPropertyInfo where - type AttrAllowedOps ServerPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerPortPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint ServerPortPropertyInfo = ServerK - type AttrGetType ServerPortPropertyInfo = Word32 - type AttrLabel ServerPortPropertyInfo = "Server::port" - attrGet _ = getServerPort - attrSet _ = undefined - attrConstruct _ = constructServerPort - --- VVV Prop "raw-paths" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getServerRawPaths :: (MonadIO m, ServerK o) => o -> m Bool -getServerRawPaths obj = liftIO $ getObjectPropertyBool obj "raw-paths" - -constructServerRawPaths :: Bool -> IO ([Char], GValue) -constructServerRawPaths val = constructObjectPropertyBool "raw-paths" val - -data ServerRawPathsPropertyInfo -instance AttrInfo ServerRawPathsPropertyInfo where - type AttrAllowedOps ServerRawPathsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerRawPathsPropertyInfo = (~) Bool - type AttrBaseTypeConstraint ServerRawPathsPropertyInfo = ServerK - type AttrGetType ServerRawPathsPropertyInfo = Bool - type AttrLabel ServerRawPathsPropertyInfo = "Server::raw-paths" - attrGet _ = getServerRawPaths - attrSet _ = undefined - attrConstruct _ = constructServerRawPaths - --- VVV Prop "server-header" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -getServerServerHeader :: (MonadIO m, ServerK o) => o -> m T.Text -getServerServerHeader obj = liftIO $ getObjectPropertyString obj "server-header" - -setServerServerHeader :: (MonadIO m, ServerK o) => o -> T.Text -> m () -setServerServerHeader obj val = liftIO $ setObjectPropertyString obj "server-header" val - -constructServerServerHeader :: T.Text -> IO ([Char], GValue) -constructServerServerHeader val = constructObjectPropertyString "server-header" val - -data ServerServerHeaderPropertyInfo -instance AttrInfo ServerServerHeaderPropertyInfo where - type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = ServerK - type AttrGetType ServerServerHeaderPropertyInfo = T.Text - type AttrLabel ServerServerHeaderPropertyInfo = "Server::server-header" - attrGet _ = getServerServerHeader - attrSet _ = setServerServerHeader - attrConstruct _ = constructServerServerHeader - --- VVV Prop "ssl-cert-file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getServerSslCertFile :: (MonadIO m, ServerK o) => o -> m T.Text -getServerSslCertFile obj = liftIO $ getObjectPropertyString obj "ssl-cert-file" - -constructServerSslCertFile :: T.Text -> IO ([Char], GValue) -constructServerSslCertFile val = constructObjectPropertyString "ssl-cert-file" val - -data ServerSslCertFilePropertyInfo -instance AttrInfo ServerSslCertFilePropertyInfo where - type AttrAllowedOps ServerSslCertFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerSslCertFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ServerSslCertFilePropertyInfo = ServerK - type AttrGetType ServerSslCertFilePropertyInfo = T.Text - type AttrLabel ServerSslCertFilePropertyInfo = "Server::ssl-cert-file" - attrGet _ = getServerSslCertFile - attrSet _ = undefined - attrConstruct _ = constructServerSslCertFile - --- VVV Prop "ssl-key-file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getServerSslKeyFile :: (MonadIO m, ServerK o) => o -> m T.Text -getServerSslKeyFile obj = liftIO $ getObjectPropertyString obj "ssl-key-file" - -constructServerSslKeyFile :: T.Text -> IO ([Char], GValue) -constructServerSslKeyFile val = constructObjectPropertyString "ssl-key-file" val - -data ServerSslKeyFilePropertyInfo -instance AttrInfo ServerSslKeyFilePropertyInfo where - type AttrAllowedOps ServerSslKeyFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerSslKeyFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ServerSslKeyFilePropertyInfo = ServerK - type AttrGetType ServerSslKeyFilePropertyInfo = T.Text - type AttrLabel ServerSslKeyFilePropertyInfo = "Server::ssl-key-file" - attrGet _ = getServerSslKeyFile - attrSet _ = undefined - attrConstruct _ = constructServerSslKeyFile - --- VVV Prop "tls-certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getServerTlsCertificate :: (MonadIO m, ServerK o) => o -> m Gio.TlsCertificate -getServerTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate - -constructServerTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue) -constructServerTlsCertificate val = constructObjectPropertyObject "tls-certificate" val - -data ServerTlsCertificatePropertyInfo -instance AttrInfo ServerTlsCertificatePropertyInfo where - type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificateK - type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = ServerK - type AttrGetType ServerTlsCertificatePropertyInfo = Gio.TlsCertificate - type AttrLabel ServerTlsCertificatePropertyInfo = "Server::tls-certificate" - attrGet _ = getServerTlsCertificate - attrSet _ = undefined - attrConstruct _ = constructServerTlsCertificate - -type instance AttributeList Server = ServerAttributeList -type ServerAttributeList = ('[ '("async-context", ServerAsyncContextPropertyInfo), '("http-aliases", ServerHttpAliasesPropertyInfo), '("https-aliases", ServerHttpsAliasesPropertyInfo), '("interface", ServerInterfacePropertyInfo), '("port", ServerPortPropertyInfo), '("raw-paths", ServerRawPathsPropertyInfo), '("server-header", ServerServerHeaderPropertyInfo), '("ssl-cert-file", ServerSslCertFilePropertyInfo), '("ssl-key-file", ServerSslKeyFilePropertyInfo), '("tls-certificate", ServerTlsCertificatePropertyInfo)] :: [(Symbol, *)]) - -data ServerRequestAbortedSignalInfo -instance SignalInfo ServerRequestAbortedSignalInfo where - type HaskellCallbackType ServerRequestAbortedSignalInfo = ServerRequestAbortedCallback - connectSignal _ = connectServerRequestAborted - -data ServerRequestFinishedSignalInfo -instance SignalInfo ServerRequestFinishedSignalInfo where - type HaskellCallbackType ServerRequestFinishedSignalInfo = ServerRequestFinishedCallback - connectSignal _ = connectServerRequestFinished - -data ServerRequestReadSignalInfo -instance SignalInfo ServerRequestReadSignalInfo where - type HaskellCallbackType ServerRequestReadSignalInfo = ServerRequestReadCallback - connectSignal _ = connectServerRequestRead - -data ServerRequestStartedSignalInfo -instance SignalInfo ServerRequestStartedSignalInfo where - type HaskellCallbackType ServerRequestStartedSignalInfo = ServerRequestStartedCallback - connectSignal _ = connectServerRequestStarted - -type instance SignalList Server = ServerSignalList -type ServerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("request-aborted", ServerRequestAbortedSignalInfo), '("request-finished", ServerRequestFinishedSignalInfo), '("request-read", ServerRequestReadSignalInfo), '("request-started", ServerRequestStartedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Server::accept_iostream --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_server_accept_iostream" soup_server_accept_iostream :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Ptr Gio.IOStream -> -- stream : TInterface "Gio" "IOStream" - Ptr Gio.SocketAddress -> -- local_addr : TInterface "Gio" "SocketAddress" - Ptr Gio.SocketAddress -> -- remote_addr : TInterface "Gio" "SocketAddress" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverAcceptIostream :: - (MonadIO m, ServerK a, Gio.IOStreamK b, Gio.SocketAddressK c, Gio.SocketAddressK d) => - a -> -- _obj - b -> -- stream - Maybe (c) -> -- local_addr - Maybe (d) -> -- remote_addr - m () -serverAcceptIostream _obj stream local_addr remote_addr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let stream' = unsafeManagedPtrCastPtr stream - maybeLocal_addr <- case local_addr of - Nothing -> return nullPtr - Just jLocal_addr -> do - let jLocal_addr' = unsafeManagedPtrCastPtr jLocal_addr - return jLocal_addr' - maybeRemote_addr <- case remote_addr of - Nothing -> return nullPtr - Just jRemote_addr -> do - let jRemote_addr' = unsafeManagedPtrCastPtr jRemote_addr - return jRemote_addr' - onException (do - _ <- propagateGError $ soup_server_accept_iostream _obj' stream' maybeLocal_addr maybeRemote_addr - touchManagedPtr _obj - touchManagedPtr stream - whenJust local_addr touchManagedPtr - whenJust remote_addr touchManagedPtr - return () - ) (do - return () - ) - --- method Server::add_auth_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_add_auth_domain" soup_server_add_auth_domain :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Ptr AuthDomain -> -- auth_domain : TInterface "Soup" "AuthDomain" - IO () - - -serverAddAuthDomain :: - (MonadIO m, ServerK a, AuthDomainK b) => - a -> -- _obj - b -> -- auth_domain - m () -serverAddAuthDomain _obj auth_domain = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let auth_domain' = unsafeManagedPtrCastPtr auth_domain - soup_server_add_auth_domain _obj' auth_domain' - touchManagedPtr _obj - touchManagedPtr auth_domain - return () - --- method Server::add_early_handler --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_add_early_handler" soup_server_add_early_handler :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - CString -> -- path : TBasicType TUTF8 - FunPtr ServerCallbackC -> -- callback : TInterface "Soup" "ServerCallback" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -serverAddEarlyHandler :: - (MonadIO m, ServerK a) => - a -> -- _obj - Maybe (T.Text) -> -- path - ServerCallback -> -- callback - m () -serverAddEarlyHandler _obj path callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - jPath' <- textToCString jPath - return jPath' - callback' <- mkServerCallback (serverCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let destroy = safeFreeFunPtrPtr - soup_server_add_early_handler _obj' maybePath callback' user_data destroy - touchManagedPtr _obj - freeMem maybePath - return () - --- method Server::add_handler --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_add_handler" soup_server_add_handler :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - CString -> -- path : TBasicType TUTF8 - FunPtr ServerCallbackC -> -- callback : TInterface "Soup" "ServerCallback" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -serverAddHandler :: - (MonadIO m, ServerK a) => - a -> -- _obj - Maybe (T.Text) -> -- path - ServerCallback -> -- callback - m () -serverAddHandler _obj path callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - jPath' <- textToCString jPath - return jPath' - callback' <- mkServerCallback (serverCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let destroy = safeFreeFunPtrPtr - soup_server_add_handler _obj' maybePath callback' user_data destroy - touchManagedPtr _obj - freeMem maybePath - return () - --- method Server::add_websocket_handler --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_add_websocket_handler" soup_server_add_websocket_handler :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - CString -> -- path : TBasicType TUTF8 - CString -> -- origin : TBasicType TUTF8 - Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) - FunPtr ServerWebsocketCallbackC -> -- callback : TInterface "Soup" "ServerWebsocketCallback" - Ptr () -> -- user_data : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -serverAddWebsocketHandler :: - (MonadIO m, ServerK a) => - a -> -- _obj - Maybe (T.Text) -> -- path - Maybe (T.Text) -> -- origin - Maybe ([T.Text]) -> -- protocols - ServerWebsocketCallback -> -- callback - m () -serverAddWebsocketHandler _obj path origin protocols callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybePath <- case path of - Nothing -> return nullPtr - Just jPath -> do - jPath' <- textToCString jPath - return jPath' - maybeOrigin <- case origin of - Nothing -> return nullPtr - Just jOrigin -> do - jOrigin' <- textToCString jOrigin - return jOrigin' - maybeProtocols <- case protocols of - Nothing -> return nullPtr - Just jProtocols -> do - jProtocols' <- packZeroTerminatedUTF8CArray jProtocols - return jProtocols' - callback' <- mkServerWebsocketCallback (serverWebsocketCallbackWrapper Nothing callback) - let user_data = castFunPtrToPtr callback' - let destroy = safeFreeFunPtrPtr - soup_server_add_websocket_handler _obj' maybePath maybeOrigin maybeProtocols callback' user_data destroy - touchManagedPtr _obj - freeMem maybePath - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return () - --- method Server::disconnect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_disconnect" soup_server_disconnect :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO () - - -serverDisconnect :: - (MonadIO m, ServerK a) => - a -> -- _obj - m () -serverDisconnect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_disconnect _obj' - touchManagedPtr _obj - return () - --- method Server::get_async_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "soup_server_get_async_context" soup_server_get_async_context :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO (Ptr GLib.MainContext) - -{-# DEPRECATED serverGetAsyncContext ["If you are using soup_server_listen(), etc, then","the server listens on the thread-default #GMainContext, and this","property is ignored."]#-} -serverGetAsyncContext :: - (MonadIO m, ServerK a) => - a -> -- _obj - m GLib.MainContext -serverGetAsyncContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_async_context _obj' - checkUnexpectedReturnNULL "soup_server_get_async_context" result - result' <- (newBoxed GLib.MainContext) result - touchManagedPtr _obj - return result' - --- method Server::get_listener --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Socket" --- throws : False --- Skip return : False - -foreign import ccall "soup_server_get_listener" soup_server_get_listener :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO (Ptr Socket) - -{-# DEPRECATED serverGetListener ["If you are using soup_server_listen(), etc, then use","soup_server_get_listeners() to get a list of all listening sockets,","but note that that function returns #GSockets, not #SoupSockets."]#-} -serverGetListener :: - (MonadIO m, ServerK a) => - a -> -- _obj - m Socket -serverGetListener _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_listener _obj' - checkUnexpectedReturnNULL "soup_server_get_listener" result - result' <- (newObject Socket) result - touchManagedPtr _obj - return result' - --- method Server::get_listeners --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Gio" "Socket") --- throws : False --- Skip return : False - -foreign import ccall "soup_server_get_listeners" soup_server_get_listeners :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO (Ptr (GSList (Ptr Gio.Socket))) - - -serverGetListeners :: - (MonadIO m, ServerK a) => - a -> -- _obj - m [Gio.Socket] -serverGetListeners _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_listeners _obj' - checkUnexpectedReturnNULL "soup_server_get_listeners" result - result' <- unpackGSList result - result'' <- mapM (newObject Gio.Socket) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method Server::get_port --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_server_get_port" soup_server_get_port :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO Word32 - -{-# DEPRECATED serverGetPort ["If you are using soup_server_listen(), etc, then use","soup_server_get_uris() to get a list of all listening addresses."]#-} -serverGetPort :: - (MonadIO m, ServerK a) => - a -> -- _obj - m Word32 -serverGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_port _obj' - touchManagedPtr _obj - return result - --- method Server::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Soup" "URI") --- throws : False --- Skip return : False - -foreign import ccall "soup_server_get_uris" soup_server_get_uris :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO (Ptr (GSList (Ptr URI))) - - -serverGetUris :: - (MonadIO m, ServerK a) => - a -> -- _obj - m [URI] -serverGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_uris _obj' - checkUnexpectedReturnNULL "soup_server_get_uris" result - result' <- unpackGSList result - result'' <- mapM (wrapBoxed URI) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method Server::is_https --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_server_is_https" soup_server_is_https :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO CInt - - -serverIsHttps :: - (MonadIO m, ServerK a) => - a -> -- _obj - m Bool -serverIsHttps _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_is_https _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Server::listen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_server_listen" soup_server_listen :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Ptr Gio.SocketAddress -> -- address : TInterface "Gio" "SocketAddress" - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListen :: - (MonadIO m, ServerK a, Gio.SocketAddressK b) => - a -> -- _obj - b -> -- address - [ServerListenOptions] -> -- options - m () -serverListen _obj address options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let address' = unsafeManagedPtrCastPtr address - let options' = gflagsToWord options - onException (do - _ <- propagateGError $ soup_server_listen _obj' address' options' - touchManagedPtr _obj - touchManagedPtr address - return () - ) (do - return () - ) - --- method Server::listen_all --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_server_listen_all" soup_server_listen_all :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Word32 -> -- port : TBasicType TUInt32 - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListenAll :: - (MonadIO m, ServerK a) => - a -> -- _obj - Word32 -> -- port - [ServerListenOptions] -> -- options - m () -serverListenAll _obj port options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let options' = gflagsToWord options - onException (do - _ <- propagateGError $ soup_server_listen_all _obj' port options' - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method Server::listen_fd --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fd", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_server_listen_fd" soup_server_listen_fd :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Int32 -> -- fd : TBasicType TInt32 - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListenFd :: - (MonadIO m, ServerK a) => - a -> -- _obj - Int32 -> -- fd - [ServerListenOptions] -> -- options - m () -serverListenFd _obj fd options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let options' = gflagsToWord options - onException (do - _ <- propagateGError $ soup_server_listen_fd _obj' fd options' - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method Server::listen_local --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_server_listen_local" soup_server_listen_local :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Word32 -> -- port : TBasicType TUInt32 - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListenLocal :: - (MonadIO m, ServerK a) => - a -> -- _obj - Word32 -> -- port - [ServerListenOptions] -> -- options - m () -serverListenLocal _obj port options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let options' = gflagsToWord options - onException (do - _ <- propagateGError $ soup_server_listen_local _obj' port options' - touchManagedPtr _obj - return () - ) (do - return () - ) - --- method Server::listen_socket --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_server_listen_socket" soup_server_listen_socket :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Ptr Gio.Socket -> -- socket : TInterface "Gio" "Socket" - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListenSocket :: - (MonadIO m, ServerK a, Gio.SocketK b) => - a -> -- _obj - b -> -- socket - [ServerListenOptions] -> -- options - m () -serverListenSocket _obj socket options = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let socket' = unsafeManagedPtrCastPtr socket - let options' = gflagsToWord options - onException (do - _ <- propagateGError $ soup_server_listen_socket _obj' socket' options' - touchManagedPtr _obj - touchManagedPtr socket - return () - ) (do - return () - ) - --- method Server::pause_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_pause_message" soup_server_pause_message :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -serverPauseMessage :: - (MonadIO m, ServerK a, MessageK b) => - a -> -- _obj - b -> -- msg - m () -serverPauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_server_pause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - --- method Server::quit --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_quit" soup_server_quit :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO () - -{-# DEPRECATED serverQuit ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-} -serverQuit :: - (MonadIO m, ServerK a) => - a -> -- _obj - m () -serverQuit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_quit _obj' - touchManagedPtr _obj - return () - --- method Server::remove_auth_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_remove_auth_domain" soup_server_remove_auth_domain :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Ptr AuthDomain -> -- auth_domain : TInterface "Soup" "AuthDomain" - IO () - - -serverRemoveAuthDomain :: - (MonadIO m, ServerK a, AuthDomainK b) => - a -> -- _obj - b -> -- auth_domain - m () -serverRemoveAuthDomain _obj auth_domain = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let auth_domain' = unsafeManagedPtrCastPtr auth_domain - soup_server_remove_auth_domain _obj' auth_domain' - touchManagedPtr _obj - touchManagedPtr auth_domain - return () - --- method Server::remove_handler --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_server_remove_handler" soup_server_remove_handler :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - CString -> -- path : TBasicType TUTF8 - IO () - - -serverRemoveHandler :: - (MonadIO m, ServerK a) => - a -> -- _obj - T.Text -> -- path - m () -serverRemoveHandler _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - soup_server_remove_handler _obj' path' - touchManagedPtr _obj - freeMem path' - return () - --- method Server::run --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_run" soup_server_run :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO () - -{-# DEPRECATED serverRun ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-} -serverRun :: - (MonadIO m, ServerK a) => - a -> -- _obj - m () -serverRun _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_run _obj' - touchManagedPtr _obj - return () - --- method Server::run_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_run_async" soup_server_run_async :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - IO () - -{-# DEPRECATED serverRunAsync ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-} -serverRunAsync :: - (MonadIO m, ServerK a) => - a -> -- _obj - m () -serverRunAsync _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_run_async _obj' - touchManagedPtr _obj - return () - --- method Server::set_ssl_cert_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : True --- Skip return : False - -foreign import ccall "soup_server_set_ssl_cert_file" soup_server_set_ssl_cert_file :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - CString -> -- ssl_cert_file : TBasicType TUTF8 - CString -> -- ssl_key_file : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO CInt - - -serverSetSslCertFile :: - (MonadIO m, ServerK a) => - a -> -- _obj - T.Text -> -- ssl_cert_file - T.Text -> -- ssl_key_file - m () -serverSetSslCertFile _obj ssl_cert_file ssl_key_file = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ssl_cert_file' <- textToCString ssl_cert_file - ssl_key_file' <- textToCString ssl_key_file - onException (do - _ <- propagateGError $ soup_server_set_ssl_cert_file _obj' ssl_cert_file' ssl_key_file' - touchManagedPtr _obj - freeMem ssl_cert_file' - freeMem ssl_key_file' - return () - ) (do - freeMem ssl_cert_file' - freeMem ssl_key_file' - ) - --- method Server::unpause_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_server_unpause_message" soup_server_unpause_message :: - Ptr Server -> -- _obj : TInterface "Soup" "Server" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -serverUnpauseMessage :: - (MonadIO m, ServerK a, MessageK b) => - a -> -- _obj - b -> -- msg - m () -serverUnpauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_server_unpause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - - diff --git a/GI/Soup/Objects/Server.hs-boot b/GI/Soup/Objects/Server.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Server.hs-boot +++ /dev/null @@ -1,27 +0,0 @@ -module GI.Soup.Objects.Server 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 - -newtype Server = Server (ForeignPtr Server) -instance GObject Server where -class GObject o => ServerK o -instance (GObject o, IsDescendantOf Server o) => ServerK o -data ServerAsyncContextPropertyInfo -data ServerHttpAliasesPropertyInfo -data ServerHttpsAliasesPropertyInfo -data ServerInterfacePropertyInfo -data ServerPortPropertyInfo -data ServerRawPathsPropertyInfo -data ServerServerHeaderPropertyInfo -data ServerSslCertFilePropertyInfo -data ServerSslKeyFilePropertyInfo -data ServerTlsCertificatePropertyInfo -data ServerRequestAbortedSignalInfo -data ServerRequestFinishedSignalInfo -data ServerRequestReadSignalInfo -data ServerRequestStartedSignalInfo diff --git a/GI/Soup/Objects/Session.hs b/GI/Soup/Objects/Session.hs deleted file mode 100644 --- a/GI/Soup/Objects/Session.hs +++ /dev/null @@ -1,2191 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Session - ( - --- * Exported types - Session(..) , - SessionK , - toSession , - noSession , - - - -- * Methods --- ** sessionAbort - sessionAbort , - - --- ** sessionAddFeature - sessionAddFeature , - - --- ** sessionAddFeatureByType - sessionAddFeatureByType , - - --- ** sessionCancelMessage - sessionCancelMessage , - - --- ** sessionGetAsyncContext - sessionGetAsyncContext , - - --- ** sessionGetFeature - sessionGetFeature , - - --- ** sessionGetFeatureForMessage - sessionGetFeatureForMessage , - - --- ** sessionGetFeatures - sessionGetFeatures , - - --- ** sessionHasFeature - sessionHasFeature , - - --- ** sessionNew - sessionNew , - - --- ** sessionPauseMessage - sessionPauseMessage , - - --- ** sessionPrefetchDns - sessionPrefetchDns , - - --- ** sessionPrepareForUri - sessionPrepareForUri , - - --- ** sessionQueueMessage - sessionQueueMessage , - - --- ** sessionRedirectMessage - sessionRedirectMessage , - - --- ** sessionRemoveFeature - sessionRemoveFeature , - - --- ** sessionRemoveFeatureByType - sessionRemoveFeatureByType , - - --- ** sessionRequest - sessionRequest , - - --- ** sessionRequestHttp - sessionRequestHttp , - - --- ** sessionRequestHttpUri - sessionRequestHttpUri , - - --- ** sessionRequestUri - sessionRequestUri , - - --- ** sessionRequeueMessage - sessionRequeueMessage , - - --- ** sessionSend - sessionSend , - - --- ** sessionSendAsync - sessionSendAsync , - - --- ** sessionSendFinish - sessionSendFinish , - - --- ** sessionSendMessage - sessionSendMessage , - - --- ** sessionStealConnection - sessionStealConnection , - - --- ** sessionUnpauseMessage - sessionUnpauseMessage , - - --- ** sessionWebsocketConnectAsync - sessionWebsocketConnectAsync , - - --- ** sessionWebsocketConnectFinish - sessionWebsocketConnectFinish , - - --- ** sessionWouldRedirect - sessionWouldRedirect , - - - - - -- * Properties --- ** AcceptLanguage - SessionAcceptLanguagePropertyInfo , - constructSessionAcceptLanguage , - getSessionAcceptLanguage , - setSessionAcceptLanguage , - - --- ** AcceptLanguageAuto - SessionAcceptLanguageAutoPropertyInfo , - constructSessionAcceptLanguageAuto , - getSessionAcceptLanguageAuto , - setSessionAcceptLanguageAuto , - - --- ** AsyncContext - SessionAsyncContextPropertyInfo , - constructSessionAsyncContext , - getSessionAsyncContext , - - --- ** HttpAliases - SessionHttpAliasesPropertyInfo , - constructSessionHttpAliases , - getSessionHttpAliases , - setSessionHttpAliases , - - --- ** HttpsAliases - SessionHttpsAliasesPropertyInfo , - constructSessionHttpsAliases , - getSessionHttpsAliases , - setSessionHttpsAliases , - - --- ** IdleTimeout - SessionIdleTimeoutPropertyInfo , - constructSessionIdleTimeout , - getSessionIdleTimeout , - setSessionIdleTimeout , - - --- ** LocalAddress - SessionLocalAddressPropertyInfo , - constructSessionLocalAddress , - getSessionLocalAddress , - - --- ** MaxConns - SessionMaxConnsPropertyInfo , - constructSessionMaxConns , - getSessionMaxConns , - setSessionMaxConns , - - --- ** MaxConnsPerHost - SessionMaxConnsPerHostPropertyInfo , - constructSessionMaxConnsPerHost , - getSessionMaxConnsPerHost , - setSessionMaxConnsPerHost , - - --- ** ProxyResolver - SessionProxyResolverPropertyInfo , - constructSessionProxyResolver , - getSessionProxyResolver , - setSessionProxyResolver , - - --- ** ProxyUri - SessionProxyUriPropertyInfo , - constructSessionProxyUri , - getSessionProxyUri , - setSessionProxyUri , - - --- ** SslCaFile - SessionSslCaFilePropertyInfo , - constructSessionSslCaFile , - getSessionSslCaFile , - setSessionSslCaFile , - - --- ** SslStrict - SessionSslStrictPropertyInfo , - constructSessionSslStrict , - getSessionSslStrict , - setSessionSslStrict , - - --- ** SslUseSystemCaFile - SessionSslUseSystemCaFilePropertyInfo , - constructSessionSslUseSystemCaFile , - getSessionSslUseSystemCaFile , - setSessionSslUseSystemCaFile , - - --- ** Timeout - SessionTimeoutPropertyInfo , - constructSessionTimeout , - getSessionTimeout , - setSessionTimeout , - - --- ** TlsDatabase - SessionTlsDatabasePropertyInfo , - constructSessionTlsDatabase , - getSessionTlsDatabase , - setSessionTlsDatabase , - - --- ** TlsInteraction - SessionTlsInteractionPropertyInfo , - constructSessionTlsInteraction , - getSessionTlsInteraction , - setSessionTlsInteraction , - - --- ** UseNtlm - SessionUseNtlmPropertyInfo , - constructSessionUseNtlm , - getSessionUseNtlm , - setSessionUseNtlm , - - --- ** UseThreadContext - SessionUseThreadContextPropertyInfo , - constructSessionUseThreadContext , - getSessionUseThreadContext , - setSessionUseThreadContext , - - --- ** UserAgent - SessionUserAgentPropertyInfo , - constructSessionUserAgent , - getSessionUserAgent , - setSessionUserAgent , - - - - - -- * Signals --- ** Authenticate - SessionAuthenticateCallback , - SessionAuthenticateCallbackC , - SessionAuthenticateSignalInfo , - afterSessionAuthenticate , - mkSessionAuthenticateCallback , - noSessionAuthenticateCallback , - onSessionAuthenticate , - sessionAuthenticateCallbackWrapper , - sessionAuthenticateClosure , - - --- ** ConnectionCreated - SessionConnectionCreatedCallback , - SessionConnectionCreatedCallbackC , - SessionConnectionCreatedSignalInfo , - afterSessionConnectionCreated , - mkSessionConnectionCreatedCallback , - noSessionConnectionCreatedCallback , - onSessionConnectionCreated , - sessionConnectionCreatedCallbackWrapper , - sessionConnectionCreatedClosure , - - --- ** RequestQueued - SessionRequestQueuedCallback , - SessionRequestQueuedCallbackC , - SessionRequestQueuedSignalInfo , - afterSessionRequestQueued , - mkSessionRequestQueuedCallback , - noSessionRequestQueuedCallback , - onSessionRequestQueued , - sessionRequestQueuedCallbackWrapper , - sessionRequestQueuedClosure , - - --- ** RequestStarted - SessionRequestStartedCallback , - SessionRequestStartedCallbackC , - SessionRequestStartedSignalInfo , - afterSessionRequestStarted , - mkSessionRequestStartedCallback , - noSessionRequestStartedCallback , - onSessionRequestStarted , - sessionRequestStartedCallbackWrapper , - sessionRequestStartedClosure , - - --- ** RequestUnqueued - SessionRequestUnqueuedCallback , - SessionRequestUnqueuedCallbackC , - SessionRequestUnqueuedSignalInfo , - afterSessionRequestUnqueued , - mkSessionRequestUnqueuedCallback , - noSessionRequestUnqueuedCallback , - onSessionRequestUnqueued , - sessionRequestUnqueuedCallbackWrapper , - sessionRequestUnqueuedClosure , - - --- ** Tunneling - SessionTunnelingCallback , - SessionTunnelingCallbackC , - SessionTunnelingSignalInfo , - afterSessionTunneling , - mkSessionTunnelingCallback , - noSessionTunnelingCallback , - onSessionTunneling , - sessionTunnelingCallbackWrapper , - sessionTunnelingClosure , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Session = Session (ForeignPtr Session) -foreign import ccall "soup_session_get_type" - c_soup_session_get_type :: IO GType - -type instance ParentTypes Session = SessionParentTypes -type SessionParentTypes = '[GObject.Object] - -instance GObject Session where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_session_get_type - - -class GObject o => SessionK o -instance (GObject o, IsDescendantOf Session o) => SessionK o - -toSession :: SessionK o => o -> IO Session -toSession = unsafeCastTo Session - -noSession :: Maybe Session -noSession = Nothing - --- signal Session::authenticate -type SessionAuthenticateCallback = - Message -> - Auth -> - Bool -> - IO () - -noSessionAuthenticateCallback :: Maybe SessionAuthenticateCallback -noSessionAuthenticateCallback = Nothing - -type SessionAuthenticateCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr Auth -> - CInt -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSessionAuthenticateCallback :: SessionAuthenticateCallbackC -> IO (FunPtr SessionAuthenticateCallbackC) - -sessionAuthenticateClosure :: SessionAuthenticateCallback -> IO Closure -sessionAuthenticateClosure cb = newCClosure =<< mkSessionAuthenticateCallback wrapped - where wrapped = sessionAuthenticateCallbackWrapper cb - -sessionAuthenticateCallbackWrapper :: - SessionAuthenticateCallback -> - Ptr () -> - Ptr Message -> - Ptr Auth -> - CInt -> - Ptr () -> - IO () -sessionAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do - msg' <- (newObject Message) msg - auth' <- (newObject Auth) auth - let retrying' = (/= 0) retrying - _cb msg' auth' retrying' - -onSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId -onSessionAuthenticate obj cb = liftIO $ connectSessionAuthenticate obj cb SignalConnectBefore -afterSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId -afterSessionAuthenticate obj cb = connectSessionAuthenticate obj cb SignalConnectAfter - -connectSessionAuthenticate :: (GObject a, MonadIO m) => - a -> SessionAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId -connectSessionAuthenticate obj cb after = liftIO $ do - cb' <- mkSessionAuthenticateCallback (sessionAuthenticateCallbackWrapper cb) - connectSignalFunPtr obj "authenticate" cb' after - --- signal Session::connection-created -type SessionConnectionCreatedCallback = - GObject.Object -> - IO () - -noSessionConnectionCreatedCallback :: Maybe SessionConnectionCreatedCallback -noSessionConnectionCreatedCallback = Nothing - -type SessionConnectionCreatedCallbackC = - Ptr () -> -- object - Ptr GObject.Object -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSessionConnectionCreatedCallback :: SessionConnectionCreatedCallbackC -> IO (FunPtr SessionConnectionCreatedCallbackC) - -sessionConnectionCreatedClosure :: SessionConnectionCreatedCallback -> IO Closure -sessionConnectionCreatedClosure cb = newCClosure =<< mkSessionConnectionCreatedCallback wrapped - where wrapped = sessionConnectionCreatedCallbackWrapper cb - -sessionConnectionCreatedCallbackWrapper :: - SessionConnectionCreatedCallback -> - Ptr () -> - Ptr GObject.Object -> - Ptr () -> - IO () -sessionConnectionCreatedCallbackWrapper _cb _ connection _ = do - connection' <- (newObject GObject.Object) connection - _cb connection' - -onSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId -onSessionConnectionCreated obj cb = liftIO $ connectSessionConnectionCreated obj cb SignalConnectBefore -afterSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId -afterSessionConnectionCreated obj cb = connectSessionConnectionCreated obj cb SignalConnectAfter - -connectSessionConnectionCreated :: (GObject a, MonadIO m) => - a -> SessionConnectionCreatedCallback -> SignalConnectMode -> m SignalHandlerId -connectSessionConnectionCreated obj cb after = liftIO $ do - cb' <- mkSessionConnectionCreatedCallback (sessionConnectionCreatedCallbackWrapper cb) - connectSignalFunPtr obj "connection-created" cb' after - --- signal Session::request-queued -type SessionRequestQueuedCallback = - Message -> - IO () - -noSessionRequestQueuedCallback :: Maybe SessionRequestQueuedCallback -noSessionRequestQueuedCallback = Nothing - -type SessionRequestQueuedCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSessionRequestQueuedCallback :: SessionRequestQueuedCallbackC -> IO (FunPtr SessionRequestQueuedCallbackC) - -sessionRequestQueuedClosure :: SessionRequestQueuedCallback -> IO Closure -sessionRequestQueuedClosure cb = newCClosure =<< mkSessionRequestQueuedCallback wrapped - where wrapped = sessionRequestQueuedCallbackWrapper cb - -sessionRequestQueuedCallbackWrapper :: - SessionRequestQueuedCallback -> - Ptr () -> - Ptr Message -> - Ptr () -> - IO () -sessionRequestQueuedCallbackWrapper _cb _ msg _ = do - msg' <- (newObject Message) msg - _cb msg' - -onSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId -onSessionRequestQueued obj cb = liftIO $ connectSessionRequestQueued obj cb SignalConnectBefore -afterSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId -afterSessionRequestQueued obj cb = connectSessionRequestQueued obj cb SignalConnectAfter - -connectSessionRequestQueued :: (GObject a, MonadIO m) => - a -> SessionRequestQueuedCallback -> SignalConnectMode -> m SignalHandlerId -connectSessionRequestQueued obj cb after = liftIO $ do - cb' <- mkSessionRequestQueuedCallback (sessionRequestQueuedCallbackWrapper cb) - connectSignalFunPtr obj "request-queued" cb' after - --- signal Session::request-started -type SessionRequestStartedCallback = - Message -> - Socket -> - IO () - -noSessionRequestStartedCallback :: Maybe SessionRequestStartedCallback -noSessionRequestStartedCallback = Nothing - -type SessionRequestStartedCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr Socket -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSessionRequestStartedCallback :: SessionRequestStartedCallbackC -> IO (FunPtr SessionRequestStartedCallbackC) - -sessionRequestStartedClosure :: SessionRequestStartedCallback -> IO Closure -sessionRequestStartedClosure cb = newCClosure =<< mkSessionRequestStartedCallback wrapped - where wrapped = sessionRequestStartedCallbackWrapper cb - -sessionRequestStartedCallbackWrapper :: - SessionRequestStartedCallback -> - Ptr () -> - Ptr Message -> - Ptr Socket -> - Ptr () -> - IO () -sessionRequestStartedCallbackWrapper _cb _ msg socket _ = do - msg' <- (newObject Message) msg - socket' <- (newObject Socket) socket - _cb msg' socket' - -onSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId -onSessionRequestStarted obj cb = liftIO $ connectSessionRequestStarted obj cb SignalConnectBefore -afterSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId -afterSessionRequestStarted obj cb = connectSessionRequestStarted obj cb SignalConnectAfter - -connectSessionRequestStarted :: (GObject a, MonadIO m) => - a -> SessionRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId -connectSessionRequestStarted obj cb after = liftIO $ do - cb' <- mkSessionRequestStartedCallback (sessionRequestStartedCallbackWrapper cb) - connectSignalFunPtr obj "request-started" cb' after - --- signal Session::request-unqueued -type SessionRequestUnqueuedCallback = - Message -> - IO () - -noSessionRequestUnqueuedCallback :: Maybe SessionRequestUnqueuedCallback -noSessionRequestUnqueuedCallback = Nothing - -type SessionRequestUnqueuedCallbackC = - Ptr () -> -- object - Ptr Message -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSessionRequestUnqueuedCallback :: SessionRequestUnqueuedCallbackC -> IO (FunPtr SessionRequestUnqueuedCallbackC) - -sessionRequestUnqueuedClosure :: SessionRequestUnqueuedCallback -> IO Closure -sessionRequestUnqueuedClosure cb = newCClosure =<< mkSessionRequestUnqueuedCallback wrapped - where wrapped = sessionRequestUnqueuedCallbackWrapper cb - -sessionRequestUnqueuedCallbackWrapper :: - SessionRequestUnqueuedCallback -> - Ptr () -> - Ptr Message -> - Ptr () -> - IO () -sessionRequestUnqueuedCallbackWrapper _cb _ msg _ = do - msg' <- (newObject Message) msg - _cb msg' - -onSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId -onSessionRequestUnqueued obj cb = liftIO $ connectSessionRequestUnqueued obj cb SignalConnectBefore -afterSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId -afterSessionRequestUnqueued obj cb = connectSessionRequestUnqueued obj cb SignalConnectAfter - -connectSessionRequestUnqueued :: (GObject a, MonadIO m) => - a -> SessionRequestUnqueuedCallback -> SignalConnectMode -> m SignalHandlerId -connectSessionRequestUnqueued obj cb after = liftIO $ do - cb' <- mkSessionRequestUnqueuedCallback (sessionRequestUnqueuedCallbackWrapper cb) - connectSignalFunPtr obj "request-unqueued" cb' after - --- signal Session::tunneling -type SessionTunnelingCallback = - GObject.Object -> - IO () - -noSessionTunnelingCallback :: Maybe SessionTunnelingCallback -noSessionTunnelingCallback = Nothing - -type SessionTunnelingCallbackC = - Ptr () -> -- object - Ptr GObject.Object -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSessionTunnelingCallback :: SessionTunnelingCallbackC -> IO (FunPtr SessionTunnelingCallbackC) - -sessionTunnelingClosure :: SessionTunnelingCallback -> IO Closure -sessionTunnelingClosure cb = newCClosure =<< mkSessionTunnelingCallback wrapped - where wrapped = sessionTunnelingCallbackWrapper cb - -sessionTunnelingCallbackWrapper :: - SessionTunnelingCallback -> - Ptr () -> - Ptr GObject.Object -> - Ptr () -> - IO () -sessionTunnelingCallbackWrapper _cb _ connection _ = do - connection' <- (newObject GObject.Object) connection - _cb connection' - -onSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId -onSessionTunneling obj cb = liftIO $ connectSessionTunneling obj cb SignalConnectBefore -afterSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId -afterSessionTunneling obj cb = connectSessionTunneling obj cb SignalConnectAfter - -connectSessionTunneling :: (GObject a, MonadIO m) => - a -> SessionTunnelingCallback -> SignalConnectMode -> m SignalHandlerId -connectSessionTunneling obj cb after = liftIO $ do - cb' <- mkSessionTunnelingCallback (sessionTunnelingCallbackWrapper cb) - connectSignalFunPtr obj "tunneling" cb' after - --- VVV Prop "accept-language" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> m T.Text -getSessionAcceptLanguage obj = liftIO $ getObjectPropertyString obj "accept-language" - -setSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> T.Text -> m () -setSessionAcceptLanguage obj val = liftIO $ setObjectPropertyString obj "accept-language" val - -constructSessionAcceptLanguage :: T.Text -> IO ([Char], GValue) -constructSessionAcceptLanguage val = constructObjectPropertyString "accept-language" val - -data SessionAcceptLanguagePropertyInfo -instance AttrInfo SessionAcceptLanguagePropertyInfo where - type AttrAllowedOps SessionAcceptLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionAcceptLanguagePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SessionAcceptLanguagePropertyInfo = SessionK - type AttrGetType SessionAcceptLanguagePropertyInfo = T.Text - type AttrLabel SessionAcceptLanguagePropertyInfo = "Session::accept-language" - attrGet _ = getSessionAcceptLanguage - attrSet _ = setSessionAcceptLanguage - attrConstruct _ = constructSessionAcceptLanguage - --- VVV Prop "accept-language-auto" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> m Bool -getSessionAcceptLanguageAuto obj = liftIO $ getObjectPropertyBool obj "accept-language-auto" - -setSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> Bool -> m () -setSessionAcceptLanguageAuto obj val = liftIO $ setObjectPropertyBool obj "accept-language-auto" val - -constructSessionAcceptLanguageAuto :: Bool -> IO ([Char], GValue) -constructSessionAcceptLanguageAuto val = constructObjectPropertyBool "accept-language-auto" val - -data SessionAcceptLanguageAutoPropertyInfo -instance AttrInfo SessionAcceptLanguageAutoPropertyInfo where - type AttrAllowedOps SessionAcceptLanguageAutoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionAcceptLanguageAutoPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SessionAcceptLanguageAutoPropertyInfo = SessionK - type AttrGetType SessionAcceptLanguageAutoPropertyInfo = Bool - type AttrLabel SessionAcceptLanguageAutoPropertyInfo = "Session::accept-language-auto" - attrGet _ = getSessionAcceptLanguageAuto - attrSet _ = setSessionAcceptLanguageAuto - attrConstruct _ = constructSessionAcceptLanguageAuto - --- VVV Prop "async-context" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSessionAsyncContext :: (MonadIO m, SessionK o) => o -> m (Ptr ()) -getSessionAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context" - -constructSessionAsyncContext :: (Ptr ()) -> IO ([Char], GValue) -constructSessionAsyncContext val = constructObjectPropertyPtr "async-context" val - -data SessionAsyncContextPropertyInfo -instance AttrInfo SessionAsyncContextPropertyInfo where - type AttrAllowedOps SessionAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionAsyncContextPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint SessionAsyncContextPropertyInfo = SessionK - type AttrGetType SessionAsyncContextPropertyInfo = (Ptr ()) - type AttrLabel SessionAsyncContextPropertyInfo = "Session::async-context" - attrGet _ = getSessionAsyncContext - attrSet _ = undefined - attrConstruct _ = constructSessionAsyncContext - --- VVV Prop "http-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionHttpAliases :: (MonadIO m, SessionK o) => o -> m [T.Text] -getSessionHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases" - -setSessionHttpAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m () -setSessionHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val - -constructSessionHttpAliases :: [T.Text] -> IO ([Char], GValue) -constructSessionHttpAliases val = constructObjectPropertyStringArray "http-aliases" val - -data SessionHttpAliasesPropertyInfo -instance AttrInfo SessionHttpAliasesPropertyInfo where - type AttrAllowedOps SessionHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionHttpAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint SessionHttpAliasesPropertyInfo = SessionK - type AttrGetType SessionHttpAliasesPropertyInfo = [T.Text] - type AttrLabel SessionHttpAliasesPropertyInfo = "Session::http-aliases" - attrGet _ = getSessionHttpAliases - attrSet _ = setSessionHttpAliases - attrConstruct _ = constructSessionHttpAliases - --- VVV Prop "https-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> m [T.Text] -getSessionHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases" - -setSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m () -setSessionHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val - -constructSessionHttpsAliases :: [T.Text] -> IO ([Char], GValue) -constructSessionHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val - -data SessionHttpsAliasesPropertyInfo -instance AttrInfo SessionHttpsAliasesPropertyInfo where - type AttrAllowedOps SessionHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionHttpsAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint SessionHttpsAliasesPropertyInfo = SessionK - type AttrGetType SessionHttpsAliasesPropertyInfo = [T.Text] - type AttrLabel SessionHttpsAliasesPropertyInfo = "Session::https-aliases" - attrGet _ = getSessionHttpsAliases - attrSet _ = setSessionHttpsAliases - attrConstruct _ = constructSessionHttpsAliases - --- VVV Prop "idle-timeout" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> m Word32 -getSessionIdleTimeout obj = liftIO $ getObjectPropertyCUInt obj "idle-timeout" - -setSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m () -setSessionIdleTimeout obj val = liftIO $ setObjectPropertyCUInt obj "idle-timeout" val - -constructSessionIdleTimeout :: Word32 -> IO ([Char], GValue) -constructSessionIdleTimeout val = constructObjectPropertyCUInt "idle-timeout" val - -data SessionIdleTimeoutPropertyInfo -instance AttrInfo SessionIdleTimeoutPropertyInfo where - type AttrAllowedOps SessionIdleTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionIdleTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SessionIdleTimeoutPropertyInfo = SessionK - type AttrGetType SessionIdleTimeoutPropertyInfo = Word32 - type AttrLabel SessionIdleTimeoutPropertyInfo = "Session::idle-timeout" - attrGet _ = getSessionIdleTimeout - attrSet _ = setSessionIdleTimeout - attrConstruct _ = constructSessionIdleTimeout - --- VVV Prop "local-address" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSessionLocalAddress :: (MonadIO m, SessionK o) => o -> m Address -getSessionLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address - -constructSessionLocalAddress :: (AddressK a) => a -> IO ([Char], GValue) -constructSessionLocalAddress val = constructObjectPropertyObject "local-address" val - -data SessionLocalAddressPropertyInfo -instance AttrInfo SessionLocalAddressPropertyInfo where - type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = AddressK - type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = SessionK - type AttrGetType SessionLocalAddressPropertyInfo = Address - type AttrLabel SessionLocalAddressPropertyInfo = "Session::local-address" - attrGet _ = getSessionLocalAddress - attrSet _ = undefined - attrConstruct _ = constructSessionLocalAddress - --- VVV Prop "max-conns" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionMaxConns :: (MonadIO m, SessionK o) => o -> m Int32 -getSessionMaxConns obj = liftIO $ getObjectPropertyCInt obj "max-conns" - -setSessionMaxConns :: (MonadIO m, SessionK o) => o -> Int32 -> m () -setSessionMaxConns obj val = liftIO $ setObjectPropertyCInt obj "max-conns" val - -constructSessionMaxConns :: Int32 -> IO ([Char], GValue) -constructSessionMaxConns val = constructObjectPropertyCInt "max-conns" val - -data SessionMaxConnsPropertyInfo -instance AttrInfo SessionMaxConnsPropertyInfo where - type AttrAllowedOps SessionMaxConnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionMaxConnsPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SessionMaxConnsPropertyInfo = SessionK - type AttrGetType SessionMaxConnsPropertyInfo = Int32 - type AttrLabel SessionMaxConnsPropertyInfo = "Session::max-conns" - attrGet _ = getSessionMaxConns - attrSet _ = setSessionMaxConns - attrConstruct _ = constructSessionMaxConns - --- VVV Prop "max-conns-per-host" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> m Int32 -getSessionMaxConnsPerHost obj = liftIO $ getObjectPropertyCInt obj "max-conns-per-host" - -setSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> Int32 -> m () -setSessionMaxConnsPerHost obj val = liftIO $ setObjectPropertyCInt obj "max-conns-per-host" val - -constructSessionMaxConnsPerHost :: Int32 -> IO ([Char], GValue) -constructSessionMaxConnsPerHost val = constructObjectPropertyCInt "max-conns-per-host" val - -data SessionMaxConnsPerHostPropertyInfo -instance AttrInfo SessionMaxConnsPerHostPropertyInfo where - type AttrAllowedOps SessionMaxConnsPerHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionMaxConnsPerHostPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SessionMaxConnsPerHostPropertyInfo = SessionK - type AttrGetType SessionMaxConnsPerHostPropertyInfo = Int32 - type AttrLabel SessionMaxConnsPerHostPropertyInfo = "Session::max-conns-per-host" - attrGet _ = getSessionMaxConnsPerHost - attrSet _ = setSessionMaxConnsPerHost - attrConstruct _ = constructSessionMaxConnsPerHost - --- VVV Prop "proxy-resolver" - -- Type: TInterface "Gio" "ProxyResolver" - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m Gio.ProxyResolver -getSessionProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver - -setSessionProxyResolver :: (MonadIO m, SessionK o, Gio.ProxyResolverK a) => o -> a -> m () -setSessionProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" val - -constructSessionProxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue) -constructSessionProxyResolver val = constructObjectPropertyObject "proxy-resolver" val - -data SessionProxyResolverPropertyInfo -instance AttrInfo SessionProxyResolverPropertyInfo where - type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolverK - type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = SessionK - type AttrGetType SessionProxyResolverPropertyInfo = Gio.ProxyResolver - type AttrLabel SessionProxyResolverPropertyInfo = "Session::proxy-resolver" - attrGet _ = getSessionProxyResolver - attrSet _ = setSessionProxyResolver - attrConstruct _ = constructSessionProxyResolver - --- VVV Prop "proxy-uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionProxyUri :: (MonadIO m, SessionK o) => o -> m URI -getSessionProxyUri obj = liftIO $ getObjectPropertyBoxed obj "proxy-uri" URI - -setSessionProxyUri :: (MonadIO m, SessionK o) => o -> URI -> m () -setSessionProxyUri obj val = liftIO $ setObjectPropertyBoxed obj "proxy-uri" val - -constructSessionProxyUri :: URI -> IO ([Char], GValue) -constructSessionProxyUri val = constructObjectPropertyBoxed "proxy-uri" val - -data SessionProxyUriPropertyInfo -instance AttrInfo SessionProxyUriPropertyInfo where - type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) URI - type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = SessionK - type AttrGetType SessionProxyUriPropertyInfo = URI - type AttrLabel SessionProxyUriPropertyInfo = "Session::proxy-uri" - attrGet _ = getSessionProxyUri - attrSet _ = setSessionProxyUri - attrConstruct _ = constructSessionProxyUri - --- VVV Prop "ssl-ca-file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionSslCaFile :: (MonadIO m, SessionK o) => o -> m T.Text -getSessionSslCaFile obj = liftIO $ getObjectPropertyString obj "ssl-ca-file" - -setSessionSslCaFile :: (MonadIO m, SessionK o) => o -> T.Text -> m () -setSessionSslCaFile obj val = liftIO $ setObjectPropertyString obj "ssl-ca-file" val - -constructSessionSslCaFile :: T.Text -> IO ([Char], GValue) -constructSessionSslCaFile val = constructObjectPropertyString "ssl-ca-file" val - -data SessionSslCaFilePropertyInfo -instance AttrInfo SessionSslCaFilePropertyInfo where - type AttrAllowedOps SessionSslCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionSslCaFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SessionSslCaFilePropertyInfo = SessionK - type AttrGetType SessionSslCaFilePropertyInfo = T.Text - type AttrLabel SessionSslCaFilePropertyInfo = "Session::ssl-ca-file" - attrGet _ = getSessionSslCaFile - attrSet _ = setSessionSslCaFile - attrConstruct _ = constructSessionSslCaFile - --- VVV Prop "ssl-strict" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionSslStrict :: (MonadIO m, SessionK o) => o -> m Bool -getSessionSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict" - -setSessionSslStrict :: (MonadIO m, SessionK o) => o -> Bool -> m () -setSessionSslStrict obj val = liftIO $ setObjectPropertyBool obj "ssl-strict" val - -constructSessionSslStrict :: Bool -> IO ([Char], GValue) -constructSessionSslStrict val = constructObjectPropertyBool "ssl-strict" val - -data SessionSslStrictPropertyInfo -instance AttrInfo SessionSslStrictPropertyInfo where - type AttrAllowedOps SessionSslStrictPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionSslStrictPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SessionSslStrictPropertyInfo = SessionK - type AttrGetType SessionSslStrictPropertyInfo = Bool - type AttrLabel SessionSslStrictPropertyInfo = "Session::ssl-strict" - attrGet _ = getSessionSslStrict - attrSet _ = setSessionSslStrict - attrConstruct _ = constructSessionSslStrict - --- VVV Prop "ssl-use-system-ca-file" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> m Bool -getSessionSslUseSystemCaFile obj = liftIO $ getObjectPropertyBool obj "ssl-use-system-ca-file" - -setSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> Bool -> m () -setSessionSslUseSystemCaFile obj val = liftIO $ setObjectPropertyBool obj "ssl-use-system-ca-file" val - -constructSessionSslUseSystemCaFile :: Bool -> IO ([Char], GValue) -constructSessionSslUseSystemCaFile val = constructObjectPropertyBool "ssl-use-system-ca-file" val - -data SessionSslUseSystemCaFilePropertyInfo -instance AttrInfo SessionSslUseSystemCaFilePropertyInfo where - type AttrAllowedOps SessionSslUseSystemCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionSslUseSystemCaFilePropertyInfo = (~) Bool - type AttrBaseTypeConstraint SessionSslUseSystemCaFilePropertyInfo = SessionK - type AttrGetType SessionSslUseSystemCaFilePropertyInfo = Bool - type AttrLabel SessionSslUseSystemCaFilePropertyInfo = "Session::ssl-use-system-ca-file" - attrGet _ = getSessionSslUseSystemCaFile - attrSet _ = setSessionSslUseSystemCaFile - attrConstruct _ = constructSessionSslUseSystemCaFile - --- VVV Prop "timeout" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionTimeout :: (MonadIO m, SessionK o) => o -> m Word32 -getSessionTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout" - -setSessionTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m () -setSessionTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val - -constructSessionTimeout :: Word32 -> IO ([Char], GValue) -constructSessionTimeout val = constructObjectPropertyCUInt "timeout" val - -data SessionTimeoutPropertyInfo -instance AttrInfo SessionTimeoutPropertyInfo where - type AttrAllowedOps SessionTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SessionTimeoutPropertyInfo = SessionK - type AttrGetType SessionTimeoutPropertyInfo = Word32 - type AttrLabel SessionTimeoutPropertyInfo = "Session::timeout" - attrGet _ = getSessionTimeout - attrSet _ = setSessionTimeout - attrConstruct _ = constructSessionTimeout - --- VVV Prop "tls-database" - -- Type: TInterface "Gio" "TlsDatabase" - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m Gio.TlsDatabase -getSessionTlsDatabase obj = liftIO $ getObjectPropertyObject obj "tls-database" Gio.TlsDatabase - -setSessionTlsDatabase :: (MonadIO m, SessionK o, Gio.TlsDatabaseK a) => o -> a -> m () -setSessionTlsDatabase obj val = liftIO $ setObjectPropertyObject obj "tls-database" val - -constructSessionTlsDatabase :: (Gio.TlsDatabaseK a) => a -> IO ([Char], GValue) -constructSessionTlsDatabase val = constructObjectPropertyObject "tls-database" val - -data SessionTlsDatabasePropertyInfo -instance AttrInfo SessionTlsDatabasePropertyInfo where - type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabaseK - type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = SessionK - type AttrGetType SessionTlsDatabasePropertyInfo = Gio.TlsDatabase - type AttrLabel SessionTlsDatabasePropertyInfo = "Session::tls-database" - attrGet _ = getSessionTlsDatabase - attrSet _ = setSessionTlsDatabase - attrConstruct _ = constructSessionTlsDatabase - --- VVV Prop "tls-interaction" - -- Type: TInterface "Gio" "TlsInteraction" - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m Gio.TlsInteraction -getSessionTlsInteraction obj = liftIO $ getObjectPropertyObject obj "tls-interaction" Gio.TlsInteraction - -setSessionTlsInteraction :: (MonadIO m, SessionK o, Gio.TlsInteractionK a) => o -> a -> m () -setSessionTlsInteraction obj val = liftIO $ setObjectPropertyObject obj "tls-interaction" val - -constructSessionTlsInteraction :: (Gio.TlsInteractionK a) => a -> IO ([Char], GValue) -constructSessionTlsInteraction val = constructObjectPropertyObject "tls-interaction" val - -data SessionTlsInteractionPropertyInfo -instance AttrInfo SessionTlsInteractionPropertyInfo where - type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteractionK - type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = SessionK - type AttrGetType SessionTlsInteractionPropertyInfo = Gio.TlsInteraction - type AttrLabel SessionTlsInteractionPropertyInfo = "Session::tls-interaction" - attrGet _ = getSessionTlsInteraction - attrSet _ = setSessionTlsInteraction - attrConstruct _ = constructSessionTlsInteraction - --- VVV Prop "use-ntlm" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionUseNtlm :: (MonadIO m, SessionK o) => o -> m Bool -getSessionUseNtlm obj = liftIO $ getObjectPropertyBool obj "use-ntlm" - -setSessionUseNtlm :: (MonadIO m, SessionK o) => o -> Bool -> m () -setSessionUseNtlm obj val = liftIO $ setObjectPropertyBool obj "use-ntlm" val - -constructSessionUseNtlm :: Bool -> IO ([Char], GValue) -constructSessionUseNtlm val = constructObjectPropertyBool "use-ntlm" val - -data SessionUseNtlmPropertyInfo -instance AttrInfo SessionUseNtlmPropertyInfo where - type AttrAllowedOps SessionUseNtlmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionUseNtlmPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SessionUseNtlmPropertyInfo = SessionK - type AttrGetType SessionUseNtlmPropertyInfo = Bool - type AttrLabel SessionUseNtlmPropertyInfo = "Session::use-ntlm" - attrGet _ = getSessionUseNtlm - attrSet _ = setSessionUseNtlm - attrConstruct _ = constructSessionUseNtlm - --- VVV Prop "use-thread-context" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> m Bool -getSessionUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context" - -setSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> Bool -> m () -setSessionUseThreadContext obj val = liftIO $ setObjectPropertyBool obj "use-thread-context" val - -constructSessionUseThreadContext :: Bool -> IO ([Char], GValue) -constructSessionUseThreadContext val = constructObjectPropertyBool "use-thread-context" val - -data SessionUseThreadContextPropertyInfo -instance AttrInfo SessionUseThreadContextPropertyInfo where - type AttrAllowedOps SessionUseThreadContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionUseThreadContextPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SessionUseThreadContextPropertyInfo = SessionK - type AttrGetType SessionUseThreadContextPropertyInfo = Bool - type AttrLabel SessionUseThreadContextPropertyInfo = "Session::use-thread-context" - attrGet _ = getSessionUseThreadContext - attrSet _ = setSessionUseThreadContext - attrConstruct _ = constructSessionUseThreadContext - --- VVV Prop "user-agent" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -getSessionUserAgent :: (MonadIO m, SessionK o) => o -> m T.Text -getSessionUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" - -setSessionUserAgent :: (MonadIO m, SessionK o) => o -> T.Text -> m () -setSessionUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val - -constructSessionUserAgent :: T.Text -> IO ([Char], GValue) -constructSessionUserAgent val = constructObjectPropertyString "user-agent" val - -data SessionUserAgentPropertyInfo -instance AttrInfo SessionUserAgentPropertyInfo where - type AttrAllowedOps SessionUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SessionUserAgentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SessionUserAgentPropertyInfo = SessionK - type AttrGetType SessionUserAgentPropertyInfo = T.Text - type AttrLabel SessionUserAgentPropertyInfo = "Session::user-agent" - attrGet _ = getSessionUserAgent - attrSet _ = setSessionUserAgent - attrConstruct _ = constructSessionUserAgent - -type instance AttributeList Session = SessionAttributeList -type SessionAttributeList = ('[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)]) - -data SessionAuthenticateSignalInfo -instance SignalInfo SessionAuthenticateSignalInfo where - type HaskellCallbackType SessionAuthenticateSignalInfo = SessionAuthenticateCallback - connectSignal _ = connectSessionAuthenticate - -data SessionConnectionCreatedSignalInfo -instance SignalInfo SessionConnectionCreatedSignalInfo where - type HaskellCallbackType SessionConnectionCreatedSignalInfo = SessionConnectionCreatedCallback - connectSignal _ = connectSessionConnectionCreated - -data SessionRequestQueuedSignalInfo -instance SignalInfo SessionRequestQueuedSignalInfo where - type HaskellCallbackType SessionRequestQueuedSignalInfo = SessionRequestQueuedCallback - connectSignal _ = connectSessionRequestQueued - -data SessionRequestStartedSignalInfo -instance SignalInfo SessionRequestStartedSignalInfo where - type HaskellCallbackType SessionRequestStartedSignalInfo = SessionRequestStartedCallback - connectSignal _ = connectSessionRequestStarted - -data SessionRequestUnqueuedSignalInfo -instance SignalInfo SessionRequestUnqueuedSignalInfo where - type HaskellCallbackType SessionRequestUnqueuedSignalInfo = SessionRequestUnqueuedCallback - connectSignal _ = connectSessionRequestUnqueued - -data SessionTunnelingSignalInfo -instance SignalInfo SessionTunnelingSignalInfo where - type HaskellCallbackType SessionTunnelingSignalInfo = SessionTunnelingCallback - connectSignal _ = connectSessionTunneling - -type instance SignalList Session = SessionSignalList -type SessionSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Session::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Soup" "Session" --- throws : False --- Skip return : False - -foreign import ccall "soup_session_new" soup_session_new :: - IO (Ptr Session) - - -sessionNew :: - (MonadIO m) => - m Session -sessionNew = liftIO $ do - result <- soup_session_new - checkUnexpectedReturnNULL "soup_session_new" result - result' <- (wrapObject Session) result - return result' - --- method Session::abort --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_abort" soup_session_abort :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - IO () - - -sessionAbort :: - (MonadIO m, SessionK a) => - a -> -- _obj - m () -sessionAbort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_session_abort _obj' - touchManagedPtr _obj - return () - --- method Session::add_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_add_feature" soup_session_add_feature :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr SessionFeature -> -- feature : TInterface "Soup" "SessionFeature" - IO () - - -sessionAddFeature :: - (MonadIO m, SessionK a, SessionFeatureK b) => - a -> -- _obj - b -> -- feature - m () -sessionAddFeature _obj feature = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature' = unsafeManagedPtrCastPtr feature - soup_session_add_feature _obj' feature' - touchManagedPtr _obj - touchManagedPtr feature - return () - --- method Session::add_feature_by_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_add_feature_by_type" soup_session_add_feature_by_type :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CGType -> -- feature_type : TBasicType TGType - IO () - - -sessionAddFeatureByType :: - (MonadIO m, SessionK a) => - a -> -- _obj - GType -> -- feature_type - m () -sessionAddFeatureByType _obj feature_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature_type' = gtypeToCGType feature_type - soup_session_add_feature_by_type _obj' feature_type' - touchManagedPtr _obj - return () - --- method Session::cancel_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status_code", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_cancel_message" soup_session_cancel_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - Word32 -> -- status_code : TBasicType TUInt32 - IO () - - -sessionCancelMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - Word32 -> -- status_code - m () -sessionCancelMessage _obj msg status_code = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_cancel_message _obj' msg' status_code - touchManagedPtr _obj - touchManagedPtr msg - return () - --- method Session::get_async_context --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "MainContext" --- throws : False --- Skip return : False - -foreign import ccall "soup_session_get_async_context" soup_session_get_async_context :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - IO (Ptr GLib.MainContext) - - -sessionGetAsyncContext :: - (MonadIO m, SessionK a) => - a -> -- _obj - m GLib.MainContext -sessionGetAsyncContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_session_get_async_context _obj' - checkUnexpectedReturnNULL "soup_session_get_async_context" result - result' <- (newBoxed GLib.MainContext) result - touchManagedPtr _obj - return result' - --- method Session::get_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "SessionFeature" --- throws : False --- Skip return : False - -foreign import ccall "soup_session_get_feature" soup_session_get_feature :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CGType -> -- feature_type : TBasicType TGType - IO (Ptr SessionFeature) - - -sessionGetFeature :: - (MonadIO m, SessionK a) => - a -> -- _obj - GType -> -- feature_type - m SessionFeature -sessionGetFeature _obj feature_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature_type' = gtypeToCGType feature_type - result <- soup_session_get_feature _obj' feature_type' - checkUnexpectedReturnNULL "soup_session_get_feature" result - result' <- (newObject SessionFeature) result - touchManagedPtr _obj - return result' - --- method Session::get_feature_for_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "SessionFeature" --- throws : False --- Skip return : False - -foreign import ccall "soup_session_get_feature_for_message" soup_session_get_feature_for_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CGType -> -- feature_type : TBasicType TGType - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO (Ptr SessionFeature) - - -sessionGetFeatureForMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - GType -> -- feature_type - b -> -- msg - m SessionFeature -sessionGetFeatureForMessage _obj feature_type msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature_type' = gtypeToCGType feature_type - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_session_get_feature_for_message _obj' feature_type' msg' - checkUnexpectedReturnNULL "soup_session_get_feature_for_message" result - result' <- (newObject SessionFeature) result - touchManagedPtr _obj - touchManagedPtr msg - return result' - --- method Session::get_features --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TGSList (TInterface "Soup" "SessionFeature") --- throws : False --- Skip return : False - -foreign import ccall "soup_session_get_features" soup_session_get_features :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CGType -> -- feature_type : TBasicType TGType - IO (Ptr (GSList (Ptr SessionFeature))) - - -sessionGetFeatures :: - (MonadIO m, SessionK a) => - a -> -- _obj - GType -> -- feature_type - m [SessionFeature] -sessionGetFeatures _obj feature_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature_type' = gtypeToCGType feature_type - result <- soup_session_get_features _obj' feature_type' - checkUnexpectedReturnNULL "soup_session_get_features" result - result' <- unpackGSList result - result'' <- mapM (newObject SessionFeature) result' - g_slist_free result - touchManagedPtr _obj - return result'' - --- method Session::has_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_session_has_feature" soup_session_has_feature :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CGType -> -- feature_type : TBasicType TGType - IO CInt - - -sessionHasFeature :: - (MonadIO m, SessionK a) => - a -> -- _obj - GType -> -- feature_type - m Bool -sessionHasFeature _obj feature_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature_type' = gtypeToCGType feature_type - result <- soup_session_has_feature _obj' feature_type' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Session::pause_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_pause_message" soup_session_pause_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -sessionPauseMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - m () -sessionPauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_pause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - --- method Session::prefetch_dns --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, 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" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_prefetch_dns" soup_session_prefetch_dns :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CString -> -- hostname : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr AddressCallbackC -> -- callback : TInterface "Soup" "AddressCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -sessionPrefetchDns :: - (MonadIO m, SessionK a, Gio.CancellableK b) => - a -> -- _obj - T.Text -> -- hostname - Maybe (b) -> -- cancellable - Maybe (AddressCallback) -> -- callback - m () -sessionPrefetchDns _obj hostname cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - hostname' <- textToCString hostname - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - soup_session_prefetch_dns _obj' hostname' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem hostname' - return () - --- method Session::prepare_for_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_prepare_for_uri" soup_session_prepare_for_uri :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr URI -> -- uri : TInterface "Soup" "URI" - IO () - -{-# DEPRECATED sessionPrepareForUri ["(Since version 2.38)","use soup_session_prefetch_dns() instead"]#-} -sessionPrepareForUri :: - (MonadIO m, SessionK a) => - a -> -- _obj - URI -> -- uri - m () -sessionPrepareForUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - soup_session_prepare_for_uri _obj' uri' - touchManagedPtr _obj - touchManagedPtr uri - return () - --- method Session::queue_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_queue_message" soup_session_queue_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - FunPtr SessionCallbackC -> -- callback : TInterface "Soup" "SessionCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -sessionQueueMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - Maybe (SessionCallback) -> -- callback - m () -sessionQueueMessage _obj msg callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - msg' <- refObject msg - ptrcallback <- callocMem :: IO (Ptr (FunPtr SessionCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- mkSessionCallback (sessionCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - soup_session_queue_message _obj' msg' maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr msg - return () - --- method Session::redirect_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_session_redirect_message" soup_session_redirect_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO CInt - - -sessionRedirectMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - m Bool -sessionRedirectMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_session_redirect_message _obj' msg' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - return result' - --- method Session::remove_feature --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_remove_feature" soup_session_remove_feature :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr SessionFeature -> -- feature : TInterface "Soup" "SessionFeature" - IO () - - -sessionRemoveFeature :: - (MonadIO m, SessionK a, SessionFeatureK b) => - a -> -- _obj - b -> -- feature - m () -sessionRemoveFeature _obj feature = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature' = unsafeManagedPtrCastPtr feature - soup_session_remove_feature _obj' feature' - touchManagedPtr _obj - touchManagedPtr feature - return () - --- method Session::remove_feature_by_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_remove_feature_by_type" soup_session_remove_feature_by_type :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CGType -> -- feature_type : TBasicType TGType - IO () - - -sessionRemoveFeatureByType :: - (MonadIO m, SessionK a) => - a -> -- _obj - GType -> -- feature_type - m () -sessionRemoveFeatureByType _obj feature_type = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature_type' = gtypeToCGType feature_type - soup_session_remove_feature_by_type _obj' feature_type' - touchManagedPtr _obj - return () - --- method Session::request --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Request" --- throws : True --- Skip return : False - -foreign import ccall "soup_session_request" soup_session_request :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CString -> -- uri_string : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr Request) - - -sessionRequest :: - (MonadIO m, SessionK a) => - a -> -- _obj - T.Text -> -- uri_string - m Request -sessionRequest _obj uri_string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uri_string' <- textToCString uri_string - onException (do - result <- propagateGError $ soup_session_request _obj' uri_string' - checkUnexpectedReturnNULL "soup_session_request" result - result' <- (wrapObject Request) result - touchManagedPtr _obj - freeMem uri_string' - return result' - ) (do - freeMem uri_string' - ) - --- method Session::request_http --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "RequestHTTP" --- throws : True --- Skip return : False - -foreign import ccall "soup_session_request_http" soup_session_request_http :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CString -> -- method : TBasicType TUTF8 - CString -> -- uri_string : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr RequestHTTP) - - -sessionRequestHttp :: - (MonadIO m, SessionK a) => - a -> -- _obj - T.Text -> -- method - T.Text -> -- uri_string - m RequestHTTP -sessionRequestHttp _obj method uri_string = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - method' <- textToCString method - uri_string' <- textToCString uri_string - onException (do - result <- propagateGError $ soup_session_request_http _obj' method' uri_string' - checkUnexpectedReturnNULL "soup_session_request_http" result - result' <- (wrapObject RequestHTTP) result - touchManagedPtr _obj - freeMem method' - freeMem uri_string' - return result' - ) (do - freeMem method' - freeMem uri_string' - ) - --- method Session::request_http_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "RequestHTTP" --- throws : True --- Skip return : False - -foreign import ccall "soup_session_request_http_uri" soup_session_request_http_uri :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - CString -> -- method : TBasicType TUTF8 - Ptr URI -> -- uri : TInterface "Soup" "URI" - Ptr (Ptr GError) -> -- error - IO (Ptr RequestHTTP) - - -sessionRequestHttpUri :: - (MonadIO m, SessionK a) => - a -> -- _obj - T.Text -> -- method - URI -> -- uri - m RequestHTTP -sessionRequestHttpUri _obj method uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - method' <- textToCString method - let uri' = unsafeManagedPtrGetPtr uri - onException (do - result <- propagateGError $ soup_session_request_http_uri _obj' method' uri' - checkUnexpectedReturnNULL "soup_session_request_http_uri" result - result' <- (wrapObject RequestHTTP) result - touchManagedPtr _obj - touchManagedPtr uri - freeMem method' - return result' - ) (do - freeMem method' - ) - --- method Session::request_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Request" --- throws : True --- Skip return : False - -foreign import ccall "soup_session_request_uri" soup_session_request_uri :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr URI -> -- uri : TInterface "Soup" "URI" - Ptr (Ptr GError) -> -- error - IO (Ptr Request) - - -sessionRequestUri :: - (MonadIO m, SessionK a) => - a -> -- _obj - URI -> -- uri - m Request -sessionRequestUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - onException (do - result <- propagateGError $ soup_session_request_uri _obj' uri' - checkUnexpectedReturnNULL "soup_session_request_uri" result - result' <- (wrapObject Request) result - touchManagedPtr _obj - touchManagedPtr uri - return result' - ) (do - return () - ) - --- method Session::requeue_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_requeue_message" soup_session_requeue_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -sessionRequeueMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - m () -sessionRequeueMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_requeue_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - --- method Session::send --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "soup_session_send" soup_session_send :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -sessionSend :: - (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => - a -> -- _obj - b -> -- msg - Maybe (c) -> -- cancellable - m Gio.InputStream -sessionSend _obj msg cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ soup_session_send _obj' msg' maybeCancellable - checkUnexpectedReturnNULL "soup_session_send" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - touchManagedPtr msg - whenJust cancellable touchManagedPtr - return result' - ) (do - return () - ) - --- method Session::send_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, 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" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_send_async" soup_session_send_async :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -sessionSendAsync :: - (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => - a -> -- _obj - b -> -- msg - Maybe (c) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -sessionSendAsync _obj msg cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - soup_session_send_async _obj' msg' maybeCancellable maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr msg - whenJust cancellable touchManagedPtr - return () - --- method Session::send_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "InputStream" --- throws : True --- Skip return : False - -foreign import ccall "soup_session_send_finish" soup_session_send_finish :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr Gio.InputStream) - - -sessionSendFinish :: - (MonadIO m, SessionK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m Gio.InputStream -sessionSendFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ soup_session_send_finish _obj' result_' - checkUnexpectedReturnNULL "soup_session_send_finish" result - result' <- (wrapObject Gio.InputStream) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - --- method Session::send_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_session_send_message" soup_session_send_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO Word32 - - -sessionSendMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - m Word32 -sessionSendMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_session_send_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return result - --- method Session::steal_connection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "IOStream" --- throws : False --- Skip return : False - -foreign import ccall "soup_session_steal_connection" soup_session_steal_connection :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO (Ptr Gio.IOStream) - - -sessionStealConnection :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - m Gio.IOStream -sessionStealConnection _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_session_steal_connection _obj' msg' - checkUnexpectedReturnNULL "soup_session_steal_connection" result - result' <- (wrapObject Gio.IOStream) result - touchManagedPtr _obj - touchManagedPtr msg - return result' - --- method Session::unpause_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_unpause_message" soup_session_unpause_message :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO () - - -sessionUnpauseMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - m () -sessionUnpauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_unpause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - --- method Session::websocket_connect_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, 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" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_session_websocket_connect_async" soup_session_websocket_connect_async :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - CString -> -- origin : TBasicType TUTF8 - Ptr CString -> -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8) - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -sessionWebsocketConnectAsync :: - (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => - a -> -- _obj - b -> -- msg - Maybe (T.Text) -> -- origin - Maybe ([T.Text]) -> -- protocols - Maybe (c) -> -- cancellable - Maybe (Gio.AsyncReadyCallback) -> -- callback - m () -sessionWebsocketConnectAsync _obj msg origin protocols cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - maybeOrigin <- case origin of - Nothing -> return nullPtr - Just jOrigin -> do - jOrigin' <- textToCString jOrigin - return jOrigin' - maybeProtocols <- case protocols of - Nothing -> return nullPtr - Just jProtocols -> do - jProtocols' <- packZeroTerminatedUTF8CArray jProtocols - return jProtocols' - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC)) - maybeCallback <- case callback of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jCallback -> do - jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback) - poke ptrcallback jCallback' - return jCallback' - let user_data = nullPtr - soup_session_websocket_connect_async _obj' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback user_data - touchManagedPtr _obj - touchManagedPtr msg - whenJust cancellable touchManagedPtr - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return () - --- method Session::websocket_connect_finish --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "WebsocketConnection" --- throws : True --- Skip return : False - -foreign import ccall "soup_session_websocket_connect_finish" soup_session_websocket_connect_finish :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Gio.AsyncResult -> -- result : TInterface "Gio" "AsyncResult" - Ptr (Ptr GError) -> -- error - IO (Ptr WebsocketConnection) - - -sessionWebsocketConnectFinish :: - (MonadIO m, SessionK a, Gio.AsyncResultK b) => - a -> -- _obj - b -> -- result - m WebsocketConnection -sessionWebsocketConnectFinish _obj result_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let result_' = unsafeManagedPtrCastPtr result_ - onException (do - result <- propagateGError $ soup_session_websocket_connect_finish _obj' result_' - checkUnexpectedReturnNULL "soup_session_websocket_connect_finish" result - result' <- (wrapObject WebsocketConnection) result - touchManagedPtr _obj - touchManagedPtr result_ - return result' - ) (do - return () - ) - --- method Session::would_redirect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_session_would_redirect" soup_session_would_redirect :: - Ptr Session -> -- _obj : TInterface "Soup" "Session" - Ptr Message -> -- msg : TInterface "Soup" "Message" - IO CInt - - -sessionWouldRedirect :: - (MonadIO m, SessionK a, MessageK b) => - a -> -- _obj - b -> -- msg - m Bool -sessionWouldRedirect _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_session_would_redirect _obj' msg' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - return result' - - diff --git a/GI/Soup/Objects/Session.hs-boot b/GI/Soup/Objects/Session.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Session.hs-boot +++ /dev/null @@ -1,39 +0,0 @@ -module GI.Soup.Objects.Session 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 - -newtype Session = Session (ForeignPtr Session) -instance GObject Session where -class GObject o => SessionK o -instance (GObject o, IsDescendantOf Session o) => SessionK o -data SessionAcceptLanguagePropertyInfo -data SessionAcceptLanguageAutoPropertyInfo -data SessionAsyncContextPropertyInfo -data SessionHttpAliasesPropertyInfo -data SessionHttpsAliasesPropertyInfo -data SessionIdleTimeoutPropertyInfo -data SessionLocalAddressPropertyInfo -data SessionMaxConnsPropertyInfo -data SessionMaxConnsPerHostPropertyInfo -data SessionProxyResolverPropertyInfo -data SessionProxyUriPropertyInfo -data SessionSslCaFilePropertyInfo -data SessionSslStrictPropertyInfo -data SessionSslUseSystemCaFilePropertyInfo -data SessionTimeoutPropertyInfo -data SessionTlsDatabasePropertyInfo -data SessionTlsInteractionPropertyInfo -data SessionUseNtlmPropertyInfo -data SessionUseThreadContextPropertyInfo -data SessionUserAgentPropertyInfo -data SessionAuthenticateSignalInfo -data SessionConnectionCreatedSignalInfo -data SessionRequestQueuedSignalInfo -data SessionRequestStartedSignalInfo -data SessionRequestUnqueuedSignalInfo -data SessionTunnelingSignalInfo diff --git a/GI/Soup/Objects/SessionAsync.hs b/GI/Soup/Objects/SessionAsync.hs deleted file mode 100644 --- a/GI/Soup/Objects/SessionAsync.hs +++ /dev/null @@ -1,87 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.SessionAsync - ( - --- * Exported types - SessionAsync(..) , - SessionAsyncK , - toSessionAsync , - noSessionAsync , - - - -- * Methods --- ** sessionAsyncNew - sessionAsyncNew , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync) -foreign import ccall "soup_session_async_get_type" - c_soup_session_async_get_type :: IO GType - -type instance ParentTypes SessionAsync = SessionAsyncParentTypes -type SessionAsyncParentTypes = '[Session, GObject.Object] - -instance GObject SessionAsync where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_session_async_get_type - - -class GObject o => SessionAsyncK o -instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o - -toSessionAsync :: SessionAsyncK o => o -> IO SessionAsync -toSessionAsync = unsafeCastTo SessionAsync - -noSessionAsync :: Maybe SessionAsync -noSessionAsync = Nothing - -type instance AttributeList SessionAsync = SessionAsyncAttributeList -type SessionAsyncAttributeList = ('[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SessionAsync = SessionAsyncSignalList -type SessionAsyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SessionAsync::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Soup" "SessionAsync" --- throws : False --- Skip return : False - -foreign import ccall "soup_session_async_new" soup_session_async_new :: - IO (Ptr SessionAsync) - -{-# DEPRECATED sessionAsyncNew ["#SoupSessionAsync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the porting guide."]#-} -sessionAsyncNew :: - (MonadIO m) => - m SessionAsync -sessionAsyncNew = liftIO $ do - result <- soup_session_async_new - checkUnexpectedReturnNULL "soup_session_async_new" result - result' <- (wrapObject SessionAsync) result - return result' - - diff --git a/GI/Soup/Objects/SessionAsync.hs-boot b/GI/Soup/Objects/SessionAsync.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/SessionAsync.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.SessionAsync 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 - -newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync) -instance GObject SessionAsync where -class GObject o => SessionAsyncK o -instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o diff --git a/GI/Soup/Objects/SessionSync.hs b/GI/Soup/Objects/SessionSync.hs deleted file mode 100644 --- a/GI/Soup/Objects/SessionSync.hs +++ /dev/null @@ -1,87 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.SessionSync - ( - --- * Exported types - SessionSync(..) , - SessionSyncK , - toSessionSync , - noSessionSync , - - - -- * Methods --- ** sessionSyncNew - sessionSyncNew , - - - - - ) 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 -import qualified GI.GObject as GObject - -newtype SessionSync = SessionSync (ForeignPtr SessionSync) -foreign import ccall "soup_session_sync_get_type" - c_soup_session_sync_get_type :: IO GType - -type instance ParentTypes SessionSync = SessionSyncParentTypes -type SessionSyncParentTypes = '[Session, GObject.Object] - -instance GObject SessionSync where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_session_sync_get_type - - -class GObject o => SessionSyncK o -instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o - -toSessionSync :: SessionSyncK o => o -> IO SessionSync -toSessionSync = unsafeCastTo SessionSync - -noSessionSync :: Maybe SessionSync -noSessionSync = Nothing - -type instance AttributeList SessionSync = SessionSyncAttributeList -type SessionSyncAttributeList = ('[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SessionSync = SessionSyncSignalList -type SessionSyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method SessionSync::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Soup" "SessionSync" --- throws : False --- Skip return : False - -foreign import ccall "soup_session_sync_new" soup_session_sync_new :: - IO (Ptr SessionSync) - -{-# DEPRECATED sessionSyncNew ["#SoupSessionSync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the porting guide."]#-} -sessionSyncNew :: - (MonadIO m) => - m SessionSync -sessionSyncNew = liftIO $ do - result <- soup_session_sync_new - checkUnexpectedReturnNULL "soup_session_sync_new" result - result' <- (wrapObject SessionSync) result - return result' - - diff --git a/GI/Soup/Objects/SessionSync.hs-boot b/GI/Soup/Objects/SessionSync.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/SessionSync.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Objects.SessionSync 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 - -newtype SessionSync = SessionSync (ForeignPtr SessionSync) -instance GObject SessionSync where -class GObject o => SessionSyncK o -instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o diff --git a/GI/Soup/Objects/Socket.hs b/GI/Soup/Objects/Socket.hs deleted file mode 100644 --- a/GI/Soup/Objects/Socket.hs +++ /dev/null @@ -1,1332 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.Socket - ( - --- * Exported types - Socket(..) , - SocketK , - toSocket , - noSocket , - - - -- * Methods --- ** socketConnectAsync - socketConnectAsync , - - --- ** socketConnectSync - socketConnectSync , - - --- ** socketDisconnect - socketDisconnect , - - --- ** socketGetFd - socketGetFd , - - --- ** socketGetLocalAddress - socketGetLocalAddress , - - --- ** socketGetRemoteAddress - socketGetRemoteAddress , - - --- ** socketIsConnected - socketIsConnected , - - --- ** socketIsSsl - socketIsSsl , - - --- ** socketListen - socketListen , - - --- ** socketRead - socketRead , - - --- ** socketReadUntil - socketReadUntil , - - --- ** socketStartProxySsl - socketStartProxySsl , - - --- ** socketStartSsl - socketStartSsl , - - --- ** socketWrite - socketWrite , - - - - - -- * Properties --- ** AsyncContext - SocketAsyncContextPropertyInfo , - constructSocketAsyncContext , - getSocketAsyncContext , - - --- ** Fd - SocketFdPropertyInfo , - constructSocketFd , - getSocketFd , - - --- ** Gsocket - SocketGsocketPropertyInfo , - constructSocketGsocket , - - --- ** Iostream - SocketIostreamPropertyInfo , - constructSocketIostream , - - --- ** Ipv6Only - SocketIpv6OnlyPropertyInfo , - constructSocketIpv6Only , - getSocketIpv6Only , - setSocketIpv6Only , - - --- ** IsServer - SocketIsServerPropertyInfo , - getSocketIsServer , - - --- ** LocalAddress - SocketLocalAddressPropertyInfo , - constructSocketLocalAddress , - getSocketLocalAddress , - - --- ** NonBlocking - SocketNonBlockingPropertyInfo , - constructSocketNonBlocking , - getSocketNonBlocking , - setSocketNonBlocking , - - --- ** RemoteAddress - SocketRemoteAddressPropertyInfo , - constructSocketRemoteAddress , - getSocketRemoteAddress , - - --- ** SslCreds - SocketSslCredsPropertyInfo , - constructSocketSslCreds , - getSocketSslCreds , - setSocketSslCreds , - - --- ** SslFallback - SocketSslFallbackPropertyInfo , - constructSocketSslFallback , - getSocketSslFallback , - - --- ** SslStrict - SocketSslStrictPropertyInfo , - constructSocketSslStrict , - getSocketSslStrict , - - --- ** Timeout - SocketTimeoutPropertyInfo , - constructSocketTimeout , - getSocketTimeout , - setSocketTimeout , - - --- ** TlsCertificate - SocketTlsCertificatePropertyInfo , - getSocketTlsCertificate , - - --- ** TlsErrors - SocketTlsErrorsPropertyInfo , - getSocketTlsErrors , - - --- ** TrustedCertificate - SocketTrustedCertificatePropertyInfo , - getSocketTrustedCertificate , - - --- ** UseThreadContext - SocketUseThreadContextPropertyInfo , - constructSocketUseThreadContext , - getSocketUseThreadContext , - - - - - -- * Signals --- ** Disconnected - SocketDisconnectedCallback , - SocketDisconnectedCallbackC , - SocketDisconnectedSignalInfo , - afterSocketDisconnected , - mkSocketDisconnectedCallback , - noSocketDisconnectedCallback , - onSocketDisconnected , - socketDisconnectedCallbackWrapper , - socketDisconnectedClosure , - - --- ** Event - SocketEventCallback , - SocketEventCallbackC , - SocketEventSignalInfo , - afterSocketEvent , - mkSocketEventCallback , - noSocketEventCallback , - onSocketEvent , - socketEventCallbackWrapper , - socketEventClosure , - - --- ** NewConnection - SocketNewConnectionCallback , - SocketNewConnectionCallbackC , - SocketNewConnectionSignalInfo , - afterSocketNewConnection , - mkSocketNewConnectionCallback , - noSocketNewConnectionCallback , - onSocketNewConnection , - socketNewConnectionCallbackWrapper , - socketNewConnectionClosure , - - --- ** Readable - SocketReadableCallback , - SocketReadableCallbackC , - SocketReadableSignalInfo , - afterSocketReadable , - mkSocketReadableCallback , - noSocketReadableCallback , - onSocketReadable , - socketReadableCallbackWrapper , - socketReadableClosure , - - --- ** Writable - SocketWritableCallback , - SocketWritableCallbackC , - SocketWritableSignalInfo , - afterSocketWritable , - mkSocketWritableCallback , - noSocketWritableCallback , - onSocketWritable , - socketWritableCallbackWrapper , - socketWritableClosure , - - - - - ) 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 -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype Socket = Socket (ForeignPtr Socket) -foreign import ccall "soup_socket_get_type" - c_soup_socket_get_type :: IO GType - -type instance ParentTypes Socket = SocketParentTypes -type SocketParentTypes = '[GObject.Object, Gio.Initable] - -instance GObject Socket where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_socket_get_type - - -class GObject o => SocketK o -instance (GObject o, IsDescendantOf Socket o) => SocketK o - -toSocket :: SocketK o => o -> IO Socket -toSocket = unsafeCastTo Socket - -noSocket :: Maybe Socket -noSocket = Nothing - --- signal Socket::disconnected -type SocketDisconnectedCallback = - IO () - -noSocketDisconnectedCallback :: Maybe SocketDisconnectedCallback -noSocketDisconnectedCallback = Nothing - -type SocketDisconnectedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketDisconnectedCallback :: SocketDisconnectedCallbackC -> IO (FunPtr SocketDisconnectedCallbackC) - -socketDisconnectedClosure :: SocketDisconnectedCallback -> IO Closure -socketDisconnectedClosure cb = newCClosure =<< mkSocketDisconnectedCallback wrapped - where wrapped = socketDisconnectedCallbackWrapper cb - -socketDisconnectedCallbackWrapper :: - SocketDisconnectedCallback -> - Ptr () -> - Ptr () -> - IO () -socketDisconnectedCallbackWrapper _cb _ _ = do - _cb - -onSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId -onSocketDisconnected obj cb = liftIO $ connectSocketDisconnected obj cb SignalConnectBefore -afterSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId -afterSocketDisconnected obj cb = connectSocketDisconnected obj cb SignalConnectAfter - -connectSocketDisconnected :: (GObject a, MonadIO m) => - a -> SocketDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketDisconnected obj cb after = liftIO $ do - cb' <- mkSocketDisconnectedCallback (socketDisconnectedCallbackWrapper cb) - connectSignalFunPtr obj "disconnected" cb' after - --- signal Socket::event -type SocketEventCallback = - Gio.SocketClientEvent -> - Gio.IOStream -> - IO () - -noSocketEventCallback :: Maybe SocketEventCallback -noSocketEventCallback = Nothing - -type SocketEventCallbackC = - Ptr () -> -- object - CUInt -> - Ptr Gio.IOStream -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketEventCallback :: SocketEventCallbackC -> IO (FunPtr SocketEventCallbackC) - -socketEventClosure :: SocketEventCallback -> IO Closure -socketEventClosure cb = newCClosure =<< mkSocketEventCallback wrapped - where wrapped = socketEventCallbackWrapper cb - -socketEventCallbackWrapper :: - SocketEventCallback -> - Ptr () -> - CUInt -> - Ptr Gio.IOStream -> - Ptr () -> - IO () -socketEventCallbackWrapper _cb _ event connection _ = do - let event' = (toEnum . fromIntegral) event - connection' <- (newObject Gio.IOStream) connection - _cb event' connection' - -onSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId -onSocketEvent obj cb = liftIO $ connectSocketEvent obj cb SignalConnectBefore -afterSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId -afterSocketEvent obj cb = connectSocketEvent obj cb SignalConnectAfter - -connectSocketEvent :: (GObject a, MonadIO m) => - a -> SocketEventCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketEvent obj cb after = liftIO $ do - cb' <- mkSocketEventCallback (socketEventCallbackWrapper cb) - connectSignalFunPtr obj "event" cb' after - --- signal Socket::new-connection -type SocketNewConnectionCallback = - Socket -> - IO () - -noSocketNewConnectionCallback :: Maybe SocketNewConnectionCallback -noSocketNewConnectionCallback = Nothing - -type SocketNewConnectionCallbackC = - Ptr () -> -- object - Ptr Socket -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketNewConnectionCallback :: SocketNewConnectionCallbackC -> IO (FunPtr SocketNewConnectionCallbackC) - -socketNewConnectionClosure :: SocketNewConnectionCallback -> IO Closure -socketNewConnectionClosure cb = newCClosure =<< mkSocketNewConnectionCallback wrapped - where wrapped = socketNewConnectionCallbackWrapper cb - -socketNewConnectionCallbackWrapper :: - SocketNewConnectionCallback -> - Ptr () -> - Ptr Socket -> - Ptr () -> - IO () -socketNewConnectionCallbackWrapper _cb _ new _ = do - new' <- (newObject Socket) new - _cb new' - -onSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId -onSocketNewConnection obj cb = liftIO $ connectSocketNewConnection obj cb SignalConnectBefore -afterSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId -afterSocketNewConnection obj cb = connectSocketNewConnection obj cb SignalConnectAfter - -connectSocketNewConnection :: (GObject a, MonadIO m) => - a -> SocketNewConnectionCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketNewConnection obj cb after = liftIO $ do - cb' <- mkSocketNewConnectionCallback (socketNewConnectionCallbackWrapper cb) - connectSignalFunPtr obj "new-connection" cb' after - --- signal Socket::readable -type SocketReadableCallback = - IO () - -noSocketReadableCallback :: Maybe SocketReadableCallback -noSocketReadableCallback = Nothing - -type SocketReadableCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketReadableCallback :: SocketReadableCallbackC -> IO (FunPtr SocketReadableCallbackC) - -socketReadableClosure :: SocketReadableCallback -> IO Closure -socketReadableClosure cb = newCClosure =<< mkSocketReadableCallback wrapped - where wrapped = socketReadableCallbackWrapper cb - -socketReadableCallbackWrapper :: - SocketReadableCallback -> - Ptr () -> - Ptr () -> - IO () -socketReadableCallbackWrapper _cb _ _ = do - _cb - -onSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId -onSocketReadable obj cb = liftIO $ connectSocketReadable obj cb SignalConnectBefore -afterSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId -afterSocketReadable obj cb = connectSocketReadable obj cb SignalConnectAfter - -connectSocketReadable :: (GObject a, MonadIO m) => - a -> SocketReadableCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketReadable obj cb after = liftIO $ do - cb' <- mkSocketReadableCallback (socketReadableCallbackWrapper cb) - connectSignalFunPtr obj "readable" cb' after - --- signal Socket::writable -type SocketWritableCallback = - IO () - -noSocketWritableCallback :: Maybe SocketWritableCallback -noSocketWritableCallback = Nothing - -type SocketWritableCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkSocketWritableCallback :: SocketWritableCallbackC -> IO (FunPtr SocketWritableCallbackC) - -socketWritableClosure :: SocketWritableCallback -> IO Closure -socketWritableClosure cb = newCClosure =<< mkSocketWritableCallback wrapped - where wrapped = socketWritableCallbackWrapper cb - -socketWritableCallbackWrapper :: - SocketWritableCallback -> - Ptr () -> - Ptr () -> - IO () -socketWritableCallbackWrapper _cb _ _ = do - _cb - -onSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId -onSocketWritable obj cb = liftIO $ connectSocketWritable obj cb SignalConnectBefore -afterSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId -afterSocketWritable obj cb = connectSocketWritable obj cb SignalConnectAfter - -connectSocketWritable :: (GObject a, MonadIO m) => - a -> SocketWritableCallback -> SignalConnectMode -> m SignalHandlerId -connectSocketWritable obj cb after = liftIO $ do - cb' <- mkSocketWritableCallback (socketWritableCallbackWrapper cb) - connectSignalFunPtr obj "writable" cb' after - --- VVV Prop "async-context" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSocketAsyncContext :: (MonadIO m, SocketK o) => o -> m (Ptr ()) -getSocketAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context" - -constructSocketAsyncContext :: (Ptr ()) -> IO ([Char], GValue) -constructSocketAsyncContext val = constructObjectPropertyPtr "async-context" val - -data SocketAsyncContextPropertyInfo -instance AttrInfo SocketAsyncContextPropertyInfo where - type AttrAllowedOps SocketAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketAsyncContextPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint SocketAsyncContextPropertyInfo = SocketK - type AttrGetType SocketAsyncContextPropertyInfo = (Ptr ()) - type AttrLabel SocketAsyncContextPropertyInfo = "Socket::async-context" - attrGet _ = getSocketAsyncContext - attrSet _ = undefined - attrConstruct _ = constructSocketAsyncContext - --- VVV Prop "fd" - -- Type: TBasicType TInt32 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32 -getSocketFd obj = liftIO $ getObjectPropertyCInt obj "fd" - -constructSocketFd :: Int32 -> IO ([Char], GValue) -constructSocketFd val = constructObjectPropertyCInt "fd" val - -data SocketFdPropertyInfo -instance AttrInfo SocketFdPropertyInfo where - type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32 - type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK - type AttrGetType SocketFdPropertyInfo = Int32 - type AttrLabel SocketFdPropertyInfo = "Socket::fd" - attrGet _ = getSocketFd - attrSet _ = undefined - attrConstruct _ = constructSocketFd - --- VVV Prop "gsocket" - -- Type: TInterface "Gio" "Socket" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -constructSocketGsocket :: (Gio.SocketK a) => a -> IO ([Char], GValue) -constructSocketGsocket val = constructObjectPropertyObject "gsocket" val - -data SocketGsocketPropertyInfo -instance AttrInfo SocketGsocketPropertyInfo where - type AttrAllowedOps SocketGsocketPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint SocketGsocketPropertyInfo = Gio.SocketK - type AttrBaseTypeConstraint SocketGsocketPropertyInfo = SocketK - type AttrGetType SocketGsocketPropertyInfo = () - type AttrLabel SocketGsocketPropertyInfo = "Socket::gsocket" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructSocketGsocket - --- VVV Prop "iostream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -constructSocketIostream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue) -constructSocketIostream val = constructObjectPropertyObject "iostream" val - -data SocketIostreamPropertyInfo -instance AttrInfo SocketIostreamPropertyInfo where - type AttrAllowedOps SocketIostreamPropertyInfo = '[ 'AttrConstruct] - type AttrSetTypeConstraint SocketIostreamPropertyInfo = Gio.IOStreamK - type AttrBaseTypeConstraint SocketIostreamPropertyInfo = SocketK - type AttrGetType SocketIostreamPropertyInfo = () - type AttrLabel SocketIostreamPropertyInfo = "Socket::iostream" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructSocketIostream - --- VVV Prop "ipv6-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSocketIpv6Only :: (MonadIO m, SocketK o) => o -> m Bool -getSocketIpv6Only obj = liftIO $ getObjectPropertyBool obj "ipv6-only" - -setSocketIpv6Only :: (MonadIO m, SocketK o) => o -> Bool -> m () -setSocketIpv6Only obj val = liftIO $ setObjectPropertyBool obj "ipv6-only" val - -constructSocketIpv6Only :: Bool -> IO ([Char], GValue) -constructSocketIpv6Only val = constructObjectPropertyBool "ipv6-only" val - -data SocketIpv6OnlyPropertyInfo -instance AttrInfo SocketIpv6OnlyPropertyInfo where - type AttrAllowedOps SocketIpv6OnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketIpv6OnlyPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketIpv6OnlyPropertyInfo = SocketK - type AttrGetType SocketIpv6OnlyPropertyInfo = Bool - type AttrLabel SocketIpv6OnlyPropertyInfo = "Socket::ipv6-only" - attrGet _ = getSocketIpv6Only - attrSet _ = setSocketIpv6Only - attrConstruct _ = constructSocketIpv6Only - --- VVV Prop "is-server" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getSocketIsServer :: (MonadIO m, SocketK o) => o -> m Bool -getSocketIsServer obj = liftIO $ getObjectPropertyBool obj "is-server" - -data SocketIsServerPropertyInfo -instance AttrInfo SocketIsServerPropertyInfo where - type AttrAllowedOps SocketIsServerPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SocketIsServerPropertyInfo = (~) () - type AttrBaseTypeConstraint SocketIsServerPropertyInfo = SocketK - type AttrGetType SocketIsServerPropertyInfo = Bool - type AttrLabel SocketIsServerPropertyInfo = "Socket::is-server" - attrGet _ = getSocketIsServer - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "local-address" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m Address -getSocketLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address - -constructSocketLocalAddress :: (AddressK a) => a -> IO ([Char], GValue) -constructSocketLocalAddress val = constructObjectPropertyObject "local-address" val - -data SocketLocalAddressPropertyInfo -instance AttrInfo SocketLocalAddressPropertyInfo where - type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = AddressK - type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK - type AttrGetType SocketLocalAddressPropertyInfo = Address - type AttrLabel SocketLocalAddressPropertyInfo = "Socket::local-address" - attrGet _ = getSocketLocalAddress - attrSet _ = undefined - attrConstruct _ = constructSocketLocalAddress - --- VVV Prop "non-blocking" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -getSocketNonBlocking :: (MonadIO m, SocketK o) => o -> m Bool -getSocketNonBlocking obj = liftIO $ getObjectPropertyBool obj "non-blocking" - -setSocketNonBlocking :: (MonadIO m, SocketK o) => o -> Bool -> m () -setSocketNonBlocking obj val = liftIO $ setObjectPropertyBool obj "non-blocking" val - -constructSocketNonBlocking :: Bool -> IO ([Char], GValue) -constructSocketNonBlocking val = constructObjectPropertyBool "non-blocking" val - -data SocketNonBlockingPropertyInfo -instance AttrInfo SocketNonBlockingPropertyInfo where - type AttrAllowedOps SocketNonBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketNonBlockingPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketNonBlockingPropertyInfo = SocketK - type AttrGetType SocketNonBlockingPropertyInfo = Bool - type AttrLabel SocketNonBlockingPropertyInfo = "Socket::non-blocking" - attrGet _ = getSocketNonBlocking - attrSet _ = setSocketNonBlocking - attrConstruct _ = constructSocketNonBlocking - --- VVV Prop "remote-address" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m Address -getSocketRemoteAddress obj = liftIO $ getObjectPropertyObject obj "remote-address" Address - -constructSocketRemoteAddress :: (AddressK a) => a -> IO ([Char], GValue) -constructSocketRemoteAddress val = constructObjectPropertyObject "remote-address" val - -data SocketRemoteAddressPropertyInfo -instance AttrInfo SocketRemoteAddressPropertyInfo where - type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = AddressK - type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK - type AttrGetType SocketRemoteAddressPropertyInfo = Address - type AttrLabel SocketRemoteAddressPropertyInfo = "Socket::remote-address" - attrGet _ = getSocketRemoteAddress - attrSet _ = undefined - attrConstruct _ = constructSocketRemoteAddress - --- VVV Prop "ssl-creds" - -- Type: TBasicType TVoid - -- Flags: [PropertyReadable,PropertyWritable] - -getSocketSslCreds :: (MonadIO m, SocketK o) => o -> m (Ptr ()) -getSocketSslCreds obj = liftIO $ getObjectPropertyPtr obj "ssl-creds" - -setSocketSslCreds :: (MonadIO m, SocketK o) => o -> (Ptr ()) -> m () -setSocketSslCreds obj val = liftIO $ setObjectPropertyPtr obj "ssl-creds" val - -constructSocketSslCreds :: (Ptr ()) -> IO ([Char], GValue) -constructSocketSslCreds val = constructObjectPropertyPtr "ssl-creds" val - -data SocketSslCredsPropertyInfo -instance AttrInfo SocketSslCredsPropertyInfo where - type AttrAllowedOps SocketSslCredsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketSslCredsPropertyInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint SocketSslCredsPropertyInfo = SocketK - type AttrGetType SocketSslCredsPropertyInfo = (Ptr ()) - type AttrLabel SocketSslCredsPropertyInfo = "Socket::ssl-creds" - attrGet _ = getSocketSslCreds - attrSet _ = setSocketSslCreds - attrConstruct _ = constructSocketSslCreds - --- VVV Prop "ssl-fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSocketSslFallback :: (MonadIO m, SocketK o) => o -> m Bool -getSocketSslFallback obj = liftIO $ getObjectPropertyBool obj "ssl-fallback" - -constructSocketSslFallback :: Bool -> IO ([Char], GValue) -constructSocketSslFallback val = constructObjectPropertyBool "ssl-fallback" val - -data SocketSslFallbackPropertyInfo -instance AttrInfo SocketSslFallbackPropertyInfo where - type AttrAllowedOps SocketSslFallbackPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketSslFallbackPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketSslFallbackPropertyInfo = SocketK - type AttrGetType SocketSslFallbackPropertyInfo = Bool - type AttrLabel SocketSslFallbackPropertyInfo = "Socket::ssl-fallback" - attrGet _ = getSocketSslFallback - attrSet _ = undefined - attrConstruct _ = constructSocketSslFallback - --- VVV Prop "ssl-strict" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSocketSslStrict :: (MonadIO m, SocketK o) => o -> m Bool -getSocketSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict" - -constructSocketSslStrict :: Bool -> IO ([Char], GValue) -constructSocketSslStrict val = constructObjectPropertyBool "ssl-strict" val - -data SocketSslStrictPropertyInfo -instance AttrInfo SocketSslStrictPropertyInfo where - type AttrAllowedOps SocketSslStrictPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketSslStrictPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketSslStrictPropertyInfo = SocketK - type AttrGetType SocketSslStrictPropertyInfo = Bool - type AttrLabel SocketSslStrictPropertyInfo = "Socket::ssl-strict" - attrGet _ = getSocketSslStrict - attrSet _ = undefined - attrConstruct _ = constructSocketSslStrict - --- VVV Prop "timeout" - -- Type: TBasicType TUInt32 - -- Flags: [PropertyReadable,PropertyWritable] - -getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32 -getSocketTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout" - -setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m () -setSocketTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val - -constructSocketTimeout :: Word32 -> IO ([Char], GValue) -constructSocketTimeout val = constructObjectPropertyCUInt "timeout" val - -data SocketTimeoutPropertyInfo -instance AttrInfo SocketTimeoutPropertyInfo where - type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32 - type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK - type AttrGetType SocketTimeoutPropertyInfo = Word32 - type AttrLabel SocketTimeoutPropertyInfo = "Socket::timeout" - attrGet _ = getSocketTimeout - attrSet _ = setSocketTimeout - attrConstruct _ = constructSocketTimeout - --- VVV Prop "tls-certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable] - -getSocketTlsCertificate :: (MonadIO m, SocketK o) => o -> m Gio.TlsCertificate -getSocketTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate - -data SocketTlsCertificatePropertyInfo -instance AttrInfo SocketTlsCertificatePropertyInfo where - type AttrAllowedOps SocketTlsCertificatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SocketTlsCertificatePropertyInfo = (~) () - type AttrBaseTypeConstraint SocketTlsCertificatePropertyInfo = SocketK - type AttrGetType SocketTlsCertificatePropertyInfo = Gio.TlsCertificate - type AttrLabel SocketTlsCertificatePropertyInfo = "Socket::tls-certificate" - attrGet _ = getSocketTlsCertificate - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "tls-errors" - -- Type: TInterface "Gio" "TlsCertificateFlags" - -- Flags: [PropertyReadable] - -getSocketTlsErrors :: (MonadIO m, SocketK o) => o -> m [Gio.TlsCertificateFlags] -getSocketTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors" - -data SocketTlsErrorsPropertyInfo -instance AttrInfo SocketTlsErrorsPropertyInfo where - type AttrAllowedOps SocketTlsErrorsPropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SocketTlsErrorsPropertyInfo = (~) () - type AttrBaseTypeConstraint SocketTlsErrorsPropertyInfo = SocketK - type AttrGetType SocketTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags] - type AttrLabel SocketTlsErrorsPropertyInfo = "Socket::tls-errors" - attrGet _ = getSocketTlsErrors - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "trusted-certificate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -getSocketTrustedCertificate :: (MonadIO m, SocketK o) => o -> m Bool -getSocketTrustedCertificate obj = liftIO $ getObjectPropertyBool obj "trusted-certificate" - -data SocketTrustedCertificatePropertyInfo -instance AttrInfo SocketTrustedCertificatePropertyInfo where - type AttrAllowedOps SocketTrustedCertificatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint SocketTrustedCertificatePropertyInfo = (~) () - type AttrBaseTypeConstraint SocketTrustedCertificatePropertyInfo = SocketK - type AttrGetType SocketTrustedCertificatePropertyInfo = Bool - type AttrLabel SocketTrustedCertificatePropertyInfo = "Socket::trusted-certificate" - attrGet _ = getSocketTrustedCertificate - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "use-thread-context" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getSocketUseThreadContext :: (MonadIO m, SocketK o) => o -> m Bool -getSocketUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context" - -constructSocketUseThreadContext :: Bool -> IO ([Char], GValue) -constructSocketUseThreadContext val = constructObjectPropertyBool "use-thread-context" val - -data SocketUseThreadContextPropertyInfo -instance AttrInfo SocketUseThreadContextPropertyInfo where - type AttrAllowedOps SocketUseThreadContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint SocketUseThreadContextPropertyInfo = (~) Bool - type AttrBaseTypeConstraint SocketUseThreadContextPropertyInfo = SocketK - type AttrGetType SocketUseThreadContextPropertyInfo = Bool - type AttrLabel SocketUseThreadContextPropertyInfo = "Socket::use-thread-context" - attrGet _ = getSocketUseThreadContext - attrSet _ = undefined - attrConstruct _ = constructSocketUseThreadContext - -type instance AttributeList Socket = SocketAttributeList -type SocketAttributeList = ('[ '("async-context", SocketAsyncContextPropertyInfo), '("fd", SocketFdPropertyInfo), '("gsocket", SocketGsocketPropertyInfo), '("iostream", SocketIostreamPropertyInfo), '("ipv6-only", SocketIpv6OnlyPropertyInfo), '("is-server", SocketIsServerPropertyInfo), '("local-address", SocketLocalAddressPropertyInfo), '("non-blocking", SocketNonBlockingPropertyInfo), '("remote-address", SocketRemoteAddressPropertyInfo), '("ssl-creds", SocketSslCredsPropertyInfo), '("ssl-fallback", SocketSslFallbackPropertyInfo), '("ssl-strict", SocketSslStrictPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("tls-certificate", SocketTlsCertificatePropertyInfo), '("tls-errors", SocketTlsErrorsPropertyInfo), '("trusted-certificate", SocketTrustedCertificatePropertyInfo), '("use-thread-context", SocketUseThreadContextPropertyInfo)] :: [(Symbol, *)]) - -data SocketDisconnectedSignalInfo -instance SignalInfo SocketDisconnectedSignalInfo where - type HaskellCallbackType SocketDisconnectedSignalInfo = SocketDisconnectedCallback - connectSignal _ = connectSocketDisconnected - -data SocketEventSignalInfo -instance SignalInfo SocketEventSignalInfo where - type HaskellCallbackType SocketEventSignalInfo = SocketEventCallback - connectSignal _ = connectSocketEvent - -data SocketNewConnectionSignalInfo -instance SignalInfo SocketNewConnectionSignalInfo where - type HaskellCallbackType SocketNewConnectionSignalInfo = SocketNewConnectionCallback - connectSignal _ = connectSocketNewConnection - -data SocketReadableSignalInfo -instance SignalInfo SocketReadableSignalInfo where - type HaskellCallbackType SocketReadableSignalInfo = SocketReadableCallback - connectSignal _ = connectSocketReadable - -data SocketWritableSignalInfo -instance SignalInfo SocketWritableSignalInfo where - type HaskellCallbackType SocketWritableSignalInfo = SocketWritableCallback - connectSignal _ = connectSocketWritable - -type instance SignalList Socket = SocketSignalList -type SocketSignalList = ('[ '("disconnected", SocketDisconnectedSignalInfo), '("event", SocketEventSignalInfo), '("new-connection", SocketNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("readable", SocketReadableSignalInfo), '("writable", SocketWritableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Socket::connect_async --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, 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" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_connect_async" soup_socket_connect_async :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr SocketCallbackC -> -- callback : TInterface "Soup" "SocketCallback" - Ptr () -> -- user_data : TBasicType TVoid - IO () - - -socketConnectAsync :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - SocketCallback -> -- callback - m () -socketConnectAsync _obj cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - ptrcallback <- callocMem :: IO (Ptr (FunPtr SocketCallbackC)) - callback' <- mkSocketCallback (socketCallbackWrapper (Just ptrcallback) callback) - poke ptrcallback callback' - let user_data = nullPtr - soup_socket_connect_async _obj' maybeCancellable callback' user_data - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - --- method Socket::connect_sync --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_connect_sync" soup_socket_connect_sync :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO Word32 - - -socketConnectSync :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Word32 -socketConnectSync _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- soup_socket_connect_sync _obj' maybeCancellable - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result - --- method Socket::disconnect --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_disconnect" soup_socket_disconnect :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - IO () - - -socketDisconnect :: - (MonadIO m, SocketK a) => - a -> -- _obj - m () -socketDisconnect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_socket_disconnect _obj' - touchManagedPtr _obj - return () - --- method Socket::get_fd --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_get_fd" soup_socket_get_fd :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - IO Int32 - - -socketGetFd :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Int32 -socketGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_get_fd _obj' - touchManagedPtr _obj - return result - --- method Socket::get_local_address --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Address" --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_get_local_address" soup_socket_get_local_address :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - IO (Ptr Address) - - -socketGetLocalAddress :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Address -socketGetLocalAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_get_local_address _obj' - checkUnexpectedReturnNULL "soup_socket_get_local_address" result - result' <- (newObject Address) result - touchManagedPtr _obj - return result' - --- method Socket::get_remote_address --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Address" --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_get_remote_address" soup_socket_get_remote_address :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - IO (Ptr Address) - - -socketGetRemoteAddress :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Address -socketGetRemoteAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_get_remote_address _obj' - checkUnexpectedReturnNULL "soup_socket_get_remote_address" result - result' <- (newObject Address) result - touchManagedPtr _obj - return result' - --- method Socket::is_connected --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_is_connected" soup_socket_is_connected :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - IO CInt - - -socketIsConnected :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Bool -socketIsConnected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_is_connected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Socket::is_ssl --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_is_ssl" soup_socket_is_ssl :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - IO CInt - - -socketIsSsl :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Bool -socketIsSsl _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_is_ssl _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Socket::listen --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_listen" soup_socket_listen :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - IO CInt - - -socketListen :: - (MonadIO m, SocketK a) => - a -> -- _obj - m Bool -socketListen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_listen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Socket::read --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "SocketIOStatus" --- throws : True --- Skip return : False - -foreign import ccall "soup_socket_read" soup_socket_read :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- len : TBasicType TUInt64 - Ptr Word64 -> -- nread : TBasicType TUInt64 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -socketRead :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m (SocketIOStatus,Word64) -socketRead _obj buffer cancellable = liftIO $ do - let len = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - nread <- allocMem :: IO (Ptr Word64) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ soup_socket_read _obj' buffer' len nread maybeCancellable - let result' = (toEnum . fromIntegral) result - nread' <- peek nread - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - freeMem nread - return (result', nread') - ) (do - freeMem buffer' - freeMem nread - ) - --- method Socket::read_until --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "SocketIOStatus" --- throws : True --- Skip return : False - -foreign import ccall "soup_socket_read_until" soup_socket_read_until :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- len : TBasicType TUInt64 - Ptr () -> -- boundary : TBasicType TVoid - Word64 -> -- boundary_len : TBasicType TUInt64 - Ptr Word64 -> -- nread : TBasicType TUInt64 - CInt -> -- got_boundary : TBasicType TBoolean - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -socketReadUntil :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Ptr () -> -- boundary - Word64 -> -- boundary_len - Bool -> -- got_boundary - Maybe (b) -> -- cancellable - m (SocketIOStatus,Word64) -socketReadUntil _obj buffer boundary boundary_len got_boundary cancellable = liftIO $ do - let len = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - nread <- allocMem :: IO (Ptr Word64) - let got_boundary' = (fromIntegral . fromEnum) got_boundary - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ soup_socket_read_until _obj' buffer' len boundary boundary_len nread got_boundary' maybeCancellable - let result' = (toEnum . fromIntegral) result - nread' <- peek nread - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - freeMem nread - return (result', nread') - ) (do - freeMem buffer' - freeMem nread - ) - --- method Socket::start_proxy_ssl --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_start_proxy_ssl" soup_socket_start_proxy_ssl :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - CString -> -- ssl_host : TBasicType TUTF8 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO CInt - - -socketStartProxySsl :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -> -- _obj - T.Text -> -- ssl_host - Maybe (b) -> -- cancellable - m Bool -socketStartProxySsl _obj ssl_host cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - ssl_host' <- textToCString ssl_host - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- soup_socket_start_proxy_ssl _obj' ssl_host' maybeCancellable - let result' = (/= 0) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem ssl_host' - return result' - --- method Socket::start_ssl --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_socket_start_ssl" soup_socket_start_ssl :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - IO CInt - - -socketStartSsl :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -> -- _obj - Maybe (b) -> -- cancellable - m Bool -socketStartSsl _obj cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- soup_socket_start_ssl _obj' maybeCancellable - let result' = (/= 0) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return result' - --- method Socket::write --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "nwrote", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "SocketIOStatus" --- throws : True --- Skip return : False - -foreign import ccall "soup_socket_write" soup_socket_write :: - Ptr Socket -> -- _obj : TInterface "Soup" "Socket" - Ptr Word8 -> -- buffer : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- len : TBasicType TUInt64 - Ptr Word64 -> -- nwrote : TBasicType TUInt64 - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - Ptr (Ptr GError) -> -- error - IO CUInt - - -socketWrite :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -> -- _obj - ByteString -> -- buffer - Maybe (b) -> -- cancellable - m (SocketIOStatus,Word64) -socketWrite _obj buffer cancellable = liftIO $ do - let len = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - nwrote <- allocMem :: IO (Ptr Word64) - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - onException (do - result <- propagateGError $ soup_socket_write _obj' buffer' len nwrote maybeCancellable - let result' = (toEnum . fromIntegral) result - nwrote' <- peek nwrote - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem buffer' - freeMem nwrote - return (result', nwrote') - ) (do - freeMem buffer' - freeMem nwrote - ) - - diff --git a/GI/Soup/Objects/Socket.hs-boot b/GI/Soup/Objects/Socket.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/Socket.hs-boot +++ /dev/null @@ -1,35 +0,0 @@ -module GI.Soup.Objects.Socket 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 - -newtype Socket = Socket (ForeignPtr Socket) -instance GObject Socket where -class GObject o => SocketK o -instance (GObject o, IsDescendantOf Socket o) => SocketK o -data SocketAsyncContextPropertyInfo -data SocketFdPropertyInfo -data SocketGsocketPropertyInfo -data SocketIostreamPropertyInfo -data SocketIpv6OnlyPropertyInfo -data SocketIsServerPropertyInfo -data SocketLocalAddressPropertyInfo -data SocketNonBlockingPropertyInfo -data SocketRemoteAddressPropertyInfo -data SocketSslCredsPropertyInfo -data SocketSslFallbackPropertyInfo -data SocketSslStrictPropertyInfo -data SocketTimeoutPropertyInfo -data SocketTlsCertificatePropertyInfo -data SocketTlsErrorsPropertyInfo -data SocketTrustedCertificatePropertyInfo -data SocketUseThreadContextPropertyInfo -data SocketDisconnectedSignalInfo -data SocketEventSignalInfo -data SocketNewConnectionSignalInfo -data SocketReadableSignalInfo -data SocketWritableSignalInfo diff --git a/GI/Soup/Objects/WebsocketConnection.hs b/GI/Soup/Objects/WebsocketConnection.hs deleted file mode 100644 --- a/GI/Soup/Objects/WebsocketConnection.hs +++ /dev/null @@ -1,851 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Objects.WebsocketConnection - ( - --- * Exported types - WebsocketConnection(..) , - WebsocketConnectionK , - toWebsocketConnection , - noWebsocketConnection , - - - -- * Methods --- ** websocketConnectionClose - websocketConnectionClose , - - --- ** websocketConnectionGetCloseCode - websocketConnectionGetCloseCode , - - --- ** websocketConnectionGetCloseData - websocketConnectionGetCloseData , - - --- ** websocketConnectionGetConnectionType - websocketConnectionGetConnectionType , - - --- ** websocketConnectionGetIoStream - websocketConnectionGetIoStream , - - --- ** websocketConnectionGetOrigin - websocketConnectionGetOrigin , - - --- ** websocketConnectionGetProtocol - websocketConnectionGetProtocol , - - --- ** websocketConnectionGetState - websocketConnectionGetState , - - --- ** websocketConnectionGetUri - websocketConnectionGetUri , - - --- ** websocketConnectionNew - websocketConnectionNew , - - --- ** websocketConnectionSendBinary - websocketConnectionSendBinary , - - --- ** websocketConnectionSendText - websocketConnectionSendText , - - - - - -- * Properties --- ** ConnectionType - WebsocketConnectionConnectionTypePropertyInfo, - constructWebsocketConnectionConnectionType, - getWebsocketConnectionConnectionType , - - --- ** IoStream - WebsocketConnectionIoStreamPropertyInfo , - constructWebsocketConnectionIoStream , - getWebsocketConnectionIoStream , - - --- ** Origin - WebsocketConnectionOriginPropertyInfo , - constructWebsocketConnectionOrigin , - getWebsocketConnectionOrigin , - - --- ** Protocol - WebsocketConnectionProtocolPropertyInfo , - constructWebsocketConnectionProtocol , - getWebsocketConnectionProtocol , - - --- ** State - WebsocketConnectionStatePropertyInfo , - getWebsocketConnectionState , - - --- ** Uri - WebsocketConnectionUriPropertyInfo , - constructWebsocketConnectionUri , - getWebsocketConnectionUri , - - - - - -- * Signals --- ** Closed - WebsocketConnectionClosedCallback , - WebsocketConnectionClosedCallbackC , - WebsocketConnectionClosedSignalInfo , - afterWebsocketConnectionClosed , - mkWebsocketConnectionClosedCallback , - noWebsocketConnectionClosedCallback , - onWebsocketConnectionClosed , - websocketConnectionClosedCallbackWrapper, - websocketConnectionClosedClosure , - - --- ** Closing - WebsocketConnectionClosingCallback , - WebsocketConnectionClosingCallbackC , - WebsocketConnectionClosingSignalInfo , - afterWebsocketConnectionClosing , - mkWebsocketConnectionClosingCallback , - noWebsocketConnectionClosingCallback , - onWebsocketConnectionClosing , - websocketConnectionClosingCallbackWrapper, - websocketConnectionClosingClosure , - - --- ** Error - WebsocketConnectionErrorCallback , - WebsocketConnectionErrorCallbackC , - WebsocketConnectionErrorSignalInfo , - afterWebsocketConnectionError , - mkWebsocketConnectionErrorCallback , - noWebsocketConnectionErrorCallback , - onWebsocketConnectionError , - websocketConnectionErrorCallbackWrapper , - websocketConnectionErrorClosure , - - --- ** Message - WebsocketConnectionMessageCallback , - WebsocketConnectionMessageCallbackC , - WebsocketConnectionMessageSignalInfo , - afterWebsocketConnectionMessage , - mkWebsocketConnectionMessageCallback , - noWebsocketConnectionMessageCallback , - onWebsocketConnectionMessage , - websocketConnectionMessageCallbackWrapper, - websocketConnectionMessageClosure , - - - - - ) 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 -import qualified GI.GLib as GLib -import qualified GI.GObject as GObject -import qualified GI.Gio as Gio - -newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection) -foreign import ccall "soup_websocket_connection_get_type" - c_soup_websocket_connection_get_type :: IO GType - -type instance ParentTypes WebsocketConnection = WebsocketConnectionParentTypes -type WebsocketConnectionParentTypes = '[GObject.Object] - -instance GObject WebsocketConnection where - gobjectIsInitiallyUnowned _ = False - gobjectType _ = c_soup_websocket_connection_get_type - - -class GObject o => WebsocketConnectionK o -instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o - -toWebsocketConnection :: WebsocketConnectionK o => o -> IO WebsocketConnection -toWebsocketConnection = unsafeCastTo WebsocketConnection - -noWebsocketConnection :: Maybe WebsocketConnection -noWebsocketConnection = Nothing - --- signal WebsocketConnection::closed -type WebsocketConnectionClosedCallback = - IO () - -noWebsocketConnectionClosedCallback :: Maybe WebsocketConnectionClosedCallback -noWebsocketConnectionClosedCallback = Nothing - -type WebsocketConnectionClosedCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebsocketConnectionClosedCallback :: WebsocketConnectionClosedCallbackC -> IO (FunPtr WebsocketConnectionClosedCallbackC) - -websocketConnectionClosedClosure :: WebsocketConnectionClosedCallback -> IO Closure -websocketConnectionClosedClosure cb = newCClosure =<< mkWebsocketConnectionClosedCallback wrapped - where wrapped = websocketConnectionClosedCallbackWrapper cb - -websocketConnectionClosedCallbackWrapper :: - WebsocketConnectionClosedCallback -> - Ptr () -> - Ptr () -> - IO () -websocketConnectionClosedCallbackWrapper _cb _ _ = do - _cb - -onWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId -onWebsocketConnectionClosed obj cb = liftIO $ connectWebsocketConnectionClosed obj cb SignalConnectBefore -afterWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId -afterWebsocketConnectionClosed obj cb = connectWebsocketConnectionClosed obj cb SignalConnectAfter - -connectWebsocketConnectionClosed :: (GObject a, MonadIO m) => - a -> WebsocketConnectionClosedCallback -> SignalConnectMode -> m SignalHandlerId -connectWebsocketConnectionClosed obj cb after = liftIO $ do - cb' <- mkWebsocketConnectionClosedCallback (websocketConnectionClosedCallbackWrapper cb) - connectSignalFunPtr obj "closed" cb' after - --- signal WebsocketConnection::closing -type WebsocketConnectionClosingCallback = - IO () - -noWebsocketConnectionClosingCallback :: Maybe WebsocketConnectionClosingCallback -noWebsocketConnectionClosingCallback = Nothing - -type WebsocketConnectionClosingCallbackC = - Ptr () -> -- object - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebsocketConnectionClosingCallback :: WebsocketConnectionClosingCallbackC -> IO (FunPtr WebsocketConnectionClosingCallbackC) - -websocketConnectionClosingClosure :: WebsocketConnectionClosingCallback -> IO Closure -websocketConnectionClosingClosure cb = newCClosure =<< mkWebsocketConnectionClosingCallback wrapped - where wrapped = websocketConnectionClosingCallbackWrapper cb - -websocketConnectionClosingCallbackWrapper :: - WebsocketConnectionClosingCallback -> - Ptr () -> - Ptr () -> - IO () -websocketConnectionClosingCallbackWrapper _cb _ _ = do - _cb - -onWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId -onWebsocketConnectionClosing obj cb = liftIO $ connectWebsocketConnectionClosing obj cb SignalConnectBefore -afterWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId -afterWebsocketConnectionClosing obj cb = connectWebsocketConnectionClosing obj cb SignalConnectAfter - -connectWebsocketConnectionClosing :: (GObject a, MonadIO m) => - a -> WebsocketConnectionClosingCallback -> SignalConnectMode -> m SignalHandlerId -connectWebsocketConnectionClosing obj cb after = liftIO $ do - cb' <- mkWebsocketConnectionClosingCallback (websocketConnectionClosingCallbackWrapper cb) - connectSignalFunPtr obj "closing" cb' after - --- signal WebsocketConnection::error -type WebsocketConnectionErrorCallback = - GError -> - IO () - -noWebsocketConnectionErrorCallback :: Maybe WebsocketConnectionErrorCallback -noWebsocketConnectionErrorCallback = Nothing - -type WebsocketConnectionErrorCallbackC = - Ptr () -> -- object - Ptr GError -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebsocketConnectionErrorCallback :: WebsocketConnectionErrorCallbackC -> IO (FunPtr WebsocketConnectionErrorCallbackC) - -websocketConnectionErrorClosure :: WebsocketConnectionErrorCallback -> IO Closure -websocketConnectionErrorClosure cb = newCClosure =<< mkWebsocketConnectionErrorCallback wrapped - where wrapped = websocketConnectionErrorCallbackWrapper cb - -websocketConnectionErrorCallbackWrapper :: - WebsocketConnectionErrorCallback -> - Ptr () -> - Ptr GError -> - Ptr () -> - IO () -websocketConnectionErrorCallbackWrapper _cb _ error_ _ = do - error_' <- (newBoxed GError) error_ - _cb error_' - -onWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId -onWebsocketConnectionError obj cb = liftIO $ connectWebsocketConnectionError obj cb SignalConnectBefore -afterWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId -afterWebsocketConnectionError obj cb = connectWebsocketConnectionError obj cb SignalConnectAfter - -connectWebsocketConnectionError :: (GObject a, MonadIO m) => - a -> WebsocketConnectionErrorCallback -> SignalConnectMode -> m SignalHandlerId -connectWebsocketConnectionError obj cb after = liftIO $ do - cb' <- mkWebsocketConnectionErrorCallback (websocketConnectionErrorCallbackWrapper cb) - connectSignalFunPtr obj "error" cb' after - --- signal WebsocketConnection::message -type WebsocketConnectionMessageCallback = - Int32 -> - GLib.Bytes -> - IO () - -noWebsocketConnectionMessageCallback :: Maybe WebsocketConnectionMessageCallback -noWebsocketConnectionMessageCallback = Nothing - -type WebsocketConnectionMessageCallbackC = - Ptr () -> -- object - Int32 -> - Ptr GLib.Bytes -> - Ptr () -> -- user_data - IO () - -foreign import ccall "wrapper" - mkWebsocketConnectionMessageCallback :: WebsocketConnectionMessageCallbackC -> IO (FunPtr WebsocketConnectionMessageCallbackC) - -websocketConnectionMessageClosure :: WebsocketConnectionMessageCallback -> IO Closure -websocketConnectionMessageClosure cb = newCClosure =<< mkWebsocketConnectionMessageCallback wrapped - where wrapped = websocketConnectionMessageCallbackWrapper cb - -websocketConnectionMessageCallbackWrapper :: - WebsocketConnectionMessageCallback -> - Ptr () -> - Int32 -> - Ptr GLib.Bytes -> - Ptr () -> - IO () -websocketConnectionMessageCallbackWrapper _cb _ type_ message _ = do - message' <- (newBoxed GLib.Bytes) message - _cb type_ message' - -onWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId -onWebsocketConnectionMessage obj cb = liftIO $ connectWebsocketConnectionMessage obj cb SignalConnectBefore -afterWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId -afterWebsocketConnectionMessage obj cb = connectWebsocketConnectionMessage obj cb SignalConnectAfter - -connectWebsocketConnectionMessage :: (GObject a, MonadIO m) => - a -> WebsocketConnectionMessageCallback -> SignalConnectMode -> m SignalHandlerId -connectWebsocketConnectionMessage obj cb after = liftIO $ do - cb' <- mkWebsocketConnectionMessageCallback (websocketConnectionMessageCallbackWrapper cb) - connectSignalFunPtr obj "message" cb' after - --- VVV Prop "connection-type" - -- Type: TInterface "Soup" "WebsocketConnectionType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebsocketConnectionConnectionType :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketConnectionType -getWebsocketConnectionConnectionType obj = liftIO $ getObjectPropertyEnum obj "connection-type" - -constructWebsocketConnectionConnectionType :: WebsocketConnectionType -> IO ([Char], GValue) -constructWebsocketConnectionConnectionType val = constructObjectPropertyEnum "connection-type" val - -data WebsocketConnectionConnectionTypePropertyInfo -instance AttrInfo WebsocketConnectionConnectionTypePropertyInfo where - type AttrAllowedOps WebsocketConnectionConnectionTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = (~) WebsocketConnectionType - type AttrBaseTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionType - type AttrLabel WebsocketConnectionConnectionTypePropertyInfo = "WebsocketConnection::connection-type" - attrGet _ = getWebsocketConnectionConnectionType - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionConnectionType - --- VVV Prop "io-stream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebsocketConnectionIoStream :: (MonadIO m, WebsocketConnectionK o) => o -> m Gio.IOStream -getWebsocketConnectionIoStream obj = liftIO $ getObjectPropertyObject obj "io-stream" Gio.IOStream - -constructWebsocketConnectionIoStream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue) -constructWebsocketConnectionIoStream val = constructObjectPropertyObject "io-stream" val - -data WebsocketConnectionIoStreamPropertyInfo -instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where - type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStreamK - type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream - type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "WebsocketConnection::io-stream" - attrGet _ = getWebsocketConnectionIoStream - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionIoStream - --- VVV Prop "origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebsocketConnectionOrigin :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text -getWebsocketConnectionOrigin obj = liftIO $ getObjectPropertyString obj "origin" - -constructWebsocketConnectionOrigin :: T.Text -> IO ([Char], GValue) -constructWebsocketConnectionOrigin val = constructObjectPropertyString "origin" val - -data WebsocketConnectionOriginPropertyInfo -instance AttrInfo WebsocketConnectionOriginPropertyInfo where - type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionOriginPropertyInfo = T.Text - type AttrLabel WebsocketConnectionOriginPropertyInfo = "WebsocketConnection::origin" - attrGet _ = getWebsocketConnectionOrigin - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionOrigin - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebsocketConnectionProtocol :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text -getWebsocketConnectionProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -constructWebsocketConnectionProtocol :: T.Text -> IO ([Char], GValue) -constructWebsocketConnectionProtocol val = constructObjectPropertyString "protocol" val - -data WebsocketConnectionProtocolPropertyInfo -instance AttrInfo WebsocketConnectionProtocolPropertyInfo where - type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionProtocolPropertyInfo = T.Text - type AttrLabel WebsocketConnectionProtocolPropertyInfo = "WebsocketConnection::protocol" - attrGet _ = getWebsocketConnectionProtocol - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionProtocol - --- VVV Prop "state" - -- Type: TInterface "Soup" "WebsocketState" - -- Flags: [PropertyReadable] - -getWebsocketConnectionState :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketState -getWebsocketConnectionState obj = liftIO $ getObjectPropertyEnum obj "state" - -data WebsocketConnectionStatePropertyInfo -instance AttrInfo WebsocketConnectionStatePropertyInfo where - type AttrAllowedOps WebsocketConnectionStatePropertyInfo = '[ 'AttrGet] - type AttrSetTypeConstraint WebsocketConnectionStatePropertyInfo = (~) () - type AttrBaseTypeConstraint WebsocketConnectionStatePropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionStatePropertyInfo = WebsocketState - type AttrLabel WebsocketConnectionStatePropertyInfo = "WebsocketConnection::state" - attrGet _ = getWebsocketConnectionState - attrSet _ = undefined - attrConstruct _ = undefined - --- VVV Prop "uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -getWebsocketConnectionUri :: (MonadIO m, WebsocketConnectionK o) => o -> m URI -getWebsocketConnectionUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI - -constructWebsocketConnectionUri :: URI -> IO ([Char], GValue) -constructWebsocketConnectionUri val = constructObjectPropertyBoxed "uri" val - -data WebsocketConnectionUriPropertyInfo -instance AttrInfo WebsocketConnectionUriPropertyInfo where - type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] - type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) URI - type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionUriPropertyInfo = URI - type AttrLabel WebsocketConnectionUriPropertyInfo = "WebsocketConnection::uri" - attrGet _ = getWebsocketConnectionUri - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionUri - -type instance AttributeList WebsocketConnection = WebsocketConnectionAttributeList -type WebsocketConnectionAttributeList = ('[ '("connection-type", WebsocketConnectionConnectionTypePropertyInfo), '("io-stream", WebsocketConnectionIoStreamPropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)] :: [(Symbol, *)]) - -data WebsocketConnectionClosedSignalInfo -instance SignalInfo WebsocketConnectionClosedSignalInfo where - type HaskellCallbackType WebsocketConnectionClosedSignalInfo = WebsocketConnectionClosedCallback - connectSignal _ = connectWebsocketConnectionClosed - -data WebsocketConnectionClosingSignalInfo -instance SignalInfo WebsocketConnectionClosingSignalInfo where - type HaskellCallbackType WebsocketConnectionClosingSignalInfo = WebsocketConnectionClosingCallback - connectSignal _ = connectWebsocketConnectionClosing - -data WebsocketConnectionErrorSignalInfo -instance SignalInfo WebsocketConnectionErrorSignalInfo where - type HaskellCallbackType WebsocketConnectionErrorSignalInfo = WebsocketConnectionErrorCallback - connectSignal _ = connectWebsocketConnectionError - -data WebsocketConnectionMessageSignalInfo -instance SignalInfo WebsocketConnectionMessageSignalInfo where - type HaskellCallbackType WebsocketConnectionMessageSignalInfo = WebsocketConnectionMessageCallback - connectSignal _ = connectWebsocketConnectionMessage - -type instance SignalList WebsocketConnection = WebsocketConnectionSignalList -type WebsocketConnectionSignalList = ('[ '("closed", WebsocketConnectionClosedSignalInfo), '("closing", WebsocketConnectionClosingSignalInfo), '("error", WebsocketConnectionErrorSignalInfo), '("message", WebsocketConnectionMessageSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method WebsocketConnection::new --- method type : Constructor --- Args : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "WebsocketConnection" --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_new" soup_websocket_connection_new :: - Ptr Gio.IOStream -> -- stream : TInterface "Gio" "IOStream" - Ptr URI -> -- uri : TInterface "Soup" "URI" - CUInt -> -- type : TInterface "Soup" "WebsocketConnectionType" - CString -> -- origin : TBasicType TUTF8 - CString -> -- protocol : TBasicType TUTF8 - IO (Ptr WebsocketConnection) - - -websocketConnectionNew :: - (MonadIO m, Gio.IOStreamK a) => - a -> -- stream - URI -> -- uri - WebsocketConnectionType -> -- type - Maybe (T.Text) -> -- origin - Maybe (T.Text) -> -- protocol - m WebsocketConnection -websocketConnectionNew stream uri type_ origin protocol = liftIO $ do - let stream' = unsafeManagedPtrCastPtr stream - let uri' = unsafeManagedPtrGetPtr uri - let type_' = (fromIntegral . fromEnum) type_ - maybeOrigin <- case origin of - Nothing -> return nullPtr - Just jOrigin -> do - jOrigin' <- textToCString jOrigin - return jOrigin' - maybeProtocol <- case protocol of - Nothing -> return nullPtr - Just jProtocol -> do - jProtocol' <- textToCString jProtocol - return jProtocol' - result <- soup_websocket_connection_new stream' uri' type_' maybeOrigin maybeProtocol - checkUnexpectedReturnNULL "soup_websocket_connection_new" result - result' <- (wrapObject WebsocketConnection) result - touchManagedPtr stream - touchManagedPtr uri - freeMem maybeOrigin - freeMem maybeProtocol - return result' - --- method WebsocketConnection::close --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = 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_websocket_connection_close" soup_websocket_connection_close :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - Word16 -> -- code : TBasicType TUInt16 - CString -> -- data : TBasicType TUTF8 - IO () - - -websocketConnectionClose :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - Word16 -> -- code - Maybe (T.Text) -> -- data - m () -websocketConnectionClose _obj code data_ = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeData_ <- case data_ of - Nothing -> return nullPtr - Just jData_ -> do - jData_' <- textToCString jData_ - return jData_' - soup_websocket_connection_close _obj' code maybeData_ - touchManagedPtr _obj - freeMem maybeData_ - return () - --- method WebsocketConnection::get_close_code --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt16 --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_close_code" soup_websocket_connection_get_close_code :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO Word16 - - -websocketConnectionGetCloseCode :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m Word16 -websocketConnectionGetCloseCode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_close_code _obj' - touchManagedPtr _obj - return result - --- method WebsocketConnection::get_close_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_close_data" soup_websocket_connection_get_close_data :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO CString - - -websocketConnectionGetCloseData :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m T.Text -websocketConnectionGetCloseData _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_close_data _obj' - checkUnexpectedReturnNULL "soup_websocket_connection_get_close_data" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method WebsocketConnection::get_connection_type --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "WebsocketConnectionType" --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_connection_type" soup_websocket_connection_get_connection_type :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO CUInt - - -websocketConnectionGetConnectionType :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m WebsocketConnectionType -websocketConnectionGetConnectionType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_connection_type _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method WebsocketConnection::get_io_stream --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "IOStream" --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_io_stream" soup_websocket_connection_get_io_stream :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO (Ptr Gio.IOStream) - - -websocketConnectionGetIoStream :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m Gio.IOStream -websocketConnectionGetIoStream _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_io_stream _obj' - checkUnexpectedReturnNULL "soup_websocket_connection_get_io_stream" result - result' <- (newObject Gio.IOStream) result - touchManagedPtr _obj - return result' - --- method WebsocketConnection::get_origin --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_origin" soup_websocket_connection_get_origin :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO CString - - -websocketConnectionGetOrigin :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m T.Text -websocketConnectionGetOrigin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_origin _obj' - checkUnexpectedReturnNULL "soup_websocket_connection_get_origin" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method WebsocketConnection::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_protocol" soup_websocket_connection_get_protocol :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO CString - - -websocketConnectionGetProtocol :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m T.Text -websocketConnectionGetProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_protocol _obj' - checkUnexpectedReturnNULL "soup_websocket_connection_get_protocol" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method WebsocketConnection::get_state --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "WebsocketState" --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_state" soup_websocket_connection_get_state :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO CUInt - - -websocketConnectionGetState :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m WebsocketState -websocketConnectionGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - --- method WebsocketConnection::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_get_uri" soup_websocket_connection_get_uri :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - IO (Ptr URI) - - -websocketConnectionGetUri :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - m URI -websocketConnectionGetUri _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_uri _obj' - checkUnexpectedReturnNULL "soup_websocket_connection_get_uri" result - result' <- (newBoxed URI) result - touchManagedPtr _obj - return result' - --- method WebsocketConnection::send_binary --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_websocket_connection_send_binary" soup_websocket_connection_send_binary :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -websocketConnectionSendBinary :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - ByteString -> -- data - m () -websocketConnectionSendBinary _obj data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrCastPtr _obj - data_' <- packByteString data_ - soup_websocket_connection_send_binary _obj' data_' length_ - touchManagedPtr _obj - freeMem data_' - return () - --- method WebsocketConnection::send_text --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", 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_websocket_connection_send_text" soup_websocket_connection_send_text :: - Ptr WebsocketConnection -> -- _obj : TInterface "Soup" "WebsocketConnection" - CString -> -- text : TBasicType TUTF8 - IO () - - -websocketConnectionSendText :: - (MonadIO m, WebsocketConnectionK a) => - a -> -- _obj - T.Text -> -- text - m () -websocketConnectionSendText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - soup_websocket_connection_send_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - - diff --git a/GI/Soup/Objects/WebsocketConnection.hs-boot b/GI/Soup/Objects/WebsocketConnection.hs-boot deleted file mode 100644 --- a/GI/Soup/Objects/WebsocketConnection.hs-boot +++ /dev/null @@ -1,23 +0,0 @@ -module GI.Soup.Objects.WebsocketConnection 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 - -newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection) -instance GObject WebsocketConnection where -class GObject o => WebsocketConnectionK o -instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o -data WebsocketConnectionConnectionTypePropertyInfo -data WebsocketConnectionIoStreamPropertyInfo -data WebsocketConnectionOriginPropertyInfo -data WebsocketConnectionProtocolPropertyInfo -data WebsocketConnectionStatePropertyInfo -data WebsocketConnectionUriPropertyInfo -data WebsocketConnectionClosedSignalInfo -data WebsocketConnectionClosingSignalInfo -data WebsocketConnectionErrorSignalInfo -data WebsocketConnectionMessageSignalInfo diff --git a/GI/Soup/Structs.hs b/GI/Soup/Structs.hs deleted file mode 100644 --- a/GI/Soup/Structs.hs +++ /dev/null @@ -1,50 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Structs - ( module GI.Soup.Structs.Buffer , - module GI.Soup.Structs.ClientContext , - module GI.Soup.Structs.Connection , - module GI.Soup.Structs.Cookie , - module GI.Soup.Structs.Date , - module GI.Soup.Structs.MessageBody , - module GI.Soup.Structs.MessageHeaders , - module GI.Soup.Structs.MessageHeadersIter, - module GI.Soup.Structs.MessageQueue , - module GI.Soup.Structs.MessageQueueItem , - module GI.Soup.Structs.Multipart , - module GI.Soup.Structs.Range , - module GI.Soup.Structs.URI , - - - ) where - -import GI.Soup.Structs.Buffer -import GI.Soup.Structs.ClientContext -import GI.Soup.Structs.Connection -import GI.Soup.Structs.Cookie -import GI.Soup.Structs.Date -import GI.Soup.Structs.MessageBody -import GI.Soup.Structs.MessageHeaders -import GI.Soup.Structs.MessageHeadersIter -import GI.Soup.Structs.MessageQueue -import GI.Soup.Structs.MessageQueueItem -import GI.Soup.Structs.Multipart -import GI.Soup.Structs.Range -import GI.Soup.Structs.URI - -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 - - diff --git a/GI/Soup/Structs/Buffer.hs b/GI/Soup/Structs/Buffer.hs deleted file mode 100644 --- a/GI/Soup/Structs/Buffer.hs +++ /dev/null @@ -1,330 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A data buffer, generally used to represent a chunk of a -#SoupMessageBody. - -@data is a #char because that's generally convenient; in some -situations you may need to cast it to #guchar or another type. --} - -module GI.Soup.Structs.Buffer - ( - --- * Exported types - Buffer(..) , - noBuffer , - - - -- * Methods --- ** bufferCopy - bufferCopy , - - --- ** bufferFree - bufferFree , - - --- ** bufferGetAsBytes - bufferGetAsBytes , - - --- ** bufferGetData - bufferGetData , - - --- ** bufferGetOwner - bufferGetOwner , - - --- ** bufferNew - bufferNew , - - --- ** bufferNewSubbuffer - bufferNewSubbuffer , - - --- ** bufferNewWithOwner - bufferNewWithOwner , - - - - - -- * Properties --- ** Data - bufferReadData , - - --- ** Length - bufferReadLength , - - - - - ) 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 -import qualified GI.GLib as GLib - -newtype Buffer = Buffer (ForeignPtr Buffer) -foreign import ccall "soup_buffer_get_type" c_soup_buffer_get_type :: - IO GType - -instance BoxedObject Buffer where - boxedType _ = c_soup_buffer_get_type - -noBuffer :: Maybe Buffer -noBuffer = Nothing - -bufferReadData :: Buffer -> IO (Ptr ()) -bufferReadData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -bufferReadLength :: Buffer -> IO Word64 -bufferReadLength s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word64 - return val - --- method Buffer::new --- method type : Constructor --- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TInterface "Soup" "Buffer" --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_new_take" soup_buffer_new_take :: - Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - IO (Ptr Buffer) - - -bufferNew :: - (MonadIO m) => - ByteString -> -- data - m Buffer -bufferNew data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - data_' <- packByteString data_ - result <- soup_buffer_new_take data_' length_ - checkUnexpectedReturnNULL "soup_buffer_new_take" result - result' <- (wrapBoxed Buffer) result - return result' - --- method Buffer::new_with_owner --- method type : Constructor --- Args : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Buffer" --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_new_with_owner" soup_buffer_new_with_owner :: - Ptr Word8 -> -- data : TCArray False (-1) 1 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - Ptr () -> -- owner : TBasicType TVoid - FunPtr GLib.DestroyNotifyC -> -- owner_dnotify : TInterface "GLib" "DestroyNotify" - IO (Ptr Buffer) - - -bufferNewWithOwner :: - (MonadIO m) => - ByteString -> -- data - Ptr () -> -- owner - Maybe (GLib.DestroyNotify) -> -- owner_dnotify - m Buffer -bufferNewWithOwner data_ owner owner_dnotify = liftIO $ do - let length_ = fromIntegral $ B.length data_ - data_' <- packByteString data_ - ptrowner_dnotify <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeOwner_dnotify <- case owner_dnotify of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jOwner_dnotify -> do - jOwner_dnotify' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrowner_dnotify) jOwner_dnotify) - poke ptrowner_dnotify jOwner_dnotify' - return jOwner_dnotify' - result <- soup_buffer_new_with_owner data_' length_ owner maybeOwner_dnotify - checkUnexpectedReturnNULL "soup_buffer_new_with_owner" result - result' <- (wrapBoxed Buffer) result - freeMem data_' - return result' - --- method Buffer::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Buffer" --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_copy" soup_buffer_copy :: - Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" - IO (Ptr Buffer) - - -bufferCopy :: - (MonadIO m) => - Buffer -> -- _obj - m Buffer -bufferCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_buffer_copy _obj' - checkUnexpectedReturnNULL "soup_buffer_copy" result - result' <- (wrapBoxed Buffer) result - touchManagedPtr _obj - return result' - --- method Buffer::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_free" soup_buffer_free :: - Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" - IO () - - -bufferFree :: - (MonadIO m) => - Buffer -> -- _obj - m () -bufferFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_buffer_free _obj' - touchManagedPtr _obj - return () - --- method Buffer::get_as_bytes --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "GLib" "Bytes" --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_get_as_bytes" soup_buffer_get_as_bytes :: - Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" - IO (Ptr GLib.Bytes) - - -bufferGetAsBytes :: - (MonadIO m) => - Buffer -> -- _obj - m GLib.Bytes -bufferGetAsBytes _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_buffer_get_as_bytes _obj' - checkUnexpectedReturnNULL "soup_buffer_get_as_bytes" result - result' <- (wrapBoxed GLib.Bytes) result - touchManagedPtr _obj - return result' - --- method Buffer::get_data --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_get_data" soup_buffer_get_data :: - Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" - Ptr (Ptr Word8) -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Ptr Word64 -> -- length : TBasicType TUInt64 - IO () - - -bufferGetData :: - (MonadIO m) => - Buffer -> -- _obj - m (ByteString) -bufferGetData _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - data_ <- allocMem :: IO (Ptr (Ptr Word8)) - length_ <- allocMem :: IO (Ptr Word64) - soup_buffer_get_data _obj' data_ length_ - length_' <- peek length_ - data_' <- peek data_ - data_'' <- (unpackByteStringWithLength length_') data_' - touchManagedPtr _obj - freeMem data_ - freeMem length_ - return data_'' - --- method Buffer::get_owner --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_get_owner" soup_buffer_get_owner :: - Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" - IO () - - -bufferGetOwner :: - (MonadIO m) => - Buffer -> -- _obj - m () -bufferGetOwner _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_buffer_get_owner _obj' - touchManagedPtr _obj - return () - --- method Buffer::new_subbuffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Buffer" --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_new_subbuffer" soup_buffer_new_subbuffer :: - Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" - Word64 -> -- offset : TBasicType TUInt64 - Word64 -> -- length : TBasicType TUInt64 - IO (Ptr Buffer) - - -bufferNewSubbuffer :: - (MonadIO m) => - Buffer -> -- _obj - Word64 -> -- offset - Word64 -> -- length - m Buffer -bufferNewSubbuffer _obj offset length_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_buffer_new_subbuffer _obj' offset length_ - checkUnexpectedReturnNULL "soup_buffer_new_subbuffer" result - result' <- (wrapBoxed Buffer) result - touchManagedPtr _obj - return result' - - diff --git a/GI/Soup/Structs/Buffer.hs-boot b/GI/Soup/Structs/Buffer.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/Buffer.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.Buffer 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 - -newtype Buffer = Buffer (ForeignPtr Buffer) -instance BoxedObject Buffer where diff --git a/GI/Soup/Structs/ClientContext.hs b/GI/Soup/Structs/ClientContext.hs deleted file mode 100644 --- a/GI/Soup/Structs/ClientContext.hs +++ /dev/null @@ -1,324 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #SoupClientContext provides additional information about the -client making a particular request. In particular, you can use -soup_client_context_get_auth_domain() and -soup_client_context_get_auth_user() to determine if HTTP -authentication was used successfully. - -soup_client_context_get_remote_address() and/or -soup_client_context_get_host() can be used to get information for -logging or debugging purposes. soup_client_context_get_gsocket() may -also be of use in some situations (eg, tracking when multiple -requests are made on the same connection). --} - -module GI.Soup.Structs.ClientContext - ( - --- * Exported types - ClientContext(..) , - noClientContext , - - - -- * Methods --- ** clientContextGetAddress - clientContextGetAddress , - - --- ** clientContextGetAuthDomain - clientContextGetAuthDomain , - - --- ** clientContextGetAuthUser - clientContextGetAuthUser , - - --- ** clientContextGetGsocket - clientContextGetGsocket , - - --- ** clientContextGetHost - clientContextGetHost , - - --- ** clientContextGetLocalAddress - clientContextGetLocalAddress , - - --- ** clientContextGetRemoteAddress - clientContextGetRemoteAddress , - - --- ** clientContextGetSocket - clientContextGetSocket , - - --- ** clientContextStealConnection - clientContextStealConnection , - - - - - ) 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 -import qualified GI.Gio as Gio - -newtype ClientContext = ClientContext (ForeignPtr ClientContext) -foreign import ccall "soup_client_context_get_type" c_soup_client_context_get_type :: - IO GType - -instance BoxedObject ClientContext where - boxedType _ = c_soup_client_context_get_type - -noClientContext :: Maybe ClientContext -noClientContext = Nothing - --- method ClientContext::get_address --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Address" --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_address" soup_client_context_get_address :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO (Ptr Address) - -{-# DEPRECATED clientContextGetAddress ["Use soup_client_context_get_remote_address(), which returns","a #GSocketAddress."]#-} -clientContextGetAddress :: - (MonadIO m) => - ClientContext -> -- _obj - m Address -clientContextGetAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_address _obj' - checkUnexpectedReturnNULL "soup_client_context_get_address" result - result' <- (newObject Address) result - touchManagedPtr _obj - return result' - --- method ClientContext::get_auth_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "AuthDomain" --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_auth_domain" soup_client_context_get_auth_domain :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO (Ptr AuthDomain) - - -clientContextGetAuthDomain :: - (MonadIO m) => - ClientContext -> -- _obj - m AuthDomain -clientContextGetAuthDomain _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_auth_domain _obj' - checkUnexpectedReturnNULL "soup_client_context_get_auth_domain" result - result' <- (newObject AuthDomain) result - touchManagedPtr _obj - return result' - --- method ClientContext::get_auth_user --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_auth_user" soup_client_context_get_auth_user :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO CString - - -clientContextGetAuthUser :: - (MonadIO m) => - ClientContext -> -- _obj - m T.Text -clientContextGetAuthUser _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_auth_user _obj' - checkUnexpectedReturnNULL "soup_client_context_get_auth_user" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method ClientContext::get_gsocket --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "Socket" --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_gsocket" soup_client_context_get_gsocket :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO (Ptr Gio.Socket) - - -clientContextGetGsocket :: - (MonadIO m) => - ClientContext -> -- _obj - m Gio.Socket -clientContextGetGsocket _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_gsocket _obj' - checkUnexpectedReturnNULL "soup_client_context_get_gsocket" result - result' <- (newObject Gio.Socket) result - touchManagedPtr _obj - return result' - --- method ClientContext::get_host --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_host" soup_client_context_get_host :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO CString - - -clientContextGetHost :: - (MonadIO m) => - ClientContext -> -- _obj - m T.Text -clientContextGetHost _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_host _obj' - checkUnexpectedReturnNULL "soup_client_context_get_host" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method ClientContext::get_local_address --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "SocketAddress" --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_local_address" soup_client_context_get_local_address :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO (Ptr Gio.SocketAddress) - - -clientContextGetLocalAddress :: - (MonadIO m) => - ClientContext -> -- _obj - m Gio.SocketAddress -clientContextGetLocalAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_local_address _obj' - checkUnexpectedReturnNULL "soup_client_context_get_local_address" result - result' <- (newObject Gio.SocketAddress) result - touchManagedPtr _obj - return result' - --- method ClientContext::get_remote_address --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "SocketAddress" --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_remote_address" soup_client_context_get_remote_address :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO (Ptr Gio.SocketAddress) - - -clientContextGetRemoteAddress :: - (MonadIO m) => - ClientContext -> -- _obj - m Gio.SocketAddress -clientContextGetRemoteAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_remote_address _obj' - checkUnexpectedReturnNULL "soup_client_context_get_remote_address" result - result' <- (newObject Gio.SocketAddress) result - touchManagedPtr _obj - return result' - --- method ClientContext::get_socket --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Socket" --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_get_socket" soup_client_context_get_socket :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO (Ptr Socket) - -{-# DEPRECATED clientContextGetSocket ["use soup_client_context_get_gsocket(), which returns","a #GSocket."]#-} -clientContextGetSocket :: - (MonadIO m) => - ClientContext -> -- _obj - m Socket -clientContextGetSocket _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_socket _obj' - checkUnexpectedReturnNULL "soup_client_context_get_socket" result - result' <- (newObject Socket) result - touchManagedPtr _obj - return result' - --- method ClientContext::steal_connection --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Gio" "IOStream" --- throws : False --- Skip return : False - -foreign import ccall "soup_client_context_steal_connection" soup_client_context_steal_connection :: - Ptr ClientContext -> -- _obj : TInterface "Soup" "ClientContext" - IO (Ptr Gio.IOStream) - - -clientContextStealConnection :: - (MonadIO m) => - ClientContext -> -- _obj - m Gio.IOStream -clientContextStealConnection _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_steal_connection _obj' - checkUnexpectedReturnNULL "soup_client_context_steal_connection" result - result' <- (wrapObject Gio.IOStream) result - touchManagedPtr _obj - return result' - - diff --git a/GI/Soup/Structs/ClientContext.hs-boot b/GI/Soup/Structs/ClientContext.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/ClientContext.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.ClientContext 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 - -newtype ClientContext = ClientContext (ForeignPtr ClientContext) -instance BoxedObject ClientContext where diff --git a/GI/Soup/Structs/Connection.hs b/GI/Soup/Structs/Connection.hs deleted file mode 100644 --- a/GI/Soup/Structs/Connection.hs +++ /dev/null @@ -1,32 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Structs.Connection - ( - --- * Exported types - Connection(..) , - noConnection , - - - ) 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 Connection = Connection (ForeignPtr Connection) -noConnection :: Maybe Connection -noConnection = Nothing - - diff --git a/GI/Soup/Structs/Connection.hs-boot b/GI/Soup/Structs/Connection.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/Connection.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.Soup.Structs.Connection 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 - -newtype Connection = Connection (ForeignPtr Connection) diff --git a/GI/Soup/Structs/Cookie.hs b/GI/Soup/Structs/Cookie.hs deleted file mode 100644 --- a/GI/Soup/Structs/Cookie.hs +++ /dev/null @@ -1,858 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An HTTP cookie. - -@name and @value will be set for all cookies. If the cookie is -generated from a string that appears to have no name, then @name -will be the empty string. - -@domain and @path give the host or domain, and path within that -host/domain, to restrict this cookie to. If @domain starts with -".", that indicates a domain (which matches the string after the -".", or any hostname that has @domain as a suffix). Otherwise, it -is a hostname and must match exactly. - -@expires will be non-%NULL if the cookie uses either the original -"expires" attribute, or the newer "max-age" attribute. If @expires -is %NULL, it indicates that neither "expires" nor "max-age" was -specified, and the cookie expires at the end of the session. - -If @http_only is set, the cookie should not be exposed to untrusted -code (eg, javascript), so as to minimize the danger posed by -cross-site scripting attacks. --} - -module GI.Soup.Structs.Cookie - ( - --- * Exported types - Cookie(..) , - noCookie , - - - -- * Methods --- ** cookieAppliesToUri - cookieAppliesToUri , - - --- ** cookieCopy - cookieCopy , - - --- ** cookieDomainMatches - cookieDomainMatches , - - --- ** cookieEqual - cookieEqual , - - --- ** cookieFree - cookieFree , - - --- ** cookieGetDomain - cookieGetDomain , - - --- ** cookieGetExpires - cookieGetExpires , - - --- ** cookieGetHttpOnly - cookieGetHttpOnly , - - --- ** cookieGetName - cookieGetName , - - --- ** cookieGetPath - cookieGetPath , - - --- ** cookieGetSecure - cookieGetSecure , - - --- ** cookieGetValue - cookieGetValue , - - --- ** cookieNew - cookieNew , - - --- ** cookieSetDomain - cookieSetDomain , - - --- ** cookieSetExpires - cookieSetExpires , - - --- ** cookieSetHttpOnly - cookieSetHttpOnly , - - --- ** cookieSetMaxAge - cookieSetMaxAge , - - --- ** cookieSetName - cookieSetName , - - --- ** cookieSetPath - cookieSetPath , - - --- ** cookieSetSecure - cookieSetSecure , - - --- ** cookieSetValue - cookieSetValue , - - --- ** cookieToCookieHeader - cookieToCookieHeader , - - --- ** cookieToSetCookieHeader - cookieToSetCookieHeader , - - - - - -- * Properties --- ** Domain - cookieReadDomain , - - --- ** Expires - cookieReadExpires , - - --- ** HttpOnly - cookieReadHttpOnly , - - --- ** Name - cookieReadName , - - --- ** Path - cookieReadPath , - - --- ** Secure - cookieReadSecure , - - --- ** Value - cookieReadValue , - - - - - ) 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 Cookie = Cookie (ForeignPtr Cookie) -foreign import ccall "soup_cookie_get_type" c_soup_cookie_get_type :: - IO GType - -instance BoxedObject Cookie where - boxedType _ = c_soup_cookie_get_type - -noCookie :: Maybe Cookie -noCookie = Nothing - -cookieReadName :: Cookie -> IO T.Text -cookieReadName s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -cookieReadValue :: Cookie -> IO T.Text -cookieReadValue s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -cookieReadDomain :: Cookie -> IO T.Text -cookieReadDomain s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -cookieReadPath :: Cookie -> IO T.Text -cookieReadPath s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -cookieReadExpires :: Cookie -> IO Date -cookieReadExpires s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Date) - val' <- (newBoxed Date) val - return val' - -cookieReadSecure :: Cookie -> IO Bool -cookieReadSecure s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CInt - let val' = (/= 0) val - return val' - -cookieReadHttpOnly :: Cookie -> IO Bool -cookieReadHttpOnly s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 44) :: IO CInt - let val' = (/= 0) val - return val' - --- method Cookie::new --- method type : Constructor --- Args : [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},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [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},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Cookie" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_new" soup_cookie_new :: - CString -> -- name : TBasicType TUTF8 - CString -> -- value : TBasicType TUTF8 - CString -> -- domain : TBasicType TUTF8 - CString -> -- path : TBasicType TUTF8 - Int32 -> -- max_age : TBasicType TInt32 - IO (Ptr Cookie) - - -cookieNew :: - (MonadIO m) => - T.Text -> -- name - T.Text -> -- value - T.Text -> -- domain - T.Text -> -- path - Int32 -> -- max_age - m Cookie -cookieNew name value domain path max_age = liftIO $ do - name' <- textToCString name - value' <- textToCString value - domain' <- textToCString domain - path' <- textToCString path - result <- soup_cookie_new name' value' domain' path' max_age - checkUnexpectedReturnNULL "soup_cookie_new" result - result' <- (wrapBoxed Cookie) result - freeMem name' - freeMem value' - freeMem domain' - freeMem path' - return result' - --- method Cookie::applies_to_uri --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_applies_to_uri" soup_cookie_applies_to_uri :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - Ptr URI -> -- uri : TInterface "Soup" "URI" - IO CInt - - -cookieAppliesToUri :: - (MonadIO m) => - Cookie -> -- _obj - URI -> -- uri - m Bool -cookieAppliesToUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - result <- soup_cookie_applies_to_uri _obj' uri' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr uri - return result' - --- method Cookie::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Cookie" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_copy" soup_cookie_copy :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO (Ptr Cookie) - - -cookieCopy :: - (MonadIO m) => - Cookie -> -- _obj - m Cookie -cookieCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_copy _obj' - checkUnexpectedReturnNULL "soup_cookie_copy" result - result' <- (wrapBoxed Cookie) result - touchManagedPtr _obj - return result' - --- method Cookie::domain_matches --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", 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_cookie_domain_matches" soup_cookie_domain_matches :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - CString -> -- host : TBasicType TUTF8 - IO CInt - - -cookieDomainMatches :: - (MonadIO m) => - Cookie -> -- _obj - T.Text -> -- host - m Bool -cookieDomainMatches _obj host = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - host' <- textToCString host - result <- soup_cookie_domain_matches _obj' host' - let result' = (/= 0) result - touchManagedPtr _obj - freeMem host' - return result' - --- method Cookie::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_equal" soup_cookie_equal :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - Ptr Cookie -> -- cookie2 : TInterface "Soup" "Cookie" - IO CInt - - -cookieEqual :: - (MonadIO m) => - Cookie -> -- _obj - Cookie -> -- cookie2 - m Bool -cookieEqual _obj cookie2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let cookie2' = unsafeManagedPtrGetPtr cookie2 - result <- soup_cookie_equal _obj' cookie2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr cookie2 - return result' - --- method Cookie::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_free" soup_cookie_free :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO () - - -cookieFree :: - (MonadIO m) => - Cookie -> -- _obj - m () -cookieFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_cookie_free _obj' - touchManagedPtr _obj - return () - --- method Cookie::get_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_get_domain" soup_cookie_get_domain :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CString - - -cookieGetDomain :: - (MonadIO m) => - Cookie -> -- _obj - m T.Text -cookieGetDomain _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_domain _obj' - checkUnexpectedReturnNULL "soup_cookie_get_domain" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Cookie::get_expires --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Date" --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_get_expires" soup_cookie_get_expires :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO (Ptr Date) - - -cookieGetExpires :: - (MonadIO m) => - Cookie -> -- _obj - m Date -cookieGetExpires _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_expires _obj' - checkUnexpectedReturnNULL "soup_cookie_get_expires" result - result' <- (newBoxed Date) result - touchManagedPtr _obj - return result' - --- method Cookie::get_http_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_get_http_only" soup_cookie_get_http_only :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CInt - - -cookieGetHttpOnly :: - (MonadIO m) => - Cookie -> -- _obj - m Bool -cookieGetHttpOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_http_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Cookie::get_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_get_name" soup_cookie_get_name :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CString - - -cookieGetName :: - (MonadIO m) => - Cookie -> -- _obj - m T.Text -cookieGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_name _obj' - checkUnexpectedReturnNULL "soup_cookie_get_name" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Cookie::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_get_path" soup_cookie_get_path :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CString - - -cookieGetPath :: - (MonadIO m) => - Cookie -> -- _obj - m T.Text -cookieGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_path _obj' - checkUnexpectedReturnNULL "soup_cookie_get_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Cookie::get_secure --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_get_secure" soup_cookie_get_secure :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CInt - - -cookieGetSecure :: - (MonadIO m) => - Cookie -> -- _obj - m Bool -cookieGetSecure _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_secure _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Cookie::get_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_get_value" soup_cookie_get_value :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CString - - -cookieGetValue :: - (MonadIO m) => - Cookie -> -- _obj - m T.Text -cookieGetValue _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_value _obj' - checkUnexpectedReturnNULL "soup_cookie_get_value" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method Cookie::set_domain --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "domain", 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_cookie_set_domain" soup_cookie_set_domain :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - CString -> -- domain : TBasicType TUTF8 - IO () - - -cookieSetDomain :: - (MonadIO m) => - Cookie -> -- _obj - T.Text -> -- domain - m () -cookieSetDomain _obj domain = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - domain' <- textToCString domain - soup_cookie_set_domain _obj' domain' - touchManagedPtr _obj - freeMem domain' - return () - --- method Cookie::set_expires --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_set_expires" soup_cookie_set_expires :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - Ptr Date -> -- expires : TInterface "Soup" "Date" - IO () - - -cookieSetExpires :: - (MonadIO m) => - Cookie -> -- _obj - Date -> -- expires - m () -cookieSetExpires _obj expires = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let expires' = unsafeManagedPtrGetPtr expires - soup_cookie_set_expires _obj' expires' - touchManagedPtr _obj - touchManagedPtr expires - return () - --- method Cookie::set_http_only --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_set_http_only" soup_cookie_set_http_only :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - CInt -> -- http_only : TBasicType TBoolean - IO () - - -cookieSetHttpOnly :: - (MonadIO m) => - Cookie -> -- _obj - Bool -> -- http_only - m () -cookieSetHttpOnly _obj http_only = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let http_only' = (fromIntegral . fromEnum) http_only - soup_cookie_set_http_only _obj' http_only' - touchManagedPtr _obj - return () - --- method Cookie::set_max_age --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "max_age", 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_cookie_set_max_age" soup_cookie_set_max_age :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - Int32 -> -- max_age : TBasicType TInt32 - IO () - - -cookieSetMaxAge :: - (MonadIO m) => - Cookie -> -- _obj - Int32 -> -- max_age - m () -cookieSetMaxAge _obj max_age = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_cookie_set_max_age _obj' max_age - touchManagedPtr _obj - return () - --- method Cookie::set_name --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", 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" "Cookie", 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_cookie_set_name" soup_cookie_set_name :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - CString -> -- name : TBasicType TUTF8 - IO () - - -cookieSetName :: - (MonadIO m) => - Cookie -> -- _obj - T.Text -> -- name - m () -cookieSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - soup_cookie_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - --- method Cookie::set_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_cookie_set_path" soup_cookie_set_path :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - CString -> -- path : TBasicType TUTF8 - IO () - - -cookieSetPath :: - (MonadIO m) => - Cookie -> -- _obj - T.Text -> -- path - m () -cookieSetPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - soup_cookie_set_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - --- method Cookie::set_secure --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_set_secure" soup_cookie_set_secure :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - CInt -> -- secure : TBasicType TBoolean - IO () - - -cookieSetSecure :: - (MonadIO m) => - Cookie -> -- _obj - Bool -> -- secure - m () -cookieSetSecure _obj secure = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let secure' = (fromIntegral . fromEnum) secure - soup_cookie_set_secure _obj' secure' - touchManagedPtr _obj - return () - --- method Cookie::set_value --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", 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" "Cookie", 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_cookie_set_value" soup_cookie_set_value :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - CString -> -- value : TBasicType TUTF8 - IO () - - -cookieSetValue :: - (MonadIO m) => - Cookie -> -- _obj - T.Text -> -- value - m () -cookieSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - value' <- textToCString value - soup_cookie_set_value _obj' value' - touchManagedPtr _obj - freeMem value' - return () - --- method Cookie::to_cookie_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_to_cookie_header" soup_cookie_to_cookie_header :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CString - - -cookieToCookieHeader :: - (MonadIO m) => - Cookie -> -- _obj - m T.Text -cookieToCookieHeader _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_to_cookie_header _obj' - checkUnexpectedReturnNULL "soup_cookie_to_cookie_header" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Cookie::to_set_cookie_header --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_cookie_to_set_cookie_header" soup_cookie_to_set_cookie_header :: - Ptr Cookie -> -- _obj : TInterface "Soup" "Cookie" - IO CString - - -cookieToSetCookieHeader :: - (MonadIO m) => - Cookie -> -- _obj - m T.Text -cookieToSetCookieHeader _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_to_set_cookie_header _obj' - checkUnexpectedReturnNULL "soup_cookie_to_set_cookie_header" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - - diff --git a/GI/Soup/Structs/Cookie.hs-boot b/GI/Soup/Structs/Cookie.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/Cookie.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.Cookie 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 - -newtype Cookie = Cookie (ForeignPtr Cookie) -instance BoxedObject Cookie where diff --git a/GI/Soup/Structs/Date.hs b/GI/Soup/Structs/Date.hs deleted file mode 100644 --- a/GI/Soup/Structs/Date.hs +++ /dev/null @@ -1,654 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A date and time. The date is assumed to be in the (proleptic) -Gregorian calendar. The time is in UTC if @utc is %TRUE. Otherwise, -the time is a local time, and @offset gives the offset from UTC in -minutes (such that adding @offset to the time would give the -correct UTC time). If @utc is %FALSE and @offset is 0, then the -%SoupDate represents a "floating" time with no associated timezone -information. --} - -module GI.Soup.Structs.Date - ( - --- * Exported types - Date(..) , - noDate , - - - -- * Methods --- ** dateCopy - dateCopy , - - --- ** dateFree - dateFree , - - --- ** dateGetDay - dateGetDay , - - --- ** dateGetHour - dateGetHour , - - --- ** dateGetMinute - dateGetMinute , - - --- ** dateGetMonth - dateGetMonth , - - --- ** dateGetOffset - dateGetOffset , - - --- ** dateGetSecond - dateGetSecond , - - --- ** dateGetUtc - dateGetUtc , - - --- ** dateGetYear - dateGetYear , - - --- ** dateIsPast - dateIsPast , - - --- ** dateNew - dateNew , - - --- ** dateNewFromNow - dateNewFromNow , - - --- ** dateNewFromString - dateNewFromString , - - --- ** dateNewFromTimeT - dateNewFromTimeT , - - --- ** dateToString - dateToString , - - --- ** dateToTimeT - dateToTimeT , - - --- ** dateToTimeval - dateToTimeval , - - - - - -- * Properties --- ** Day - dateReadDay , - - --- ** Hour - dateReadHour , - - --- ** Minute - dateReadMinute , - - --- ** Month - dateReadMonth , - - --- ** Offset - dateReadOffset , - - --- ** Second - dateReadSecond , - - --- ** Utc - dateReadUtc , - - --- ** Year - dateReadYear , - - - - - ) 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 -import qualified GI.GLib as GLib - -newtype Date = Date (ForeignPtr Date) -foreign import ccall "soup_date_get_type" c_soup_date_get_type :: - IO GType - -instance BoxedObject Date where - boxedType _ = c_soup_date_get_type - -noDate :: Maybe Date -noDate = Nothing - -dateReadYear :: Date -> IO Int32 -dateReadYear s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dateReadMonth :: Date -> IO Int32 -dateReadMonth s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -dateReadDay :: Date -> IO Int32 -dateReadDay s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -dateReadHour :: Date -> IO Int32 -dateReadHour s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -dateReadMinute :: Date -> IO Int32 -dateReadMinute s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int32 - return val - -dateReadSecond :: Date -> IO Int32 -dateReadSecond s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Int32 - return val - -dateReadUtc :: Date -> IO Bool -dateReadUtc s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CInt - let val' = (/= 0) val - return val' - -dateReadOffset :: Date -> IO Int32 -dateReadOffset s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Int32 - return val - --- method Date::new --- method type : Constructor --- Args : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "year", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "month", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "day", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hour", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minute", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "second", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Date" --- throws : False --- Skip return : False - -foreign import ccall "soup_date_new" soup_date_new :: - Int32 -> -- year : TBasicType TInt32 - Int32 -> -- month : TBasicType TInt32 - Int32 -> -- day : TBasicType TInt32 - Int32 -> -- hour : TBasicType TInt32 - Int32 -> -- minute : TBasicType TInt32 - Int32 -> -- second : TBasicType TInt32 - IO (Ptr Date) - - -dateNew :: - (MonadIO m) => - Int32 -> -- year - Int32 -> -- month - Int32 -> -- day - Int32 -> -- hour - Int32 -> -- minute - Int32 -> -- second - m Date -dateNew year month day hour minute second = liftIO $ do - result <- soup_date_new year month day hour minute second - checkUnexpectedReturnNULL "soup_date_new" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::new_from_now --- method type : Constructor --- Args : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "offset_seconds", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Date" --- throws : False --- Skip return : False - -foreign import ccall "soup_date_new_from_now" soup_date_new_from_now :: - Int32 -> -- offset_seconds : TBasicType TInt32 - IO (Ptr Date) - - -dateNewFromNow :: - (MonadIO m) => - Int32 -> -- offset_seconds - m Date -dateNewFromNow offset_seconds = liftIO $ do - result <- soup_date_new_from_now offset_seconds - checkUnexpectedReturnNULL "soup_date_new_from_now" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::new_from_string --- method type : Constructor --- Args : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Date" --- throws : False --- Skip return : False - -foreign import ccall "soup_date_new_from_string" soup_date_new_from_string :: - CString -> -- date_string : TBasicType TUTF8 - IO (Ptr Date) - - -dateNewFromString :: - (MonadIO m) => - T.Text -> -- date_string - m Date -dateNewFromString date_string = liftIO $ do - date_string' <- textToCString date_string - result <- soup_date_new_from_string date_string' - checkUnexpectedReturnNULL "soup_date_new_from_string" result - result' <- (wrapBoxed Date) result - freeMem date_string' - return result' - --- method Date::new_from_time_t --- method type : Constructor --- Args : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "when", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Date" --- throws : False --- Skip return : False - -foreign import ccall "soup_date_new_from_time_t" soup_date_new_from_time_t :: - Int64 -> -- when : TBasicType TInt64 - IO (Ptr Date) - - -dateNewFromTimeT :: - (MonadIO m) => - Int64 -> -- when - m Date -dateNewFromTimeT when_ = liftIO $ do - result <- soup_date_new_from_time_t when_ - checkUnexpectedReturnNULL "soup_date_new_from_time_t" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Date" --- throws : False --- Skip return : False - -foreign import ccall "soup_date_copy" soup_date_copy :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO (Ptr Date) - - -dateCopy :: - (MonadIO m) => - Date -> -- _obj - m Date -dateCopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_copy _obj' - checkUnexpectedReturnNULL "soup_date_copy" result - result' <- (wrapBoxed Date) result - touchManagedPtr _obj - return result' - --- method Date::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_date_free" soup_date_free :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO () - - -dateFree :: - (MonadIO m) => - Date -> -- _obj - m () -dateFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_date_free _obj' - touchManagedPtr _obj - return () - --- method Date::get_day --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_day" soup_date_get_day :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetDay :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetDay _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_day _obj' - touchManagedPtr _obj - return result - --- method Date::get_hour --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_hour" soup_date_get_hour :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetHour :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetHour _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_hour _obj' - touchManagedPtr _obj - return result - --- method Date::get_minute --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_minute" soup_date_get_minute :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetMinute :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetMinute _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_minute _obj' - touchManagedPtr _obj - return result - --- method Date::get_month --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_month" soup_date_get_month :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetMonth :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_month _obj' - touchManagedPtr _obj - return result - --- method Date::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_offset" soup_date_get_offset :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetOffset :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_offset _obj' - touchManagedPtr _obj - return result - --- method Date::get_second --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_second" soup_date_get_second :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetSecond :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetSecond _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_second _obj' - touchManagedPtr _obj - return result - --- method Date::get_utc --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_utc" soup_date_get_utc :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetUtc :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetUtc _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_utc _obj' - touchManagedPtr _obj - return result - --- method Date::get_year --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_get_year" soup_date_get_year :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int32 - - -dateGetYear :: - (MonadIO m) => - Date -> -- _obj - m Int32 -dateGetYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_year _obj' - touchManagedPtr _obj - return result - --- method Date::is_past --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_date_is_past" soup_date_is_past :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO CInt - - -dateIsPast :: - (MonadIO m) => - Date -> -- _obj - m Bool -dateIsPast _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_is_past _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method Date::to_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_to_string" soup_date_to_string :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - CUInt -> -- format : TInterface "Soup" "DateFormat" - IO CString - - -dateToString :: - (MonadIO m) => - Date -> -- _obj - DateFormat -> -- format - m T.Text -dateToString _obj format = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let format' = (fromIntegral . fromEnum) format - result <- soup_date_to_string _obj' format' - checkUnexpectedReturnNULL "soup_date_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method Date::to_time_t --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt64 --- throws : False --- Skip return : False - -foreign import ccall "soup_date_to_time_t" soup_date_to_time_t :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - IO Int64 - - -dateToTimeT :: - (MonadIO m) => - Date -> -- _obj - m Int64 -dateToTimeT _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_to_time_t _obj' - touchManagedPtr _obj - return result - --- method Date::to_timeval --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_date_to_timeval" soup_date_to_timeval :: - Ptr Date -> -- _obj : TInterface "Soup" "Date" - Ptr GLib.TimeVal -> -- time : TInterface "GLib" "TimeVal" - IO () - - -dateToTimeval :: - (MonadIO m) => - Date -> -- _obj - m (GLib.TimeVal) -dateToTimeval _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - time <- callocBytes 16 :: IO (Ptr GLib.TimeVal) - soup_date_to_timeval _obj' time - time' <- (wrapPtr GLib.TimeVal) time - touchManagedPtr _obj - return time' - - diff --git a/GI/Soup/Structs/Date.hs-boot b/GI/Soup/Structs/Date.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/Date.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.Date 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 - -newtype Date = Date (ForeignPtr Date) -instance BoxedObject Date where diff --git a/GI/Soup/Structs/MessageBody.hs b/GI/Soup/Structs/MessageBody.hs deleted file mode 100644 --- a/GI/Soup/Structs/MessageBody.hs +++ /dev/null @@ -1,438 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #SoupMessage request or response body. - -Note that while @length always reflects the full length of the -message body, @data is normally %NULL, and will only be filled in -after soup_message_body_flatten() is called. For client-side -messages, this automatically happens for the response body after it -has been fully read, unless you set the -%SOUP_MESSAGE_OVERWRITE_CHUNKS flags. Likewise, for server-side -messages, the request body is automatically filled in after being -read. - -As an added bonus, when @data is filled in, it is always terminated -with a '\0' byte (which is not reflected in @length). --} - -module GI.Soup.Structs.MessageBody - ( - --- * Exported types - MessageBody(..) , - noMessageBody , - - - -- * Methods --- ** messageBodyAppend - messageBodyAppend , - - --- ** messageBodyAppendBuffer - messageBodyAppendBuffer , - - --- ** messageBodyComplete - messageBodyComplete , - - --- ** messageBodyFlatten - messageBodyFlatten , - - --- ** messageBodyFree - messageBodyFree , - - --- ** messageBodyGetAccumulate - messageBodyGetAccumulate , - - --- ** messageBodyGetChunk - messageBodyGetChunk , - - --- ** messageBodyGotChunk - messageBodyGotChunk , - - --- ** messageBodyNew - messageBodyNew , - - --- ** messageBodySetAccumulate - messageBodySetAccumulate , - - --- ** messageBodyTruncate - messageBodyTruncate , - - --- ** messageBodyWroteChunk - messageBodyWroteChunk , - - - - - -- * Properties --- ** Data - messageBodyReadData , - - --- ** Length - messageBodyReadLength , - - - - - ) 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 MessageBody = MessageBody (ForeignPtr MessageBody) -foreign import ccall "soup_message_body_get_type" c_soup_message_body_get_type :: - IO GType - -instance BoxedObject MessageBody where - boxedType _ = c_soup_message_body_get_type - -noMessageBody :: Maybe MessageBody -noMessageBody = Nothing - -messageBodyReadData :: MessageBody -> IO T.Text -messageBodyReadData s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -messageBodyReadLength :: MessageBody -> IO Int64 -messageBodyReadLength s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int64 - return val - --- method MessageBody::new --- method type : Constructor --- Args : [] --- Lengths : [] --- hInArgs : [] --- returnType : TInterface "Soup" "MessageBody" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_body_new" soup_message_body_new :: - IO (Ptr MessageBody) - - -messageBodyNew :: - (MonadIO m) => - m MessageBody -messageBodyNew = liftIO $ do - result <- soup_message_body_new - checkUnexpectedReturnNULL "soup_message_body_new" result - result' <- (wrapBoxed MessageBody) result - return result' - --- method MessageBody::append_buffer --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer", argType = TInterface "Soup" "Buffer", 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_body_append_buffer" soup_message_body_append_buffer :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - Ptr Buffer -> -- buffer : TInterface "Soup" "Buffer" - IO () - - -messageBodyAppendBuffer :: - (MonadIO m) => - MessageBody -> -- _obj - Buffer -> -- buffer - m () -messageBodyAppendBuffer _obj buffer = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let buffer' = unsafeManagedPtrGetPtr buffer - soup_message_body_append_buffer _obj' buffer' - touchManagedPtr _obj - touchManagedPtr buffer - return () - --- method MessageBody::append --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_message_body_append_take" soup_message_body_append_take :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - Ptr Word8 -> -- data : TCArray False (-1) 2 (TBasicType TUInt8) - Word64 -> -- length : TBasicType TUInt64 - IO () - - -messageBodyAppend :: - (MonadIO m) => - MessageBody -> -- _obj - ByteString -> -- data - m () -messageBodyAppend _obj data_ = liftIO $ do - let length_ = fromIntegral $ B.length data_ - let _obj' = unsafeManagedPtrGetPtr _obj - data_' <- packByteString data_ - soup_message_body_append_take _obj' data_' length_ - touchManagedPtr _obj - return () - --- method MessageBody::complete --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_complete" soup_message_body_complete :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - IO () - - -messageBodyComplete :: - (MonadIO m) => - MessageBody -> -- _obj - m () -messageBodyComplete _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_body_complete _obj' - touchManagedPtr _obj - return () - --- method MessageBody::flatten --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Buffer" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_body_flatten" soup_message_body_flatten :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - IO (Ptr Buffer) - - -messageBodyFlatten :: - (MonadIO m) => - MessageBody -> -- _obj - m Buffer -messageBodyFlatten _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_body_flatten _obj' - checkUnexpectedReturnNULL "soup_message_body_flatten" result - result' <- (wrapBoxed Buffer) result - touchManagedPtr _obj - return result' - --- method MessageBody::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_free" soup_message_body_free :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - IO () - - -messageBodyFree :: - (MonadIO m) => - MessageBody -> -- _obj - m () -messageBodyFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_body_free _obj' - touchManagedPtr _obj - return () - --- method MessageBody::get_accumulate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_get_accumulate" soup_message_body_get_accumulate :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - IO CInt - - -messageBodyGetAccumulate :: - (MonadIO m) => - MessageBody -> -- _obj - m Bool -messageBodyGetAccumulate _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_body_get_accumulate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - --- method MessageBody::get_chunk --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Buffer" --- throws : False --- Skip return : False - -foreign import ccall "soup_message_body_get_chunk" soup_message_body_get_chunk :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - Int64 -> -- offset : TBasicType TInt64 - IO (Ptr Buffer) - - -messageBodyGetChunk :: - (MonadIO m) => - MessageBody -> -- _obj - Int64 -> -- offset - m Buffer -messageBodyGetChunk _obj offset = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_body_get_chunk _obj' offset - checkUnexpectedReturnNULL "soup_message_body_get_chunk" result - result' <- (wrapBoxed Buffer) result - touchManagedPtr _obj - return result' - --- method MessageBody::got_chunk --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_body_got_chunk" soup_message_body_got_chunk :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" - IO () - - -messageBodyGotChunk :: - (MonadIO m) => - MessageBody -> -- _obj - Buffer -> -- chunk - m () -messageBodyGotChunk _obj chunk = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let chunk' = unsafeManagedPtrGetPtr chunk - soup_message_body_got_chunk _obj' chunk' - touchManagedPtr _obj - touchManagedPtr chunk - return () - --- method MessageBody::set_accumulate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accumulate", argType = TBasicType TBoolean, 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_body_set_accumulate" soup_message_body_set_accumulate :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - CInt -> -- accumulate : TBasicType TBoolean - IO () - - -messageBodySetAccumulate :: - (MonadIO m) => - MessageBody -> -- _obj - Bool -> -- accumulate - m () -messageBodySetAccumulate _obj accumulate = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let accumulate' = (fromIntegral . fromEnum) accumulate - soup_message_body_set_accumulate _obj' accumulate' - touchManagedPtr _obj - return () - --- method MessageBody::truncate --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", 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_body_truncate" soup_message_body_truncate :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - IO () - - -messageBodyTruncate :: - (MonadIO m) => - MessageBody -> -- _obj - m () -messageBodyTruncate _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_body_truncate _obj' - touchManagedPtr _obj - return () - --- method MessageBody::wrote_chunk --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "chunk", argType = TInterface "Soup" "Buffer", 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_body_wrote_chunk" soup_message_body_wrote_chunk :: - Ptr MessageBody -> -- _obj : TInterface "Soup" "MessageBody" - Ptr Buffer -> -- chunk : TInterface "Soup" "Buffer" - IO () - - -messageBodyWroteChunk :: - (MonadIO m) => - MessageBody -> -- _obj - Buffer -> -- chunk - m () -messageBodyWroteChunk _obj chunk = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let chunk' = unsafeManagedPtrGetPtr chunk - soup_message_body_wrote_chunk _obj' chunk' - touchManagedPtr _obj - touchManagedPtr chunk - return () - - diff --git a/GI/Soup/Structs/MessageBody.hs-boot b/GI/Soup/Structs/MessageBody.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/MessageBody.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.MessageBody 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 - -newtype MessageBody = MessageBody (ForeignPtr MessageBody) -instance BoxedObject MessageBody where diff --git a/GI/Soup/Structs/MessageHeaders.hs b/GI/Soup/Structs/MessageHeaders.hs deleted file mode 100644 --- a/GI/Soup/Structs/MessageHeaders.hs +++ /dev/null @@ -1,1063 +0,0 @@ - -{- | -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 () - - diff --git a/GI/Soup/Structs/MessageHeaders.hs-boot b/GI/Soup/Structs/MessageHeaders.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/MessageHeaders.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.MessageHeaders 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 - -newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders) -instance BoxedObject MessageHeaders where diff --git a/GI/Soup/Structs/MessageHeadersIter.hs b/GI/Soup/Structs/MessageHeadersIter.hs deleted file mode 100644 --- a/GI/Soup/Structs/MessageHeadersIter.hs +++ /dev/null @@ -1,83 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -An opaque type used to iterate over a %SoupMessageHeaders -structure. - -After intializing the iterator with -soup_message_headers_iter_init(), call -soup_message_headers_iter_next() to fetch data from it. - -You may not modify the headers while iterating over them. --} - -module GI.Soup.Structs.MessageHeadersIter - ( - --- * Exported types - MessageHeadersIter(..) , - noMessageHeadersIter , - - - -- * Methods --- ** messageHeadersIterNext - messageHeadersIterNext , - - - - - ) 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 MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter) -noMessageHeadersIter :: Maybe MessageHeadersIter -noMessageHeadersIter = Nothing - --- method MessageHeadersIter::next --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", 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_iter_next" soup_message_headers_iter_next :: - Ptr MessageHeadersIter -> -- _obj : TInterface "Soup" "MessageHeadersIter" - Ptr CString -> -- name : TBasicType TUTF8 - Ptr CString -> -- value : TBasicType TUTF8 - IO CInt - - -messageHeadersIterNext :: - (MonadIO m) => - MessageHeadersIter -> -- _obj - m (Bool,T.Text,T.Text) -messageHeadersIterNext _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name <- allocMem :: IO (Ptr CString) - value <- allocMem :: IO (Ptr CString) - result <- soup_message_headers_iter_next _obj' name value - let result' = (/= 0) result - name' <- peek name - name'' <- cstringToText name' - value' <- peek value - value'' <- cstringToText value' - touchManagedPtr _obj - freeMem name - freeMem value - return (result', name'', value'') - - diff --git a/GI/Soup/Structs/MessageHeadersIter.hs-boot b/GI/Soup/Structs/MessageHeadersIter.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/MessageHeadersIter.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.Soup.Structs.MessageHeadersIter 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 - -newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter) diff --git a/GI/Soup/Structs/MessageQueue.hs b/GI/Soup/Structs/MessageQueue.hs deleted file mode 100644 --- a/GI/Soup/Structs/MessageQueue.hs +++ /dev/null @@ -1,32 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Structs.MessageQueue - ( - --- * Exported types - MessageQueue(..) , - noMessageQueue , - - - ) 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 MessageQueue = MessageQueue (ForeignPtr MessageQueue) -noMessageQueue :: Maybe MessageQueue -noMessageQueue = Nothing - - diff --git a/GI/Soup/Structs/MessageQueue.hs-boot b/GI/Soup/Structs/MessageQueue.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/MessageQueue.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.Soup.Structs.MessageQueue 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 - -newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue) diff --git a/GI/Soup/Structs/MessageQueueItem.hs b/GI/Soup/Structs/MessageQueueItem.hs deleted file mode 100644 --- a/GI/Soup/Structs/MessageQueueItem.hs +++ /dev/null @@ -1,32 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) --} - -module GI.Soup.Structs.MessageQueueItem - ( - --- * Exported types - MessageQueueItem(..) , - noMessageQueueItem , - - - ) 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 MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem) -noMessageQueueItem :: Maybe MessageQueueItem -noMessageQueueItem = Nothing - - diff --git a/GI/Soup/Structs/MessageQueueItem.hs-boot b/GI/Soup/Structs/MessageQueueItem.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/MessageQueueItem.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.Soup.Structs.MessageQueueItem 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 - -newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem) diff --git a/GI/Soup/Structs/Multipart.hs b/GI/Soup/Structs/Multipart.hs deleted file mode 100644 --- a/GI/Soup/Structs/Multipart.hs +++ /dev/null @@ -1,364 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Represents a multipart HTTP message body, parsed according to the -syntax of RFC 2046. Of particular interest to HTTP are -multipart/byte-ranges and -multipart/form-data. - -Although the headers of a #SoupMultipart body part will contain the -full headers from that body part, libsoup does not interpret them -according to MIME rules. For example, each body part is assumed to -have "binary" Content-Transfer-Encoding, even if its headers -explicitly state otherwise. In other words, don't try to use -#SoupMultipart for handling real MIME multiparts. --} - -module GI.Soup.Structs.Multipart - ( - --- * Exported types - Multipart(..) , - noMultipart , - - - -- * Methods --- ** multipartAppendFormFile - multipartAppendFormFile , - - --- ** multipartAppendFormString - multipartAppendFormString , - - --- ** multipartAppendPart - multipartAppendPart , - - --- ** multipartFree - multipartFree , - - --- ** multipartGetLength - multipartGetLength , - - --- ** multipartGetPart - multipartGetPart , - - --- ** multipartNew - multipartNew , - - --- ** multipartNewFromMessage - multipartNewFromMessage , - - --- ** multipartToMessage - multipartToMessage , - - - - - ) 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 Multipart = Multipart (ForeignPtr Multipart) -foreign import ccall "soup_multipart_get_type" c_soup_multipart_get_type :: - IO GType - -instance BoxedObject Multipart where - boxedType _ = c_soup_multipart_get_type - -noMultipart :: Maybe Multipart -noMultipart = Nothing - --- method Multipart::new --- method type : Constructor --- Args : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Multipart" --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_new" soup_multipart_new :: - CString -> -- mime_type : TBasicType TUTF8 - IO (Ptr Multipart) - - -multipartNew :: - (MonadIO m) => - T.Text -> -- mime_type - m Multipart -multipartNew mime_type = liftIO $ do - mime_type' <- textToCString mime_type - result <- soup_multipart_new mime_type' - checkUnexpectedReturnNULL "soup_multipart_new" result - result' <- (wrapBoxed Multipart) result - freeMem mime_type' - return result' - --- method Multipart::new_from_message --- method type : Constructor --- Args : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "Multipart" --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_new_from_message" soup_multipart_new_from_message :: - Ptr MessageHeaders -> -- headers : TInterface "Soup" "MessageHeaders" - Ptr MessageBody -> -- body : TInterface "Soup" "MessageBody" - IO (Ptr Multipart) - - -multipartNewFromMessage :: - (MonadIO m) => - MessageHeaders -> -- headers - MessageBody -> -- body - m Multipart -multipartNewFromMessage headers body = liftIO $ do - let headers' = unsafeManagedPtrGetPtr headers - let body' = unsafeManagedPtrGetPtr body - result <- soup_multipart_new_from_message headers' body' - checkUnexpectedReturnNULL "soup_multipart_new_from_message" result - result' <- (wrapBoxed Multipart) result - touchManagedPtr headers - touchManagedPtr body - return result' - --- method Multipart::append_form_file --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, 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 = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "filename", argType = TBasicType TUTF8, 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 = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_append_form_file" soup_multipart_append_form_file :: - Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" - CString -> -- control_name : TBasicType TUTF8 - CString -> -- filename : TBasicType TUTF8 - CString -> -- content_type : TBasicType TUTF8 - Ptr Buffer -> -- body : TInterface "Soup" "Buffer" - IO () - - -multipartAppendFormFile :: - (MonadIO m) => - Multipart -> -- _obj - T.Text -> -- control_name - T.Text -> -- filename - T.Text -> -- content_type - Buffer -> -- body - m () -multipartAppendFormFile _obj control_name filename content_type body = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - control_name' <- textToCString control_name - filename' <- textToCString filename - content_type' <- textToCString content_type - let body' = unsafeManagedPtrGetPtr body - soup_multipart_append_form_file _obj' control_name' filename' content_type' body' - touchManagedPtr _obj - touchManagedPtr body - freeMem control_name' - freeMem filename' - freeMem content_type' - return () - --- method Multipart::append_form_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", 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_multipart_append_form_string" soup_multipart_append_form_string :: - Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" - CString -> -- control_name : TBasicType TUTF8 - CString -> -- data : TBasicType TUTF8 - IO () - - -multipartAppendFormString :: - (MonadIO m) => - Multipart -> -- _obj - T.Text -> -- control_name - T.Text -> -- data - m () -multipartAppendFormString _obj control_name data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - control_name' <- textToCString control_name - data_' <- textToCString data_ - soup_multipart_append_form_string _obj' control_name' data_' - touchManagedPtr _obj - freeMem control_name' - freeMem data_' - return () - --- method Multipart::append_part --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_append_part" soup_multipart_append_part :: - Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" - Ptr MessageHeaders -> -- headers : TInterface "Soup" "MessageHeaders" - Ptr Buffer -> -- body : TInterface "Soup" "Buffer" - IO () - - -multipartAppendPart :: - (MonadIO m) => - Multipart -> -- _obj - MessageHeaders -> -- headers - Buffer -> -- body - m () -multipartAppendPart _obj headers body = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let headers' = unsafeManagedPtrGetPtr headers - let body' = unsafeManagedPtrGetPtr body - soup_multipart_append_part _obj' headers' body' - touchManagedPtr _obj - touchManagedPtr headers - touchManagedPtr body - return () - --- method Multipart::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_free" soup_multipart_free :: - Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" - IO () - - -multipartFree :: - (MonadIO m) => - Multipart -> -- _obj - m () -multipartFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_multipart_free _obj' - touchManagedPtr _obj - return () - --- method Multipart::get_length --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_get_length" soup_multipart_get_length :: - Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" - IO Int32 - - -multipartGetLength :: - (MonadIO m) => - Multipart -> -- _obj - m Int32 -multipartGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_multipart_get_length _obj' - touchManagedPtr _obj - return result - --- method Multipart::get_part --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "part", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_get_part" soup_multipart_get_part :: - Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" - Int32 -> -- part : TBasicType TInt32 - Ptr (Ptr MessageHeaders) -> -- headers : TInterface "Soup" "MessageHeaders" - Ptr Buffer -> -- body : TInterface "Soup" "Buffer" - IO CInt - - -multipartGetPart :: - (MonadIO m) => - Multipart -> -- _obj - Int32 -> -- part - m (Bool,MessageHeaders,Buffer) -multipartGetPart _obj part = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - headers <- allocMem :: IO (Ptr (Ptr MessageHeaders)) - body <- callocBoxedBytes 16 :: IO (Ptr Buffer) - result <- soup_multipart_get_part _obj' part headers body - let result' = (/= 0) result - headers' <- peek headers - headers'' <- (newBoxed MessageHeaders) headers' - body' <- (wrapBoxed Buffer) body - touchManagedPtr _obj - freeMem headers - return (result', headers'', body') - --- method Multipart::to_message --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_multipart_to_message" soup_multipart_to_message :: - Ptr Multipart -> -- _obj : TInterface "Soup" "Multipart" - Ptr MessageHeaders -> -- dest_headers : TInterface "Soup" "MessageHeaders" - Ptr MessageBody -> -- dest_body : TInterface "Soup" "MessageBody" - IO () - - -multipartToMessage :: - (MonadIO m) => - Multipart -> -- _obj - MessageHeaders -> -- dest_headers - MessageBody -> -- dest_body - m () -multipartToMessage _obj dest_headers dest_body = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let dest_headers' = unsafeManagedPtrGetPtr dest_headers - let dest_body' = unsafeManagedPtrGetPtr dest_body - soup_multipart_to_message _obj' dest_headers' dest_body' - touchManagedPtr _obj - touchManagedPtr dest_headers - touchManagedPtr dest_body - return () - - diff --git a/GI/Soup/Structs/Multipart.hs-boot b/GI/Soup/Structs/Multipart.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/Multipart.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.Multipart 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 - -newtype Multipart = Multipart (ForeignPtr Multipart) -instance BoxedObject Multipart where diff --git a/GI/Soup/Structs/Range.hs b/GI/Soup/Structs/Range.hs deleted file mode 100644 --- a/GI/Soup/Structs/Range.hs +++ /dev/null @@ -1,68 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -Represents a byte range as used in the Range header. - -If @end is non-negative, then @start and @end represent the bounds -of of the range, counting from 0. (Eg, the first 500 bytes would be -represented as @start = 0 and @end = 499.) - -If @end is -1 and @start is non-negative, then this represents a -range starting at @start and ending with the last byte of the -requested resource body. (Eg, all but the first 500 bytes would be -@start = 500, and @end = -1.) - -If @end is -1 and @start is negative, then it represents a "suffix -range", referring to the last -@start bytes of the resource body. -(Eg, the last 500 bytes would be @start = -500 and @end = -1.) --} - -module GI.Soup.Structs.Range - ( - --- * Exported types - Range(..) , - noRange , - - - -- * Properties --- ** End - rangeReadEnd , - - --- ** Start - rangeReadStart , - - - - - ) 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 Range = Range (ForeignPtr Range) -noRange :: Maybe Range -noRange = Nothing - -rangeReadStart :: Range -> IO Int64 -rangeReadStart s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int64 - return val - -rangeReadEnd :: Range -> IO Int64 -rangeReadEnd s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int64 - return val - - diff --git a/GI/Soup/Structs/Range.hs-boot b/GI/Soup/Structs/Range.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/Range.hs-boot +++ /dev/null @@ -1,10 +0,0 @@ -module GI.Soup.Structs.Range 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 - -newtype Range = Range (ForeignPtr Range) diff --git a/GI/Soup/Structs/URI.hs b/GI/Soup/Structs/URI.hs deleted file mode 100644 --- a/GI/Soup/Structs/URI.hs +++ /dev/null @@ -1,1027 +0,0 @@ - -{- | -Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte -License : LGPL-2.1 -Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) - -A #SoupURI represents a (parsed) URI. #SoupURI supports RFC 3986 -(URI Generic Syntax), and can parse any valid URI. However, libsoup -only uses "http" and "https" URIs internally; You can use -SOUP_URI_VALID_FOR_HTTP() to test if a #SoupURI is a valid HTTP -URI. - -@scheme will always be set in any URI. It is an interned string and -is always all lowercase. (If you parse a URI with a non-lowercase -scheme, it will be converted to lowercase.) The macros -%SOUP_URI_SCHEME_HTTP and %SOUP_URI_SCHEME_HTTPS provide the -interned values for "http" and "https" and can be compared against -URI @scheme values. - -@user and @password are parsed as defined in the older URI specs -(ie, separated by a colon; RFC 3986 only talks about a single -"userinfo" field). Note that @password is not included in the -output of soup_uri_to_string(). libsoup does not normally use these -fields; authentication is handled via #SoupSession signals. - -@host contains the hostname, and @port the port specified in the -URI. If the URI doesn't contain a hostname, @host will be %NULL, -and if it doesn't specify a port, @port may be 0. However, for -"http" and "https" URIs, @host is guaranteed to be non-%NULL -(trying to parse an http URI with no @host will return %NULL), and -@port will always be non-0 (because libsoup knows the default value -to use when it is not specified in the URI). - -@path is always non-%NULL. For http/https URIs, @path will never be -an empty string either; if the input URI has no path, the parsed -#SoupURI will have a @path of "/". - -@query and @fragment are optional for all URI types. -soup_form_decode() may be useful for parsing @query. - -Note that @path, @query, and @fragment may contain -%-encoded characters. soup_uri_new() calls -soup_uri_normalize() on them, but not soup_uri_decode(). This is -necessary to ensure that soup_uri_to_string() will generate a URI -that has exactly the same meaning as the original. (In theory, -#SoupURI should leave @user, @password, and @host partially-encoded -as well, but this would be more annoying than useful.) --} - -module GI.Soup.Structs.URI - ( - --- * Exported types - URI(..) , - noURI , - - - -- * Methods --- ** uRICopy - uRICopy , - - --- ** uRICopyHost - uRICopyHost , - - --- ** uRIEqual - uRIEqual , - - --- ** uRIFree - uRIFree , - - --- ** uRIGetFragment - uRIGetFragment , - - --- ** uRIGetHost - uRIGetHost , - - --- ** uRIGetPassword - uRIGetPassword , - - --- ** uRIGetPath - uRIGetPath , - - --- ** uRIGetPort - uRIGetPort , - - --- ** uRIGetQuery - uRIGetQuery , - - --- ** uRIGetScheme - uRIGetScheme , - - --- ** uRIGetUser - uRIGetUser , - - --- ** uRIHostEqual - uRIHostEqual , - - --- ** uRIHostHash - uRIHostHash , - - --- ** uRINew - uRINew , - - --- ** uRINewWithBase - uRINewWithBase , - - --- ** uRISetFragment - uRISetFragment , - - --- ** uRISetHost - uRISetHost , - - --- ** uRISetPassword - uRISetPassword , - - --- ** uRISetPath - uRISetPath , - - --- ** uRISetPort - uRISetPort , - - --- ** uRISetQuery - uRISetQuery , - - --- ** uRISetQueryFromForm - uRISetQueryFromForm , - - --- ** uRISetScheme - uRISetScheme , - - --- ** uRISetUser - uRISetUser , - - --- ** uRIToString - uRIToString , - - --- ** uRIUsesDefaultPort - uRIUsesDefaultPort , - - - - - -- * Properties --- ** Fragment - uRIReadFragment , - - --- ** Host - uRIReadHost , - - --- ** Password - uRIReadPassword , - - --- ** Path - uRIReadPath , - - --- ** Port - uRIReadPort , - - --- ** Query - uRIReadQuery , - - --- ** Scheme - uRIReadScheme , - - --- ** User - uRIReadUser , - - - - - ) 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 URI = URI (ForeignPtr URI) -foreign import ccall "soup_uri_get_type" c_soup_uri_get_type :: - IO GType - -instance BoxedObject URI where - boxedType _ = c_soup_uri_get_type - -noURI :: Maybe URI -noURI = Nothing - -uRIReadScheme :: URI -> IO T.Text -uRIReadScheme s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - val' <- cstringToText val - return val' - -uRIReadUser :: URI -> IO T.Text -uRIReadUser s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - val' <- cstringToText val - return val' - -uRIReadPassword :: URI -> IO T.Text -uRIReadPassword s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - val' <- cstringToText val - return val' - -uRIReadHost :: URI -> IO T.Text -uRIReadHost s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - val' <- cstringToText val - return val' - -uRIReadPort :: URI -> IO Word32 -uRIReadPort s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -uRIReadPath :: URI -> IO T.Text -uRIReadPath s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CString - val' <- cstringToText val - return val' - -uRIReadQuery :: URI -> IO T.Text -uRIReadQuery s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CString - val' <- cstringToText val - return val' - -uRIReadFragment :: URI -> IO T.Text -uRIReadFragment s = withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CString - val' <- cstringToText val - return val' - --- method URI::new --- method type : Constructor --- Args : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_new" soup_uri_new :: - CString -> -- uri_string : TBasicType TUTF8 - IO (Ptr URI) - - -uRINew :: - (MonadIO m) => - Maybe (T.Text) -> -- uri_string - m URI -uRINew uri_string = liftIO $ do - maybeUri_string <- case uri_string of - Nothing -> return nullPtr - Just jUri_string -> do - jUri_string' <- textToCString jUri_string - return jUri_string' - result <- soup_uri_new maybeUri_string - checkUnexpectedReturnNULL "soup_uri_new" result - result' <- (wrapBoxed URI) result - freeMem maybeUri_string - return result' - --- method URI::copy --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_copy" soup_uri_copy :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO (Ptr URI) - - -uRICopy :: - (MonadIO m) => - URI -> -- _obj - m URI -uRICopy _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_copy _obj' - checkUnexpectedReturnNULL "soup_uri_copy" result - result' <- (wrapBoxed URI) result - touchManagedPtr _obj - return result' - --- method URI::copy_host --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_copy_host" soup_uri_copy_host :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO (Ptr URI) - - -uRICopyHost :: - (MonadIO m) => - URI -> -- _obj - m URI -uRICopyHost _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_copy_host _obj' - checkUnexpectedReturnNULL "soup_uri_copy_host" result - result' <- (wrapBoxed URI) result - touchManagedPtr _obj - return result' - --- method URI::equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_equal" soup_uri_equal :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - Ptr URI -> -- uri2 : TInterface "Soup" "URI" - IO CInt - - -uRIEqual :: - (MonadIO m) => - URI -> -- _obj - URI -> -- uri2 - m Bool -uRIEqual _obj uri2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let uri2' = unsafeManagedPtrGetPtr uri2 - result <- soup_uri_equal _obj' uri2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr uri2 - return result' - --- method URI::free --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_free" soup_uri_free :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO () - - -uRIFree :: - (MonadIO m) => - URI -> -- _obj - m () -uRIFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_uri_free _obj' - touchManagedPtr _obj - return () - --- method URI::get_fragment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_fragment" soup_uri_get_fragment :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CString - - -uRIGetFragment :: - (MonadIO m) => - URI -> -- _obj - m T.Text -uRIGetFragment _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_fragment _obj' - checkUnexpectedReturnNULL "soup_uri_get_fragment" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method URI::get_host --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_host" soup_uri_get_host :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CString - - -uRIGetHost :: - (MonadIO m) => - URI -> -- _obj - m T.Text -uRIGetHost _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_host _obj' - checkUnexpectedReturnNULL "soup_uri_get_host" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method URI::get_password --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_password" soup_uri_get_password :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CString - - -uRIGetPassword :: - (MonadIO m) => - URI -> -- _obj - m T.Text -uRIGetPassword _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_password _obj' - checkUnexpectedReturnNULL "soup_uri_get_password" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method URI::get_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_path" soup_uri_get_path :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CString - - -uRIGetPath :: - (MonadIO m) => - URI -> -- _obj - m T.Text -uRIGetPath _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_path _obj' - checkUnexpectedReturnNULL "soup_uri_get_path" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method URI::get_port --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_port" soup_uri_get_port :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO Word32 - - -uRIGetPort :: - (MonadIO m) => - URI -> -- _obj - m Word32 -uRIGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_port _obj' - touchManagedPtr _obj - return result - --- method URI::get_query --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_query" soup_uri_get_query :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CString - - -uRIGetQuery :: - (MonadIO m) => - URI -> -- _obj - m T.Text -uRIGetQuery _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_query _obj' - checkUnexpectedReturnNULL "soup_uri_get_query" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method URI::get_scheme --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_scheme" soup_uri_get_scheme :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CString - - -uRIGetScheme :: - (MonadIO m) => - URI -> -- _obj - m T.Text -uRIGetScheme _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_scheme _obj' - checkUnexpectedReturnNULL "soup_uri_get_scheme" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method URI::get_user --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_get_user" soup_uri_get_user :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CString - - -uRIGetUser :: - (MonadIO m) => - URI -> -- _obj - m T.Text -uRIGetUser _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_user _obj' - checkUnexpectedReturnNULL "soup_uri_get_user" result - result' <- cstringToText result - touchManagedPtr _obj - return result' - --- method URI::host_equal --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_host_equal" soup_uri_host_equal :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - Ptr URI -> -- v2 : TInterface "Soup" "URI" - IO CInt - - -uRIHostEqual :: - (MonadIO m) => - URI -> -- _obj - URI -> -- v2 - m Bool -uRIHostEqual _obj v2 = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let v2' = unsafeManagedPtrGetPtr v2 - result <- soup_uri_host_equal _obj' v2' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr v2 - return result' - --- method URI::host_hash --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUInt32 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_host_hash" soup_uri_host_hash :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO Word32 - - -uRIHostHash :: - (MonadIO m) => - URI -> -- _obj - m Word32 -uRIHostHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_host_hash _obj' - touchManagedPtr _obj - return result - --- method URI::new_with_base --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TInterface "Soup" "URI" --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_new_with_base" soup_uri_new_with_base :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- uri_string : TBasicType TUTF8 - IO (Ptr URI) - - -uRINewWithBase :: - (MonadIO m) => - URI -> -- _obj - T.Text -> -- uri_string - m URI -uRINewWithBase _obj uri_string = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uri_string' <- textToCString uri_string - result <- soup_uri_new_with_base _obj' uri_string' - checkUnexpectedReturnNULL "soup_uri_new_with_base" result - result' <- (wrapBoxed URI) result - touchManagedPtr _obj - freeMem uri_string' - return result' - --- method URI::set_fragment --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "fragment", argType = 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_uri_set_fragment" soup_uri_set_fragment :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- fragment : TBasicType TUTF8 - IO () - - -uRISetFragment :: - (MonadIO m) => - URI -> -- _obj - Maybe (T.Text) -> -- fragment - m () -uRISetFragment _obj fragment = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeFragment <- case fragment of - Nothing -> return nullPtr - Just jFragment -> do - jFragment' <- textToCString jFragment - return jFragment' - soup_uri_set_fragment _obj' maybeFragment - touchManagedPtr _obj - freeMem maybeFragment - return () - --- method URI::set_host --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "host", argType = 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_uri_set_host" soup_uri_set_host :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- host : TBasicType TUTF8 - IO () - - -uRISetHost :: - (MonadIO m) => - URI -> -- _obj - Maybe (T.Text) -> -- host - m () -uRISetHost _obj host = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeHost <- case host of - Nothing -> return nullPtr - Just jHost -> do - jHost' <- textToCString jHost - return jHost' - soup_uri_set_host _obj' maybeHost - touchManagedPtr _obj - freeMem maybeHost - return () - --- method URI::set_password --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "password", argType = 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_uri_set_password" soup_uri_set_password :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- password : TBasicType TUTF8 - IO () - - -uRISetPassword :: - (MonadIO m) => - URI -> -- _obj - Maybe (T.Text) -> -- password - m () -uRISetPassword _obj password = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybePassword <- case password of - Nothing -> return nullPtr - Just jPassword -> do - jPassword' <- textToCString jPassword - return jPassword' - soup_uri_set_password _obj' maybePassword - touchManagedPtr _obj - freeMem maybePassword - return () - --- method URI::set_path --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "path", 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_uri_set_path" soup_uri_set_path :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- path : TBasicType TUTF8 - IO () - - -uRISetPath :: - (MonadIO m) => - URI -> -- _obj - T.Text -> -- path - m () -uRISetPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - soup_uri_set_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - --- method URI::set_port --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "port", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TVoid --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_set_port" soup_uri_set_port :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - Word32 -> -- port : TBasicType TUInt32 - IO () - - -uRISetPort :: - (MonadIO m) => - URI -> -- _obj - Word32 -> -- port - m () -uRISetPort _obj port = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_uri_set_port _obj' port - touchManagedPtr _obj - return () - --- method URI::set_query --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "query", argType = 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_uri_set_query" soup_uri_set_query :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- query : TBasicType TUTF8 - IO () - - -uRISetQuery :: - (MonadIO m) => - URI -> -- _obj - Maybe (T.Text) -> -- query - m () -uRISetQuery _obj query = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeQuery <- case query of - Nothing -> return nullPtr - Just jQuery -> do - jQuery' <- textToCString jQuery - return jQuery' - soup_uri_set_query _obj' maybeQuery - touchManagedPtr _obj - freeMem maybeQuery - return () - --- method URI::set_query_from_form --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "form", argType = TGHash (TBasicType TUTF8) (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_uri_set_query_from_form" soup_uri_set_query_from_form :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - Ptr (GHashTable CString CString) -> -- form : TGHash (TBasicType TUTF8) (TBasicType TUTF8) - IO () - - -uRISetQueryFromForm :: - (MonadIO m) => - URI -> -- _obj - Map.Map T.Text T.Text -> -- form - m () -uRISetQueryFromForm _obj form = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let form' = Map.toList form - form'' <- mapFirstA textToCString form' - form''' <- mapSecondA textToCString form'' - let form'''' = mapFirst cstringPackPtr form''' - let form''''' = mapSecond cstringPackPtr form'''' - form'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form''''' - soup_uri_set_query_from_form _obj' form'''''' - touchManagedPtr _obj - unrefGHashTable form'''''' - return () - --- method URI::set_scheme --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scheme", 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_uri_set_scheme" soup_uri_set_scheme :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- scheme : TBasicType TUTF8 - IO () - - -uRISetScheme :: - (MonadIO m) => - URI -> -- _obj - T.Text -> -- scheme - m () -uRISetScheme _obj scheme = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - scheme' <- textToCString scheme - soup_uri_set_scheme _obj' scheme' - touchManagedPtr _obj - freeMem scheme' - return () - --- method URI::set_user --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user", argType = 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_uri_set_user" soup_uri_set_user :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CString -> -- user : TBasicType TUTF8 - IO () - - -uRISetUser :: - (MonadIO m) => - URI -> -- _obj - Maybe (T.Text) -> -- user - m () -uRISetUser _obj user = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - maybeUser <- case user of - Nothing -> return nullPtr - Just jUser -> do - jUser' <- textToCString jUser - return jUser' - soup_uri_set_user _obj' maybeUser - touchManagedPtr _obj - freeMem maybeUser - return () - --- method URI::to_string --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TUTF8 --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_to_string" soup_uri_to_string :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - CInt -> -- just_path_and_query : TBasicType TBoolean - IO CString - - -uRIToString :: - (MonadIO m) => - URI -> -- _obj - Bool -> -- just_path_and_query - m T.Text -uRIToString _obj just_path_and_query = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let just_path_and_query' = (fromIntegral . fromEnum) just_path_and_query - result <- soup_uri_to_string _obj' just_path_and_query' - checkUnexpectedReturnNULL "soup_uri_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - --- method URI::uses_default_port --- method type : OrdinaryMethod --- Args : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- Lengths : [] --- hInArgs : [Arg {argName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] --- returnType : TBasicType TBoolean --- throws : False --- Skip return : False - -foreign import ccall "soup_uri_uses_default_port" soup_uri_uses_default_port :: - Ptr URI -> -- _obj : TInterface "Soup" "URI" - IO CInt - - -uRIUsesDefaultPort :: - (MonadIO m) => - URI -> -- _obj - m Bool -uRIUsesDefaultPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_uses_default_port _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - - diff --git a/GI/Soup/Structs/URI.hs-boot b/GI/Soup/Structs/URI.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/URI.hs-boot +++ /dev/null @@ -1,11 +0,0 @@ -module GI.Soup.Structs.URI 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 - -newtype URI = URI (ForeignPtr URI) -instance BoxedObject URI where diff --git a/GI/Soup/Types.hs b/GI/Soup/Types.hs deleted file mode 100644 --- a/GI/Soup/Types.hs +++ /dev/null @@ -1,104 +0,0 @@ -module GI.Soup.Types - ( module GI.Soup.Interfaces.PasswordManager, - module GI.Soup.Interfaces.ProxyURIResolver, - module GI.Soup.Interfaces.SessionFeature, - module GI.Soup.Objects.Address , - module GI.Soup.Objects.Auth , - module GI.Soup.Objects.AuthBasic , - module GI.Soup.Objects.AuthDigest , - module GI.Soup.Objects.AuthDomain , - module GI.Soup.Objects.AuthDomainBasic , - module GI.Soup.Objects.AuthDomainDigest , - module GI.Soup.Objects.AuthManager , - module GI.Soup.Objects.AuthNTLM , - module GI.Soup.Objects.Cache , - module GI.Soup.Objects.ContentDecoder , - module GI.Soup.Objects.ContentSniffer , - module GI.Soup.Objects.CookieJar , - module GI.Soup.Objects.CookieJarDB , - module GI.Soup.Objects.CookieJarText , - module GI.Soup.Objects.Logger , - module GI.Soup.Objects.Message , - module GI.Soup.Objects.MultipartInputStream, - module GI.Soup.Objects.ProxyResolverDefault, - module GI.Soup.Objects.Request , - module GI.Soup.Objects.RequestData , - module GI.Soup.Objects.RequestFile , - module GI.Soup.Objects.RequestHTTP , - module GI.Soup.Objects.Requester , - module GI.Soup.Objects.Server , - module GI.Soup.Objects.Session , - module GI.Soup.Objects.SessionAsync , - module GI.Soup.Objects.SessionSync , - module GI.Soup.Objects.Socket , - module GI.Soup.Objects.WebsocketConnection, - module GI.Soup.Structs.Buffer , - module GI.Soup.Structs.ClientContext , - module GI.Soup.Structs.Connection , - module GI.Soup.Structs.Cookie , - module GI.Soup.Structs.Date , - module GI.Soup.Structs.MessageBody , - module GI.Soup.Structs.MessageHeaders , - module GI.Soup.Structs.MessageHeadersIter, - module GI.Soup.Structs.MessageQueue , - module GI.Soup.Structs.MessageQueueItem , - module GI.Soup.Structs.Multipart , - module GI.Soup.Structs.Range , - module GI.Soup.Structs.URI , - module GI.Soup.Enums , - module GI.Soup.Flags , - - - ) where - - -import {-# SOURCE #-} GI.Soup.Interfaces.PasswordManager -import {-# SOURCE #-} GI.Soup.Interfaces.ProxyURIResolver -import {-# SOURCE #-} GI.Soup.Interfaces.SessionFeature -import {-# SOURCE #-} GI.Soup.Objects.Address -import {-# SOURCE #-} GI.Soup.Objects.Auth -import {-# SOURCE #-} GI.Soup.Objects.AuthBasic -import {-# SOURCE #-} GI.Soup.Objects.AuthDigest -import {-# SOURCE #-} GI.Soup.Objects.AuthDomain -import {-# SOURCE #-} GI.Soup.Objects.AuthDomainBasic -import {-# SOURCE #-} GI.Soup.Objects.AuthDomainDigest -import {-# SOURCE #-} GI.Soup.Objects.AuthManager -import {-# SOURCE #-} GI.Soup.Objects.AuthNTLM -import {-# SOURCE #-} GI.Soup.Objects.Cache -import {-# SOURCE #-} GI.Soup.Objects.ContentDecoder -import {-# SOURCE #-} GI.Soup.Objects.ContentSniffer -import {-# SOURCE #-} GI.Soup.Objects.CookieJar -import {-# SOURCE #-} GI.Soup.Objects.CookieJarDB -import {-# SOURCE #-} GI.Soup.Objects.CookieJarText -import {-# SOURCE #-} GI.Soup.Objects.Logger -import {-# SOURCE #-} GI.Soup.Objects.Message -import {-# SOURCE #-} GI.Soup.Objects.MultipartInputStream -import {-# SOURCE #-} GI.Soup.Objects.ProxyResolverDefault -import {-# SOURCE #-} GI.Soup.Objects.Request -import {-# SOURCE #-} GI.Soup.Objects.RequestData -import {-# SOURCE #-} GI.Soup.Objects.RequestFile -import {-# SOURCE #-} GI.Soup.Objects.RequestHTTP -import {-# SOURCE #-} GI.Soup.Objects.Requester -import {-# SOURCE #-} GI.Soup.Objects.Server -import {-# SOURCE #-} GI.Soup.Objects.Session -import {-# SOURCE #-} GI.Soup.Objects.SessionAsync -import {-# SOURCE #-} GI.Soup.Objects.SessionSync -import {-# SOURCE #-} GI.Soup.Objects.Socket -import {-# SOURCE #-} GI.Soup.Objects.WebsocketConnection -import {-# SOURCE #-} GI.Soup.Structs.Buffer -import {-# SOURCE #-} GI.Soup.Structs.ClientContext -import {-# SOURCE #-} GI.Soup.Structs.Connection -import {-# SOURCE #-} GI.Soup.Structs.Cookie -import {-# SOURCE #-} GI.Soup.Structs.Date -import {-# SOURCE #-} GI.Soup.Structs.MessageBody -import {-# SOURCE #-} GI.Soup.Structs.MessageHeaders -import {-# SOURCE #-} GI.Soup.Structs.MessageHeadersIter -import {-# SOURCE #-} GI.Soup.Structs.MessageQueue -import {-# SOURCE #-} GI.Soup.Structs.MessageQueueItem -import {-# SOURCE #-} GI.Soup.Structs.Multipart -import {-# SOURCE #-} GI.Soup.Structs.Range -import {-# SOURCE #-} GI.Soup.Structs.URI - -import GI.Soup.Enums -import GI.Soup.Flags - diff --git a/GI/SoupAttributes.hs b/GI/SoupAttributes.hs new file mode 100644 --- /dev/null +++ b/GI/SoupAttributes.hs @@ -0,0 +1,2374 @@ +{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-} + +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds, + TypeFamilies, MultiParamTypeClasses, KindSignatures, + FlexibleInstances, UndecidableInstances, DataKinds, + OverloadedStrings, NegativeLiterals, FlexibleContexts #-} + +module GI.SoupAttributes where + +import Prelude () +import Data.GI.Base.ShortPrelude +import Data.Char +import Data.Int +import Data.Word +import qualified Data.ByteString.Char8 as B +import Data.ByteString.Char8 (ByteString) +import qualified Data.Map as Map +import Foreign.C +import Foreign.Ptr +import Foreign.ForeignPtr +import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr) +import Foreign.Storable (peek, poke, sizeOf) +import Control.Applicative ((<$>)) +import Control.Exception (onException) +import Control.Monad.IO.Class +import qualified Data.Text as T + +import Data.GI.Base.Attributes hiding (get, set) +import Data.GI.Base.BasicTypes +import Data.GI.Base.BasicConversions +import Data.GI.Base.Closure +import Data.GI.Base.GError +import Data.GI.Base.GHashTable +import Data.GI.Base.GParamSpec +import Data.GI.Base.GVariant +import Data.GI.Base.GValue +import Data.GI.Base.ManagedPtr +import Data.GI.Base.Overloading +import Data.GI.Base.Properties hiding (new) +import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId) +import Data.GI.Base.Utils + +import qualified GI.GLib as GLib +import qualified GI.GLibAttributes as GLibA +import qualified GI.Gio as Gio +import qualified GI.GioAttributes as GioA +import GI.Soup + +-- VVV Prop "family" + -- Type: TInterface "Soup" "AddressFamily" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAddressFamily :: (MonadIO m, AddressK o) => o -> m AddressFamily +getAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family" + +constructAddressFamily :: AddressFamily -> IO ([Char], GValue) +constructAddressFamily val = constructObjectPropertyEnum "family" val + +data AddressFamilyPropertyInfo +instance AttrInfo AddressFamilyPropertyInfo where + type AttrAllowedOps AddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AddressFamilyPropertyInfo = (~) AddressFamily + type AttrBaseTypeConstraint AddressFamilyPropertyInfo = AddressK + type AttrGetType AddressFamilyPropertyInfo = AddressFamily + type AttrLabel AddressFamilyPropertyInfo = "Address::family" + attrGet _ = getAddressFamily + attrSet _ = undefined + attrConstruct _ = constructAddressFamily + +-- VVV Prop "name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAddressName :: (MonadIO m, AddressK o) => o -> m T.Text +getAddressName obj = liftIO $ getObjectPropertyString obj "name" + +constructAddressName :: T.Text -> IO ([Char], GValue) +constructAddressName val = constructObjectPropertyString "name" val + +data AddressNamePropertyInfo +instance AttrInfo AddressNamePropertyInfo where + type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AddressNamePropertyInfo = AddressK + type AttrGetType AddressNamePropertyInfo = T.Text + type AttrLabel AddressNamePropertyInfo = "Address::name" + attrGet _ = getAddressName + attrSet _ = undefined + attrConstruct _ = constructAddressName + +-- VVV Prop "physical" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getAddressPhysical :: (MonadIO m, AddressK o) => o -> m T.Text +getAddressPhysical obj = liftIO $ getObjectPropertyString obj "physical" + +data AddressPhysicalPropertyInfo +instance AttrInfo AddressPhysicalPropertyInfo where + type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) () + type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = AddressK + type AttrGetType AddressPhysicalPropertyInfo = T.Text + type AttrLabel AddressPhysicalPropertyInfo = "Address::physical" + attrGet _ = getAddressPhysical + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "port" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAddressPort :: (MonadIO m, AddressK o) => o -> m Int32 +getAddressPort obj = liftIO $ getObjectPropertyCInt obj "port" + +constructAddressPort :: Int32 -> IO ([Char], GValue) +constructAddressPort val = constructObjectPropertyCInt "port" val + +data AddressPortPropertyInfo +instance AttrInfo AddressPortPropertyInfo where + type AttrAllowedOps AddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AddressPortPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint AddressPortPropertyInfo = AddressK + type AttrGetType AddressPortPropertyInfo = Int32 + type AttrLabel AddressPortPropertyInfo = "Address::port" + attrGet _ = getAddressPort + attrSet _ = undefined + attrConstruct _ = constructAddressPort + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAddressProtocol :: (MonadIO m, AddressK o) => o -> m T.Text +getAddressProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +constructAddressProtocol :: T.Text -> IO ([Char], GValue) +constructAddressProtocol val = constructObjectPropertyString "protocol" val + +data AddressProtocolPropertyInfo +instance AttrInfo AddressProtocolPropertyInfo where + type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AddressProtocolPropertyInfo = AddressK + type AttrGetType AddressProtocolPropertyInfo = T.Text + type AttrLabel AddressProtocolPropertyInfo = "Address::protocol" + attrGet _ = getAddressProtocol + attrSet _ = undefined + attrConstruct _ = constructAddressProtocol + +-- VVV Prop "sockaddr" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAddressSockaddr :: (MonadIO m, AddressK o) => o -> m (Ptr ()) +getAddressSockaddr obj = liftIO $ getObjectPropertyPtr obj "sockaddr" + +constructAddressSockaddr :: (Ptr ()) -> IO ([Char], GValue) +constructAddressSockaddr val = constructObjectPropertyPtr "sockaddr" val + +data AddressSockaddrPropertyInfo +instance AttrInfo AddressSockaddrPropertyInfo where + type AttrAllowedOps AddressSockaddrPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AddressSockaddrPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AddressSockaddrPropertyInfo = AddressK + type AttrGetType AddressSockaddrPropertyInfo = (Ptr ()) + type AttrLabel AddressSockaddrPropertyInfo = "Address::sockaddr" + attrGet _ = getAddressSockaddr + attrSet _ = undefined + attrConstruct _ = constructAddressSockaddr + +type instance AttributeList Address = '[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)] + +-- VVV Prop "host" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthHost :: (MonadIO m, AuthK o) => o -> m T.Text +getAuthHost obj = liftIO $ getObjectPropertyString obj "host" + +setAuthHost :: (MonadIO m, AuthK o) => o -> T.Text -> m () +setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" val + +constructAuthHost :: T.Text -> IO ([Char], GValue) +constructAuthHost val = constructObjectPropertyString "host" val + +data AuthHostPropertyInfo +instance AttrInfo AuthHostPropertyInfo where + type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AuthHostPropertyInfo = AuthK + type AttrGetType AuthHostPropertyInfo = T.Text + type AttrLabel AuthHostPropertyInfo = "Auth::host" + attrGet _ = getAuthHost + attrSet _ = setAuthHost + attrConstruct _ = constructAuthHost + +-- VVV Prop "is-authenticated" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getAuthIsAuthenticated :: (MonadIO m, AuthK o) => o -> m Bool +getAuthIsAuthenticated obj = liftIO $ getObjectPropertyBool obj "is-authenticated" + +data AuthIsAuthenticatedPropertyInfo +instance AttrInfo AuthIsAuthenticatedPropertyInfo where + type AttrAllowedOps AuthIsAuthenticatedPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint AuthIsAuthenticatedPropertyInfo = (~) () + type AttrBaseTypeConstraint AuthIsAuthenticatedPropertyInfo = AuthK + type AttrGetType AuthIsAuthenticatedPropertyInfo = Bool + type AttrLabel AuthIsAuthenticatedPropertyInfo = "Auth::is-authenticated" + attrGet _ = getAuthIsAuthenticated + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "is-for-proxy" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthIsForProxy :: (MonadIO m, AuthK o) => o -> m Bool +getAuthIsForProxy obj = liftIO $ getObjectPropertyBool obj "is-for-proxy" + +setAuthIsForProxy :: (MonadIO m, AuthK o) => o -> Bool -> m () +setAuthIsForProxy obj val = liftIO $ setObjectPropertyBool obj "is-for-proxy" val + +constructAuthIsForProxy :: Bool -> IO ([Char], GValue) +constructAuthIsForProxy val = constructObjectPropertyBool "is-for-proxy" val + +data AuthIsForProxyPropertyInfo +instance AttrInfo AuthIsForProxyPropertyInfo where + type AttrAllowedOps AuthIsForProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthIsForProxyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AuthIsForProxyPropertyInfo = AuthK + type AttrGetType AuthIsForProxyPropertyInfo = Bool + type AttrLabel AuthIsForProxyPropertyInfo = "Auth::is-for-proxy" + attrGet _ = getAuthIsForProxy + attrSet _ = setAuthIsForProxy + attrConstruct _ = constructAuthIsForProxy + +-- VVV Prop "realm" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthRealm :: (MonadIO m, AuthK o) => o -> m T.Text +getAuthRealm obj = liftIO $ getObjectPropertyString obj "realm" + +setAuthRealm :: (MonadIO m, AuthK o) => o -> T.Text -> m () +setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" val + +constructAuthRealm :: T.Text -> IO ([Char], GValue) +constructAuthRealm val = constructObjectPropertyString "realm" val + +data AuthRealmPropertyInfo +instance AttrInfo AuthRealmPropertyInfo where + type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AuthRealmPropertyInfo = AuthK + type AttrGetType AuthRealmPropertyInfo = T.Text + type AttrLabel AuthRealmPropertyInfo = "Auth::realm" + attrGet _ = getAuthRealm + attrSet _ = setAuthRealm + attrConstruct _ = constructAuthRealm + +-- VVV Prop "scheme-name" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable] + +getAuthSchemeName :: (MonadIO m, AuthK o) => o -> m T.Text +getAuthSchemeName obj = liftIO $ getObjectPropertyString obj "scheme-name" + +data AuthSchemeNamePropertyInfo +instance AttrInfo AuthSchemeNamePropertyInfo where + type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) () + type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = AuthK + type AttrGetType AuthSchemeNamePropertyInfo = T.Text + type AttrLabel AuthSchemeNamePropertyInfo = "Auth::scheme-name" + attrGet _ = getAuthSchemeName + attrSet _ = undefined + attrConstruct _ = undefined + +type instance AttributeList Auth = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] + +type instance AttributeList AuthBasic = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] + +type instance AttributeList AuthDigest = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] + +-- VVV Prop "add-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m () +setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" val + +constructAuthDomainAddPath :: T.Text -> IO ([Char], GValue) +constructAuthDomainAddPath val = constructObjectPropertyString "add-path" val + +data AuthDomainAddPathPropertyInfo +instance AttrInfo AuthDomainAddPathPropertyInfo where + type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = AuthDomainK + type AttrGetType AuthDomainAddPathPropertyInfo = () + type AttrLabel AuthDomainAddPathPropertyInfo = "AuthDomain::add-path" + attrGet _ = undefined + attrSet _ = setAuthDomainAddPath + attrConstruct _ = constructAuthDomainAddPath + +-- VVV Prop "filter" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) +getAuthDomainFilter obj = liftIO $ getObjectPropertyPtr obj "filter" + +setAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () +setAuthDomainFilter obj val = liftIO $ setObjectPropertyPtr obj "filter" val + +constructAuthDomainFilter :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainFilter val = constructObjectPropertyPtr "filter" val + +data AuthDomainFilterPropertyInfo +instance AttrInfo AuthDomainFilterPropertyInfo where + type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = AuthDomainK + type AttrGetType AuthDomainFilterPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainFilterPropertyInfo = "AuthDomain::filter" + attrGet _ = getAuthDomainFilter + attrSet _ = setAuthDomainFilter + attrConstruct _ = constructAuthDomainFilter + +-- VVV Prop "filter-data" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) +getAuthDomainFilterData obj = liftIO $ getObjectPropertyPtr obj "filter-data" + +setAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () +setAuthDomainFilterData obj val = liftIO $ setObjectPropertyPtr obj "filter-data" val + +constructAuthDomainFilterData :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainFilterData val = constructObjectPropertyPtr "filter-data" val + +data AuthDomainFilterDataPropertyInfo +instance AttrInfo AuthDomainFilterDataPropertyInfo where + type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = AuthDomainK + type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainFilterDataPropertyInfo = "AuthDomain::filter-data" + attrGet _ = getAuthDomainFilterData + attrSet _ = setAuthDomainFilterData + attrConstruct _ = constructAuthDomainFilterData + +-- VVV Prop "generic-auth-callback" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) +getAuthDomainGenericAuthCallback obj = liftIO $ getObjectPropertyPtr obj "generic-auth-callback" + +setAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () +setAuthDomainGenericAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-callback" val + +constructAuthDomainGenericAuthCallback :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainGenericAuthCallback val = constructObjectPropertyPtr "generic-auth-callback" val + +data AuthDomainGenericAuthCallbackPropertyInfo +instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where + type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = AuthDomainK + type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "AuthDomain::generic-auth-callback" + attrGet _ = getAuthDomainGenericAuthCallback + attrSet _ = setAuthDomainGenericAuthCallback + attrConstruct _ = constructAuthDomainGenericAuthCallback + +-- VVV Prop "generic-auth-data" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ()) +getAuthDomainGenericAuthData obj = liftIO $ getObjectPropertyPtr obj "generic-auth-data" + +setAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> (Ptr ()) -> m () +setAuthDomainGenericAuthData obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-data" val + +constructAuthDomainGenericAuthData :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainGenericAuthData val = constructObjectPropertyPtr "generic-auth-data" val + +data AuthDomainGenericAuthDataPropertyInfo +instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where + type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = AuthDomainK + type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "AuthDomain::generic-auth-data" + attrGet _ = getAuthDomainGenericAuthData + attrSet _ = setAuthDomainGenericAuthData + attrConstruct _ = constructAuthDomainGenericAuthData + +-- VVV Prop "proxy" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAuthDomainProxy :: (MonadIO m, AuthDomainK o) => o -> m Bool +getAuthDomainProxy obj = liftIO $ getObjectPropertyBool obj "proxy" + +constructAuthDomainProxy :: Bool -> IO ([Char], GValue) +constructAuthDomainProxy val = constructObjectPropertyBool "proxy" val + +data AuthDomainProxyPropertyInfo +instance AttrInfo AuthDomainProxyPropertyInfo where + type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = AuthDomainK + type AttrGetType AuthDomainProxyPropertyInfo = Bool + type AttrLabel AuthDomainProxyPropertyInfo = "AuthDomain::proxy" + attrGet _ = getAuthDomainProxy + attrSet _ = undefined + attrConstruct _ = constructAuthDomainProxy + +-- VVV Prop "realm" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getAuthDomainRealm :: (MonadIO m, AuthDomainK o) => o -> m T.Text +getAuthDomainRealm obj = liftIO $ getObjectPropertyString obj "realm" + +constructAuthDomainRealm :: T.Text -> IO ([Char], GValue) +constructAuthDomainRealm val = constructObjectPropertyString "realm" val + +data AuthDomainRealmPropertyInfo +instance AttrInfo AuthDomainRealmPropertyInfo where + type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = AuthDomainK + type AttrGetType AuthDomainRealmPropertyInfo = T.Text + type AttrLabel AuthDomainRealmPropertyInfo = "AuthDomain::realm" + attrGet _ = getAuthDomainRealm + attrSet _ = undefined + attrConstruct _ = constructAuthDomainRealm + +-- VVV Prop "remove-path" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyWritable] + +setAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m () +setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" val + +constructAuthDomainRemovePath :: T.Text -> IO ([Char], GValue) +constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" val + +data AuthDomainRemovePathPropertyInfo +instance AttrInfo AuthDomainRemovePathPropertyInfo where + type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = AuthDomainK + type AttrGetType AuthDomainRemovePathPropertyInfo = () + type AttrLabel AuthDomainRemovePathPropertyInfo = "AuthDomain::remove-path" + attrGet _ = undefined + attrSet _ = setAuthDomainRemovePath + attrConstruct _ = constructAuthDomainRemovePath + +type instance AttributeList AuthDomain = '[ '("add-path", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] + +-- VVV Prop "auth-callback" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ()) +getAuthDomainBasicAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback" + +setAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m () +setAuthDomainBasicAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val + +constructAuthDomainBasicAuthCallback :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainBasicAuthCallback val = constructObjectPropertyPtr "auth-callback" val + +data AuthDomainBasicAuthCallbackPropertyInfo +instance AttrInfo AuthDomainBasicAuthCallbackPropertyInfo where + type AttrAllowedOps AuthDomainBasicAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = AuthDomainBasicK + type AttrGetType AuthDomainBasicAuthCallbackPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainBasicAuthCallbackPropertyInfo = "AuthDomainBasic::auth-callback" + attrGet _ = getAuthDomainBasicAuthCallback + attrSet _ = setAuthDomainBasicAuthCallback + attrConstruct _ = constructAuthDomainBasicAuthCallback + +-- VVV Prop "auth-data" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ()) +getAuthDomainBasicAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data" + +setAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> (Ptr ()) -> m () +setAuthDomainBasicAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val + +constructAuthDomainBasicAuthData :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainBasicAuthData val = constructObjectPropertyPtr "auth-data" val + +data AuthDomainBasicAuthDataPropertyInfo +instance AttrInfo AuthDomainBasicAuthDataPropertyInfo where + type AttrAllowedOps AuthDomainBasicAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainBasicAuthDataPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainBasicAuthDataPropertyInfo = AuthDomainBasicK + type AttrGetType AuthDomainBasicAuthDataPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainBasicAuthDataPropertyInfo = "AuthDomainBasic::auth-data" + attrGet _ = getAuthDomainBasicAuthData + attrSet _ = setAuthDomainBasicAuthData + attrConstruct _ = constructAuthDomainBasicAuthData + +type instance AttributeList AuthDomainBasic = '[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainBasicAuthCallbackPropertyInfo), '("auth-data", AuthDomainBasicAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] + +-- VVV Prop "auth-callback" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ()) +getAuthDomainDigestAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback" + +setAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m () +setAuthDomainDigestAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val + +constructAuthDomainDigestAuthCallback :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainDigestAuthCallback val = constructObjectPropertyPtr "auth-callback" val + +data AuthDomainDigestAuthCallbackPropertyInfo +instance AttrInfo AuthDomainDigestAuthCallbackPropertyInfo where + type AttrAllowedOps AuthDomainDigestAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = AuthDomainDigestK + type AttrGetType AuthDomainDigestAuthCallbackPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainDigestAuthCallbackPropertyInfo = "AuthDomainDigest::auth-callback" + attrGet _ = getAuthDomainDigestAuthCallback + attrSet _ = setAuthDomainDigestAuthCallback + attrConstruct _ = constructAuthDomainDigestAuthCallback + +-- VVV Prop "auth-data" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ()) +getAuthDomainDigestAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data" + +setAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> (Ptr ()) -> m () +setAuthDomainDigestAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val + +constructAuthDomainDigestAuthData :: (Ptr ()) -> IO ([Char], GValue) +constructAuthDomainDigestAuthData val = constructObjectPropertyPtr "auth-data" val + +data AuthDomainDigestAuthDataPropertyInfo +instance AttrInfo AuthDomainDigestAuthDataPropertyInfo where + type AttrAllowedOps AuthDomainDigestAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint AuthDomainDigestAuthDataPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint AuthDomainDigestAuthDataPropertyInfo = AuthDomainDigestK + type AttrGetType AuthDomainDigestAuthDataPropertyInfo = (Ptr ()) + type AttrLabel AuthDomainDigestAuthDataPropertyInfo = "AuthDomainDigest::auth-data" + attrGet _ = getAuthDomainDigestAuthData + attrSet _ = setAuthDomainDigestAuthData + attrConstruct _ = constructAuthDomainDigestAuthData + +type instance AttributeList AuthDomainDigest = '[ '("add-path", AuthDomainAddPathPropertyInfo), '("auth-callback", AuthDomainDigestAuthCallbackPropertyInfo), '("auth-data", AuthDomainDigestAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filter-data", AuthDomainFilterDataPropertyInfo), '("generic-auth-callback", AuthDomainGenericAuthCallbackPropertyInfo), '("generic-auth-data", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("remove-path", AuthDomainRemovePathPropertyInfo)] + +type instance AttributeList AuthManager = '[ ] + +type instance AttributeList AuthNTLM = '[ '("host", AuthHostPropertyInfo), '("is-authenticated", AuthIsAuthenticatedPropertyInfo), '("is-for-proxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("scheme-name", AuthSchemeNamePropertyInfo)] + +-- VVV Prop "cache-dir" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m T.Text +getCacheCacheDir obj = liftIO $ getObjectPropertyString obj "cache-dir" + +constructCacheCacheDir :: T.Text -> IO ([Char], GValue) +constructCacheCacheDir val = constructObjectPropertyString "cache-dir" val + +data CacheCacheDirPropertyInfo +instance AttrInfo CacheCacheDirPropertyInfo where + type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = CacheK + type AttrGetType CacheCacheDirPropertyInfo = T.Text + type AttrLabel CacheCacheDirPropertyInfo = "Cache::cache-dir" + attrGet _ = getCacheCacheDir + attrSet _ = undefined + attrConstruct _ = constructCacheCacheDir + +-- VVV Prop "cache-type" + -- Type: TInterface "Soup" "CacheType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCacheCacheType :: (MonadIO m, CacheK o) => o -> m CacheType +getCacheCacheType obj = liftIO $ getObjectPropertyEnum obj "cache-type" + +constructCacheCacheType :: CacheType -> IO ([Char], GValue) +constructCacheCacheType val = constructObjectPropertyEnum "cache-type" val + +data CacheCacheTypePropertyInfo +instance AttrInfo CacheCacheTypePropertyInfo where + type AttrAllowedOps CacheCacheTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CacheCacheTypePropertyInfo = (~) CacheType + type AttrBaseTypeConstraint CacheCacheTypePropertyInfo = CacheK + type AttrGetType CacheCacheTypePropertyInfo = CacheType + type AttrLabel CacheCacheTypePropertyInfo = "Cache::cache-type" + attrGet _ = getCacheCacheType + attrSet _ = undefined + attrConstruct _ = constructCacheCacheType + +type instance AttributeList Cache = '[ '("cache-dir", CacheCacheDirPropertyInfo), '("cache-type", CacheCacheTypePropertyInfo)] + +type instance AttributeList ContentDecoder = '[ ] + +type instance AttributeList ContentSniffer = '[ ] + +-- VVV Prop "accept-policy" + -- Type: TInterface "Soup" "CookieJarAcceptPolicy" + -- Flags: [PropertyReadable,PropertyWritable] + +getCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> m CookieJarAcceptPolicy +getCookieJarAcceptPolicy obj = liftIO $ getObjectPropertyEnum obj "accept-policy" + +setCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> CookieJarAcceptPolicy -> m () +setCookieJarAcceptPolicy obj val = liftIO $ setObjectPropertyEnum obj "accept-policy" val + +constructCookieJarAcceptPolicy :: CookieJarAcceptPolicy -> IO ([Char], GValue) +constructCookieJarAcceptPolicy val = constructObjectPropertyEnum "accept-policy" val + +data CookieJarAcceptPolicyPropertyInfo +instance AttrInfo CookieJarAcceptPolicyPropertyInfo where + type AttrAllowedOps CookieJarAcceptPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) CookieJarAcceptPolicy + type AttrBaseTypeConstraint CookieJarAcceptPolicyPropertyInfo = CookieJarK + type AttrGetType CookieJarAcceptPolicyPropertyInfo = CookieJarAcceptPolicy + type AttrLabel CookieJarAcceptPolicyPropertyInfo = "CookieJar::accept-policy" + attrGet _ = getCookieJarAcceptPolicy + attrSet _ = setCookieJarAcceptPolicy + attrConstruct _ = constructCookieJarAcceptPolicy + +-- VVV Prop "read-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCookieJarReadOnly :: (MonadIO m, CookieJarK o) => o -> m Bool +getCookieJarReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only" + +constructCookieJarReadOnly :: Bool -> IO ([Char], GValue) +constructCookieJarReadOnly val = constructObjectPropertyBool "read-only" val + +data CookieJarReadOnlyPropertyInfo +instance AttrInfo CookieJarReadOnlyPropertyInfo where + type AttrAllowedOps CookieJarReadOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint CookieJarReadOnlyPropertyInfo = CookieJarK + type AttrGetType CookieJarReadOnlyPropertyInfo = Bool + type AttrLabel CookieJarReadOnlyPropertyInfo = "CookieJar::read-only" + attrGet _ = getCookieJarReadOnly + attrSet _ = undefined + attrConstruct _ = constructCookieJarReadOnly + +type instance AttributeList CookieJar = '[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] + +-- VVV Prop "filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m T.Text +getCookieJarDBFilename obj = liftIO $ getObjectPropertyString obj "filename" + +constructCookieJarDBFilename :: T.Text -> IO ([Char], GValue) +constructCookieJarDBFilename val = constructObjectPropertyString "filename" val + +data CookieJarDBFilenamePropertyInfo +instance AttrInfo CookieJarDBFilenamePropertyInfo where + type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = CookieJarDBK + type AttrGetType CookieJarDBFilenamePropertyInfo = T.Text + type AttrLabel CookieJarDBFilenamePropertyInfo = "CookieJarDB::filename" + attrGet _ = getCookieJarDBFilename + attrSet _ = undefined + attrConstruct _ = constructCookieJarDBFilename + +type instance AttributeList CookieJarDB = '[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] + +-- VVV Prop "filename" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m T.Text +getCookieJarTextFilename obj = liftIO $ getObjectPropertyString obj "filename" + +constructCookieJarTextFilename :: T.Text -> IO ([Char], GValue) +constructCookieJarTextFilename val = constructObjectPropertyString "filename" val + +data CookieJarTextFilenamePropertyInfo +instance AttrInfo CookieJarTextFilenamePropertyInfo where + type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = CookieJarTextK + type AttrGetType CookieJarTextFilenamePropertyInfo = T.Text + type AttrLabel CookieJarTextFilenamePropertyInfo = "CookieJarText::filename" + attrGet _ = getCookieJarTextFilename + attrSet _ = undefined + attrConstruct _ = constructCookieJarTextFilename + +type instance AttributeList CookieJarText = '[ '("accept-policy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("read-only", CookieJarReadOnlyPropertyInfo)] + +type instance AttributeList Logger = '[ ] + +-- VVV Prop "first-party" + -- Type: TInterface "Soup" "URI" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI +getMessageFirstParty obj = liftIO $ getObjectPropertyBoxed obj "first-party" URI + +setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m () +setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" val + +constructMessageFirstParty :: URI -> IO ([Char], GValue) +constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" val + +data MessageFirstPartyPropertyInfo +instance AttrInfo MessageFirstPartyPropertyInfo where + type AttrAllowedOps MessageFirstPartyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageFirstPartyPropertyInfo = (~) URI + type AttrBaseTypeConstraint MessageFirstPartyPropertyInfo = MessageK + type AttrGetType MessageFirstPartyPropertyInfo = URI + type AttrLabel MessageFirstPartyPropertyInfo = "Message::first-party" + attrGet _ = getMessageFirstParty + attrSet _ = setMessageFirstParty + attrConstruct _ = constructMessageFirstParty + +-- VVV Prop "flags" + -- Type: TInterface "Soup" "MessageFlags" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageFlags :: (MonadIO m, MessageK o) => o -> m [MessageFlags] +getMessageFlags obj = liftIO $ getObjectPropertyFlags obj "flags" + +setMessageFlags :: (MonadIO m, MessageK o) => o -> [MessageFlags] -> m () +setMessageFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val + +constructMessageFlags :: [MessageFlags] -> IO ([Char], GValue) +constructMessageFlags val = constructObjectPropertyFlags "flags" val + +data MessageFlagsPropertyInfo +instance AttrInfo MessageFlagsPropertyInfo where + type AttrAllowedOps MessageFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageFlagsPropertyInfo = (~) [MessageFlags] + type AttrBaseTypeConstraint MessageFlagsPropertyInfo = MessageK + type AttrGetType MessageFlagsPropertyInfo = [MessageFlags] + type AttrLabel MessageFlagsPropertyInfo = "Message::flags" + attrGet _ = getMessageFlags + attrSet _ = setMessageFlags + attrConstruct _ = constructMessageFlags + +-- VVV Prop "http-version" + -- Type: TInterface "Soup" "HTTPVersion" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageHttpVersion :: (MonadIO m, MessageK o) => o -> m HTTPVersion +getMessageHttpVersion obj = liftIO $ getObjectPropertyEnum obj "http-version" + +setMessageHttpVersion :: (MonadIO m, MessageK o) => o -> HTTPVersion -> m () +setMessageHttpVersion obj val = liftIO $ setObjectPropertyEnum obj "http-version" val + +constructMessageHttpVersion :: HTTPVersion -> IO ([Char], GValue) +constructMessageHttpVersion val = constructObjectPropertyEnum "http-version" val + +data MessageHttpVersionPropertyInfo +instance AttrInfo MessageHttpVersionPropertyInfo where + type AttrAllowedOps MessageHttpVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageHttpVersionPropertyInfo = (~) HTTPVersion + type AttrBaseTypeConstraint MessageHttpVersionPropertyInfo = MessageK + type AttrGetType MessageHttpVersionPropertyInfo = HTTPVersion + type AttrLabel MessageHttpVersionPropertyInfo = "Message::http-version" + attrGet _ = getMessageHttpVersion + attrSet _ = setMessageHttpVersion + attrConstruct _ = constructMessageHttpVersion + +-- VVV Prop "method" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageMethod :: (MonadIO m, MessageK o) => o -> m T.Text +getMessageMethod obj = liftIO $ getObjectPropertyString obj "method" + +setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m () +setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" val + +constructMessageMethod :: T.Text -> IO ([Char], GValue) +constructMessageMethod val = constructObjectPropertyString "method" val + +data MessageMethodPropertyInfo +instance AttrInfo MessageMethodPropertyInfo where + type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK + type AttrGetType MessageMethodPropertyInfo = T.Text + type AttrLabel MessageMethodPropertyInfo = "Message::method" + attrGet _ = getMessageMethod + attrSet _ = setMessageMethod + attrConstruct _ = constructMessageMethod + +-- VVV Prop "priority" + -- Type: TInterface "Soup" "MessagePriority" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessagePriority :: (MonadIO m, MessageK o) => o -> m MessagePriority +getMessagePriority obj = liftIO $ getObjectPropertyEnum obj "priority" + +setMessagePriority :: (MonadIO m, MessageK o) => o -> MessagePriority -> m () +setMessagePriority obj val = liftIO $ setObjectPropertyEnum obj "priority" val + +constructMessagePriority :: MessagePriority -> IO ([Char], GValue) +constructMessagePriority val = constructObjectPropertyEnum "priority" val + +data MessagePriorityPropertyInfo +instance AttrInfo MessagePriorityPropertyInfo where + type AttrAllowedOps MessagePriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessagePriorityPropertyInfo = (~) MessagePriority + type AttrBaseTypeConstraint MessagePriorityPropertyInfo = MessageK + type AttrGetType MessagePriorityPropertyInfo = MessagePriority + type AttrLabel MessagePriorityPropertyInfo = "Message::priority" + attrGet _ = getMessagePriority + attrSet _ = setMessagePriority + attrConstruct _ = constructMessagePriority + +-- VVV Prop "reason-phrase" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m T.Text +getMessageReasonPhrase obj = liftIO $ getObjectPropertyString obj "reason-phrase" + +setMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> T.Text -> m () +setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" val + +constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue) +constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" val + +data MessageReasonPhrasePropertyInfo +instance AttrInfo MessageReasonPhrasePropertyInfo where + type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK + type AttrGetType MessageReasonPhrasePropertyInfo = T.Text + type AttrLabel MessageReasonPhrasePropertyInfo = "Message::reason-phrase" + attrGet _ = getMessageReasonPhrase + attrSet _ = setMessageReasonPhrase + attrConstruct _ = constructMessageReasonPhrase + +-- VVV Prop "request-body" + -- Type: TInterface "Soup" "MessageBody" + -- Flags: [PropertyReadable] + +getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m MessageBody +getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody + +data MessageRequestBodyPropertyInfo +instance AttrInfo MessageRequestBodyPropertyInfo where + type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) () + type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK + type AttrGetType MessageRequestBodyPropertyInfo = MessageBody + type AttrLabel MessageRequestBodyPropertyInfo = "Message::request-body" + attrGet _ = getMessageRequestBody + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "request-body-data" + -- Type: TInterface "GLib" "Bytes" + -- Flags: [PropertyReadable] + +getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes +getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes + +data MessageRequestBodyDataPropertyInfo +instance AttrInfo MessageRequestBodyDataPropertyInfo where + type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) () + type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK + type AttrGetType MessageRequestBodyDataPropertyInfo = GLib.Bytes + type AttrLabel MessageRequestBodyDataPropertyInfo = "Message::request-body-data" + attrGet _ = getMessageRequestBodyData + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "request-headers" + -- Type: TInterface "Soup" "MessageHeaders" + -- Flags: [PropertyReadable] + +getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders +getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders + +data MessageRequestHeadersPropertyInfo +instance AttrInfo MessageRequestHeadersPropertyInfo where + type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) () + type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK + type AttrGetType MessageRequestHeadersPropertyInfo = MessageHeaders + type AttrLabel MessageRequestHeadersPropertyInfo = "Message::request-headers" + attrGet _ = getMessageRequestHeaders + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "response-body" + -- Type: TInterface "Soup" "MessageBody" + -- Flags: [PropertyReadable] + +getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m MessageBody +getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody + +data MessageResponseBodyPropertyInfo +instance AttrInfo MessageResponseBodyPropertyInfo where + type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) () + type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK + type AttrGetType MessageResponseBodyPropertyInfo = MessageBody + type AttrLabel MessageResponseBodyPropertyInfo = "Message::response-body" + attrGet _ = getMessageResponseBody + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "response-body-data" + -- Type: TInterface "GLib" "Bytes" + -- Flags: [PropertyReadable] + +getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m GLib.Bytes +getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes + +data MessageResponseBodyDataPropertyInfo +instance AttrInfo MessageResponseBodyDataPropertyInfo where + type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) () + type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK + type AttrGetType MessageResponseBodyDataPropertyInfo = GLib.Bytes + type AttrLabel MessageResponseBodyDataPropertyInfo = "Message::response-body-data" + attrGet _ = getMessageResponseBodyData + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "response-headers" + -- Type: TInterface "Soup" "MessageHeaders" + -- Flags: [PropertyReadable] + +getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m MessageHeaders +getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders + +data MessageResponseHeadersPropertyInfo +instance AttrInfo MessageResponseHeadersPropertyInfo where + type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) () + type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK + type AttrGetType MessageResponseHeadersPropertyInfo = MessageHeaders + type AttrLabel MessageResponseHeadersPropertyInfo = "Message::response-headers" + attrGet _ = getMessageResponseHeaders + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "server-side" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getMessageServerSide :: (MonadIO m, MessageK o) => o -> m Bool +getMessageServerSide obj = liftIO $ getObjectPropertyBool obj "server-side" + +constructMessageServerSide :: Bool -> IO ([Char], GValue) +constructMessageServerSide val = constructObjectPropertyBool "server-side" val + +data MessageServerSidePropertyInfo +instance AttrInfo MessageServerSidePropertyInfo where + type AttrAllowedOps MessageServerSidePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageServerSidePropertyInfo = (~) Bool + type AttrBaseTypeConstraint MessageServerSidePropertyInfo = MessageK + type AttrGetType MessageServerSidePropertyInfo = Bool + type AttrLabel MessageServerSidePropertyInfo = "Message::server-side" + attrGet _ = getMessageServerSide + attrSet _ = undefined + attrConstruct _ = constructMessageServerSide + +-- VVV Prop "status-code" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32 +getMessageStatusCode obj = liftIO $ getObjectPropertyCUInt obj "status-code" + +setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m () +setMessageStatusCode obj val = liftIO $ setObjectPropertyCUInt obj "status-code" val + +constructMessageStatusCode :: Word32 -> IO ([Char], GValue) +constructMessageStatusCode val = constructObjectPropertyCUInt "status-code" val + +data MessageStatusCodePropertyInfo +instance AttrInfo MessageStatusCodePropertyInfo where + type AttrAllowedOps MessageStatusCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageStatusCodePropertyInfo = (~) Word32 + type AttrBaseTypeConstraint MessageStatusCodePropertyInfo = MessageK + type AttrGetType MessageStatusCodePropertyInfo = Word32 + type AttrLabel MessageStatusCodePropertyInfo = "Message::status-code" + attrGet _ = getMessageStatusCode + attrSet _ = setMessageStatusCode + attrConstruct _ = constructMessageStatusCode + +-- VVV Prop "tls-certificate" + -- Type: TInterface "Gio" "TlsCertificate" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m Gio.TlsCertificate +getMessageTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate + +setMessageTlsCertificate :: (MonadIO m, MessageK o, Gio.TlsCertificateK a) => o -> a -> m () +setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" val + +constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue) +constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" val + +data MessageTlsCertificatePropertyInfo +instance AttrInfo MessageTlsCertificatePropertyInfo where + type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK + type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK + type AttrGetType MessageTlsCertificatePropertyInfo = Gio.TlsCertificate + type AttrLabel MessageTlsCertificatePropertyInfo = "Message::tls-certificate" + attrGet _ = getMessageTlsCertificate + attrSet _ = setMessageTlsCertificate + attrConstruct _ = constructMessageTlsCertificate + +-- VVV Prop "tls-errors" + -- Type: TInterface "Gio" "TlsCertificateFlags" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageTlsErrors :: (MonadIO m, MessageK o) => o -> m [Gio.TlsCertificateFlags] +getMessageTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors" + +setMessageTlsErrors :: (MonadIO m, MessageK o) => o -> [Gio.TlsCertificateFlags] -> m () +setMessageTlsErrors obj val = liftIO $ setObjectPropertyFlags obj "tls-errors" val + +constructMessageTlsErrors :: [Gio.TlsCertificateFlags] -> IO ([Char], GValue) +constructMessageTlsErrors val = constructObjectPropertyFlags "tls-errors" val + +data MessageTlsErrorsPropertyInfo +instance AttrInfo MessageTlsErrorsPropertyInfo where + type AttrAllowedOps MessageTlsErrorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageTlsErrorsPropertyInfo = (~) [Gio.TlsCertificateFlags] + type AttrBaseTypeConstraint MessageTlsErrorsPropertyInfo = MessageK + type AttrGetType MessageTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags] + type AttrLabel MessageTlsErrorsPropertyInfo = "Message::tls-errors" + attrGet _ = getMessageTlsErrors + attrSet _ = setMessageTlsErrors + attrConstruct _ = constructMessageTlsErrors + +-- VVV Prop "uri" + -- Type: TInterface "Soup" "URI" + -- Flags: [PropertyReadable,PropertyWritable] + +getMessageUri :: (MonadIO m, MessageK o) => o -> m URI +getMessageUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI + +setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m () +setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" val + +constructMessageUri :: URI -> IO ([Char], GValue) +constructMessageUri val = constructObjectPropertyBoxed "uri" val + +data MessageUriPropertyInfo +instance AttrInfo MessageUriPropertyInfo where + type AttrAllowedOps MessageUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MessageUriPropertyInfo = (~) URI + type AttrBaseTypeConstraint MessageUriPropertyInfo = MessageK + type AttrGetType MessageUriPropertyInfo = URI + type AttrLabel MessageUriPropertyInfo = "Message::uri" + attrGet _ = getMessageUri + attrSet _ = setMessageUri + attrConstruct _ = constructMessageUri + +type instance AttributeList Message = '[ '("first-party", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("http-version", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reason-phrase", MessageReasonPhrasePropertyInfo), '("request-body", MessageRequestBodyPropertyInfo), '("request-body-data", MessageRequestBodyDataPropertyInfo), '("request-headers", MessageRequestHeadersPropertyInfo), '("response-body", MessageResponseBodyPropertyInfo), '("response-body-data", MessageResponseBodyDataPropertyInfo), '("response-headers", MessageResponseHeadersPropertyInfo), '("server-side", MessageServerSidePropertyInfo), '("status-code", MessageStatusCodePropertyInfo), '("tls-certificate", MessageTlsCertificatePropertyInfo), '("tls-errors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)] + +-- VVV Prop "message" + -- Type: TInterface "Soup" "Message" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m Message +getMultipartInputStreamMessage obj = liftIO $ getObjectPropertyObject obj "message" Message + +constructMultipartInputStreamMessage :: (MessageK a) => a -> IO ([Char], GValue) +constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" val + +data MultipartInputStreamMessagePropertyInfo +instance AttrInfo MultipartInputStreamMessagePropertyInfo where + type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = MessageK + type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = MultipartInputStreamK + type AttrGetType MultipartInputStreamMessagePropertyInfo = Message + type AttrLabel MultipartInputStreamMessagePropertyInfo = "MultipartInputStream::message" + attrGet _ = getMultipartInputStreamMessage + attrSet _ = undefined + attrConstruct _ = constructMultipartInputStreamMessage + +type instance AttributeList MultipartInputStream = '[ '("base-stream", GioA.FilterInputStreamBaseStreamPropertyInfo), '("close-base-stream", GioA.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)] + +type instance AttributeList PasswordManager = '[ ] + +-- VVV Prop "gproxy-resolver" + -- Type: TInterface "Gio" "ProxyResolver" + -- Flags: [PropertyWritable] + +setProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o, Gio.ProxyResolverK a) => o -> a -> m () +setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" val + +constructProxyResolverDefaultGproxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue) +constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" val + +data ProxyResolverDefaultGproxyResolverPropertyInfo +instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where + type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct] + type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolverK + type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefaultK + type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = () + type AttrLabel ProxyResolverDefaultGproxyResolverPropertyInfo = "ProxyResolverDefault::gproxy-resolver" + attrGet _ = undefined + attrSet _ = setProxyResolverDefaultGproxyResolver + attrConstruct _ = constructProxyResolverDefaultGproxyResolver + +type instance AttributeList ProxyResolverDefault = '[ '("gproxy-resolver", ProxyResolverDefaultGproxyResolverPropertyInfo)] + +type instance AttributeList ProxyURIResolver = '[ ] + +-- VVV Prop "session" + -- Type: TInterface "Soup" "Session" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getRequestSession :: (MonadIO m, RequestK o) => o -> m Session +getRequestSession obj = liftIO $ getObjectPropertyObject obj "session" Session + +constructRequestSession :: (SessionK a) => a -> IO ([Char], GValue) +constructRequestSession val = constructObjectPropertyObject "session" val + +data RequestSessionPropertyInfo +instance AttrInfo RequestSessionPropertyInfo where + type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RequestSessionPropertyInfo = SessionK + type AttrBaseTypeConstraint RequestSessionPropertyInfo = RequestK + type AttrGetType RequestSessionPropertyInfo = Session + type AttrLabel RequestSessionPropertyInfo = "Request::session" + attrGet _ = getRequestSession + attrSet _ = undefined + attrConstruct _ = constructRequestSession + +-- VVV Prop "uri" + -- Type: TInterface "Soup" "URI" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getRequestUri :: (MonadIO m, RequestK o) => o -> m URI +getRequestUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI + +constructRequestUri :: URI -> IO ([Char], GValue) +constructRequestUri val = constructObjectPropertyBoxed "uri" val + +data RequestUriPropertyInfo +instance AttrInfo RequestUriPropertyInfo where + type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint RequestUriPropertyInfo = (~) URI + type AttrBaseTypeConstraint RequestUriPropertyInfo = RequestK + type AttrGetType RequestUriPropertyInfo = URI + type AttrLabel RequestUriPropertyInfo = "Request::uri" + attrGet _ = getRequestUri + attrSet _ = undefined + attrConstruct _ = constructRequestUri + +type instance AttributeList Request = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] + +type instance AttributeList RequestData = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] + +type instance AttributeList RequestFile = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] + +type instance AttributeList RequestHTTP = '[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] + +type instance AttributeList Requester = '[ ] + +-- VVV Prop "async-context" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getServerAsyncContext :: (MonadIO m, ServerK o) => o -> m (Ptr ()) +getServerAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context" + +constructServerAsyncContext :: (Ptr ()) -> IO ([Char], GValue) +constructServerAsyncContext val = constructObjectPropertyPtr "async-context" val + +data ServerAsyncContextPropertyInfo +instance AttrInfo ServerAsyncContextPropertyInfo where + type AttrAllowedOps ServerAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerAsyncContextPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint ServerAsyncContextPropertyInfo = ServerK + type AttrGetType ServerAsyncContextPropertyInfo = (Ptr ()) + type AttrLabel ServerAsyncContextPropertyInfo = "Server::async-context" + attrGet _ = getServerAsyncContext + attrSet _ = undefined + attrConstruct _ = constructServerAsyncContext + +-- VVV Prop "http-aliases" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getServerHttpAliases :: (MonadIO m, ServerK o) => o -> m [T.Text] +getServerHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases" + +setServerHttpAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m () +setServerHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val + +constructServerHttpAliases :: [T.Text] -> IO ([Char], GValue) +constructServerHttpAliases val = constructObjectPropertyStringArray "http-aliases" val + +data ServerHttpAliasesPropertyInfo +instance AttrInfo ServerHttpAliasesPropertyInfo where + type AttrAllowedOps ServerHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerHttpAliasesPropertyInfo = (~) [T.Text] + type AttrBaseTypeConstraint ServerHttpAliasesPropertyInfo = ServerK + type AttrGetType ServerHttpAliasesPropertyInfo = [T.Text] + type AttrLabel ServerHttpAliasesPropertyInfo = "Server::http-aliases" + attrGet _ = getServerHttpAliases + attrSet _ = setServerHttpAliases + attrConstruct _ = constructServerHttpAliases + +-- VVV Prop "https-aliases" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m [T.Text] +getServerHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases" + +setServerHttpsAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m () +setServerHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val + +constructServerHttpsAliases :: [T.Text] -> IO ([Char], GValue) +constructServerHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val + +data ServerHttpsAliasesPropertyInfo +instance AttrInfo ServerHttpsAliasesPropertyInfo where + type AttrAllowedOps ServerHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerHttpsAliasesPropertyInfo = (~) [T.Text] + type AttrBaseTypeConstraint ServerHttpsAliasesPropertyInfo = ServerK + type AttrGetType ServerHttpsAliasesPropertyInfo = [T.Text] + type AttrLabel ServerHttpsAliasesPropertyInfo = "Server::https-aliases" + attrGet _ = getServerHttpsAliases + attrSet _ = setServerHttpsAliases + attrConstruct _ = constructServerHttpsAliases + +-- VVV Prop "interface" + -- Type: TInterface "Soup" "Address" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getServerInterface :: (MonadIO m, ServerK o) => o -> m Address +getServerInterface obj = liftIO $ getObjectPropertyObject obj "interface" Address + +constructServerInterface :: (AddressK a) => a -> IO ([Char], GValue) +constructServerInterface val = constructObjectPropertyObject "interface" val + +data ServerInterfacePropertyInfo +instance AttrInfo ServerInterfacePropertyInfo where + type AttrAllowedOps ServerInterfacePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerInterfacePropertyInfo = AddressK + type AttrBaseTypeConstraint ServerInterfacePropertyInfo = ServerK + type AttrGetType ServerInterfacePropertyInfo = Address + type AttrLabel ServerInterfacePropertyInfo = "Server::interface" + attrGet _ = getServerInterface + attrSet _ = undefined + attrConstruct _ = constructServerInterface + +-- VVV Prop "port" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getServerPort :: (MonadIO m, ServerK o) => o -> m Word32 +getServerPort obj = liftIO $ getObjectPropertyCUInt obj "port" + +constructServerPort :: Word32 -> IO ([Char], GValue) +constructServerPort val = constructObjectPropertyCUInt "port" val + +data ServerPortPropertyInfo +instance AttrInfo ServerPortPropertyInfo where + type AttrAllowedOps ServerPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerPortPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint ServerPortPropertyInfo = ServerK + type AttrGetType ServerPortPropertyInfo = Word32 + type AttrLabel ServerPortPropertyInfo = "Server::port" + attrGet _ = getServerPort + attrSet _ = undefined + attrConstruct _ = constructServerPort + +-- VVV Prop "raw-paths" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getServerRawPaths :: (MonadIO m, ServerK o) => o -> m Bool +getServerRawPaths obj = liftIO $ getObjectPropertyBool obj "raw-paths" + +constructServerRawPaths :: Bool -> IO ([Char], GValue) +constructServerRawPaths val = constructObjectPropertyBool "raw-paths" val + +data ServerRawPathsPropertyInfo +instance AttrInfo ServerRawPathsPropertyInfo where + type AttrAllowedOps ServerRawPathsPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerRawPathsPropertyInfo = (~) Bool + type AttrBaseTypeConstraint ServerRawPathsPropertyInfo = ServerK + type AttrGetType ServerRawPathsPropertyInfo = Bool + type AttrLabel ServerRawPathsPropertyInfo = "Server::raw-paths" + attrGet _ = getServerRawPaths + attrSet _ = undefined + attrConstruct _ = constructServerRawPaths + +-- VVV Prop "server-header" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] + +getServerServerHeader :: (MonadIO m, ServerK o) => o -> m T.Text +getServerServerHeader obj = liftIO $ getObjectPropertyString obj "server-header" + +setServerServerHeader :: (MonadIO m, ServerK o) => o -> T.Text -> m () +setServerServerHeader obj val = liftIO $ setObjectPropertyString obj "server-header" val + +constructServerServerHeader :: T.Text -> IO ([Char], GValue) +constructServerServerHeader val = constructObjectPropertyString "server-header" val + +data ServerServerHeaderPropertyInfo +instance AttrInfo ServerServerHeaderPropertyInfo where + type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = ServerK + type AttrGetType ServerServerHeaderPropertyInfo = T.Text + type AttrLabel ServerServerHeaderPropertyInfo = "Server::server-header" + attrGet _ = getServerServerHeader + attrSet _ = setServerServerHeader + attrConstruct _ = constructServerServerHeader + +-- VVV Prop "ssl-cert-file" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getServerSslCertFile :: (MonadIO m, ServerK o) => o -> m T.Text +getServerSslCertFile obj = liftIO $ getObjectPropertyString obj "ssl-cert-file" + +constructServerSslCertFile :: T.Text -> IO ([Char], GValue) +constructServerSslCertFile val = constructObjectPropertyString "ssl-cert-file" val + +data ServerSslCertFilePropertyInfo +instance AttrInfo ServerSslCertFilePropertyInfo where + type AttrAllowedOps ServerSslCertFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerSslCertFilePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ServerSslCertFilePropertyInfo = ServerK + type AttrGetType ServerSslCertFilePropertyInfo = T.Text + type AttrLabel ServerSslCertFilePropertyInfo = "Server::ssl-cert-file" + attrGet _ = getServerSslCertFile + attrSet _ = undefined + attrConstruct _ = constructServerSslCertFile + +-- VVV Prop "ssl-key-file" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getServerSslKeyFile :: (MonadIO m, ServerK o) => o -> m T.Text +getServerSslKeyFile obj = liftIO $ getObjectPropertyString obj "ssl-key-file" + +constructServerSslKeyFile :: T.Text -> IO ([Char], GValue) +constructServerSslKeyFile val = constructObjectPropertyString "ssl-key-file" val + +data ServerSslKeyFilePropertyInfo +instance AttrInfo ServerSslKeyFilePropertyInfo where + type AttrAllowedOps ServerSslKeyFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerSslKeyFilePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint ServerSslKeyFilePropertyInfo = ServerK + type AttrGetType ServerSslKeyFilePropertyInfo = T.Text + type AttrLabel ServerSslKeyFilePropertyInfo = "Server::ssl-key-file" + attrGet _ = getServerSslKeyFile + attrSet _ = undefined + attrConstruct _ = constructServerSslKeyFile + +-- VVV Prop "tls-certificate" + -- Type: TInterface "Gio" "TlsCertificate" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getServerTlsCertificate :: (MonadIO m, ServerK o) => o -> m Gio.TlsCertificate +getServerTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate + +constructServerTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue) +constructServerTlsCertificate val = constructObjectPropertyObject "tls-certificate" val + +data ServerTlsCertificatePropertyInfo +instance AttrInfo ServerTlsCertificatePropertyInfo where + type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificateK + type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = ServerK + type AttrGetType ServerTlsCertificatePropertyInfo = Gio.TlsCertificate + type AttrLabel ServerTlsCertificatePropertyInfo = "Server::tls-certificate" + attrGet _ = getServerTlsCertificate + attrSet _ = undefined + attrConstruct _ = constructServerTlsCertificate + +type instance AttributeList Server = '[ '("async-context", ServerAsyncContextPropertyInfo), '("http-aliases", ServerHttpAliasesPropertyInfo), '("https-aliases", ServerHttpsAliasesPropertyInfo), '("interface", ServerInterfacePropertyInfo), '("port", ServerPortPropertyInfo), '("raw-paths", ServerRawPathsPropertyInfo), '("server-header", ServerServerHeaderPropertyInfo), '("ssl-cert-file", ServerSslCertFilePropertyInfo), '("ssl-key-file", ServerSslKeyFilePropertyInfo), '("tls-certificate", ServerTlsCertificatePropertyInfo)] + +-- VVV Prop "accept-language" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> m T.Text +getSessionAcceptLanguage obj = liftIO $ getObjectPropertyString obj "accept-language" + +setSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> T.Text -> m () +setSessionAcceptLanguage obj val = liftIO $ setObjectPropertyString obj "accept-language" val + +constructSessionAcceptLanguage :: T.Text -> IO ([Char], GValue) +constructSessionAcceptLanguage val = constructObjectPropertyString "accept-language" val + +data SessionAcceptLanguagePropertyInfo +instance AttrInfo SessionAcceptLanguagePropertyInfo where + type AttrAllowedOps SessionAcceptLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionAcceptLanguagePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SessionAcceptLanguagePropertyInfo = SessionK + type AttrGetType SessionAcceptLanguagePropertyInfo = T.Text + type AttrLabel SessionAcceptLanguagePropertyInfo = "Session::accept-language" + attrGet _ = getSessionAcceptLanguage + attrSet _ = setSessionAcceptLanguage + attrConstruct _ = constructSessionAcceptLanguage + +-- VVV Prop "accept-language-auto" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> m Bool +getSessionAcceptLanguageAuto obj = liftIO $ getObjectPropertyBool obj "accept-language-auto" + +setSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> Bool -> m () +setSessionAcceptLanguageAuto obj val = liftIO $ setObjectPropertyBool obj "accept-language-auto" val + +constructSessionAcceptLanguageAuto :: Bool -> IO ([Char], GValue) +constructSessionAcceptLanguageAuto val = constructObjectPropertyBool "accept-language-auto" val + +data SessionAcceptLanguageAutoPropertyInfo +instance AttrInfo SessionAcceptLanguageAutoPropertyInfo where + type AttrAllowedOps SessionAcceptLanguageAutoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionAcceptLanguageAutoPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SessionAcceptLanguageAutoPropertyInfo = SessionK + type AttrGetType SessionAcceptLanguageAutoPropertyInfo = Bool + type AttrLabel SessionAcceptLanguageAutoPropertyInfo = "Session::accept-language-auto" + attrGet _ = getSessionAcceptLanguageAuto + attrSet _ = setSessionAcceptLanguageAuto + attrConstruct _ = constructSessionAcceptLanguageAuto + +-- VVV Prop "async-context" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSessionAsyncContext :: (MonadIO m, SessionK o) => o -> m (Ptr ()) +getSessionAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context" + +constructSessionAsyncContext :: (Ptr ()) -> IO ([Char], GValue) +constructSessionAsyncContext val = constructObjectPropertyPtr "async-context" val + +data SessionAsyncContextPropertyInfo +instance AttrInfo SessionAsyncContextPropertyInfo where + type AttrAllowedOps SessionAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionAsyncContextPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint SessionAsyncContextPropertyInfo = SessionK + type AttrGetType SessionAsyncContextPropertyInfo = (Ptr ()) + type AttrLabel SessionAsyncContextPropertyInfo = "Session::async-context" + attrGet _ = getSessionAsyncContext + attrSet _ = undefined + attrConstruct _ = constructSessionAsyncContext + +-- VVV Prop "http-aliases" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionHttpAliases :: (MonadIO m, SessionK o) => o -> m [T.Text] +getSessionHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases" + +setSessionHttpAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m () +setSessionHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" val + +constructSessionHttpAliases :: [T.Text] -> IO ([Char], GValue) +constructSessionHttpAliases val = constructObjectPropertyStringArray "http-aliases" val + +data SessionHttpAliasesPropertyInfo +instance AttrInfo SessionHttpAliasesPropertyInfo where + type AttrAllowedOps SessionHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionHttpAliasesPropertyInfo = (~) [T.Text] + type AttrBaseTypeConstraint SessionHttpAliasesPropertyInfo = SessionK + type AttrGetType SessionHttpAliasesPropertyInfo = [T.Text] + type AttrLabel SessionHttpAliasesPropertyInfo = "Session::http-aliases" + attrGet _ = getSessionHttpAliases + attrSet _ = setSessionHttpAliases + attrConstruct _ = constructSessionHttpAliases + +-- VVV Prop "https-aliases" + -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> m [T.Text] +getSessionHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases" + +setSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m () +setSessionHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" val + +constructSessionHttpsAliases :: [T.Text] -> IO ([Char], GValue) +constructSessionHttpsAliases val = constructObjectPropertyStringArray "https-aliases" val + +data SessionHttpsAliasesPropertyInfo +instance AttrInfo SessionHttpsAliasesPropertyInfo where + type AttrAllowedOps SessionHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionHttpsAliasesPropertyInfo = (~) [T.Text] + type AttrBaseTypeConstraint SessionHttpsAliasesPropertyInfo = SessionK + type AttrGetType SessionHttpsAliasesPropertyInfo = [T.Text] + type AttrLabel SessionHttpsAliasesPropertyInfo = "Session::https-aliases" + attrGet _ = getSessionHttpsAliases + attrSet _ = setSessionHttpsAliases + attrConstruct _ = constructSessionHttpsAliases + +-- VVV Prop "idle-timeout" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> m Word32 +getSessionIdleTimeout obj = liftIO $ getObjectPropertyCUInt obj "idle-timeout" + +setSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m () +setSessionIdleTimeout obj val = liftIO $ setObjectPropertyCUInt obj "idle-timeout" val + +constructSessionIdleTimeout :: Word32 -> IO ([Char], GValue) +constructSessionIdleTimeout val = constructObjectPropertyCUInt "idle-timeout" val + +data SessionIdleTimeoutPropertyInfo +instance AttrInfo SessionIdleTimeoutPropertyInfo where + type AttrAllowedOps SessionIdleTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionIdleTimeoutPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SessionIdleTimeoutPropertyInfo = SessionK + type AttrGetType SessionIdleTimeoutPropertyInfo = Word32 + type AttrLabel SessionIdleTimeoutPropertyInfo = "Session::idle-timeout" + attrGet _ = getSessionIdleTimeout + attrSet _ = setSessionIdleTimeout + attrConstruct _ = constructSessionIdleTimeout + +-- VVV Prop "local-address" + -- Type: TInterface "Soup" "Address" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSessionLocalAddress :: (MonadIO m, SessionK o) => o -> m Address +getSessionLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address + +constructSessionLocalAddress :: (AddressK a) => a -> IO ([Char], GValue) +constructSessionLocalAddress val = constructObjectPropertyObject "local-address" val + +data SessionLocalAddressPropertyInfo +instance AttrInfo SessionLocalAddressPropertyInfo where + type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = AddressK + type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = SessionK + type AttrGetType SessionLocalAddressPropertyInfo = Address + type AttrLabel SessionLocalAddressPropertyInfo = "Session::local-address" + attrGet _ = getSessionLocalAddress + attrSet _ = undefined + attrConstruct _ = constructSessionLocalAddress + +-- VVV Prop "max-conns" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionMaxConns :: (MonadIO m, SessionK o) => o -> m Int32 +getSessionMaxConns obj = liftIO $ getObjectPropertyCInt obj "max-conns" + +setSessionMaxConns :: (MonadIO m, SessionK o) => o -> Int32 -> m () +setSessionMaxConns obj val = liftIO $ setObjectPropertyCInt obj "max-conns" val + +constructSessionMaxConns :: Int32 -> IO ([Char], GValue) +constructSessionMaxConns val = constructObjectPropertyCInt "max-conns" val + +data SessionMaxConnsPropertyInfo +instance AttrInfo SessionMaxConnsPropertyInfo where + type AttrAllowedOps SessionMaxConnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionMaxConnsPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SessionMaxConnsPropertyInfo = SessionK + type AttrGetType SessionMaxConnsPropertyInfo = Int32 + type AttrLabel SessionMaxConnsPropertyInfo = "Session::max-conns" + attrGet _ = getSessionMaxConns + attrSet _ = setSessionMaxConns + attrConstruct _ = constructSessionMaxConns + +-- VVV Prop "max-conns-per-host" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> m Int32 +getSessionMaxConnsPerHost obj = liftIO $ getObjectPropertyCInt obj "max-conns-per-host" + +setSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> Int32 -> m () +setSessionMaxConnsPerHost obj val = liftIO $ setObjectPropertyCInt obj "max-conns-per-host" val + +constructSessionMaxConnsPerHost :: Int32 -> IO ([Char], GValue) +constructSessionMaxConnsPerHost val = constructObjectPropertyCInt "max-conns-per-host" val + +data SessionMaxConnsPerHostPropertyInfo +instance AttrInfo SessionMaxConnsPerHostPropertyInfo where + type AttrAllowedOps SessionMaxConnsPerHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionMaxConnsPerHostPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SessionMaxConnsPerHostPropertyInfo = SessionK + type AttrGetType SessionMaxConnsPerHostPropertyInfo = Int32 + type AttrLabel SessionMaxConnsPerHostPropertyInfo = "Session::max-conns-per-host" + attrGet _ = getSessionMaxConnsPerHost + attrSet _ = setSessionMaxConnsPerHost + attrConstruct _ = constructSessionMaxConnsPerHost + +-- VVV Prop "proxy-resolver" + -- Type: TInterface "Gio" "ProxyResolver" + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m Gio.ProxyResolver +getSessionProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver + +setSessionProxyResolver :: (MonadIO m, SessionK o, Gio.ProxyResolverK a) => o -> a -> m () +setSessionProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" val + +constructSessionProxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue) +constructSessionProxyResolver val = constructObjectPropertyObject "proxy-resolver" val + +data SessionProxyResolverPropertyInfo +instance AttrInfo SessionProxyResolverPropertyInfo where + type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolverK + type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = SessionK + type AttrGetType SessionProxyResolverPropertyInfo = Gio.ProxyResolver + type AttrLabel SessionProxyResolverPropertyInfo = "Session::proxy-resolver" + attrGet _ = getSessionProxyResolver + attrSet _ = setSessionProxyResolver + attrConstruct _ = constructSessionProxyResolver + +-- VVV Prop "proxy-uri" + -- Type: TInterface "Soup" "URI" + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionProxyUri :: (MonadIO m, SessionK o) => o -> m URI +getSessionProxyUri obj = liftIO $ getObjectPropertyBoxed obj "proxy-uri" URI + +setSessionProxyUri :: (MonadIO m, SessionK o) => o -> URI -> m () +setSessionProxyUri obj val = liftIO $ setObjectPropertyBoxed obj "proxy-uri" val + +constructSessionProxyUri :: URI -> IO ([Char], GValue) +constructSessionProxyUri val = constructObjectPropertyBoxed "proxy-uri" val + +data SessionProxyUriPropertyInfo +instance AttrInfo SessionProxyUriPropertyInfo where + type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) URI + type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = SessionK + type AttrGetType SessionProxyUriPropertyInfo = URI + type AttrLabel SessionProxyUriPropertyInfo = "Session::proxy-uri" + attrGet _ = getSessionProxyUri + attrSet _ = setSessionProxyUri + attrConstruct _ = constructSessionProxyUri + +-- VVV Prop "ssl-ca-file" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionSslCaFile :: (MonadIO m, SessionK o) => o -> m T.Text +getSessionSslCaFile obj = liftIO $ getObjectPropertyString obj "ssl-ca-file" + +setSessionSslCaFile :: (MonadIO m, SessionK o) => o -> T.Text -> m () +setSessionSslCaFile obj val = liftIO $ setObjectPropertyString obj "ssl-ca-file" val + +constructSessionSslCaFile :: T.Text -> IO ([Char], GValue) +constructSessionSslCaFile val = constructObjectPropertyString "ssl-ca-file" val + +data SessionSslCaFilePropertyInfo +instance AttrInfo SessionSslCaFilePropertyInfo where + type AttrAllowedOps SessionSslCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionSslCaFilePropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SessionSslCaFilePropertyInfo = SessionK + type AttrGetType SessionSslCaFilePropertyInfo = T.Text + type AttrLabel SessionSslCaFilePropertyInfo = "Session::ssl-ca-file" + attrGet _ = getSessionSslCaFile + attrSet _ = setSessionSslCaFile + attrConstruct _ = constructSessionSslCaFile + +-- VVV Prop "ssl-strict" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionSslStrict :: (MonadIO m, SessionK o) => o -> m Bool +getSessionSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict" + +setSessionSslStrict :: (MonadIO m, SessionK o) => o -> Bool -> m () +setSessionSslStrict obj val = liftIO $ setObjectPropertyBool obj "ssl-strict" val + +constructSessionSslStrict :: Bool -> IO ([Char], GValue) +constructSessionSslStrict val = constructObjectPropertyBool "ssl-strict" val + +data SessionSslStrictPropertyInfo +instance AttrInfo SessionSslStrictPropertyInfo where + type AttrAllowedOps SessionSslStrictPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionSslStrictPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SessionSslStrictPropertyInfo = SessionK + type AttrGetType SessionSslStrictPropertyInfo = Bool + type AttrLabel SessionSslStrictPropertyInfo = "Session::ssl-strict" + attrGet _ = getSessionSslStrict + attrSet _ = setSessionSslStrict + attrConstruct _ = constructSessionSslStrict + +-- VVV Prop "ssl-use-system-ca-file" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> m Bool +getSessionSslUseSystemCaFile obj = liftIO $ getObjectPropertyBool obj "ssl-use-system-ca-file" + +setSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> Bool -> m () +setSessionSslUseSystemCaFile obj val = liftIO $ setObjectPropertyBool obj "ssl-use-system-ca-file" val + +constructSessionSslUseSystemCaFile :: Bool -> IO ([Char], GValue) +constructSessionSslUseSystemCaFile val = constructObjectPropertyBool "ssl-use-system-ca-file" val + +data SessionSslUseSystemCaFilePropertyInfo +instance AttrInfo SessionSslUseSystemCaFilePropertyInfo where + type AttrAllowedOps SessionSslUseSystemCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionSslUseSystemCaFilePropertyInfo = (~) Bool + type AttrBaseTypeConstraint SessionSslUseSystemCaFilePropertyInfo = SessionK + type AttrGetType SessionSslUseSystemCaFilePropertyInfo = Bool + type AttrLabel SessionSslUseSystemCaFilePropertyInfo = "Session::ssl-use-system-ca-file" + attrGet _ = getSessionSslUseSystemCaFile + attrSet _ = setSessionSslUseSystemCaFile + attrConstruct _ = constructSessionSslUseSystemCaFile + +-- VVV Prop "timeout" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionTimeout :: (MonadIO m, SessionK o) => o -> m Word32 +getSessionTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout" + +setSessionTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m () +setSessionTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val + +constructSessionTimeout :: Word32 -> IO ([Char], GValue) +constructSessionTimeout val = constructObjectPropertyCUInt "timeout" val + +data SessionTimeoutPropertyInfo +instance AttrInfo SessionTimeoutPropertyInfo where + type AttrAllowedOps SessionTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionTimeoutPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SessionTimeoutPropertyInfo = SessionK + type AttrGetType SessionTimeoutPropertyInfo = Word32 + type AttrLabel SessionTimeoutPropertyInfo = "Session::timeout" + attrGet _ = getSessionTimeout + attrSet _ = setSessionTimeout + attrConstruct _ = constructSessionTimeout + +-- VVV Prop "tls-database" + -- Type: TInterface "Gio" "TlsDatabase" + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m Gio.TlsDatabase +getSessionTlsDatabase obj = liftIO $ getObjectPropertyObject obj "tls-database" Gio.TlsDatabase + +setSessionTlsDatabase :: (MonadIO m, SessionK o, Gio.TlsDatabaseK a) => o -> a -> m () +setSessionTlsDatabase obj val = liftIO $ setObjectPropertyObject obj "tls-database" val + +constructSessionTlsDatabase :: (Gio.TlsDatabaseK a) => a -> IO ([Char], GValue) +constructSessionTlsDatabase val = constructObjectPropertyObject "tls-database" val + +data SessionTlsDatabasePropertyInfo +instance AttrInfo SessionTlsDatabasePropertyInfo where + type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabaseK + type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = SessionK + type AttrGetType SessionTlsDatabasePropertyInfo = Gio.TlsDatabase + type AttrLabel SessionTlsDatabasePropertyInfo = "Session::tls-database" + attrGet _ = getSessionTlsDatabase + attrSet _ = setSessionTlsDatabase + attrConstruct _ = constructSessionTlsDatabase + +-- VVV Prop "tls-interaction" + -- Type: TInterface "Gio" "TlsInteraction" + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m Gio.TlsInteraction +getSessionTlsInteraction obj = liftIO $ getObjectPropertyObject obj "tls-interaction" Gio.TlsInteraction + +setSessionTlsInteraction :: (MonadIO m, SessionK o, Gio.TlsInteractionK a) => o -> a -> m () +setSessionTlsInteraction obj val = liftIO $ setObjectPropertyObject obj "tls-interaction" val + +constructSessionTlsInteraction :: (Gio.TlsInteractionK a) => a -> IO ([Char], GValue) +constructSessionTlsInteraction val = constructObjectPropertyObject "tls-interaction" val + +data SessionTlsInteractionPropertyInfo +instance AttrInfo SessionTlsInteractionPropertyInfo where + type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteractionK + type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = SessionK + type AttrGetType SessionTlsInteractionPropertyInfo = Gio.TlsInteraction + type AttrLabel SessionTlsInteractionPropertyInfo = "Session::tls-interaction" + attrGet _ = getSessionTlsInteraction + attrSet _ = setSessionTlsInteraction + attrConstruct _ = constructSessionTlsInteraction + +-- VVV Prop "use-ntlm" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionUseNtlm :: (MonadIO m, SessionK o) => o -> m Bool +getSessionUseNtlm obj = liftIO $ getObjectPropertyBool obj "use-ntlm" + +setSessionUseNtlm :: (MonadIO m, SessionK o) => o -> Bool -> m () +setSessionUseNtlm obj val = liftIO $ setObjectPropertyBool obj "use-ntlm" val + +constructSessionUseNtlm :: Bool -> IO ([Char], GValue) +constructSessionUseNtlm val = constructObjectPropertyBool "use-ntlm" val + +data SessionUseNtlmPropertyInfo +instance AttrInfo SessionUseNtlmPropertyInfo where + type AttrAllowedOps SessionUseNtlmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionUseNtlmPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SessionUseNtlmPropertyInfo = SessionK + type AttrGetType SessionUseNtlmPropertyInfo = Bool + type AttrLabel SessionUseNtlmPropertyInfo = "Session::use-ntlm" + attrGet _ = getSessionUseNtlm + attrSet _ = setSessionUseNtlm + attrConstruct _ = constructSessionUseNtlm + +-- VVV Prop "use-thread-context" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> m Bool +getSessionUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context" + +setSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> Bool -> m () +setSessionUseThreadContext obj val = liftIO $ setObjectPropertyBool obj "use-thread-context" val + +constructSessionUseThreadContext :: Bool -> IO ([Char], GValue) +constructSessionUseThreadContext val = constructObjectPropertyBool "use-thread-context" val + +data SessionUseThreadContextPropertyInfo +instance AttrInfo SessionUseThreadContextPropertyInfo where + type AttrAllowedOps SessionUseThreadContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionUseThreadContextPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SessionUseThreadContextPropertyInfo = SessionK + type AttrGetType SessionUseThreadContextPropertyInfo = Bool + type AttrLabel SessionUseThreadContextPropertyInfo = "Session::use-thread-context" + attrGet _ = getSessionUseThreadContext + attrSet _ = setSessionUseThreadContext + attrConstruct _ = constructSessionUseThreadContext + +-- VVV Prop "user-agent" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable] + +getSessionUserAgent :: (MonadIO m, SessionK o) => o -> m T.Text +getSessionUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent" + +setSessionUserAgent :: (MonadIO m, SessionK o) => o -> T.Text -> m () +setSessionUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" val + +constructSessionUserAgent :: T.Text -> IO ([Char], GValue) +constructSessionUserAgent val = constructObjectPropertyString "user-agent" val + +data SessionUserAgentPropertyInfo +instance AttrInfo SessionUserAgentPropertyInfo where + type AttrAllowedOps SessionUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SessionUserAgentPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint SessionUserAgentPropertyInfo = SessionK + type AttrGetType SessionUserAgentPropertyInfo = T.Text + type AttrLabel SessionUserAgentPropertyInfo = "Session::user-agent" + attrGet _ = getSessionUserAgent + attrSet _ = setSessionUserAgent + attrConstruct _ = constructSessionUserAgent + +type instance AttributeList Session = '[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] + +type instance AttributeList SessionAsync = '[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] + +type instance AttributeList SessionFeature = '[ ] + +type instance AttributeList SessionSync = '[ '("accept-language", SessionAcceptLanguagePropertyInfo), '("accept-language-auto", SessionAcceptLanguageAutoPropertyInfo), '("async-context", SessionAsyncContextPropertyInfo), '("http-aliases", SessionHttpAliasesPropertyInfo), '("https-aliases", SessionHttpsAliasesPropertyInfo), '("idle-timeout", SessionIdleTimeoutPropertyInfo), '("local-address", SessionLocalAddressPropertyInfo), '("max-conns", SessionMaxConnsPropertyInfo), '("max-conns-per-host", SessionMaxConnsPerHostPropertyInfo), '("proxy-resolver", SessionProxyResolverPropertyInfo), '("proxy-uri", SessionProxyUriPropertyInfo), '("ssl-ca-file", SessionSslCaFilePropertyInfo), '("ssl-strict", SessionSslStrictPropertyInfo), '("ssl-use-system-ca-file", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tls-database", SessionTlsDatabasePropertyInfo), '("tls-interaction", SessionTlsInteractionPropertyInfo), '("use-ntlm", SessionUseNtlmPropertyInfo), '("use-thread-context", SessionUseThreadContextPropertyInfo), '("user-agent", SessionUserAgentPropertyInfo)] + +-- VVV Prop "async-context" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSocketAsyncContext :: (MonadIO m, SocketK o) => o -> m (Ptr ()) +getSocketAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context" + +constructSocketAsyncContext :: (Ptr ()) -> IO ([Char], GValue) +constructSocketAsyncContext val = constructObjectPropertyPtr "async-context" val + +data SocketAsyncContextPropertyInfo +instance AttrInfo SocketAsyncContextPropertyInfo where + type AttrAllowedOps SocketAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketAsyncContextPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint SocketAsyncContextPropertyInfo = SocketK + type AttrGetType SocketAsyncContextPropertyInfo = (Ptr ()) + type AttrLabel SocketAsyncContextPropertyInfo = "Socket::async-context" + attrGet _ = getSocketAsyncContext + attrSet _ = undefined + attrConstruct _ = constructSocketAsyncContext + +-- VVV Prop "fd" + -- Type: TBasicType TInt32 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32 +getSocketFd obj = liftIO $ getObjectPropertyCInt obj "fd" + +constructSocketFd :: Int32 -> IO ([Char], GValue) +constructSocketFd val = constructObjectPropertyCInt "fd" val + +data SocketFdPropertyInfo +instance AttrInfo SocketFdPropertyInfo where + type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32 + type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK + type AttrGetType SocketFdPropertyInfo = Int32 + type AttrLabel SocketFdPropertyInfo = "Socket::fd" + attrGet _ = getSocketFd + attrSet _ = undefined + attrConstruct _ = constructSocketFd + +-- VVV Prop "gsocket" + -- Type: TInterface "Gio" "Socket" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructSocketGsocket :: (Gio.SocketK a) => a -> IO ([Char], GValue) +constructSocketGsocket val = constructObjectPropertyObject "gsocket" val + +data SocketGsocketPropertyInfo +instance AttrInfo SocketGsocketPropertyInfo where + type AttrAllowedOps SocketGsocketPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint SocketGsocketPropertyInfo = Gio.SocketK + type AttrBaseTypeConstraint SocketGsocketPropertyInfo = SocketK + type AttrGetType SocketGsocketPropertyInfo = () + type AttrLabel SocketGsocketPropertyInfo = "Socket::gsocket" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructSocketGsocket + +-- VVV Prop "iostream" + -- Type: TInterface "Gio" "IOStream" + -- Flags: [PropertyWritable,PropertyConstructOnly] + +constructSocketIostream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue) +constructSocketIostream val = constructObjectPropertyObject "iostream" val + +data SocketIostreamPropertyInfo +instance AttrInfo SocketIostreamPropertyInfo where + type AttrAllowedOps SocketIostreamPropertyInfo = '[ 'AttrConstruct] + type AttrSetTypeConstraint SocketIostreamPropertyInfo = Gio.IOStreamK + type AttrBaseTypeConstraint SocketIostreamPropertyInfo = SocketK + type AttrGetType SocketIostreamPropertyInfo = () + type AttrLabel SocketIostreamPropertyInfo = "Socket::iostream" + attrGet _ = undefined + attrSet _ = undefined + attrConstruct _ = constructSocketIostream + +-- VVV Prop "ipv6-only" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getSocketIpv6Only :: (MonadIO m, SocketK o) => o -> m Bool +getSocketIpv6Only obj = liftIO $ getObjectPropertyBool obj "ipv6-only" + +setSocketIpv6Only :: (MonadIO m, SocketK o) => o -> Bool -> m () +setSocketIpv6Only obj val = liftIO $ setObjectPropertyBool obj "ipv6-only" val + +constructSocketIpv6Only :: Bool -> IO ([Char], GValue) +constructSocketIpv6Only val = constructObjectPropertyBool "ipv6-only" val + +data SocketIpv6OnlyPropertyInfo +instance AttrInfo SocketIpv6OnlyPropertyInfo where + type AttrAllowedOps SocketIpv6OnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketIpv6OnlyPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SocketIpv6OnlyPropertyInfo = SocketK + type AttrGetType SocketIpv6OnlyPropertyInfo = Bool + type AttrLabel SocketIpv6OnlyPropertyInfo = "Socket::ipv6-only" + attrGet _ = getSocketIpv6Only + attrSet _ = setSocketIpv6Only + attrConstruct _ = constructSocketIpv6Only + +-- VVV Prop "is-server" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getSocketIsServer :: (MonadIO m, SocketK o) => o -> m Bool +getSocketIsServer obj = liftIO $ getObjectPropertyBool obj "is-server" + +data SocketIsServerPropertyInfo +instance AttrInfo SocketIsServerPropertyInfo where + type AttrAllowedOps SocketIsServerPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SocketIsServerPropertyInfo = (~) () + type AttrBaseTypeConstraint SocketIsServerPropertyInfo = SocketK + type AttrGetType SocketIsServerPropertyInfo = Bool + type AttrLabel SocketIsServerPropertyInfo = "Socket::is-server" + attrGet _ = getSocketIsServer + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "local-address" + -- Type: TInterface "Soup" "Address" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m Address +getSocketLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address + +constructSocketLocalAddress :: (AddressK a) => a -> IO ([Char], GValue) +constructSocketLocalAddress val = constructObjectPropertyObject "local-address" val + +data SocketLocalAddressPropertyInfo +instance AttrInfo SocketLocalAddressPropertyInfo where + type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = AddressK + type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK + type AttrGetType SocketLocalAddressPropertyInfo = Address + type AttrLabel SocketLocalAddressPropertyInfo = "Socket::local-address" + attrGet _ = getSocketLocalAddress + attrSet _ = undefined + attrConstruct _ = constructSocketLocalAddress + +-- VVV Prop "non-blocking" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable] + +getSocketNonBlocking :: (MonadIO m, SocketK o) => o -> m Bool +getSocketNonBlocking obj = liftIO $ getObjectPropertyBool obj "non-blocking" + +setSocketNonBlocking :: (MonadIO m, SocketK o) => o -> Bool -> m () +setSocketNonBlocking obj val = liftIO $ setObjectPropertyBool obj "non-blocking" val + +constructSocketNonBlocking :: Bool -> IO ([Char], GValue) +constructSocketNonBlocking val = constructObjectPropertyBool "non-blocking" val + +data SocketNonBlockingPropertyInfo +instance AttrInfo SocketNonBlockingPropertyInfo where + type AttrAllowedOps SocketNonBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketNonBlockingPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SocketNonBlockingPropertyInfo = SocketK + type AttrGetType SocketNonBlockingPropertyInfo = Bool + type AttrLabel SocketNonBlockingPropertyInfo = "Socket::non-blocking" + attrGet _ = getSocketNonBlocking + attrSet _ = setSocketNonBlocking + attrConstruct _ = constructSocketNonBlocking + +-- VVV Prop "remote-address" + -- Type: TInterface "Soup" "Address" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m Address +getSocketRemoteAddress obj = liftIO $ getObjectPropertyObject obj "remote-address" Address + +constructSocketRemoteAddress :: (AddressK a) => a -> IO ([Char], GValue) +constructSocketRemoteAddress val = constructObjectPropertyObject "remote-address" val + +data SocketRemoteAddressPropertyInfo +instance AttrInfo SocketRemoteAddressPropertyInfo where + type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = AddressK + type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK + type AttrGetType SocketRemoteAddressPropertyInfo = Address + type AttrLabel SocketRemoteAddressPropertyInfo = "Socket::remote-address" + attrGet _ = getSocketRemoteAddress + attrSet _ = undefined + attrConstruct _ = constructSocketRemoteAddress + +-- VVV Prop "ssl-creds" + -- Type: TBasicType TVoid + -- Flags: [PropertyReadable,PropertyWritable] + +getSocketSslCreds :: (MonadIO m, SocketK o) => o -> m (Ptr ()) +getSocketSslCreds obj = liftIO $ getObjectPropertyPtr obj "ssl-creds" + +setSocketSslCreds :: (MonadIO m, SocketK o) => o -> (Ptr ()) -> m () +setSocketSslCreds obj val = liftIO $ setObjectPropertyPtr obj "ssl-creds" val + +constructSocketSslCreds :: (Ptr ()) -> IO ([Char], GValue) +constructSocketSslCreds val = constructObjectPropertyPtr "ssl-creds" val + +data SocketSslCredsPropertyInfo +instance AttrInfo SocketSslCredsPropertyInfo where + type AttrAllowedOps SocketSslCredsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketSslCredsPropertyInfo = (~) (Ptr ()) + type AttrBaseTypeConstraint SocketSslCredsPropertyInfo = SocketK + type AttrGetType SocketSslCredsPropertyInfo = (Ptr ()) + type AttrLabel SocketSslCredsPropertyInfo = "Socket::ssl-creds" + attrGet _ = getSocketSslCreds + attrSet _ = setSocketSslCreds + attrConstruct _ = constructSocketSslCreds + +-- VVV Prop "ssl-fallback" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSocketSslFallback :: (MonadIO m, SocketK o) => o -> m Bool +getSocketSslFallback obj = liftIO $ getObjectPropertyBool obj "ssl-fallback" + +constructSocketSslFallback :: Bool -> IO ([Char], GValue) +constructSocketSslFallback val = constructObjectPropertyBool "ssl-fallback" val + +data SocketSslFallbackPropertyInfo +instance AttrInfo SocketSslFallbackPropertyInfo where + type AttrAllowedOps SocketSslFallbackPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketSslFallbackPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SocketSslFallbackPropertyInfo = SocketK + type AttrGetType SocketSslFallbackPropertyInfo = Bool + type AttrLabel SocketSslFallbackPropertyInfo = "Socket::ssl-fallback" + attrGet _ = getSocketSslFallback + attrSet _ = undefined + attrConstruct _ = constructSocketSslFallback + +-- VVV Prop "ssl-strict" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSocketSslStrict :: (MonadIO m, SocketK o) => o -> m Bool +getSocketSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict" + +constructSocketSslStrict :: Bool -> IO ([Char], GValue) +constructSocketSslStrict val = constructObjectPropertyBool "ssl-strict" val + +data SocketSslStrictPropertyInfo +instance AttrInfo SocketSslStrictPropertyInfo where + type AttrAllowedOps SocketSslStrictPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketSslStrictPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SocketSslStrictPropertyInfo = SocketK + type AttrGetType SocketSslStrictPropertyInfo = Bool + type AttrLabel SocketSslStrictPropertyInfo = "Socket::ssl-strict" + attrGet _ = getSocketSslStrict + attrSet _ = undefined + attrConstruct _ = constructSocketSslStrict + +-- VVV Prop "timeout" + -- Type: TBasicType TUInt32 + -- Flags: [PropertyReadable,PropertyWritable] + +getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32 +getSocketTimeout obj = liftIO $ getObjectPropertyCUInt obj "timeout" + +setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m () +setSocketTimeout obj val = liftIO $ setObjectPropertyCUInt obj "timeout" val + +constructSocketTimeout :: Word32 -> IO ([Char], GValue) +constructSocketTimeout val = constructObjectPropertyCUInt "timeout" val + +data SocketTimeoutPropertyInfo +instance AttrInfo SocketTimeoutPropertyInfo where + type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32 + type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK + type AttrGetType SocketTimeoutPropertyInfo = Word32 + type AttrLabel SocketTimeoutPropertyInfo = "Socket::timeout" + attrGet _ = getSocketTimeout + attrSet _ = setSocketTimeout + attrConstruct _ = constructSocketTimeout + +-- VVV Prop "tls-certificate" + -- Type: TInterface "Gio" "TlsCertificate" + -- Flags: [PropertyReadable] + +getSocketTlsCertificate :: (MonadIO m, SocketK o) => o -> m Gio.TlsCertificate +getSocketTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate + +data SocketTlsCertificatePropertyInfo +instance AttrInfo SocketTlsCertificatePropertyInfo where + type AttrAllowedOps SocketTlsCertificatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SocketTlsCertificatePropertyInfo = (~) () + type AttrBaseTypeConstraint SocketTlsCertificatePropertyInfo = SocketK + type AttrGetType SocketTlsCertificatePropertyInfo = Gio.TlsCertificate + type AttrLabel SocketTlsCertificatePropertyInfo = "Socket::tls-certificate" + attrGet _ = getSocketTlsCertificate + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "tls-errors" + -- Type: TInterface "Gio" "TlsCertificateFlags" + -- Flags: [PropertyReadable] + +getSocketTlsErrors :: (MonadIO m, SocketK o) => o -> m [Gio.TlsCertificateFlags] +getSocketTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors" + +data SocketTlsErrorsPropertyInfo +instance AttrInfo SocketTlsErrorsPropertyInfo where + type AttrAllowedOps SocketTlsErrorsPropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SocketTlsErrorsPropertyInfo = (~) () + type AttrBaseTypeConstraint SocketTlsErrorsPropertyInfo = SocketK + type AttrGetType SocketTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags] + type AttrLabel SocketTlsErrorsPropertyInfo = "Socket::tls-errors" + attrGet _ = getSocketTlsErrors + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "trusted-certificate" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable] + +getSocketTrustedCertificate :: (MonadIO m, SocketK o) => o -> m Bool +getSocketTrustedCertificate obj = liftIO $ getObjectPropertyBool obj "trusted-certificate" + +data SocketTrustedCertificatePropertyInfo +instance AttrInfo SocketTrustedCertificatePropertyInfo where + type AttrAllowedOps SocketTrustedCertificatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint SocketTrustedCertificatePropertyInfo = (~) () + type AttrBaseTypeConstraint SocketTrustedCertificatePropertyInfo = SocketK + type AttrGetType SocketTrustedCertificatePropertyInfo = Bool + type AttrLabel SocketTrustedCertificatePropertyInfo = "Socket::trusted-certificate" + attrGet _ = getSocketTrustedCertificate + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "use-thread-context" + -- Type: TBasicType TBoolean + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getSocketUseThreadContext :: (MonadIO m, SocketK o) => o -> m Bool +getSocketUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context" + +constructSocketUseThreadContext :: Bool -> IO ([Char], GValue) +constructSocketUseThreadContext val = constructObjectPropertyBool "use-thread-context" val + +data SocketUseThreadContextPropertyInfo +instance AttrInfo SocketUseThreadContextPropertyInfo where + type AttrAllowedOps SocketUseThreadContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint SocketUseThreadContextPropertyInfo = (~) Bool + type AttrBaseTypeConstraint SocketUseThreadContextPropertyInfo = SocketK + type AttrGetType SocketUseThreadContextPropertyInfo = Bool + type AttrLabel SocketUseThreadContextPropertyInfo = "Socket::use-thread-context" + attrGet _ = getSocketUseThreadContext + attrSet _ = undefined + attrConstruct _ = constructSocketUseThreadContext + +type instance AttributeList Socket = '[ '("async-context", SocketAsyncContextPropertyInfo), '("fd", SocketFdPropertyInfo), '("gsocket", SocketGsocketPropertyInfo), '("iostream", SocketIostreamPropertyInfo), '("ipv6-only", SocketIpv6OnlyPropertyInfo), '("is-server", SocketIsServerPropertyInfo), '("local-address", SocketLocalAddressPropertyInfo), '("non-blocking", SocketNonBlockingPropertyInfo), '("remote-address", SocketRemoteAddressPropertyInfo), '("ssl-creds", SocketSslCredsPropertyInfo), '("ssl-fallback", SocketSslFallbackPropertyInfo), '("ssl-strict", SocketSslStrictPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("tls-certificate", SocketTlsCertificatePropertyInfo), '("tls-errors", SocketTlsErrorsPropertyInfo), '("trusted-certificate", SocketTrustedCertificatePropertyInfo), '("use-thread-context", SocketUseThreadContextPropertyInfo)] + +-- VVV Prop "connection-type" + -- Type: TInterface "Soup" "WebsocketConnectionType" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebsocketConnectionConnectionType :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketConnectionType +getWebsocketConnectionConnectionType obj = liftIO $ getObjectPropertyEnum obj "connection-type" + +constructWebsocketConnectionConnectionType :: WebsocketConnectionType -> IO ([Char], GValue) +constructWebsocketConnectionConnectionType val = constructObjectPropertyEnum "connection-type" val + +data WebsocketConnectionConnectionTypePropertyInfo +instance AttrInfo WebsocketConnectionConnectionTypePropertyInfo where + type AttrAllowedOps WebsocketConnectionConnectionTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = (~) WebsocketConnectionType + type AttrBaseTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionK + type AttrGetType WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionType + type AttrLabel WebsocketConnectionConnectionTypePropertyInfo = "WebsocketConnection::connection-type" + attrGet _ = getWebsocketConnectionConnectionType + attrSet _ = undefined + attrConstruct _ = constructWebsocketConnectionConnectionType + +-- VVV Prop "io-stream" + -- Type: TInterface "Gio" "IOStream" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebsocketConnectionIoStream :: (MonadIO m, WebsocketConnectionK o) => o -> m Gio.IOStream +getWebsocketConnectionIoStream obj = liftIO $ getObjectPropertyObject obj "io-stream" Gio.IOStream + +constructWebsocketConnectionIoStream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue) +constructWebsocketConnectionIoStream val = constructObjectPropertyObject "io-stream" val + +data WebsocketConnectionIoStreamPropertyInfo +instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where + type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStreamK + type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = WebsocketConnectionK + type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream + type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "WebsocketConnection::io-stream" + attrGet _ = getWebsocketConnectionIoStream + attrSet _ = undefined + attrConstruct _ = constructWebsocketConnectionIoStream + +-- VVV Prop "origin" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebsocketConnectionOrigin :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text +getWebsocketConnectionOrigin obj = liftIO $ getObjectPropertyString obj "origin" + +constructWebsocketConnectionOrigin :: T.Text -> IO ([Char], GValue) +constructWebsocketConnectionOrigin val = constructObjectPropertyString "origin" val + +data WebsocketConnectionOriginPropertyInfo +instance AttrInfo WebsocketConnectionOriginPropertyInfo where + type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = WebsocketConnectionK + type AttrGetType WebsocketConnectionOriginPropertyInfo = T.Text + type AttrLabel WebsocketConnectionOriginPropertyInfo = "WebsocketConnection::origin" + attrGet _ = getWebsocketConnectionOrigin + attrSet _ = undefined + attrConstruct _ = constructWebsocketConnectionOrigin + +-- VVV Prop "protocol" + -- Type: TBasicType TUTF8 + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebsocketConnectionProtocol :: (MonadIO m, WebsocketConnectionK o) => o -> m T.Text +getWebsocketConnectionProtocol obj = liftIO $ getObjectPropertyString obj "protocol" + +constructWebsocketConnectionProtocol :: T.Text -> IO ([Char], GValue) +constructWebsocketConnectionProtocol val = constructObjectPropertyString "protocol" val + +data WebsocketConnectionProtocolPropertyInfo +instance AttrInfo WebsocketConnectionProtocolPropertyInfo where + type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text + type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = WebsocketConnectionK + type AttrGetType WebsocketConnectionProtocolPropertyInfo = T.Text + type AttrLabel WebsocketConnectionProtocolPropertyInfo = "WebsocketConnection::protocol" + attrGet _ = getWebsocketConnectionProtocol + attrSet _ = undefined + attrConstruct _ = constructWebsocketConnectionProtocol + +-- VVV Prop "state" + -- Type: TInterface "Soup" "WebsocketState" + -- Flags: [PropertyReadable] + +getWebsocketConnectionState :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketState +getWebsocketConnectionState obj = liftIO $ getObjectPropertyEnum obj "state" + +data WebsocketConnectionStatePropertyInfo +instance AttrInfo WebsocketConnectionStatePropertyInfo where + type AttrAllowedOps WebsocketConnectionStatePropertyInfo = '[ 'AttrGet] + type AttrSetTypeConstraint WebsocketConnectionStatePropertyInfo = (~) () + type AttrBaseTypeConstraint WebsocketConnectionStatePropertyInfo = WebsocketConnectionK + type AttrGetType WebsocketConnectionStatePropertyInfo = WebsocketState + type AttrLabel WebsocketConnectionStatePropertyInfo = "WebsocketConnection::state" + attrGet _ = getWebsocketConnectionState + attrSet _ = undefined + attrConstruct _ = undefined + +-- VVV Prop "uri" + -- Type: TInterface "Soup" "URI" + -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] + +getWebsocketConnectionUri :: (MonadIO m, WebsocketConnectionK o) => o -> m URI +getWebsocketConnectionUri obj = liftIO $ getObjectPropertyBoxed obj "uri" URI + +constructWebsocketConnectionUri :: URI -> IO ([Char], GValue) +constructWebsocketConnectionUri val = constructObjectPropertyBoxed "uri" val + +data WebsocketConnectionUriPropertyInfo +instance AttrInfo WebsocketConnectionUriPropertyInfo where + type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet] + type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) URI + type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = WebsocketConnectionK + type AttrGetType WebsocketConnectionUriPropertyInfo = URI + type AttrLabel WebsocketConnectionUriPropertyInfo = "WebsocketConnection::uri" + attrGet _ = getWebsocketConnectionUri + attrSet _ = undefined + attrConstruct _ = constructWebsocketConnectionUri + +type instance AttributeList WebsocketConnection = '[ '("connection-type", WebsocketConnectionConnectionTypePropertyInfo), '("io-stream", WebsocketConnectionIoStreamPropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)] + diff --git a/GI/SoupSignals.hs b/GI/SoupSignals.hs new file mode 100644 --- /dev/null +++ b/GI/SoupSignals.hs @@ -0,0 +1,258 @@ +-- Generated code. + +{-# OPTIONS_GHC -fno-warn-orphans #-} + +{-# LANGUAGE DataKinds, FlexibleInstances, + TypeFamilies, MultiParamTypeClasses, + TypeOperators #-} + +module GI.SoupSignals where + +import Data.GI.Base.Properties (GObjectNotifySignalInfo) +import Data.GI.Base.Signals +import Data.GI.Base.Overloading + +import qualified GI.GObjectSignals as GObject +import GI.Soup + +type instance SignalList Address = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Auth = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AuthBasic = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AuthDigest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AuthDomain = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AuthDomainBasic = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AuthDomainDigest = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data AuthManagerAuthenticateSignalInfo +instance SignalInfo AuthManagerAuthenticateSignalInfo where + type HaskellCallbackType AuthManagerAuthenticateSignalInfo = AuthManagerAuthenticateCallback + connectSignal _ = connectAuthManagerAuthenticate + +type instance SignalList AuthManager = '[ '("authenticate", AuthManagerAuthenticateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList AuthNTLM = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Cache = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ContentDecoder = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ContentSniffer = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data CookieJarChangedSignalInfo +instance SignalInfo CookieJarChangedSignalInfo where + type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback + connectSignal _ = connectCookieJarChanged + +type instance SignalList CookieJar = '[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CookieJarDB = '[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList CookieJarText = '[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Logger = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data MessageContentSniffedSignalInfo +instance SignalInfo MessageContentSniffedSignalInfo where + type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback + connectSignal _ = connectMessageContentSniffed + +data MessageFinishedSignalInfo +instance SignalInfo MessageFinishedSignalInfo where + type HaskellCallbackType MessageFinishedSignalInfo = MessageFinishedCallback + connectSignal _ = connectMessageFinished + +data MessageGotBodySignalInfo +instance SignalInfo MessageGotBodySignalInfo where + type HaskellCallbackType MessageGotBodySignalInfo = MessageGotBodyCallback + connectSignal _ = connectMessageGotBody + +data MessageGotChunkSignalInfo +instance SignalInfo MessageGotChunkSignalInfo where + type HaskellCallbackType MessageGotChunkSignalInfo = MessageGotChunkCallback + connectSignal _ = connectMessageGotChunk + +data MessageGotHeadersSignalInfo +instance SignalInfo MessageGotHeadersSignalInfo where + type HaskellCallbackType MessageGotHeadersSignalInfo = MessageGotHeadersCallback + connectSignal _ = connectMessageGotHeaders + +data MessageGotInformationalSignalInfo +instance SignalInfo MessageGotInformationalSignalInfo where + type HaskellCallbackType MessageGotInformationalSignalInfo = MessageGotInformationalCallback + connectSignal _ = connectMessageGotInformational + +data MessageNetworkEventSignalInfo +instance SignalInfo MessageNetworkEventSignalInfo where + type HaskellCallbackType MessageNetworkEventSignalInfo = MessageNetworkEventCallback + connectSignal _ = connectMessageNetworkEvent + +data MessageRestartedSignalInfo +instance SignalInfo MessageRestartedSignalInfo where + type HaskellCallbackType MessageRestartedSignalInfo = MessageRestartedCallback + connectSignal _ = connectMessageRestarted + +data MessageStartingSignalInfo +instance SignalInfo MessageStartingSignalInfo where + type HaskellCallbackType MessageStartingSignalInfo = MessageStartingCallback + connectSignal _ = connectMessageStarting + +data MessageWroteBodySignalInfo +instance SignalInfo MessageWroteBodySignalInfo where + type HaskellCallbackType MessageWroteBodySignalInfo = MessageWroteBodyCallback + connectSignal _ = connectMessageWroteBody + +data MessageWroteBodyDataSignalInfo +instance SignalInfo MessageWroteBodyDataSignalInfo where + type HaskellCallbackType MessageWroteBodyDataSignalInfo = MessageWroteBodyDataCallback + connectSignal _ = connectMessageWroteBodyData + +data MessageWroteChunkSignalInfo +instance SignalInfo MessageWroteChunkSignalInfo where + type HaskellCallbackType MessageWroteChunkSignalInfo = MessageWroteChunkCallback + connectSignal _ = connectMessageWroteChunk + +data MessageWroteHeadersSignalInfo +instance SignalInfo MessageWroteHeadersSignalInfo where + type HaskellCallbackType MessageWroteHeadersSignalInfo = MessageWroteHeadersCallback + connectSignal _ = connectMessageWroteHeaders + +data MessageWroteInformationalSignalInfo +instance SignalInfo MessageWroteInformationalSignalInfo where + type HaskellCallbackType MessageWroteInformationalSignalInfo = MessageWroteInformationalCallback + connectSignal _ = connectMessageWroteInformational + +type instance SignalList Message = '[ '("content-sniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("got-body", MessageGotBodySignalInfo), '("got-chunk", MessageGotChunkSignalInfo), '("got-headers", MessageGotHeadersSignalInfo), '("got-informational", MessageGotInformationalSignalInfo), '("network-event", MessageNetworkEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wrote-body", MessageWroteBodySignalInfo), '("wrote-body-data", MessageWroteBodyDataSignalInfo), '("wrote-chunk", MessageWroteChunkSignalInfo), '("wrote-headers", MessageWroteHeadersSignalInfo), '("wrote-informational", MessageWroteInformationalSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList MultipartInputStream = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList PasswordManager = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ProxyResolverDefault = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList ProxyURIResolver = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Request = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RequestData = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RequestFile = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList RequestHTTP = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList Requester = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data ServerRequestAbortedSignalInfo +instance SignalInfo ServerRequestAbortedSignalInfo where + type HaskellCallbackType ServerRequestAbortedSignalInfo = ServerRequestAbortedCallback + connectSignal _ = connectServerRequestAborted + +data ServerRequestFinishedSignalInfo +instance SignalInfo ServerRequestFinishedSignalInfo where + type HaskellCallbackType ServerRequestFinishedSignalInfo = ServerRequestFinishedCallback + connectSignal _ = connectServerRequestFinished + +data ServerRequestReadSignalInfo +instance SignalInfo ServerRequestReadSignalInfo where + type HaskellCallbackType ServerRequestReadSignalInfo = ServerRequestReadCallback + connectSignal _ = connectServerRequestRead + +data ServerRequestStartedSignalInfo +instance SignalInfo ServerRequestStartedSignalInfo where + type HaskellCallbackType ServerRequestStartedSignalInfo = ServerRequestStartedCallback + connectSignal _ = connectServerRequestStarted + +type instance SignalList Server = '[ '("notify", GObject.ObjectNotifySignalInfo), '("request-aborted", ServerRequestAbortedSignalInfo), '("request-finished", ServerRequestFinishedSignalInfo), '("request-read", ServerRequestReadSignalInfo), '("request-started", ServerRequestStartedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data SessionAuthenticateSignalInfo +instance SignalInfo SessionAuthenticateSignalInfo where + type HaskellCallbackType SessionAuthenticateSignalInfo = SessionAuthenticateCallback + connectSignal _ = connectSessionAuthenticate + +data SessionConnectionCreatedSignalInfo +instance SignalInfo SessionConnectionCreatedSignalInfo where + type HaskellCallbackType SessionConnectionCreatedSignalInfo = SessionConnectionCreatedCallback + connectSignal _ = connectSessionConnectionCreated + +data SessionRequestQueuedSignalInfo +instance SignalInfo SessionRequestQueuedSignalInfo where + type HaskellCallbackType SessionRequestQueuedSignalInfo = SessionRequestQueuedCallback + connectSignal _ = connectSessionRequestQueued + +data SessionRequestStartedSignalInfo +instance SignalInfo SessionRequestStartedSignalInfo where + type HaskellCallbackType SessionRequestStartedSignalInfo = SessionRequestStartedCallback + connectSignal _ = connectSessionRequestStarted + +data SessionRequestUnqueuedSignalInfo +instance SignalInfo SessionRequestUnqueuedSignalInfo where + type HaskellCallbackType SessionRequestUnqueuedSignalInfo = SessionRequestUnqueuedCallback + connectSignal _ = connectSessionRequestUnqueued + +data SessionTunnelingSignalInfo +instance SignalInfo SessionTunnelingSignalInfo where + type HaskellCallbackType SessionTunnelingSignalInfo = SessionTunnelingCallback + connectSignal _ = connectSessionTunneling + +type instance SignalList Session = '[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SessionAsync = '[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SessionFeature = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +type instance SignalList SessionSync = '[ '("authenticate", SessionAuthenticateSignalInfo), '("connection-created", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("request-queued", SessionRequestQueuedSignalInfo), '("request-started", SessionRequestStartedSignalInfo), '("request-unqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data SocketDisconnectedSignalInfo +instance SignalInfo SocketDisconnectedSignalInfo where + type HaskellCallbackType SocketDisconnectedSignalInfo = SocketDisconnectedCallback + connectSignal _ = connectSocketDisconnected + +data SocketEventSignalInfo +instance SignalInfo SocketEventSignalInfo where + type HaskellCallbackType SocketEventSignalInfo = SocketEventCallback + connectSignal _ = connectSocketEvent + +data SocketNewConnectionSignalInfo +instance SignalInfo SocketNewConnectionSignalInfo where + type HaskellCallbackType SocketNewConnectionSignalInfo = SocketNewConnectionCallback + connectSignal _ = connectSocketNewConnection + +data SocketReadableSignalInfo +instance SignalInfo SocketReadableSignalInfo where + type HaskellCallbackType SocketReadableSignalInfo = SocketReadableCallback + connectSignal _ = connectSocketReadable + +data SocketWritableSignalInfo +instance SignalInfo SocketWritableSignalInfo where + type HaskellCallbackType SocketWritableSignalInfo = SocketWritableCallback + connectSignal _ = connectSocketWritable + +type instance SignalList Socket = '[ '("disconnected", SocketDisconnectedSignalInfo), '("event", SocketEventSignalInfo), '("new-connection", SocketNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("readable", SocketReadableSignalInfo), '("writable", SocketWritableSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + +data WebsocketConnectionClosedSignalInfo +instance SignalInfo WebsocketConnectionClosedSignalInfo where + type HaskellCallbackType WebsocketConnectionClosedSignalInfo = WebsocketConnectionClosedCallback + connectSignal _ = connectWebsocketConnectionClosed + +data WebsocketConnectionClosingSignalInfo +instance SignalInfo WebsocketConnectionClosingSignalInfo where + type HaskellCallbackType WebsocketConnectionClosingSignalInfo = WebsocketConnectionClosingCallback + connectSignal _ = connectWebsocketConnectionClosing + +data WebsocketConnectionErrorSignalInfo +instance SignalInfo WebsocketConnectionErrorSignalInfo where + type HaskellCallbackType WebsocketConnectionErrorSignalInfo = WebsocketConnectionErrorCallback + connectSignal _ = connectWebsocketConnectionError + +data WebsocketConnectionMessageSignalInfo +instance SignalInfo WebsocketConnectionMessageSignalInfo where + type HaskellCallbackType WebsocketConnectionMessageSignalInfo = WebsocketConnectionMessageCallback + connectSignal _ = connectWebsocketConnectionMessage + +type instance SignalList WebsocketConnection = '[ '("closed", WebsocketConnectionClosedSignalInfo), '("closing", WebsocketConnectionClosingSignalInfo), '("error", WebsocketConnectionErrorSignalInfo), '("message", WebsocketConnectionMessageSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] + diff --git a/gi-soup.cabal b/gi-soup.cabal --- a/gi-soup.cabal +++ b/gi-soup.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-soup -version: 0.2.50.12 +version: 0.2.52.10 synopsis: Soup bindings description: Bindings for Soup, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -14,71 +14,13 @@ library default-language: Haskell2010 - default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts - other-extensions: PatternSynonyms ScopedTypeVariables, ViewPatterns - ghc-options: -fno-warn-unused-imports -fno-warn-warnings-deprecations - exposed-modules: GI.Soup.Types - GI.Soup - GI.Soup.Callbacks - GI.Soup.Constants - GI.Soup.Enums - GI.Soup.Flags - GI.Soup.Functions - GI.Soup.Interfaces - GI.Soup.Interfaces.PasswordManager - GI.Soup.Interfaces.ProxyURIResolver - GI.Soup.Interfaces.SessionFeature - GI.Soup.Objects - GI.Soup.Objects.Address - GI.Soup.Objects.Auth - GI.Soup.Objects.AuthBasic - GI.Soup.Objects.AuthDigest - GI.Soup.Objects.AuthDomain - GI.Soup.Objects.AuthDomainBasic - GI.Soup.Objects.AuthDomainDigest - GI.Soup.Objects.AuthManager - GI.Soup.Objects.AuthNTLM - GI.Soup.Objects.Cache - GI.Soup.Objects.ContentDecoder - GI.Soup.Objects.ContentSniffer - GI.Soup.Objects.CookieJar - GI.Soup.Objects.CookieJarDB - GI.Soup.Objects.CookieJarText - GI.Soup.Objects.Logger - GI.Soup.Objects.Message - GI.Soup.Objects.MultipartInputStream - GI.Soup.Objects.ProxyResolverDefault - GI.Soup.Objects.Request - GI.Soup.Objects.RequestData - GI.Soup.Objects.RequestFile - GI.Soup.Objects.RequestHTTP - GI.Soup.Objects.Requester - GI.Soup.Objects.Server - GI.Soup.Objects.Session - GI.Soup.Objects.SessionAsync - GI.Soup.Objects.SessionSync - GI.Soup.Objects.Socket - GI.Soup.Objects.WebsocketConnection - GI.Soup.Structs - GI.Soup.Structs.Buffer - GI.Soup.Structs.ClientContext - GI.Soup.Structs.Connection - GI.Soup.Structs.Cookie - GI.Soup.Structs.Date - GI.Soup.Structs.MessageBody - GI.Soup.Structs.MessageHeaders - GI.Soup.Structs.MessageHeadersIter - GI.Soup.Structs.MessageQueue - GI.Soup.Structs.MessageQueueItem - GI.Soup.Structs.Multipart - GI.Soup.Structs.Range - GI.Soup.Structs.URI - pkgconfig-depends: libsoup-2.4 >= 2.50 + exposed-modules: GI.Soup, GI.SoupAttributes, GI.SoupSignals + pkgconfig-depends: libsoup-2.4 >= 2.52 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.12 && < 1, - gi-glib >= 0.2.44.12 && < 0.2.45, - gi-gobject >= 0.2.44.12 && < 0.2.45, - gi-gio >= 0.2.44.12 && < 0.2.45, + haskell-gi-base >= 0.10 && < 1, + gi-glib >= 0.2.46.10 && < 0.3, + gi-gobject >= 0.2.46.10 && < 0.3, + gi-gio >= 0.2.46.10 && < 0.3, bytestring >= 0.10, containers >= 0.5, text >= 1.0,