diff --git a/GI/Soup.hs b/GI/Soup.hs deleted file mode 100644 --- a/GI/Soup.hs +++ /dev/null @@ -1,46 +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 - ( 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 , - - - - module Data.GI.Base , - - - ) 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 Data.GI.Base - diff --git a/GI/Soup/Callbacks.hs b/GI/Soup/Callbacks.hs deleted file mode 100644 --- a/GI/Soup/Callbacks.hs +++ /dev/null @@ -1,762 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 proxyUri _ = do - resolver' <- (newObject ProxyURIResolver) resolver - proxyUri' <- (newBoxed URI) proxyUri - _cb resolver' status proxyUri' - 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 passwordManager msg auth retrying _ = do - passwordManager' <- (newObject PasswordManager) passwordManager - msg' <- (newObject Message) msg - auth' <- (newObject Auth) auth - let retrying' = (/= 0) retrying - _cb passwordManager' 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 (Maybe Buffer) - -noChunkAllocator :: Maybe ChunkAllocator -noChunkAllocator = Nothing - -chunkAllocatorWrapper :: - Maybe (Ptr (FunPtr (ChunkAllocatorC))) -> - ChunkAllocator -> - Ptr Message -> - Word64 -> - Ptr () -> - IO (Ptr Buffer) -chunkAllocatorWrapper funptrptr _cb msg maxLen _ = do - msg' <- (newObject Message) msg - result <- _cb msg' maxLen - maybeReleaseFunPtr funptrptr - maybeM nullPtr result $ \result' -> do - 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 (Maybe 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 - maybeM nullPtr result $ \result' -> do - 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,601 +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_OLD_H , - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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_OLD_H = 1 :: Int32 - - -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,1210 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,158 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 BoxedFlags ServerListenOptions where - boxedFlagsType _ = 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 BoxedFlags MessageFlags where - boxedFlagsType _ = 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 BoxedFlags Expectation where - boxedFlagsType _ = 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 BoxedFlags Cacheability where - boxedFlagsType _ = 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,1697 +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 --- ** 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 , - - --- ** strCaseEqual - strCaseEqual , - - --- ** strCaseHash - strCaseHash , - - --- ** tldDomainIsPublicSuffix - tldDomainIsPublicSuffix , - - --- ** tldGetBaseDomain - tldGetBaseDomain , - - --- ** valueArrayNew - valueArrayNew , - - --- ** websocketClientPrepareHandshake - websocketClientPrepareHandshake , - - --- ** websocketClientVerifyHandshake - websocketClientVerifyHandshake , - - --- ** websocketServerCheckHandshake - websocketServerCheckHandshake , - - --- ** websocketServerProcessHandshake - websocketServerProcessHandshake , - - --- ** xmlrpcBuildMethodCall - xmlrpcBuildMethodCall , - - --- ** xmlrpcBuildMethodResponse - xmlrpcBuildMethodResponse , - - --- ** xmlrpcBuildRequest - xmlrpcBuildRequest , - - --- ** xmlrpcBuildResponse - xmlrpcBuildResponse , - - --- ** xmlrpcMessageNew - xmlrpcMessageNew , - - --- ** xmlrpcMessageSetResponse - xmlrpcMessageSetResponse , - - --- ** xmlrpcParseMethodCall - xmlrpcParseMethodCall , - - --- ** xmlrpcParseMethodResponse - xmlrpcParseMethodResponse , - - --- ** xmlrpcParseRequest - xmlrpcParseRequest , - - --- ** xmlrpcParseResponse - xmlrpcParseResponse , - - --- ** xmlrpcVariantGetDatetime - xmlrpcVariantGetDatetime , - - --- ** xmlrpcVariantNewDatetime - xmlrpcVariantNewDatetime , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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_variant_new_datetime --- Args : [Arg {argCName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just 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 -- result -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' - - --- function soup_xmlrpc_variant_get_datetime --- Args : [Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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_parse_response --- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just 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 TInt - CString -> -- signature : TBasicType TUTF8 - Ptr (Ptr GError) -> -- error - IO (Ptr GVariant) - - -xmlrpcParseResponse :: - (MonadIO m) => - T.Text -- methodResponse - -> Int32 -- length_ - -> Maybe (T.Text) -- signature - -> m GVariant -- result -xmlrpcParseResponse methodResponse length_ signature = liftIO $ do - methodResponse' <- textToCString methodResponse - maybeSignature <- case signature of - Nothing -> return nullPtr - Just jSignature -> do - jSignature' <- textToCString jSignature - return jSignature' - onException (do - result <- propagateGError $ soup_xmlrpc_parse_response methodResponse' length_ maybeSignature - checkUnexpectedReturnNULL "soup_xmlrpc_parse_response" result - result' <- wrapGVariantPtr result - freeMem methodResponse' - freeMem maybeSignature - return result' - ) (do - freeMem methodResponse' - freeMem maybeSignature - ) - - --- function soup_xmlrpc_parse_request --- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 TInt - Ptr (Ptr XMLRPCParams) -> -- params : TInterface "Soup" "XMLRPCParams" - Ptr (Ptr GError) -> -- error - IO CString - - -xmlrpcParseRequest :: - (MonadIO m) => - T.Text -- methodCall - -> Int32 -- length_ - -> m (T.Text,XMLRPCParams) -- result -xmlrpcParseRequest methodCall length_ = liftIO $ do - methodCall' <- textToCString methodCall - params <- allocMem :: IO (Ptr (Ptr XMLRPCParams)) - onException (do - result <- propagateGError $ soup_xmlrpc_parse_request methodCall' length_ params - checkUnexpectedReturnNULL "soup_xmlrpc_parse_request" result - result' <- cstringToText result - freeMem result - params' <- peek params - params'' <- (wrapPtr XMLRPCParams) params' - freeMem methodCall' - freeMem params - return (result', params'') - ) (do - freeMem methodCall' - freeMem params - ) - - --- function soup_xmlrpc_parse_method_response --- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - 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 -- methodResponse - -> Int32 -- length_ - -> m (GValue) -- result -xmlrpcParseMethodResponse methodResponse length_ = liftIO $ do - methodResponse' <- textToCString methodResponse - value <- callocBoxedBytes 24 :: IO (Ptr GValue) - onException (do - _ <- propagateGError $ soup_xmlrpc_parse_method_response methodResponse' length_ value - value' <- (wrapBoxed GValue) value - freeMem methodResponse' - return value' - ) (do - freeMem methodResponse' - freeMem value - ) - - --- function soup_xmlrpc_parse_method_call --- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 TInt - 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 -- methodCall - -> Int32 -- length_ - -> m (Bool,T.Text,GObject.ValueArray) -- result -xmlrpcParseMethodCall methodCall length_ = liftIO $ do - methodCall' <- textToCString methodCall - methodName <- allocMem :: IO (Ptr CString) - params <- callocBoxedBytes 24 :: IO (Ptr GObject.ValueArray) - result <- soup_xmlrpc_parse_method_call methodCall' length_ methodName params - let result' = (/= 0) result - methodName' <- peek methodName - methodName'' <- cstringToText methodName' - freeMem methodName' - params' <- (wrapBoxed GObject.ValueArray) params - freeMem methodCall' - freeMem methodName - return (result', methodName'', params') - - --- function soup_xmlrpc_message_set_response --- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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_message_new --- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- methodName - -> GVariant -- params - -> m Message -- result -xmlrpcMessageNew uri methodName params = liftIO $ do - uri' <- textToCString uri - methodName' <- textToCString methodName - let params' = unsafeManagedPtrGetPtr params - onException (do - result <- propagateGError $ soup_xmlrpc_message_new uri' methodName' params' - checkUnexpectedReturnNULL "soup_xmlrpc_message_new" result - result' <- (wrapObject Message) result - freeMem uri' - freeMem methodName' - return result' - ) (do - freeMem uri' - freeMem methodName' - ) - - --- function soup_xmlrpc_build_response --- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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_build_request --- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- methodName - -> GVariant -- params - -> m T.Text -- result -xmlrpcBuildRequest methodName params = liftIO $ do - methodName' <- textToCString methodName - let params' = unsafeManagedPtrGetPtr params - onException (do - result <- propagateGError $ soup_xmlrpc_build_request methodName' params' - checkUnexpectedReturnNULL "soup_xmlrpc_build_request" result - result' <- cstringToText result - freeMem result - freeMem methodName' - return result' - ) (do - freeMem methodName' - ) - - --- function soup_xmlrpc_build_method_response --- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -xmlrpcBuildMethodResponse value = liftIO $ do - let value' = unsafeManagedPtrGetPtr value - result <- soup_xmlrpc_build_method_response value' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr value - return maybeResult - - --- function soup_xmlrpc_build_method_call --- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TInt - IO CString - -{-# DEPRECATED xmlrpcBuildMethodCall ["Use soup_xmlrpc_build_request() instead."]#-} -xmlrpcBuildMethodCall :: - (MonadIO m) => - T.Text -- methodName - -> [GValue] -- params - -> m (Maybe T.Text) -- result -xmlrpcBuildMethodCall methodName params = liftIO $ do - let nParams = fromIntegral $ length params - methodName' <- textToCString methodName - let params' = map unsafeManagedPtrGetPtr params - params'' <- packBlockArray 24 params' - result <- soup_xmlrpc_build_method_call methodName' params'' nParams - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - mapM_ touchManagedPtr params - freeMem methodName' - freeMem params'' - return maybeResult - - --- function soup_websocket_server_process_handshake --- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- expectedOrigin - -> Maybe ([T.Text]) -- protocols - -> m Bool -- result -websocketServerProcessHandshake msg expectedOrigin protocols = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - maybeExpectedOrigin <- case expectedOrigin of - Nothing -> return nullPtr - Just jExpectedOrigin -> do - jExpectedOrigin' <- textToCString jExpectedOrigin - return jExpectedOrigin' - maybeProtocols <- case protocols of - Nothing -> return nullPtr - Just jProtocols -> do - jProtocols' <- packZeroTerminatedUTF8CArray jProtocols - return jProtocols' - result <- soup_websocket_server_process_handshake msg' maybeExpectedOrigin maybeProtocols - let result' = (/= 0) result - touchManagedPtr msg - freeMem maybeExpectedOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return result' - - --- function soup_websocket_server_check_handshake --- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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_client_verify_handshake --- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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 {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 : [] --- returnType : Just (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 -- result -valueArrayNew = liftIO $ do - result <- soup_value_array_new - checkUnexpectedReturnNULL "soup_value_array_new" result - result' <- (wrapBoxed GObject.ValueArray) result - return result' - - --- function soup_tld_get_base_domain --- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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_domain_is_public_suffix --- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "soup_str_case_hash" soup_str_case_hash :: - Ptr () -> -- key : TBasicType TPtr - IO Word32 - - -strCaseHash :: - (MonadIO m) => - Ptr () -- key - -> m Word32 -- result -strCaseHash key = liftIO $ do - result <- soup_str_case_hash key - return result - - --- function soup_str_case_equal --- Args : [Arg {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "soup_str_case_equal" soup_str_case_equal :: - Ptr () -> -- v1 : TBasicType TPtr - Ptr () -> -- v2 : TBasicType TPtr - IO CInt - - -strCaseEqual :: - (MonadIO m) => - Ptr () -- v1 - -> Ptr () -- v2 - -> m Bool -- result -strCaseEqual v1 v2 = liftIO $ do - result <- soup_str_case_equal v1 v2 - let result' = (/= 0) result - return result' - - --- function soup_http_error_quark --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -httpErrorQuark = liftIO $ do - result <- soup_http_error_quark - return result - - --- function soup_headers_parse_status_line --- Args : [Arg {argCName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 TUInt - Ptr CString -> -- reason_phrase : TBasicType TUTF8 - IO CInt - - -headersParseStatusLine :: - (MonadIO m) => - T.Text -- statusLine - -> m (Bool,HTTPVersion,Word32,T.Text) -- result -headersParseStatusLine statusLine = liftIO $ do - statusLine' <- textToCString statusLine - ver <- allocMem :: IO (Ptr CUInt) - statusCode <- allocMem :: IO (Ptr Word32) - reasonPhrase <- allocMem :: IO (Ptr CString) - result <- soup_headers_parse_status_line statusLine' ver statusCode reasonPhrase - let result' = (/= 0) result - ver' <- peek ver - let ver'' = (toEnum . fromIntegral) ver' - statusCode' <- peek statusCode - reasonPhrase' <- peek reasonPhrase - reasonPhrase'' <- cstringToText reasonPhrase' - freeMem reasonPhrase' - freeMem statusLine' - freeMem ver - freeMem statusCode - freeMem reasonPhrase - return (result', ver'', statusCode', reasonPhrase'') - - --- function soup_headers_parse_response --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 TInt - Ptr MessageHeaders -> -- headers : TInterface "Soup" "MessageHeaders" - Ptr CUInt -> -- ver : TInterface "Soup" "HTTPVersion" - Ptr Word32 -> -- status_code : TBasicType TUInt - Ptr CString -> -- reason_phrase : TBasicType TUTF8 - IO CInt - - -headersParseResponse :: - (MonadIO m) => - T.Text -- str - -> Int32 -- len - -> MessageHeaders -- headers - -> m (Bool,HTTPVersion,Word32,T.Text) -- result -headersParseResponse str len headers = liftIO $ do - str' <- textToCString str - let headers' = unsafeManagedPtrGetPtr headers - ver <- allocMem :: IO (Ptr CUInt) - statusCode <- allocMem :: IO (Ptr Word32) - reasonPhrase <- allocMem :: IO (Ptr CString) - result <- soup_headers_parse_response str' len headers' ver statusCode reasonPhrase - let result' = (/= 0) result - ver' <- peek ver - let ver'' = (toEnum . fromIntegral) ver' - statusCode' <- peek statusCode - reasonPhrase' <- peek reasonPhrase - reasonPhrase'' <- cstringToText reasonPhrase' - freeMem reasonPhrase' - touchManagedPtr headers - freeMem str' - freeMem ver - freeMem statusCode - freeMem reasonPhrase - return (result', ver'', statusCode', reasonPhrase'') - - --- function soup_headers_parse_request --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- throws : False --- Skip return : False - -foreign import ccall "soup_headers_parse_request" soup_headers_parse_request :: - CString -> -- str : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - 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 -- reqHeaders - -> m (Word32,T.Text,T.Text,HTTPVersion) -- result -headersParseRequest str len reqHeaders = liftIO $ do - str' <- textToCString str - let reqHeaders' = unsafeManagedPtrGetPtr reqHeaders - reqMethod <- allocMem :: IO (Ptr CString) - reqPath <- allocMem :: IO (Ptr CString) - ver <- allocMem :: IO (Ptr CUInt) - result <- soup_headers_parse_request str' len reqHeaders' reqMethod reqPath ver - reqMethod' <- peek reqMethod - reqMethod'' <- cstringToText reqMethod' - freeMem reqMethod' - reqPath' <- peek reqPath - reqPath'' <- cstringToText reqPath' - freeMem reqPath' - ver' <- peek ver - let ver'' = (toEnum . fromIntegral) ver' - touchManagedPtr reqHeaders - freeMem str' - freeMem reqMethod - freeMem reqPath - freeMem ver - return (result, reqMethod'', reqPath'', ver'') - - --- function soup_headers_parse --- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TBoolean) --- throws : False --- Skip return : False - -foreign import ccall "soup_headers_parse" soup_headers_parse :: - CString -> -- str : TBasicType TUTF8 - Int32 -> -- len : TBasicType TInt - Ptr MessageHeaders -> -- dest : TInterface "Soup" "MessageHeaders" - IO CInt - - -headersParse :: - (MonadIO m) => - T.Text -- str - -> Int32 -- len - -> MessageHeaders -- dest - -> m Bool -- result -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 {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- result -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 {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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]) -- result -headerParseQualityList header = liftIO $ do - header' <- textToCString header - unacceptable <- allocMem :: IO (Ptr (Ptr (GSList CString))) - result <- soup_header_parse_quality_list header' unacceptable - 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 {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- result -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 {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -headerParseList header = liftIO $ do - header' <- textToCString header - result <- soup_header_parse_list header' - 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 {argCName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 {argCName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 {argCName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- paramList - -> m () -- result -headerFreeParamList paramList = liftIO $ do - let paramList' = Map.toList paramList - paramList'' <- mapFirstA textToCString paramList' - paramList''' <- mapSecondA textToCString paramList'' - let paramList'''' = mapFirst cstringPackPtr paramList''' - let paramList''''' = mapSecond cstringPackPtr paramList'''' - paramList'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) paramList''''' - soup_header_free_param_list paramList'''''' - unrefGHashTable paramList'''''' - return () - - --- function soup_header_contains --- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- formDataSet - -> m Message -- result -formRequestNewFromHash method uri formDataSet = liftIO $ do - method' <- textToCString method - uri' <- textToCString uri - let formDataSet' = Map.toList formDataSet - formDataSet'' <- mapFirstA textToCString formDataSet' - formDataSet''' <- mapSecondA textToCString formDataSet'' - let formDataSet'''' = mapFirst cstringPackPtr formDataSet''' - let formDataSet''''' = mapSecond cstringPackPtr formDataSet'''' - formDataSet'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) formDataSet''''' - result <- soup_form_request_new_from_hash method' uri' formDataSet'''''' - checkUnexpectedReturnNULL "soup_form_request_new_from_hash" result - result' <- (wrapObject Message) result - freeMem method' - freeMem uri' - unrefGHashTable formDataSet'''''' - return result' - - --- function soup_form_request_new_from_datalist --- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- formDataSet - -> m Message -- result -formRequestNewFromDatalist method uri formDataSet = liftIO $ do - method' <- textToCString method - uri' <- textToCString uri - let formDataSet' = unsafeManagedPtrGetPtr formDataSet - result <- soup_form_request_new_from_datalist method' uri' formDataSet' - checkUnexpectedReturnNULL "soup_form_request_new_from_datalist" result - result' <- (wrapObject Message) result - touchManagedPtr formDataSet - freeMem method' - freeMem uri' - return result' - - --- function soup_form_encode_hash --- Args : [Arg {argCName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- formDataSet - -> m T.Text -- result -formEncodeHash formDataSet = liftIO $ do - let formDataSet' = Map.toList formDataSet - formDataSet'' <- mapFirstA textToCString formDataSet' - formDataSet''' <- mapSecondA textToCString formDataSet'' - let formDataSet'''' = mapFirst cstringPackPtr formDataSet''' - let formDataSet''''' = mapSecond cstringPackPtr formDataSet'''' - formDataSet'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) formDataSet''''' - result <- soup_form_encode_hash formDataSet'''''' - checkUnexpectedReturnNULL "soup_form_encode_hash" result - result' <- cstringToText result - freeMem result - unrefGHashTable formDataSet'''''' - return result' - - --- function soup_form_encode_datalist --- Args : [Arg {argCName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- formDataSet - -> m T.Text -- result -formEncodeDatalist formDataSet = liftIO $ do - let formDataSet' = unsafeManagedPtrGetPtr formDataSet - result <- soup_form_encode_datalist formDataSet' - checkUnexpectedReturnNULL "soup_form_encode_datalist" result - result' <- cstringToText result - freeMem result - touchManagedPtr formDataSet - return result' - - --- function soup_form_decode_multipart --- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "file", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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) -- fileControlName - -> m ((Maybe (Map.Map T.Text T.Text)),T.Text,T.Text,Buffer)-- result -formDecodeMultipart msg fileControlName = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - maybeFileControlName <- case fileControlName of - Nothing -> return nullPtr - Just jFileControlName -> do - jFileControlName' <- textToCString jFileControlName - return jFileControlName' - filename <- allocMem :: IO (Ptr CString) - contentType <- allocMem :: IO (Ptr CString) - file <- callocBoxedBytes 16 :: IO (Ptr Buffer) - result <- soup_form_decode_multipart msg' maybeFileControlName filename contentType file - maybeResult <- convertIfNonNull result $ \result' -> do - 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' - return result''''''' - filename' <- peek filename - filename'' <- cstringToText filename' - freeMem filename' - contentType' <- peek contentType - contentType'' <- cstringToText contentType' - freeMem contentType' - file' <- (wrapBoxed Buffer) file - touchManagedPtr msg - freeMem maybeFileControlName - freeMem filename - freeMem contentType - return (maybeResult, filename'', contentType'', file') - - --- function soup_form_decode --- Args : [Arg {argCName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- encodedForm - -> m (Map.Map T.Text T.Text) -- result -formDecode encodedForm = liftIO $ do - encodedForm' <- textToCString encodedForm - result <- soup_form_decode encodedForm' - 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 encodedForm' - return result'''''' - - --- function soup_cookies_to_response --- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -cookiesFromResponse msg = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_cookies_from_response msg' - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr msg - return result'' - - --- function soup_cookies_from_request --- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -cookiesFromRequest msg = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_cookies_from_request msg' - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr msg - 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,31 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,216 +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 - PasswordManagerGetPasswordsAsyncMethodInfo, - passwordManagerGetPasswordsAsync , - - --- ** passwordManagerGetPasswordsSync - PasswordManagerGetPasswordsSyncMethodInfo, - passwordManagerGetPasswordsSync , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolvePasswordManagerMethod (t :: Symbol) (o :: *) :: * where - ResolvePasswordManagerMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolvePasswordManagerMethod "attach" o = SessionFeatureAttachMethodInfo - ResolvePasswordManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolvePasswordManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolvePasswordManagerMethod "detach" o = SessionFeatureDetachMethodInfo - ResolvePasswordManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolvePasswordManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolvePasswordManagerMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolvePasswordManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolvePasswordManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolvePasswordManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolvePasswordManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolvePasswordManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolvePasswordManagerMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolvePasswordManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolvePasswordManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolvePasswordManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolvePasswordManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolvePasswordManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolvePasswordManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolvePasswordManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolvePasswordManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolvePasswordManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolvePasswordManagerMethod "getPasswordsAsync" o = PasswordManagerGetPasswordsAsyncMethodInfo - ResolvePasswordManagerMethod "getPasswordsSync" o = PasswordManagerGetPasswordsSyncMethodInfo - ResolvePasswordManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolvePasswordManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolvePasswordManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolvePasswordManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolvePasswordManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolvePasswordManagerMethod t PasswordManager, MethodInfo info PasswordManager p) => IsLabelProxy t (PasswordManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolvePasswordManagerMethod t PasswordManager, MethodInfo info PasswordManager p) => IsLabel t (PasswordManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList PasswordManager = PasswordManagerAttributeList -type PasswordManagerAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList PasswordManager = PasswordManagerSignalList -type PasswordManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 {argCName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -passwordManagerGetPasswordsAsync :: - (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => - a -- _obj - -> b -- msg - -> c -- auth - -> Bool -- retrying - -> GLib.MainContext -- asyncContext - -> Maybe (d) -- cancellable - -> PasswordManagerCallback -- callback - -> m () -- result -passwordManagerGetPasswordsAsync _obj msg auth retrying asyncContext cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - let auth' = unsafeManagedPtrCastPtr auth - let retrying' = (fromIntegral . fromEnum) retrying - let asyncContext' = unsafeManagedPtrGetPtr asyncContext - 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 userData = nullPtr - soup_password_manager_get_passwords_async _obj' msg' auth' retrying' asyncContext' maybeCancellable callback' userData - touchManagedPtr _obj - touchManagedPtr msg - touchManagedPtr auth - touchManagedPtr asyncContext - whenJust cancellable touchManagedPtr - return () - -data PasswordManagerGetPasswordsAsyncMethodInfo -instance (signature ~ (b -> c -> Bool -> GLib.MainContext -> Maybe (d) -> PasswordManagerCallback -> m ()), MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => MethodInfo PasswordManagerGetPasswordsAsyncMethodInfo a signature where - overloadedMethod _ = passwordManagerGetPasswordsAsync - --- method PasswordManager::get_passwords_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data PasswordManagerGetPasswordsSyncMethodInfo -instance (signature ~ (b -> c -> Maybe (d) -> m ()), MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => MethodInfo PasswordManagerGetPasswordsSyncMethodInfo a signature where - overloadedMethod _ = passwordManagerGetPasswordsSync - - 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,15 +0,0 @@ -module GI.Soup.Interfaces.PasswordManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data PasswordManagerGetPasswordsAsyncMethodInfo -data PasswordManagerGetPasswordsSyncMethodInfo 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,212 +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 - ProxyURIResolverGetProxyUriAsyncMethodInfo, - proxyURIResolverGetProxyUriAsync , - - --- ** proxyURIResolverGetProxyUriSync - ProxyURIResolverGetProxyUriSyncMethodInfo, - proxyURIResolverGetProxyUriSync , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveProxyURIResolverMethod (t :: Symbol) (o :: *) :: * where - ResolveProxyURIResolverMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveProxyURIResolverMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveProxyURIResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProxyURIResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProxyURIResolverMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveProxyURIResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProxyURIResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProxyURIResolverMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveProxyURIResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProxyURIResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProxyURIResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProxyURIResolverMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProxyURIResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProxyURIResolverMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveProxyURIResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProxyURIResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProxyURIResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProxyURIResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProxyURIResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProxyURIResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProxyURIResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProxyURIResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProxyURIResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProxyURIResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProxyURIResolverMethod "getProxyUriAsync" o = ProxyURIResolverGetProxyUriAsyncMethodInfo - ResolveProxyURIResolverMethod "getProxyUriSync" o = ProxyURIResolverGetProxyUriSyncMethodInfo - ResolveProxyURIResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProxyURIResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProxyURIResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProxyURIResolverMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProxyURIResolverMethod t ProxyURIResolver, MethodInfo info ProxyURIResolver p) => IsLabelProxy t (ProxyURIResolver -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProxyURIResolverMethod t ProxyURIResolver, MethodInfo info ProxyURIResolver p) => IsLabel t (ProxyURIResolver -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ProxyURIResolver = ProxyURIResolverAttributeList -type ProxyURIResolverAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ProxyURIResolver = ProxyURIResolverSignalList -type ProxyURIResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 {argCName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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) -- asyncContext - -> Maybe (b) -- cancellable - -> ProxyURIResolverCallback -- callback - -> m () -- result -proxyURIResolverGetProxyUriAsync _obj uri asyncContext cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - maybeAsyncContext <- case asyncContext of - Nothing -> return nullPtr - Just jAsyncContext -> do - let jAsyncContext' = unsafeManagedPtrGetPtr jAsyncContext - return jAsyncContext' - 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 userData = nullPtr - soup_proxy_uri_resolver_get_proxy_uri_async _obj' uri' maybeAsyncContext maybeCancellable callback' userData - touchManagedPtr _obj - touchManagedPtr uri - whenJust asyncContext touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data ProxyURIResolverGetProxyUriAsyncMethodInfo -instance (signature ~ (URI -> Maybe (GLib.MainContext) -> Maybe (b) -> ProxyURIResolverCallback -> m ()), MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => MethodInfo ProxyURIResolverGetProxyUriAsyncMethodInfo a signature where - overloadedMethod _ = proxyURIResolverGetProxyUriAsync - --- method ProxyURIResolver::get_proxy_uri_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TInterface "Soup" "URI", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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) -- result -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' - proxyUri <- callocBoxedBytes 64 :: IO (Ptr URI) - result <- soup_proxy_uri_resolver_get_proxy_uri_sync _obj' uri' maybeCancellable proxyUri - proxyUri' <- (wrapBoxed URI) proxyUri - touchManagedPtr _obj - touchManagedPtr uri - whenJust cancellable touchManagedPtr - return (result, proxyUri') - -data ProxyURIResolverGetProxyUriSyncMethodInfo -instance (signature ~ (URI -> Maybe (b) -> m (Word32,URI)), MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => MethodInfo ProxyURIResolverGetProxyUriSyncMethodInfo a signature where - overloadedMethod _ = proxyURIResolverGetProxyUriSync - - 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,15 +0,0 @@ -module GI.Soup.Interfaces.ProxyURIResolver where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data ProxyURIResolverGetProxyUriAsyncMethodInfo -data ProxyURIResolverGetProxyUriSyncMethodInfo 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,282 +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 - SessionFeatureAddFeatureMethodInfo , - sessionFeatureAddFeature , - - --- ** sessionFeatureAttach - SessionFeatureAttachMethodInfo , - sessionFeatureAttach , - - --- ** sessionFeatureDetach - SessionFeatureDetachMethodInfo , - sessionFeatureDetach , - - --- ** sessionFeatureHasFeature - SessionFeatureHasFeatureMethodInfo , - sessionFeatureHasFeature , - - --- ** sessionFeatureRemoveFeature - SessionFeatureRemoveFeatureMethodInfo , - sessionFeatureRemoveFeature , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveSessionFeatureMethod (t :: Symbol) (o :: *) :: * where - ResolveSessionFeatureMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveSessionFeatureMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveSessionFeatureMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSessionFeatureMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSessionFeatureMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveSessionFeatureMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSessionFeatureMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSessionFeatureMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveSessionFeatureMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSessionFeatureMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSessionFeatureMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSessionFeatureMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSessionFeatureMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSessionFeatureMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveSessionFeatureMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSessionFeatureMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSessionFeatureMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSessionFeatureMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSessionFeatureMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSessionFeatureMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSessionFeatureMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSessionFeatureMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSessionFeatureMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSessionFeatureMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSessionFeatureMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSessionFeatureMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSessionFeatureMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSessionFeatureMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSessionFeatureMethod t SessionFeature, MethodInfo info SessionFeature p) => IsLabelProxy t (SessionFeature -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSessionFeatureMethod t SessionFeature, MethodInfo info SessionFeature p) => IsLabel t (SessionFeature -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SessionFeature = SessionFeatureAttributeList -type SessionFeatureAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList SessionFeature = SessionFeatureSignalList -type SessionFeatureSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SessionFeatureAddFeatureMethodInfo -instance (signature ~ (GType -> m Bool), MonadIO m, SessionFeatureK a) => MethodInfo SessionFeatureAddFeatureMethodInfo a signature where - overloadedMethod _ = sessionFeatureAddFeature - --- method SessionFeature::attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionFeatureAttach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_session_feature_attach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - -data SessionFeatureAttachMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SessionFeatureK a, SessionK b) => MethodInfo SessionFeatureAttachMethodInfo a signature where - overloadedMethod _ = sessionFeatureAttach - --- method SessionFeature::detach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionFeatureDetach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_session_feature_detach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - -data SessionFeatureDetachMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SessionFeatureK a, SessionK b) => MethodInfo SessionFeatureDetachMethodInfo a signature where - overloadedMethod _ = sessionFeatureDetach - --- method SessionFeature::has_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SessionFeatureHasFeatureMethodInfo -instance (signature ~ (GType -> m Bool), MonadIO m, SessionFeatureK a) => MethodInfo SessionFeatureHasFeatureMethodInfo a signature where - overloadedMethod _ = sessionFeatureHasFeature - --- method SessionFeature::remove_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SessionFeatureRemoveFeatureMethodInfo -instance (signature ~ (GType -> m Bool), MonadIO m, SessionFeatureK a) => MethodInfo SessionFeatureRemoveFeatureMethodInfo a signature where - overloadedMethod _ = sessionFeatureRemoveFeature - - 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,18 +0,0 @@ -module GI.Soup.Interfaces.SessionFeature where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data SessionFeatureAddFeatureMethodInfo -data SessionFeatureAttachMethodInfo -data SessionFeatureDetachMethodInfo -data SessionFeatureHasFeatureMethodInfo -data SessionFeatureRemoveFeatureMethodInfo diff --git a/GI/Soup/Objects.hs b/GI/Soup/Objects.hs deleted file mode 100644 --- a/GI/Soup/Objects.hs +++ /dev/null @@ -1,85 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,801 +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 - AddressEqualByIpMethodInfo , - addressEqualByIp , - - --- ** addressEqualByName - AddressEqualByNameMethodInfo , - addressEqualByName , - - --- ** addressGetGsockaddr - AddressGetGsockaddrMethodInfo , - addressGetGsockaddr , - - --- ** addressGetName - AddressGetNameMethodInfo , - addressGetName , - - --- ** addressGetPhysical - AddressGetPhysicalMethodInfo , - addressGetPhysical , - - --- ** addressGetPort - AddressGetPortMethodInfo , - addressGetPort , - - --- ** addressHashByIp - AddressHashByIpMethodInfo , - addressHashByIp , - - --- ** addressHashByName - AddressHashByNameMethodInfo , - addressHashByName , - - --- ** addressIsResolved - AddressIsResolvedMethodInfo , - addressIsResolved , - - --- ** addressNew - addressNew , - - --- ** addressNewAny - addressNewAny , - - --- ** addressNewFromSockaddr - addressNewFromSockaddr , - - --- ** addressResolveAsync - AddressResolveAsyncMethodInfo , - addressResolveAsync , - - --- ** addressResolveSync - AddressResolveSyncMethodInfo , - addressResolveSync , - - - - - -- * Properties --- ** Family - AddressFamilyPropertyInfo , - addressFamily , - constructAddressFamily , - getAddressFamily , - - --- ** Name - AddressNamePropertyInfo , - addressName , - constructAddressName , - getAddressName , - - --- ** Physical - AddressPhysicalPropertyInfo , - addressPhysical , - getAddressPhysical , - - --- ** Port - AddressPortPropertyInfo , - addressPort , - constructAddressPort , - getAddressPort , - - --- ** Protocol - AddressProtocolPropertyInfo , - addressProtocol , - constructAddressProtocol , - getAddressProtocol , - - --- ** Sockaddr - AddressSockaddrPropertyInfo , - addressSockaddr , - constructAddressSockaddr , - getAddressSockaddr , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveAddressMethod (t :: Symbol) (o :: *) :: * where - ResolveAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAddressMethod "enumerate" o = Gio.SocketConnectableEnumerateMethodInfo - ResolveAddressMethod "equalByIp" o = AddressEqualByIpMethodInfo - ResolveAddressMethod "equalByName" o = AddressEqualByNameMethodInfo - ResolveAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAddressMethod "hashByIp" o = AddressHashByIpMethodInfo - ResolveAddressMethod "hashByName" o = AddressHashByNameMethodInfo - ResolveAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAddressMethod "isResolved" o = AddressIsResolvedMethodInfo - ResolveAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAddressMethod "proxyEnumerate" o = Gio.SocketConnectableProxyEnumerateMethodInfo - ResolveAddressMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAddressMethod "resolveAsync" o = AddressResolveAsyncMethodInfo - ResolveAddressMethod "resolveSync" o = AddressResolveSyncMethodInfo - ResolveAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAddressMethod "getGsockaddr" o = AddressGetGsockaddrMethodInfo - ResolveAddressMethod "getName" o = AddressGetNameMethodInfo - ResolveAddressMethod "getPhysical" o = AddressGetPhysicalMethodInfo - ResolveAddressMethod "getPort" o = AddressGetPortMethodInfo - ResolveAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAddressMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAddressMethod t Address, MethodInfo info Address p) => IsLabelProxy t (Address -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAddressMethod t Address, MethodInfo info Address p) => IsLabel t (Address -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "family" - -- Type: TInterface "Soup" "AddressFamily" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "family" - attrGet _ = getAddressFamily - attrSet _ = undefined - attrConstruct _ = constructAddressFamily - attrClear _ = undefined - --- VVV Prop "name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just True,Nothing) - -getAddressName :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text) -getAddressName obj = liftIO $ getObjectPropertyString obj "name" - -constructAddressName :: T.Text -> IO ([Char], GValue) -constructAddressName val = constructObjectPropertyString "name" (Just val) - -data AddressNamePropertyInfo -instance AttrInfo AddressNamePropertyInfo where - type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AddressNamePropertyInfo = AddressK - type AttrGetType AddressNamePropertyInfo = (Maybe T.Text) - type AttrLabel AddressNamePropertyInfo = "name" - attrGet _ = getAddressName - attrSet _ = undefined - attrConstruct _ = constructAddressName - attrClear _ = undefined - --- VVV Prop "physical" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just True,Nothing) - -getAddressPhysical :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text) -getAddressPhysical obj = liftIO $ getObjectPropertyString obj "physical" - -data AddressPhysicalPropertyInfo -instance AttrInfo AddressPhysicalPropertyInfo where - type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) () - type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = AddressK - type AttrGetType AddressPhysicalPropertyInfo = (Maybe T.Text) - type AttrLabel AddressPhysicalPropertyInfo = "physical" - attrGet _ = getAddressPhysical - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "port" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getAddressPort :: (MonadIO m, AddressK o) => o -> m Int32 -getAddressPort obj = liftIO $ getObjectPropertyInt32 obj "port" - -constructAddressPort :: Int32 -> IO ([Char], GValue) -constructAddressPort val = constructObjectPropertyInt32 "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 = "port" - attrGet _ = getAddressPort - attrSet _ = undefined - attrConstruct _ = constructAddressPort - attrClear _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getAddressProtocol :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text) -getAddressProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -constructAddressProtocol :: T.Text -> IO ([Char], GValue) -constructAddressProtocol val = constructObjectPropertyString "protocol" (Just val) - -data AddressProtocolPropertyInfo -instance AttrInfo AddressProtocolPropertyInfo where - type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AddressProtocolPropertyInfo = AddressK - type AttrGetType AddressProtocolPropertyInfo = (Maybe T.Text) - type AttrLabel AddressProtocolPropertyInfo = "protocol" - attrGet _ = getAddressProtocol - attrSet _ = undefined - attrConstruct _ = constructAddressProtocol - attrClear _ = undefined - --- VVV Prop "sockaddr" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "sockaddr" - attrGet _ = getAddressSockaddr - attrSet _ = undefined - attrConstruct _ = constructAddressSockaddr - attrClear _ = undefined - -type instance AttributeList Address = AddressAttributeList -type AddressAttributeList = ('[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)] :: [(Symbol, *)]) - -addressFamily :: AttrLabelProxy "family" -addressFamily = AttrLabelProxy - -addressName :: AttrLabelProxy "name" -addressName = AttrLabelProxy - -addressPhysical :: AttrLabelProxy "physical" -addressPhysical = AttrLabelProxy - -addressPort :: AttrLabelProxy "port" -addressPort = AttrLabelProxy - -addressProtocol :: AttrLabelProxy "protocol" -addressProtocol = AttrLabelProxy - -addressSockaddr :: AttrLabelProxy "sockaddr" -addressSockaddr = AttrLabelProxy - -type instance SignalList Address = AddressSignalList -type AddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Address::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Soup" "Address") --- throws : False --- Skip return : False - -foreign import ccall "soup_address_new" soup_address_new :: - CString -> -- name : TBasicType TUTF8 - Word32 -> -- port : TBasicType TUInt - IO (Ptr Address) - - -addressNew :: - (MonadIO m) => - T.Text -- name - -> Word32 -- port - -> m Address -- result -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 {argCName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TUInt - IO (Ptr Address) - - -addressNewAny :: - (MonadIO m) => - AddressFamily -- family - -> Word32 -- port - -> m (Maybe Address) -- result -addressNewAny family port = liftIO $ do - let family' = (fromIntegral . fromEnum) family - result <- soup_address_new_any family' port - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Address) result' - return result'' - return maybeResult - --- method Address::new_from_sockaddr --- method type : Constructor --- Args : [Arg {argCName = "sa", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Soup" "Address") --- throws : False --- Skip return : False - -foreign import ccall "soup_address_new_from_sockaddr" soup_address_new_from_sockaddr :: - Ptr () -> -- sa : TBasicType TPtr - Int32 -> -- len : TBasicType TInt - IO (Ptr Address) - - -addressNewFromSockaddr :: - (MonadIO m) => - Ptr () -- sa - -> Int32 -- len - -> m (Maybe Address) -- result -addressNewFromSockaddr sa len = liftIO $ do - result <- soup_address_new_from_sockaddr sa len - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Address) result' - return result'' - return maybeResult - --- method Address::equal_by_ip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AddressEqualByIpMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, AddressK a, AddressK b) => MethodInfo AddressEqualByIpMethodInfo a signature where - overloadedMethod _ = addressEqualByIp - --- method Address::equal_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AddressEqualByNameMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, AddressK a, AddressK b) => MethodInfo AddressEqualByNameMethodInfo a signature where - overloadedMethod _ = addressEqualByName - --- method Address::get_gsockaddr --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AddressGetGsockaddrMethodInfo -instance (signature ~ (m Gio.SocketAddress), MonadIO m, AddressK a) => MethodInfo AddressGetGsockaddrMethodInfo a signature where - overloadedMethod _ = addressGetGsockaddr - --- method Address::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -addressGetName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_get_name _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data AddressGetNameMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, AddressK a) => MethodInfo AddressGetNameMethodInfo a signature where - overloadedMethod _ = addressGetName - --- method Address::get_physical --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -addressGetPhysical _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_get_physical _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data AddressGetPhysicalMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, AddressK a) => MethodInfo AddressGetPhysicalMethodInfo a signature where - overloadedMethod _ = addressGetPhysical - --- method Address::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -addressGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_get_port _obj' - touchManagedPtr _obj - return result - -data AddressGetPortMethodInfo -instance (signature ~ (m Word32), MonadIO m, AddressK a) => MethodInfo AddressGetPortMethodInfo a signature where - overloadedMethod _ = addressGetPort - --- method Address::hash_by_ip --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -addressHashByIp _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_hash_by_ip _obj' - touchManagedPtr _obj - return result - -data AddressHashByIpMethodInfo -instance (signature ~ (m Word32), MonadIO m, AddressK a) => MethodInfo AddressHashByIpMethodInfo a signature where - overloadedMethod _ = addressHashByIp - --- method Address::hash_by_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -addressHashByName _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_hash_by_name _obj' - touchManagedPtr _obj - return result - -data AddressHashByNameMethodInfo -instance (signature ~ (m Word32), MonadIO m, AddressK a) => MethodInfo AddressHashByNameMethodInfo a signature where - overloadedMethod _ = addressHashByName - --- method Address::is_resolved --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -addressIsResolved _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_address_is_resolved _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AddressIsResolvedMethodInfo -instance (signature ~ (m Bool), MonadIO m, AddressK a) => MethodInfo AddressIsResolvedMethodInfo a signature where - overloadedMethod _ = addressIsResolved - --- method Address::resolve_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -addressResolveAsync :: - (MonadIO m, AddressK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (GLib.MainContext) -- asyncContext - -> Maybe (b) -- cancellable - -> AddressCallback -- callback - -> m () -- result -addressResolveAsync _obj asyncContext cancellable callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - maybeAsyncContext <- case asyncContext of - Nothing -> return nullPtr - Just jAsyncContext -> do - let jAsyncContext' = unsafeManagedPtrGetPtr jAsyncContext - return jAsyncContext' - 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 userData = nullPtr - soup_address_resolve_async _obj' maybeAsyncContext maybeCancellable callback' userData - touchManagedPtr _obj - whenJust asyncContext touchManagedPtr - whenJust cancellable touchManagedPtr - return () - -data AddressResolveAsyncMethodInfo -instance (signature ~ (Maybe (GLib.MainContext) -> Maybe (b) -> AddressCallback -> m ()), MonadIO m, AddressK a, Gio.CancellableK b) => MethodInfo AddressResolveAsyncMethodInfo a signature where - overloadedMethod _ = addressResolveAsync - --- method Address::resolve_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -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 - -data AddressResolveSyncMethodInfo -instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, AddressK a, Gio.CancellableK b) => MethodInfo AddressResolveSyncMethodInfo a signature where - overloadedMethod _ = addressResolveSync - - 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,30 +0,0 @@ -module GI.Soup.Objects.Address where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data AddressEqualByIpMethodInfo -data AddressEqualByNameMethodInfo -data AddressGetGsockaddrMethodInfo -data AddressGetNameMethodInfo -data AddressGetPhysicalMethodInfo -data AddressGetPortMethodInfo -data AddressHashByIpMethodInfo -data AddressHashByNameMethodInfo -data AddressIsResolvedMethodInfo -data AddressResolveAsyncMethodInfo -data AddressResolveSyncMethodInfo 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,873 +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 - AuthAuthenticateMethodInfo , - authAuthenticate , - - --- ** authGetAuthorization - AuthGetAuthorizationMethodInfo , - authGetAuthorization , - - --- ** authGetHost - AuthGetHostMethodInfo , - authGetHost , - - --- ** authGetInfo - AuthGetInfoMethodInfo , - authGetInfo , - - --- ** authGetProtectionSpace - AuthGetProtectionSpaceMethodInfo , - authGetProtectionSpace , - - --- ** authGetRealm - AuthGetRealmMethodInfo , - authGetRealm , - - --- ** authGetSavedPassword - AuthGetSavedPasswordMethodInfo , - authGetSavedPassword , - - --- ** authGetSavedUsers - AuthGetSavedUsersMethodInfo , - authGetSavedUsers , - - --- ** authGetSchemeName - AuthGetSchemeNameMethodInfo , - authGetSchemeName , - - --- ** authHasSavedPassword - AuthHasSavedPasswordMethodInfo , - authHasSavedPassword , - - --- ** authIsAuthenticated - AuthIsAuthenticatedMethodInfo , - authIsAuthenticated , - - --- ** authIsForProxy - AuthIsForProxyMethodInfo , - authIsForProxy , - - --- ** authIsReady - AuthIsReadyMethodInfo , - authIsReady , - - --- ** authNew - authNew , - - --- ** authSavePassword - AuthSavePasswordMethodInfo , - authSavePassword , - - --- ** authUpdate - AuthUpdateMethodInfo , - authUpdate , - - - - - -- * Properties --- ** Host - AuthHostPropertyInfo , - authHost , - clearAuthHost , - constructAuthHost , - getAuthHost , - setAuthHost , - - --- ** IsAuthenticated - AuthIsAuthenticatedPropertyInfo , - getAuthIsAuthenticated , - - --- ** IsForProxy - AuthIsForProxyPropertyInfo , - constructAuthIsForProxy , - getAuthIsForProxy , - setAuthIsForProxy , - - --- ** Realm - AuthRealmPropertyInfo , - authRealm , - clearAuthRealm , - constructAuthRealm , - getAuthRealm , - setAuthRealm , - - --- ** SchemeName - AuthSchemeNamePropertyInfo , - authSchemeName , - getAuthSchemeName , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveAuthMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthMethod "authenticate" o = AuthAuthenticateMethodInfo - ResolveAuthMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo - ResolveAuthMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo - ResolveAuthMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthMethod "isForProxy" o = AuthIsForProxyMethodInfo - ResolveAuthMethod "isReady" o = AuthIsReadyMethodInfo - ResolveAuthMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthMethod "savePassword" o = AuthSavePasswordMethodInfo - ResolveAuthMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthMethod "update" o = AuthUpdateMethodInfo - ResolveAuthMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo - ResolveAuthMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthMethod "getHost" o = AuthGetHostMethodInfo - ResolveAuthMethod "getInfo" o = AuthGetInfoMethodInfo - ResolveAuthMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo - ResolveAuthMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthMethod "getRealm" o = AuthGetRealmMethodInfo - ResolveAuthMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo - ResolveAuthMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo - ResolveAuthMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo - ResolveAuthMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthMethod t Auth, MethodInfo info Auth p) => IsLabelProxy t (Auth -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthMethod t Auth, MethodInfo info Auth p) => IsLabel t (Auth -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "host" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getAuthHost :: (MonadIO m, AuthK o) => o -> m T.Text -getAuthHost obj = liftIO $ checkUnexpectedNothing "getAuthHost" $ getObjectPropertyString obj "host" - -setAuthHost :: (MonadIO m, AuthK o) => o -> T.Text -> m () -setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" (Just val) - -constructAuthHost :: T.Text -> IO ([Char], GValue) -constructAuthHost val = constructObjectPropertyString "host" (Just val) - -clearAuthHost :: (MonadIO m, AuthK o) => o -> m () -clearAuthHost obj = liftIO $ setObjectPropertyString obj "host" (Nothing :: Maybe T.Text) - -data AuthHostPropertyInfo -instance AttrInfo AuthHostPropertyInfo where - type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthHostPropertyInfo = AuthK - type AttrGetType AuthHostPropertyInfo = T.Text - type AttrLabel AuthHostPropertyInfo = "host" - attrGet _ = getAuthHost - attrSet _ = setAuthHost - attrConstruct _ = constructAuthHost - attrClear _ = clearAuthHost - --- VVV Prop "is-authenticated" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "is-authenticated" - attrGet _ = getAuthIsAuthenticated - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "is-for-proxy" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "is-for-proxy" - attrGet _ = getAuthIsForProxy - attrSet _ = setAuthIsForProxy - attrConstruct _ = constructAuthIsForProxy - attrClear _ = undefined - --- VVV Prop "realm" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Nothing) - -getAuthRealm :: (MonadIO m, AuthK o) => o -> m T.Text -getAuthRealm obj = liftIO $ checkUnexpectedNothing "getAuthRealm" $ getObjectPropertyString obj "realm" - -setAuthRealm :: (MonadIO m, AuthK o) => o -> T.Text -> m () -setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" (Just val) - -constructAuthRealm :: T.Text -> IO ([Char], GValue) -constructAuthRealm val = constructObjectPropertyString "realm" (Just val) - -clearAuthRealm :: (MonadIO m, AuthK o) => o -> m () -clearAuthRealm obj = liftIO $ setObjectPropertyString obj "realm" (Nothing :: Maybe T.Text) - -data AuthRealmPropertyInfo -instance AttrInfo AuthRealmPropertyInfo where - type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthRealmPropertyInfo = AuthK - type AttrGetType AuthRealmPropertyInfo = T.Text - type AttrLabel AuthRealmPropertyInfo = "realm" - attrGet _ = getAuthRealm - attrSet _ = setAuthRealm - attrConstruct _ = constructAuthRealm - attrClear _ = clearAuthRealm - --- VVV Prop "scheme-name" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -getAuthSchemeName :: (MonadIO m, AuthK o) => o -> m T.Text -getAuthSchemeName obj = liftIO $ checkUnexpectedNothing "getAuthSchemeName" $ getObjectPropertyString obj "scheme-name" - -data AuthSchemeNamePropertyInfo -instance AttrInfo AuthSchemeNamePropertyInfo where - type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) () - type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = AuthK - type AttrGetType AuthSchemeNamePropertyInfo = T.Text - type AttrLabel AuthSchemeNamePropertyInfo = "scheme-name" - attrGet _ = getAuthSchemeName - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - -type instance AttributeList Auth = AuthAttributeList -type AuthAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -authHost :: AttrLabelProxy "host" -authHost = AttrLabelProxy - -authRealm :: AttrLabelProxy "realm" -authRealm = AttrLabelProxy - -authSchemeName :: AttrLabelProxy "schemeName" -authSchemeName = AttrLabelProxy - -type instance SignalList Auth = AuthSignalList -type AuthSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Auth::new --- method type : Constructor --- Args : [Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- authHeader - -> m (Maybe Auth) -- result -authNew type_ msg authHeader = liftIO $ do - let type_' = gtypeToCGType type_ - let msg' = unsafeManagedPtrCastPtr msg - authHeader' <- textToCString authHeader - result <- soup_auth_new type_' msg' authHeader' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Auth) result' - return result'' - touchManagedPtr msg - freeMem authHeader' - return maybeResult - --- method Auth::authenticate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data AuthAuthenticateMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AuthK a) => MethodInfo AuthAuthenticateMethodInfo a signature where - overloadedMethod _ = authAuthenticate - --- method Auth::get_authorization --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthGetAuthorizationMethodInfo -instance (signature ~ (b -> m T.Text), MonadIO m, AuthK a, MessageK b) => MethodInfo AuthGetAuthorizationMethodInfo a signature where - overloadedMethod _ = authGetAuthorization - --- method Auth::get_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthGetHostMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetHostMethodInfo a signature where - overloadedMethod _ = authGetHost - --- method Auth::get_info --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthGetInfoMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetInfoMethodInfo a signature where - overloadedMethod _ = authGetInfo - --- method Auth::get_protection_space --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- sourceUri - -> m [T.Text] -- result -authGetProtectionSpace _obj sourceUri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let sourceUri' = unsafeManagedPtrGetPtr sourceUri - result <- soup_auth_get_protection_space _obj' sourceUri' - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - touchManagedPtr sourceUri - return result'' - -data AuthGetProtectionSpaceMethodInfo -instance (signature ~ (URI -> m [T.Text]), MonadIO m, AuthK a) => MethodInfo AuthGetProtectionSpaceMethodInfo a signature where - overloadedMethod _ = authGetProtectionSpace - --- method Auth::get_realm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthGetRealmMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetRealmMethodInfo a signature where - overloadedMethod _ = authGetRealm - --- method Auth::get_saved_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthGetSavedPasswordMethodInfo -instance (signature ~ (T.Text -> m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetSavedPasswordMethodInfo a signature where - overloadedMethod _ = authGetSavedPassword - --- method Auth::get_saved_users --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -authGetSavedUsers _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_get_saved_users _obj' - result' <- unpackGSList result - result'' <- mapM cstringToText result' - mapGSList freeMem result - g_slist_free result - touchManagedPtr _obj - return result'' - -data AuthGetSavedUsersMethodInfo -instance (signature ~ (m [T.Text]), MonadIO m, AuthK a) => MethodInfo AuthGetSavedUsersMethodInfo a signature where - overloadedMethod _ = authGetSavedUsers - --- method Auth::get_scheme_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthGetSchemeNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetSchemeNameMethodInfo a signature where - overloadedMethod _ = authGetSchemeName - --- method Auth::has_saved_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data AuthHasSavedPasswordMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AuthK a) => MethodInfo AuthHasSavedPasswordMethodInfo a signature where - overloadedMethod _ = authHasSavedPassword - --- method Auth::is_authenticated --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -authIsAuthenticated _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_is_authenticated _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AuthIsAuthenticatedMethodInfo -instance (signature ~ (m Bool), MonadIO m, AuthK a) => MethodInfo AuthIsAuthenticatedMethodInfo a signature where - overloadedMethod _ = authIsAuthenticated - --- method Auth::is_for_proxy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -authIsForProxy _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_auth_is_for_proxy _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data AuthIsForProxyMethodInfo -instance (signature ~ (m Bool), MonadIO m, AuthK a) => MethodInfo AuthIsForProxyMethodInfo a signature where - overloadedMethod _ = authIsForProxy - --- method Auth::is_ready --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthIsReadyMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, AuthK a, MessageK b) => MethodInfo AuthIsReadyMethodInfo a signature where - overloadedMethod _ = authIsReady - --- method Auth::save_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data AuthSavePasswordMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AuthK a) => MethodInfo AuthSavePasswordMethodInfo a signature where - overloadedMethod _ = authSavePassword - --- method Auth::update --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- authHeader - -> m Bool -- result -authUpdate _obj msg authHeader = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - authHeader' <- textToCString authHeader - result <- soup_auth_update _obj' msg' authHeader' - let result' = (/= 0) result - touchManagedPtr _obj - touchManagedPtr msg - freeMem authHeader' - return result' - -data AuthUpdateMethodInfo -instance (signature ~ (b -> T.Text -> m Bool), MonadIO m, AuthK a, MessageK b) => MethodInfo AuthUpdateMethodInfo a signature where - overloadedMethod _ = authUpdate - - 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,33 +0,0 @@ -module GI.Soup.Objects.Auth where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data AuthAuthenticateMethodInfo -data AuthGetAuthorizationMethodInfo -data AuthGetHostMethodInfo -data AuthGetInfoMethodInfo -data AuthGetProtectionSpaceMethodInfo -data AuthGetRealmMethodInfo -data AuthGetSavedPasswordMethodInfo -data AuthGetSavedUsersMethodInfo -data AuthGetSchemeNameMethodInfo -data AuthHasSavedPasswordMethodInfo -data AuthIsAuthenticatedMethodInfo -data AuthIsForProxyMethodInfo -data AuthIsReadyMethodInfo -data AuthSavePasswordMethodInfo -data AuthUpdateMethodInfo 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,107 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveAuthBasicMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthBasicMethod "authenticate" o = AuthAuthenticateMethodInfo - ResolveAuthBasicMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthBasicMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthBasicMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthBasicMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthBasicMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo - ResolveAuthBasicMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo - ResolveAuthBasicMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthBasicMethod "isForProxy" o = AuthIsForProxyMethodInfo - ResolveAuthBasicMethod "isReady" o = AuthIsReadyMethodInfo - ResolveAuthBasicMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthBasicMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthBasicMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthBasicMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthBasicMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthBasicMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthBasicMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthBasicMethod "savePassword" o = AuthSavePasswordMethodInfo - ResolveAuthBasicMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthBasicMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthBasicMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthBasicMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthBasicMethod "update" o = AuthUpdateMethodInfo - ResolveAuthBasicMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthBasicMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo - ResolveAuthBasicMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthBasicMethod "getHost" o = AuthGetHostMethodInfo - ResolveAuthBasicMethod "getInfo" o = AuthGetInfoMethodInfo - ResolveAuthBasicMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthBasicMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo - ResolveAuthBasicMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthBasicMethod "getRealm" o = AuthGetRealmMethodInfo - ResolveAuthBasicMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo - ResolveAuthBasicMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo - ResolveAuthBasicMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo - ResolveAuthBasicMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthBasicMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthBasicMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthBasicMethod t AuthBasic, MethodInfo info AuthBasic p) => IsLabelProxy t (AuthBasic -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthBasicMethod t AuthBasic, MethodInfo info AuthBasic p) => IsLabel t (AuthBasic -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AuthBasic = AuthBasicAttributeList -type AuthBasicAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthBasic = AuthBasicSignalList -type AuthBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,107 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveAuthDigestMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthDigestMethod "authenticate" o = AuthAuthenticateMethodInfo - ResolveAuthDigestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthDigestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthDigestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthDigestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthDigestMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo - ResolveAuthDigestMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo - ResolveAuthDigestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthDigestMethod "isForProxy" o = AuthIsForProxyMethodInfo - ResolveAuthDigestMethod "isReady" o = AuthIsReadyMethodInfo - ResolveAuthDigestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthDigestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthDigestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthDigestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthDigestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthDigestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthDigestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthDigestMethod "savePassword" o = AuthSavePasswordMethodInfo - ResolveAuthDigestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthDigestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthDigestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthDigestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthDigestMethod "update" o = AuthUpdateMethodInfo - ResolveAuthDigestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthDigestMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo - ResolveAuthDigestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthDigestMethod "getHost" o = AuthGetHostMethodInfo - ResolveAuthDigestMethod "getInfo" o = AuthGetInfoMethodInfo - ResolveAuthDigestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthDigestMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo - ResolveAuthDigestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthDigestMethod "getRealm" o = AuthGetRealmMethodInfo - ResolveAuthDigestMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo - ResolveAuthDigestMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo - ResolveAuthDigestMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo - ResolveAuthDigestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthDigestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthDigestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthDigestMethod t AuthDigest, MethodInfo info AuthDigest p) => IsLabelProxy t (AuthDigest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthDigestMethod t AuthDigest, MethodInfo info AuthDigest p) => IsLabel t (AuthDigest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AuthDigest = AuthDigestAttributeList -type AuthDigestAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthDigest = AuthDigestSignalList -type AuthDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,852 +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 - AuthDomainAcceptsMethodInfo , - authDomainAccepts , - - --- ** authDomainAddPath - AuthDomainAddPathMethodInfo , - authDomainAddPath , - - --- ** authDomainBasicSetAuthCallback - AuthDomainBasicSetAuthCallbackMethodInfo, - authDomainBasicSetAuthCallback , - - --- ** authDomainChallenge - AuthDomainChallengeMethodInfo , - authDomainChallenge , - - --- ** authDomainCheckPassword - AuthDomainCheckPasswordMethodInfo , - authDomainCheckPassword , - - --- ** authDomainCovers - AuthDomainCoversMethodInfo , - authDomainCovers , - - --- ** authDomainDigestSetAuthCallback - AuthDomainDigestSetAuthCallbackMethodInfo, - authDomainDigestSetAuthCallback , - - --- ** authDomainGetRealm - AuthDomainGetRealmMethodInfo , - authDomainGetRealm , - - --- ** authDomainRemovePath - AuthDomainRemovePathMethodInfo , - authDomainRemovePath , - - --- ** authDomainSetFilter - AuthDomainSetFilterMethodInfo , - authDomainSetFilter , - - --- ** authDomainSetGenericAuthCallback - AuthDomainSetGenericAuthCallbackMethodInfo, - authDomainSetGenericAuthCallback , - - --- ** authDomainTryGenericAuthCallback - AuthDomainTryGenericAuthCallbackMethodInfo, - authDomainTryGenericAuthCallback , - - - - - -- * Properties --- ** AddPath - AuthDomainAddPathPropertyInfo , - clearAuthDomainAddPath , - constructAuthDomainAddPath , - setAuthDomainAddPath , - - --- ** Filter - AuthDomainFilterPropertyInfo , - authDomainFilter , - constructAuthDomainFilter , - getAuthDomainFilter , - setAuthDomainFilter , - - --- ** FilterData - AuthDomainFilterDataPropertyInfo , - authDomainFilterData , - constructAuthDomainFilterData , - getAuthDomainFilterData , - setAuthDomainFilterData , - - --- ** GenericAuthCallback - AuthDomainGenericAuthCallbackPropertyInfo, - authDomainGenericAuthCallback , - constructAuthDomainGenericAuthCallback , - getAuthDomainGenericAuthCallback , - setAuthDomainGenericAuthCallback , - - --- ** GenericAuthData - AuthDomainGenericAuthDataPropertyInfo , - authDomainGenericAuthData , - constructAuthDomainGenericAuthData , - getAuthDomainGenericAuthData , - setAuthDomainGenericAuthData , - - --- ** Proxy - AuthDomainProxyPropertyInfo , - authDomainProxy , - constructAuthDomainProxy , - getAuthDomainProxy , - - --- ** Realm - AuthDomainRealmPropertyInfo , - authDomainRealm , - constructAuthDomainRealm , - getAuthDomainRealm , - - --- ** RemovePath - AuthDomainRemovePathPropertyInfo , - clearAuthDomainRemovePath , - constructAuthDomainRemovePath , - setAuthDomainRemovePath , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveAuthDomainMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthDomainMethod "accepts" o = AuthDomainAcceptsMethodInfo - ResolveAuthDomainMethod "addPath" o = AuthDomainAddPathMethodInfo - ResolveAuthDomainMethod "basicSetAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo - ResolveAuthDomainMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthDomainMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthDomainMethod "challenge" o = AuthDomainChallengeMethodInfo - ResolveAuthDomainMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo - ResolveAuthDomainMethod "covers" o = AuthDomainCoversMethodInfo - ResolveAuthDomainMethod "digestSetAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo - ResolveAuthDomainMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthDomainMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthDomainMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthDomainMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthDomainMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthDomainMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthDomainMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthDomainMethod "removePath" o = AuthDomainRemovePathMethodInfo - ResolveAuthDomainMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthDomainMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthDomainMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthDomainMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthDomainMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthDomainMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthDomainMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo - ResolveAuthDomainMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthDomainMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthDomainMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthDomainMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthDomainMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthDomainMethod "getRealm" o = AuthDomainGetRealmMethodInfo - ResolveAuthDomainMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthDomainMethod "setFilter" o = AuthDomainSetFilterMethodInfo - ResolveAuthDomainMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo - ResolveAuthDomainMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthDomainMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthDomainMethod t AuthDomain, MethodInfo info AuthDomain p) => IsLabelProxy t (AuthDomain -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthDomainMethod t AuthDomain, MethodInfo info AuthDomain p) => IsLabel t (AuthDomain -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "add-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m () -setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" (Just val) - -constructAuthDomainAddPath :: T.Text -> IO ([Char], GValue) -constructAuthDomainAddPath val = constructObjectPropertyString "add-path" (Just val) - -clearAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> m () -clearAuthDomainAddPath obj = liftIO $ setObjectPropertyString obj "add-path" (Nothing :: Maybe T.Text) - -data AuthDomainAddPathPropertyInfo -instance AttrInfo AuthDomainAddPathPropertyInfo where - type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = AuthDomainK - type AttrGetType AuthDomainAddPathPropertyInfo = () - type AttrLabel AuthDomainAddPathPropertyInfo = "add-path" - attrGet _ = undefined - attrSet _ = setAuthDomainAddPath - attrConstruct _ = constructAuthDomainAddPath - attrClear _ = clearAuthDomainAddPath - --- VVV Prop "filter" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "filter" - attrGet _ = getAuthDomainFilter - attrSet _ = setAuthDomainFilter - attrConstruct _ = constructAuthDomainFilter - attrClear _ = undefined - --- VVV Prop "filter-data" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "filter-data" - attrGet _ = getAuthDomainFilterData - attrSet _ = setAuthDomainFilterData - attrConstruct _ = constructAuthDomainFilterData - attrClear _ = undefined - --- VVV Prop "generic-auth-callback" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "generic-auth-callback" - attrGet _ = getAuthDomainGenericAuthCallback - attrSet _ = setAuthDomainGenericAuthCallback - attrConstruct _ = constructAuthDomainGenericAuthCallback - attrClear _ = undefined - --- VVV Prop "generic-auth-data" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "generic-auth-data" - attrGet _ = getAuthDomainGenericAuthData - attrSet _ = setAuthDomainGenericAuthData - attrConstruct _ = constructAuthDomainGenericAuthData - attrClear _ = undefined - --- VVV Prop "proxy" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "proxy" - attrGet _ = getAuthDomainProxy - attrSet _ = undefined - attrConstruct _ = constructAuthDomainProxy - attrClear _ = undefined - --- VVV Prop "realm" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getAuthDomainRealm :: (MonadIO m, AuthDomainK o) => o -> m T.Text -getAuthDomainRealm obj = liftIO $ checkUnexpectedNothing "getAuthDomainRealm" $ getObjectPropertyString obj "realm" - -constructAuthDomainRealm :: T.Text -> IO ([Char], GValue) -constructAuthDomainRealm val = constructObjectPropertyString "realm" (Just val) - -data AuthDomainRealmPropertyInfo -instance AttrInfo AuthDomainRealmPropertyInfo where - type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = AuthDomainK - type AttrGetType AuthDomainRealmPropertyInfo = T.Text - type AttrLabel AuthDomainRealmPropertyInfo = "realm" - attrGet _ = getAuthDomainRealm - attrSet _ = undefined - attrConstruct _ = constructAuthDomainRealm - attrClear _ = undefined - --- VVV Prop "remove-path" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m () -setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" (Just val) - -constructAuthDomainRemovePath :: T.Text -> IO ([Char], GValue) -constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" (Just val) - -clearAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> m () -clearAuthDomainRemovePath obj = liftIO $ setObjectPropertyString obj "remove-path" (Nothing :: Maybe T.Text) - -data AuthDomainRemovePathPropertyInfo -instance AttrInfo AuthDomainRemovePathPropertyInfo where - type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = AuthDomainK - type AttrGetType AuthDomainRemovePathPropertyInfo = () - type AttrLabel AuthDomainRemovePathPropertyInfo = "remove-path" - attrGet _ = undefined - attrSet _ = setAuthDomainRemovePath - attrConstruct _ = constructAuthDomainRemovePath - attrClear _ = clearAuthDomainRemovePath - -type instance AttributeList AuthDomain = AuthDomainAttributeList -type AuthDomainAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) - -authDomainFilter :: AttrLabelProxy "filter" -authDomainFilter = AttrLabelProxy - -authDomainFilterData :: AttrLabelProxy "filterData" -authDomainFilterData = AttrLabelProxy - -authDomainGenericAuthCallback :: AttrLabelProxy "genericAuthCallback" -authDomainGenericAuthCallback = AttrLabelProxy - -authDomainGenericAuthData :: AttrLabelProxy "genericAuthData" -authDomainGenericAuthData = AttrLabelProxy - -authDomainProxy :: AttrLabelProxy "proxy" -authDomainProxy = AttrLabelProxy - -authDomainRealm :: AttrLabelProxy "realm" -authDomainRealm = AttrLabelProxy - -type instance SignalList AuthDomain = AuthDomainSignalList -type AuthDomainSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AuthDomain::accepts --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -authDomainAccepts _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_auth_domain_accepts _obj' msg' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - touchManagedPtr msg - return maybeResult - -data AuthDomainAcceptsMethodInfo -instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainAcceptsMethodInfo a signature where - overloadedMethod _ = authDomainAccepts - --- method AuthDomain::add_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -authDomainAddPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - soup_auth_domain_add_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data AuthDomainAddPathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainAddPathMethodInfo a signature where - overloadedMethod _ = authDomainAddPath - --- method AuthDomain::basic_set_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainBasicSetAuthCallback :: - (MonadIO m, AuthDomainK a) => - a -- _obj - -> AuthDomainBasicAuthCallback -- callback - -> m () -- result -authDomainBasicSetAuthCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkAuthDomainBasicAuthCallback (authDomainBasicAuthCallbackWrapper Nothing callback) - let userData = castFunPtrToPtr callback' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_basic_set_auth_callback _obj' callback' userData dnotify - touchManagedPtr _obj - return () - -data AuthDomainBasicSetAuthCallbackMethodInfo -instance (signature ~ (AuthDomainBasicAuthCallback -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainBasicSetAuthCallbackMethodInfo a signature where - overloadedMethod _ = authDomainBasicSetAuthCallback - --- method AuthDomain::challenge --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -authDomainChallenge _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_auth_domain_challenge _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - -data AuthDomainChallengeMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainChallengeMethodInfo a signature where - overloadedMethod _ = authDomainChallenge - --- method AuthDomain::check_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthDomainCheckPasswordMethodInfo -instance (signature ~ (b -> T.Text -> T.Text -> m Bool), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainCheckPasswordMethodInfo a signature where - overloadedMethod _ = authDomainCheckPassword - --- method AuthDomain::covers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthDomainCoversMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainCoversMethodInfo a signature where - overloadedMethod _ = authDomainCovers - --- method AuthDomain::digest_set_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainDigestSetAuthCallback :: - (MonadIO m, AuthDomainK a) => - a -- _obj - -> AuthDomainDigestAuthCallback -- callback - -> m () -- result -authDomainDigestSetAuthCallback _obj callback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - callback' <- mkAuthDomainDigestAuthCallback (authDomainDigestAuthCallbackWrapper Nothing callback) - let userData = castFunPtrToPtr callback' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_digest_set_auth_callback _obj' callback' userData dnotify - touchManagedPtr _obj - return () - -data AuthDomainDigestSetAuthCallbackMethodInfo -instance (signature ~ (AuthDomainDigestAuthCallback -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainDigestSetAuthCallbackMethodInfo a signature where - overloadedMethod _ = authDomainDigestSetAuthCallback - --- method AuthDomain::get_realm --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthDomainGetRealmMethodInfo -instance (signature ~ (m T.Text), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainGetRealmMethodInfo a signature where - overloadedMethod _ = authDomainGetRealm - --- method AuthDomain::remove_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -authDomainRemovePath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - soup_auth_domain_remove_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data AuthDomainRemovePathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainRemovePathMethodInfo a signature where - overloadedMethod _ = authDomainRemovePath - --- method AuthDomain::set_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainSetFilter :: - (MonadIO m, AuthDomainK a) => - a -- _obj - -> AuthDomainFilter -- filter - -> m () -- result -authDomainSetFilter _obj filter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - filter' <- mkAuthDomainFilter (authDomainFilterWrapper Nothing filter) - let filterData = castFunPtrToPtr filter' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_set_filter _obj' filter' filterData dnotify - touchManagedPtr _obj - return () - -data AuthDomainSetFilterMethodInfo -instance (signature ~ (AuthDomainFilter -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainSetFilterMethodInfo a signature where - overloadedMethod _ = authDomainSetFilter - --- method AuthDomain::set_generic_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- dnotify : TInterface "GLib" "DestroyNotify" - IO () - - -authDomainSetGenericAuthCallback :: - (MonadIO m, AuthDomainK a) => - a -- _obj - -> AuthDomainGenericAuthCallback -- authCallback - -> m () -- result -authDomainSetGenericAuthCallback _obj authCallback = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - authCallback' <- mkAuthDomainGenericAuthCallback (authDomainGenericAuthCallbackWrapper Nothing authCallback) - let authData = castFunPtrToPtr authCallback' - let dnotify = safeFreeFunPtrPtr - soup_auth_domain_set_generic_auth_callback _obj' authCallback' authData dnotify - touchManagedPtr _obj - return () - -data AuthDomainSetGenericAuthCallbackMethodInfo -instance (signature ~ (AuthDomainGenericAuthCallback -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainSetGenericAuthCallbackMethodInfo a signature where - overloadedMethod _ = authDomainSetGenericAuthCallback - --- method AuthDomain::try_generic_auth_callback --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data AuthDomainTryGenericAuthCallbackMethodInfo -instance (signature ~ (b -> T.Text -> m Bool), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainTryGenericAuthCallbackMethodInfo a signature where - overloadedMethod _ = authDomainTryGenericAuthCallback - - 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,33 +0,0 @@ -module GI.Soup.Objects.AuthDomain where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data AuthDomainAcceptsMethodInfo -data AuthDomainAddPathMethodInfo -data AuthDomainBasicSetAuthCallbackMethodInfo -data AuthDomainChallengeMethodInfo -data AuthDomainCheckPasswordMethodInfo -data AuthDomainCoversMethodInfo -data AuthDomainDigestSetAuthCallbackMethodInfo -data AuthDomainGetRealmMethodInfo -data AuthDomainRemovePathMethodInfo -data AuthDomainSetFilterMethodInfo -data AuthDomainSetGenericAuthCallbackMethodInfo -data AuthDomainTryGenericAuthCallbackMethodInfo 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,181 +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 , - authDomainBasicAuthCallback , - constructAuthDomainBasicAuthCallback , - getAuthDomainBasicAuthCallback , - setAuthDomainBasicAuthCallback , - - --- ** AuthData - AuthDomainBasicAuthDataPropertyInfo , - authDomainBasicAuthData , - constructAuthDomainBasicAuthData , - getAuthDomainBasicAuthData , - setAuthDomainBasicAuthData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveAuthDomainBasicMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthDomainBasicMethod "accepts" o = AuthDomainAcceptsMethodInfo - ResolveAuthDomainBasicMethod "addPath" o = AuthDomainAddPathMethodInfo - ResolveAuthDomainBasicMethod "basicSetAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo - ResolveAuthDomainBasicMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthDomainBasicMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthDomainBasicMethod "challenge" o = AuthDomainChallengeMethodInfo - ResolveAuthDomainBasicMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo - ResolveAuthDomainBasicMethod "covers" o = AuthDomainCoversMethodInfo - ResolveAuthDomainBasicMethod "digestSetAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo - ResolveAuthDomainBasicMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthDomainBasicMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthDomainBasicMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthDomainBasicMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthDomainBasicMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthDomainBasicMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthDomainBasicMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthDomainBasicMethod "removePath" o = AuthDomainRemovePathMethodInfo - ResolveAuthDomainBasicMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthDomainBasicMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthDomainBasicMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthDomainBasicMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthDomainBasicMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthDomainBasicMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthDomainBasicMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo - ResolveAuthDomainBasicMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthDomainBasicMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthDomainBasicMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthDomainBasicMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthDomainBasicMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthDomainBasicMethod "getRealm" o = AuthDomainGetRealmMethodInfo - ResolveAuthDomainBasicMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthDomainBasicMethod "setFilter" o = AuthDomainSetFilterMethodInfo - ResolveAuthDomainBasicMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo - ResolveAuthDomainBasicMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthDomainBasicMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthDomainBasicMethod t AuthDomainBasic, MethodInfo info AuthDomainBasic p) => IsLabelProxy t (AuthDomainBasic -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthDomainBasicMethod t AuthDomainBasic, MethodInfo info AuthDomainBasic p) => IsLabel t (AuthDomainBasic -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "auth-callback" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "auth-callback" - attrGet _ = getAuthDomainBasicAuthCallback - attrSet _ = setAuthDomainBasicAuthCallback - attrConstruct _ = constructAuthDomainBasicAuthCallback - attrClear _ = undefined - --- VVV Prop "auth-data" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "auth-data" - attrGet _ = getAuthDomainBasicAuthData - attrSet _ = setAuthDomainBasicAuthData - attrConstruct _ = constructAuthDomainBasicAuthData - attrClear _ = undefined - -type instance AttributeList AuthDomainBasic = AuthDomainBasicAttributeList -type AuthDomainBasicAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainBasicAuthCallbackPropertyInfo), '("authData", AuthDomainBasicAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) - -authDomainBasicAuthCallback :: AttrLabelProxy "authCallback" -authDomainBasicAuthCallback = AttrLabelProxy - -authDomainBasicAuthData :: AttrLabelProxy "authData" -authDomainBasicAuthData = AttrLabelProxy - -type instance SignalList AuthDomainBasic = AuthDomainBasicSignalList -type AuthDomainBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,222 +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, - authDomainDigestAuthCallback , - constructAuthDomainDigestAuthCallback , - getAuthDomainDigestAuthCallback , - setAuthDomainDigestAuthCallback , - - --- ** AuthData - AuthDomainDigestAuthDataPropertyInfo , - authDomainDigestAuthData , - constructAuthDomainDigestAuthData , - getAuthDomainDigestAuthData , - setAuthDomainDigestAuthData , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveAuthDomainDigestMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthDomainDigestMethod "accepts" o = AuthDomainAcceptsMethodInfo - ResolveAuthDomainDigestMethod "addPath" o = AuthDomainAddPathMethodInfo - ResolveAuthDomainDigestMethod "basicSetAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo - ResolveAuthDomainDigestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthDomainDigestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthDomainDigestMethod "challenge" o = AuthDomainChallengeMethodInfo - ResolveAuthDomainDigestMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo - ResolveAuthDomainDigestMethod "covers" o = AuthDomainCoversMethodInfo - ResolveAuthDomainDigestMethod "digestSetAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo - ResolveAuthDomainDigestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthDomainDigestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthDomainDigestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthDomainDigestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthDomainDigestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthDomainDigestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthDomainDigestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthDomainDigestMethod "removePath" o = AuthDomainRemovePathMethodInfo - ResolveAuthDomainDigestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthDomainDigestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthDomainDigestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthDomainDigestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthDomainDigestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthDomainDigestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthDomainDigestMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo - ResolveAuthDomainDigestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthDomainDigestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthDomainDigestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthDomainDigestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthDomainDigestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthDomainDigestMethod "getRealm" o = AuthDomainGetRealmMethodInfo - ResolveAuthDomainDigestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthDomainDigestMethod "setFilter" o = AuthDomainSetFilterMethodInfo - ResolveAuthDomainDigestMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo - ResolveAuthDomainDigestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthDomainDigestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthDomainDigestMethod t AuthDomainDigest, MethodInfo info AuthDomainDigest p) => IsLabelProxy t (AuthDomainDigest -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthDomainDigestMethod t AuthDomainDigest, MethodInfo info AuthDomainDigest p) => IsLabel t (AuthDomainDigest -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "auth-callback" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "auth-callback" - attrGet _ = getAuthDomainDigestAuthCallback - attrSet _ = setAuthDomainDigestAuthCallback - attrConstruct _ = constructAuthDomainDigestAuthCallback - attrClear _ = undefined - --- VVV Prop "auth-data" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "auth-data" - attrGet _ = getAuthDomainDigestAuthData - attrSet _ = setAuthDomainDigestAuthData - attrConstruct _ = constructAuthDomainDigestAuthData - attrClear _ = undefined - -type instance AttributeList AuthDomainDigest = AuthDomainDigestAttributeList -type AuthDomainDigestAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainDigestAuthCallbackPropertyInfo), '("authData", AuthDomainDigestAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)]) - -authDomainDigestAuthCallback :: AttrLabelProxy "authCallback" -authDomainDigestAuthCallback = AttrLabelProxy - -authDomainDigestAuthData :: AttrLabelProxy "authData" -authDomainDigestAuthData = AttrLabelProxy - -type instance SignalList AuthDomainDigest = AuthDomainDigestSignalList -type AuthDomainDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method AuthDomainDigest::encode_password --- method type : MemberFunction --- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,211 +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 - AuthManagerUseAuthMethodInfo , - authManagerUseAuth , - - - - - -- * Signals --- ** Authenticate - AuthManagerAuthenticateCallback , - AuthManagerAuthenticateCallbackC , - AuthManagerAuthenticateSignalInfo , - afterAuthManagerAuthenticate , - authManagerAuthenticateCallbackWrapper , - authManagerAuthenticateClosure , - mkAuthManagerAuthenticateCallback , - noAuthManagerAuthenticateCallback , - onAuthManagerAuthenticate , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveAuthManagerMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthManagerMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveAuthManagerMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveAuthManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthManagerMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveAuthManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthManagerMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveAuthManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthManagerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthManagerMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveAuthManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthManagerMethod "useAuth" o = AuthManagerUseAuthMethodInfo - ResolveAuthManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthManagerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthManagerMethod t AuthManager, MethodInfo info AuthManager p) => IsLabelProxy t (AuthManager -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthManagerMethod t AuthManager, MethodInfo info AuthManager p) => IsLabel t (AuthManager -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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)] :: [(Symbol, *)]) - --- method AuthManager::use_auth --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data AuthManagerUseAuthMethodInfo -instance (signature ~ (URI -> b -> m ()), MonadIO m, AuthManagerK a, AuthK b) => MethodInfo AuthManagerUseAuthMethodInfo a signature where - overloadedMethod _ = authManagerUseAuth - - 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,15 +0,0 @@ -module GI.Soup.Objects.AuthManager where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data AuthManagerUseAuthMethodInfo 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,107 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveAuthNTLMMethod (t :: Symbol) (o :: *) :: * where - ResolveAuthNTLMMethod "authenticate" o = AuthAuthenticateMethodInfo - ResolveAuthNTLMMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveAuthNTLMMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveAuthNTLMMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveAuthNTLMMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveAuthNTLMMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo - ResolveAuthNTLMMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo - ResolveAuthNTLMMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveAuthNTLMMethod "isForProxy" o = AuthIsForProxyMethodInfo - ResolveAuthNTLMMethod "isReady" o = AuthIsReadyMethodInfo - ResolveAuthNTLMMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveAuthNTLMMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveAuthNTLMMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveAuthNTLMMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveAuthNTLMMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveAuthNTLMMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveAuthNTLMMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveAuthNTLMMethod "savePassword" o = AuthSavePasswordMethodInfo - ResolveAuthNTLMMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveAuthNTLMMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveAuthNTLMMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveAuthNTLMMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveAuthNTLMMethod "update" o = AuthUpdateMethodInfo - ResolveAuthNTLMMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveAuthNTLMMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo - ResolveAuthNTLMMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveAuthNTLMMethod "getHost" o = AuthGetHostMethodInfo - ResolveAuthNTLMMethod "getInfo" o = AuthGetInfoMethodInfo - ResolveAuthNTLMMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveAuthNTLMMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo - ResolveAuthNTLMMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveAuthNTLMMethod "getRealm" o = AuthGetRealmMethodInfo - ResolveAuthNTLMMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo - ResolveAuthNTLMMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo - ResolveAuthNTLMMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo - ResolveAuthNTLMMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveAuthNTLMMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveAuthNTLMMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveAuthNTLMMethod t AuthNTLM, MethodInfo info AuthNTLM p) => IsLabelProxy t (AuthNTLM -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveAuthNTLMMethod t AuthNTLM, MethodInfo info AuthNTLM p) => IsLabel t (AuthNTLM -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList AuthNTLM = AuthNTLMAttributeList -type AuthNTLMAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList AuthNTLM = AuthNTLMSignalList -type AuthNTLMSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,401 +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 - CacheClearMethodInfo , - cacheClear , - - --- ** cacheDump - CacheDumpMethodInfo , - cacheDump , - - --- ** cacheFlush - CacheFlushMethodInfo , - cacheFlush , - - --- ** cacheGetMaxSize - CacheGetMaxSizeMethodInfo , - cacheGetMaxSize , - - --- ** cacheLoad - CacheLoadMethodInfo , - cacheLoad , - - --- ** cacheNew - cacheNew , - - --- ** cacheSetMaxSize - CacheSetMaxSizeMethodInfo , - cacheSetMaxSize , - - - - - -- * Properties --- ** CacheDir - CacheCacheDirPropertyInfo , - cacheCacheDir , - constructCacheCacheDir , - getCacheCacheDir , - - --- ** CacheType - CacheCacheTypePropertyInfo , - cacheCacheType , - constructCacheCacheType , - getCacheCacheType , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveCacheMethod (t :: Symbol) (o :: *) :: * where - ResolveCacheMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveCacheMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveCacheMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCacheMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCacheMethod "clear" o = CacheClearMethodInfo - ResolveCacheMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveCacheMethod "dump" o = CacheDumpMethodInfo - ResolveCacheMethod "flush" o = CacheFlushMethodInfo - ResolveCacheMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCacheMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCacheMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveCacheMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCacheMethod "load" o = CacheLoadMethodInfo - ResolveCacheMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCacheMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCacheMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCacheMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCacheMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveCacheMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCacheMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCacheMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCacheMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCacheMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCacheMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCacheMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCacheMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCacheMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCacheMethod "getMaxSize" o = CacheGetMaxSizeMethodInfo - ResolveCacheMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCacheMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCacheMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCacheMethod "setMaxSize" o = CacheSetMaxSizeMethodInfo - ResolveCacheMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCacheMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCacheMethod t Cache, MethodInfo info Cache p) => IsLabelProxy t (Cache -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCacheMethod t Cache, MethodInfo info Cache p) => IsLabel t (Cache -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "cache-dir" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m (Maybe T.Text) -getCacheCacheDir obj = liftIO $ getObjectPropertyString obj "cache-dir" - -constructCacheCacheDir :: T.Text -> IO ([Char], GValue) -constructCacheCacheDir val = constructObjectPropertyString "cache-dir" (Just val) - -data CacheCacheDirPropertyInfo -instance AttrInfo CacheCacheDirPropertyInfo where - type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = CacheK - type AttrGetType CacheCacheDirPropertyInfo = (Maybe T.Text) - type AttrLabel CacheCacheDirPropertyInfo = "cache-dir" - attrGet _ = getCacheCacheDir - attrSet _ = undefined - attrConstruct _ = constructCacheCacheDir - attrClear _ = undefined - --- VVV Prop "cache-type" - -- Type: TInterface "Soup" "CacheType" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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-type" - attrGet _ = getCacheCacheType - attrSet _ = undefined - attrConstruct _ = constructCacheCacheType - attrClear _ = undefined - -type instance AttributeList Cache = CacheAttributeList -type CacheAttributeList = ('[ '("cacheDir", CacheCacheDirPropertyInfo), '("cacheType", CacheCacheTypePropertyInfo)] :: [(Symbol, *)]) - -cacheCacheDir :: AttrLabelProxy "cacheDir" -cacheCacheDir = AttrLabelProxy - -cacheCacheType :: AttrLabelProxy "cacheType" -cacheCacheType = AttrLabelProxy - -type instance SignalList Cache = CacheSignalList -type CacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Cache::new --- method type : Constructor --- Args : [Arg {argCName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- cacheDir - -> CacheType -- cacheType - -> m Cache -- result -cacheNew cacheDir cacheType = liftIO $ do - cacheDir' <- textToCString cacheDir - let cacheType' = (fromIntegral . fromEnum) cacheType - result <- soup_cache_new cacheDir' cacheType' - checkUnexpectedReturnNULL "soup_cache_new" result - result' <- (wrapObject Cache) result - freeMem cacheDir' - return result' - --- method Cache::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cacheClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_clear _obj' - touchManagedPtr _obj - return () - -data CacheClearMethodInfo -instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheClearMethodInfo a signature where - overloadedMethod _ = cacheClear - --- method Cache::dump --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cacheDump _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_dump _obj' - touchManagedPtr _obj - return () - -data CacheDumpMethodInfo -instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheDumpMethodInfo a signature where - overloadedMethod _ = cacheDump - --- method Cache::flush --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cacheFlush _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_flush _obj' - touchManagedPtr _obj - return () - -data CacheFlushMethodInfo -instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheFlushMethodInfo a signature where - overloadedMethod _ = cacheFlush - --- method Cache::get_max_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -cacheGetMaxSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_cache_get_max_size _obj' - touchManagedPtr _obj - return result - -data CacheGetMaxSizeMethodInfo -instance (signature ~ (m Word32), MonadIO m, CacheK a) => MethodInfo CacheGetMaxSizeMethodInfo a signature where - overloadedMethod _ = cacheGetMaxSize - --- method Cache::load --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cacheLoad _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_load _obj' - touchManagedPtr _obj - return () - -data CacheLoadMethodInfo -instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheLoadMethodInfo a signature where - overloadedMethod _ = cacheLoad - --- method Cache::set_max_size --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_size", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TUInt - IO () - - -cacheSetMaxSize :: - (MonadIO m, CacheK a) => - a -- _obj - -> Word32 -- maxSize - -> m () -- result -cacheSetMaxSize _obj maxSize = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cache_set_max_size _obj' maxSize - touchManagedPtr _obj - return () - -data CacheSetMaxSizeMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, CacheK a) => MethodInfo CacheSetMaxSizeMethodInfo a signature where - overloadedMethod _ = cacheSetMaxSize - - 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,21 +0,0 @@ -module GI.Soup.Objects.Cache where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data CacheClearMethodInfo -data CacheDumpMethodInfo -data CacheFlushMethodInfo -data CacheGetMaxSizeMethodInfo -data CacheLoadMethodInfo -data CacheSetMaxSizeMethodInfo 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,97 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveContentDecoderMethod (t :: Symbol) (o :: *) :: * where - ResolveContentDecoderMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveContentDecoderMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveContentDecoderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContentDecoderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContentDecoderMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveContentDecoderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContentDecoderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContentDecoderMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveContentDecoderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContentDecoderMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContentDecoderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContentDecoderMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContentDecoderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContentDecoderMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveContentDecoderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContentDecoderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContentDecoderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContentDecoderMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContentDecoderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContentDecoderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContentDecoderMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContentDecoderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContentDecoderMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContentDecoderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContentDecoderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContentDecoderMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContentDecoderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContentDecoderMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContentDecoderMethod t ContentDecoder, MethodInfo info ContentDecoder p) => IsLabelProxy t (ContentDecoder -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContentDecoderMethod t ContentDecoder, MethodInfo info ContentDecoder p) => IsLabel t (ContentDecoder -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContentDecoder = ContentDecoderAttributeList -type ContentDecoderAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContentDecoder = ContentDecoderSignalList -type ContentDecoderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,213 +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 - ContentSnifferGetBufferSizeMethodInfo , - contentSnifferGetBufferSize , - - --- ** contentSnifferNew - contentSnifferNew , - - --- ** contentSnifferSniff - ContentSnifferSniffMethodInfo , - contentSnifferSniff , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveContentSnifferMethod (t :: Symbol) (o :: *) :: * where - ResolveContentSnifferMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveContentSnifferMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveContentSnifferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveContentSnifferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveContentSnifferMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveContentSnifferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveContentSnifferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveContentSnifferMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveContentSnifferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveContentSnifferMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveContentSnifferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveContentSnifferMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveContentSnifferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveContentSnifferMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveContentSnifferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveContentSnifferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveContentSnifferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveContentSnifferMethod "sniff" o = ContentSnifferSniffMethodInfo - ResolveContentSnifferMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveContentSnifferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveContentSnifferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveContentSnifferMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveContentSnifferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveContentSnifferMethod "getBufferSize" o = ContentSnifferGetBufferSizeMethodInfo - ResolveContentSnifferMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveContentSnifferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveContentSnifferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveContentSnifferMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveContentSnifferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveContentSnifferMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveContentSnifferMethod t ContentSniffer, MethodInfo info ContentSniffer p) => IsLabelProxy t (ContentSniffer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveContentSnifferMethod t ContentSniffer, MethodInfo info ContentSniffer p) => IsLabel t (ContentSniffer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList ContentSniffer = ContentSnifferAttributeList -type ContentSnifferAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList ContentSniffer = ContentSnifferSignalList -type ContentSnifferSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method ContentSniffer::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -contentSnifferGetBufferSize _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_content_sniffer_get_buffer_size _obj' - touchManagedPtr _obj - return result - -data ContentSnifferGetBufferSizeMethodInfo -instance (signature ~ (m Word64), MonadIO m, ContentSnifferK a) => MethodInfo ContentSnifferGetBufferSizeMethodInfo a signature where - overloadedMethod _ = contentSnifferGetBufferSize - --- method ContentSniffer::sniff --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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)) -- result -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''''''') - -data ContentSnifferSniffMethodInfo -instance (signature ~ (b -> Buffer -> m (T.Text,(Map.Map T.Text T.Text))), MonadIO m, ContentSnifferK a, MessageK b) => MethodInfo ContentSnifferSniffMethodInfo a signature where - overloadedMethod _ = contentSnifferSniff - - 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,15 +0,0 @@ -module GI.Soup.Objects.ContentSniffer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data ContentSnifferGetBufferSizeMethodInfo -data ContentSnifferSniffMethodInfo 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,725 +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 - CookieJarAddCookieMethodInfo , - cookieJarAddCookie , - - --- ** cookieJarAddCookieWithFirstParty - CookieJarAddCookieWithFirstPartyMethodInfo, - cookieJarAddCookieWithFirstParty , - - --- ** cookieJarAllCookies - CookieJarAllCookiesMethodInfo , - cookieJarAllCookies , - - --- ** cookieJarDeleteCookie - CookieJarDeleteCookieMethodInfo , - cookieJarDeleteCookie , - - --- ** cookieJarGetAcceptPolicy - CookieJarGetAcceptPolicyMethodInfo , - cookieJarGetAcceptPolicy , - - --- ** cookieJarGetCookieList - CookieJarGetCookieListMethodInfo , - cookieJarGetCookieList , - - --- ** cookieJarGetCookies - CookieJarGetCookiesMethodInfo , - cookieJarGetCookies , - - --- ** cookieJarIsPersistent - CookieJarIsPersistentMethodInfo , - cookieJarIsPersistent , - - --- ** cookieJarNew - cookieJarNew , - - --- ** cookieJarSave - CookieJarSaveMethodInfo , - cookieJarSave , - - --- ** cookieJarSetAcceptPolicy - CookieJarSetAcceptPolicyMethodInfo , - cookieJarSetAcceptPolicy , - - --- ** cookieJarSetCookie - CookieJarSetCookieMethodInfo , - cookieJarSetCookie , - - --- ** cookieJarSetCookieWithFirstParty - CookieJarSetCookieWithFirstPartyMethodInfo, - cookieJarSetCookieWithFirstParty , - - - - - -- * Properties --- ** AcceptPolicy - CookieJarAcceptPolicyPropertyInfo , - constructCookieJarAcceptPolicy , - cookieJarAcceptPolicy , - getCookieJarAcceptPolicy , - setCookieJarAcceptPolicy , - - --- ** ReadOnly - CookieJarReadOnlyPropertyInfo , - constructCookieJarReadOnly , - cookieJarReadOnly , - getCookieJarReadOnly , - - - - - -- * Signals --- ** Changed - CookieJarChangedCallback , - CookieJarChangedCallbackC , - CookieJarChangedSignalInfo , - afterCookieJarChanged , - cookieJarChangedCallbackWrapper , - cookieJarChangedClosure , - mkCookieJarChangedCallback , - noCookieJarChangedCallback , - onCookieJarChanged , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveCookieJarMethod (t :: Symbol) (o :: *) :: * where - ResolveCookieJarMethod "addCookie" o = CookieJarAddCookieMethodInfo - ResolveCookieJarMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo - ResolveCookieJarMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveCookieJarMethod "allCookies" o = CookieJarAllCookiesMethodInfo - ResolveCookieJarMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveCookieJarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCookieJarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCookieJarMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo - ResolveCookieJarMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveCookieJarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCookieJarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCookieJarMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveCookieJarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCookieJarMethod "isPersistent" o = CookieJarIsPersistentMethodInfo - ResolveCookieJarMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCookieJarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCookieJarMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCookieJarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCookieJarMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveCookieJarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCookieJarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCookieJarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCookieJarMethod "save" o = CookieJarSaveMethodInfo - ResolveCookieJarMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCookieJarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCookieJarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCookieJarMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCookieJarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCookieJarMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo - ResolveCookieJarMethod "getCookieList" o = CookieJarGetCookieListMethodInfo - ResolveCookieJarMethod "getCookies" o = CookieJarGetCookiesMethodInfo - ResolveCookieJarMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCookieJarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCookieJarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCookieJarMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo - ResolveCookieJarMethod "setCookie" o = CookieJarSetCookieMethodInfo - ResolveCookieJarMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo - ResolveCookieJarMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCookieJarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCookieJarMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCookieJarMethod t CookieJar, MethodInfo info CookieJar p) => IsLabelProxy t (CookieJar -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCookieJarMethod t CookieJar, MethodInfo info CookieJar p) => IsLabel t (CookieJar -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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 _ oldCookie newCookie _ = do - oldCookie' <- (newBoxed Cookie) oldCookie - newCookie' <- (newBoxed Cookie) newCookie - _cb oldCookie' newCookie' - -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] - -- Nullable: (Just False,Just False) - -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 = "accept-policy" - attrGet _ = getCookieJarAcceptPolicy - attrSet _ = setCookieJarAcceptPolicy - attrConstruct _ = constructCookieJarAcceptPolicy - attrClear _ = undefined - --- VVV Prop "read-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "read-only" - attrGet _ = getCookieJarReadOnly - attrSet _ = undefined - attrConstruct _ = constructCookieJarReadOnly - attrClear _ = undefined - -type instance AttributeList CookieJar = CookieJarAttributeList -type CookieJarAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) - -cookieJarAcceptPolicy :: AttrLabelProxy "acceptPolicy" -cookieJarAcceptPolicy = AttrLabelProxy - -cookieJarReadOnly :: AttrLabelProxy "readOnly" -cookieJarReadOnly = AttrLabelProxy - -data CookieJarChangedSignalInfo -instance SignalInfo CookieJarChangedSignalInfo where - type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback - connectSignal _ = connectCookieJarChanged - -type instance SignalList CookieJar = CookieJarSignalList -type CookieJarSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CookieJar::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieJarAddCookie _obj cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - cookie' <- copyBoxed cookie - soup_cookie_jar_add_cookie _obj' cookie' - touchManagedPtr _obj - touchManagedPtr cookie - return () - -data CookieJarAddCookieMethodInfo -instance (signature ~ (Cookie -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarAddCookieMethodInfo a signature where - overloadedMethod _ = cookieJarAddCookie - --- method CookieJar::add_cookie_with_first_party --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Nothing --- 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 -- firstParty - -> Cookie -- cookie - -> m () -- result -cookieJarAddCookieWithFirstParty _obj firstParty cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let firstParty' = unsafeManagedPtrGetPtr firstParty - cookie' <- copyBoxed cookie - soup_cookie_jar_add_cookie_with_first_party _obj' firstParty' cookie' - touchManagedPtr _obj - touchManagedPtr firstParty - touchManagedPtr cookie - return () - -data CookieJarAddCookieWithFirstPartyMethodInfo -instance (signature ~ (URI -> Cookie -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarAddCookieWithFirstPartyMethodInfo a signature where - overloadedMethod _ = cookieJarAddCookieWithFirstParty - --- method CookieJar::all_cookies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -cookieJarAllCookies _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_cookie_jar_all_cookies _obj' - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data CookieJarAllCookiesMethodInfo -instance (signature ~ (m [Cookie]), MonadIO m, CookieJarK a) => MethodInfo CookieJarAllCookiesMethodInfo a signature where - overloadedMethod _ = cookieJarAllCookies - --- method CookieJar::delete_cookie --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data CookieJarDeleteCookieMethodInfo -instance (signature ~ (Cookie -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarDeleteCookieMethodInfo a signature where - overloadedMethod _ = cookieJarDeleteCookie - --- method CookieJar::get_accept_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieJarGetAcceptPolicyMethodInfo -instance (signature ~ (m CookieJarAcceptPolicy), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetAcceptPolicyMethodInfo a signature where - overloadedMethod _ = cookieJarGetAcceptPolicy - --- method CookieJar::get_cookie_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- forHttp - -> m [Cookie] -- result -cookieJarGetCookieList _obj uri forHttp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - let forHttp' = (fromIntegral . fromEnum) forHttp - result <- soup_cookie_jar_get_cookie_list _obj' uri' forHttp' - result' <- unpackGSList result - result'' <- mapM (wrapBoxed Cookie) result' - g_slist_free result - touchManagedPtr _obj - touchManagedPtr uri - return result'' - -data CookieJarGetCookieListMethodInfo -instance (signature ~ (URI -> Bool -> m [Cookie]), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetCookieListMethodInfo a signature where - overloadedMethod _ = cookieJarGetCookieList - --- method CookieJar::get_cookies --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- forHttp - -> m (Maybe T.Text) -- result -cookieJarGetCookies _obj uri forHttp = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - let forHttp' = (fromIntegral . fromEnum) forHttp - result <- soup_cookie_jar_get_cookies _obj' uri' forHttp' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - freeMem result' - return result'' - touchManagedPtr _obj - touchManagedPtr uri - return maybeResult - -data CookieJarGetCookiesMethodInfo -instance (signature ~ (URI -> Bool -> m (Maybe T.Text)), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetCookiesMethodInfo a signature where - overloadedMethod _ = cookieJarGetCookies - --- method CookieJar::is_persistent --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -cookieJarIsPersistent _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_cookie_jar_is_persistent _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CookieJarIsPersistentMethodInfo -instance (signature ~ (m Bool), MonadIO m, CookieJarK a) => MethodInfo CookieJarIsPersistentMethodInfo a signature where - overloadedMethod _ = cookieJarIsPersistent - --- method CookieJar::save --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieJarSave _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_cookie_jar_save _obj' - touchManagedPtr _obj - return () - -data CookieJarSaveMethodInfo -instance (signature ~ (m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSaveMethodInfo a signature where - overloadedMethod _ = cookieJarSave - --- method CookieJar::set_accept_policy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data CookieJarSetAcceptPolicyMethodInfo -instance (signature ~ (CookieJarAcceptPolicy -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSetAcceptPolicyMethodInfo a signature where - overloadedMethod _ = cookieJarSetAcceptPolicy - --- method CookieJar::set_cookie --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data CookieJarSetCookieMethodInfo -instance (signature ~ (URI -> T.Text -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSetCookieMethodInfo a signature where - overloadedMethod _ = cookieJarSetCookie - --- method CookieJar::set_cookie_with_first_party --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- firstParty - -> T.Text -- cookie - -> m () -- result -cookieJarSetCookieWithFirstParty _obj uri firstParty cookie = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - let firstParty' = unsafeManagedPtrGetPtr firstParty - cookie' <- textToCString cookie - soup_cookie_jar_set_cookie_with_first_party _obj' uri' firstParty' cookie' - touchManagedPtr _obj - touchManagedPtr uri - touchManagedPtr firstParty - freeMem cookie' - return () - -data CookieJarSetCookieWithFirstPartyMethodInfo -instance (signature ~ (URI -> URI -> T.Text -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSetCookieWithFirstPartyMethodInfo a signature where - overloadedMethod _ = cookieJarSetCookieWithFirstParty - - 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,28 +0,0 @@ -module GI.Soup.Objects.CookieJar where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data CookieJarAddCookieMethodInfo -data CookieJarAddCookieWithFirstPartyMethodInfo -data CookieJarAllCookiesMethodInfo -data CookieJarDeleteCookieMethodInfo -data CookieJarGetAcceptPolicyMethodInfo -data CookieJarGetCookieListMethodInfo -data CookieJarGetCookiesMethodInfo -data CookieJarIsPersistentMethodInfo -data CookieJarSaveMethodInfo -data CookieJarSetAcceptPolicyMethodInfo -data CookieJarSetCookieMethodInfo -data CookieJarSetCookieWithFirstPartyMethodInfo 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,180 +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 , - cookieJarDBFilename , - getCookieJarDBFilename , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveCookieJarDBMethod (t :: Symbol) (o :: *) :: * where - ResolveCookieJarDBMethod "addCookie" o = CookieJarAddCookieMethodInfo - ResolveCookieJarDBMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo - ResolveCookieJarDBMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveCookieJarDBMethod "allCookies" o = CookieJarAllCookiesMethodInfo - ResolveCookieJarDBMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveCookieJarDBMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCookieJarDBMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCookieJarDBMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo - ResolveCookieJarDBMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveCookieJarDBMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCookieJarDBMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCookieJarDBMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveCookieJarDBMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCookieJarDBMethod "isPersistent" o = CookieJarIsPersistentMethodInfo - ResolveCookieJarDBMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCookieJarDBMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCookieJarDBMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCookieJarDBMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCookieJarDBMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveCookieJarDBMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCookieJarDBMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCookieJarDBMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCookieJarDBMethod "save" o = CookieJarSaveMethodInfo - ResolveCookieJarDBMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCookieJarDBMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCookieJarDBMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCookieJarDBMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCookieJarDBMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCookieJarDBMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo - ResolveCookieJarDBMethod "getCookieList" o = CookieJarGetCookieListMethodInfo - ResolveCookieJarDBMethod "getCookies" o = CookieJarGetCookiesMethodInfo - ResolveCookieJarDBMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCookieJarDBMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCookieJarDBMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCookieJarDBMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo - ResolveCookieJarDBMethod "setCookie" o = CookieJarSetCookieMethodInfo - ResolveCookieJarDBMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo - ResolveCookieJarDBMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCookieJarDBMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCookieJarDBMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCookieJarDBMethod t CookieJarDB, MethodInfo info CookieJarDB p) => IsLabelProxy t (CookieJarDB -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCookieJarDBMethod t CookieJarDB, MethodInfo info CookieJarDB p) => IsLabel t (CookieJarDB -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m (Maybe T.Text) -getCookieJarDBFilename obj = liftIO $ getObjectPropertyString obj "filename" - -constructCookieJarDBFilename :: T.Text -> IO ([Char], GValue) -constructCookieJarDBFilename val = constructObjectPropertyString "filename" (Just val) - -data CookieJarDBFilenamePropertyInfo -instance AttrInfo CookieJarDBFilenamePropertyInfo where - type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = CookieJarDBK - type AttrGetType CookieJarDBFilenamePropertyInfo = (Maybe T.Text) - type AttrLabel CookieJarDBFilenamePropertyInfo = "filename" - attrGet _ = getCookieJarDBFilename - attrSet _ = undefined - attrConstruct _ = constructCookieJarDBFilename - attrClear _ = undefined - -type instance AttributeList CookieJarDB = CookieJarDBAttributeList -type CookieJarDBAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) - -cookieJarDBFilename :: AttrLabelProxy "filename" -cookieJarDBFilename = AttrLabelProxy - -type instance SignalList CookieJarDB = CookieJarDBSignalList -type CookieJarDBSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CookieJarDB::new --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- readOnly - -> m CookieJarDB -- result -cookieJarDBNew filename readOnly = liftIO $ do - filename' <- textToCString filename - let readOnly' = (fromIntegral . fromEnum) readOnly - result <- soup_cookie_jar_db_new filename' readOnly' - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,180 +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 , - cookieJarTextFilename , - getCookieJarTextFilename , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveCookieJarTextMethod (t :: Symbol) (o :: *) :: * where - ResolveCookieJarTextMethod "addCookie" o = CookieJarAddCookieMethodInfo - ResolveCookieJarTextMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo - ResolveCookieJarTextMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveCookieJarTextMethod "allCookies" o = CookieJarAllCookiesMethodInfo - ResolveCookieJarTextMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveCookieJarTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveCookieJarTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveCookieJarTextMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo - ResolveCookieJarTextMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveCookieJarTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveCookieJarTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveCookieJarTextMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveCookieJarTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveCookieJarTextMethod "isPersistent" o = CookieJarIsPersistentMethodInfo - ResolveCookieJarTextMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveCookieJarTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveCookieJarTextMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveCookieJarTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveCookieJarTextMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveCookieJarTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveCookieJarTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveCookieJarTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveCookieJarTextMethod "save" o = CookieJarSaveMethodInfo - ResolveCookieJarTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveCookieJarTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveCookieJarTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveCookieJarTextMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveCookieJarTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveCookieJarTextMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo - ResolveCookieJarTextMethod "getCookieList" o = CookieJarGetCookieListMethodInfo - ResolveCookieJarTextMethod "getCookies" o = CookieJarGetCookiesMethodInfo - ResolveCookieJarTextMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveCookieJarTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveCookieJarTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveCookieJarTextMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo - ResolveCookieJarTextMethod "setCookie" o = CookieJarSetCookieMethodInfo - ResolveCookieJarTextMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo - ResolveCookieJarTextMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveCookieJarTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveCookieJarTextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCookieJarTextMethod t CookieJarText, MethodInfo info CookieJarText p) => IsLabelProxy t (CookieJarText -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCookieJarTextMethod t CookieJarText, MethodInfo info CookieJarText p) => IsLabel t (CookieJarText -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "filename" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m (Maybe T.Text) -getCookieJarTextFilename obj = liftIO $ getObjectPropertyString obj "filename" - -constructCookieJarTextFilename :: T.Text -> IO ([Char], GValue) -constructCookieJarTextFilename val = constructObjectPropertyString "filename" (Just val) - -data CookieJarTextFilenamePropertyInfo -instance AttrInfo CookieJarTextFilenamePropertyInfo where - type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = CookieJarTextK - type AttrGetType CookieJarTextFilenamePropertyInfo = (Maybe T.Text) - type AttrLabel CookieJarTextFilenamePropertyInfo = "filename" - attrGet _ = getCookieJarTextFilename - attrSet _ = undefined - attrConstruct _ = constructCookieJarTextFilename - attrClear _ = undefined - -type instance AttributeList CookieJarText = CookieJarTextAttributeList -type CookieJarTextAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)]) - -cookieJarTextFilename :: AttrLabelProxy "filename" -cookieJarTextFilename = AttrLabelProxy - -type instance SignalList CookieJarText = CookieJarTextSignalList -type CookieJarTextSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method CookieJarText::new --- method type : Constructor --- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- readOnly - -> m CookieJarText -- result -cookieJarTextNew filename readOnly = liftIO $ do - filename' <- textToCString filename - let readOnly' = (fromIntegral . fromEnum) readOnly - result <- soup_cookie_jar_text_new filename' readOnly' - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,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.Logger - ( - --- * Exported types - Logger(..) , - LoggerK , - toLogger , - noLogger , - - - -- * Methods --- ** loggerAttach - LoggerAttachMethodInfo , - loggerAttach , - - --- ** loggerDetach - LoggerDetachMethodInfo , - loggerDetach , - - --- ** loggerNew - loggerNew , - - --- ** loggerSetPrinter - LoggerSetPrinterMethodInfo , - loggerSetPrinter , - - --- ** loggerSetRequestFilter - LoggerSetRequestFilterMethodInfo , - loggerSetRequestFilter , - - --- ** loggerSetResponseFilter - LoggerSetResponseFilterMethodInfo , - loggerSetResponseFilter , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveLoggerMethod (t :: Symbol) (o :: *) :: * where - ResolveLoggerMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveLoggerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveLoggerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveLoggerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveLoggerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveLoggerMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveLoggerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveLoggerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveLoggerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveLoggerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveLoggerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveLoggerMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveLoggerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveLoggerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveLoggerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveLoggerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveLoggerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveLoggerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveLoggerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveLoggerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveLoggerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveLoggerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveLoggerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveLoggerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveLoggerMethod "setPrinter" o = LoggerSetPrinterMethodInfo - ResolveLoggerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveLoggerMethod "setRequestFilter" o = LoggerSetRequestFilterMethodInfo - ResolveLoggerMethod "setResponseFilter" o = LoggerSetResponseFilterMethodInfo - ResolveLoggerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveLoggerMethod t Logger, MethodInfo info Logger p) => IsLabelProxy t (Logger -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveLoggerMethod t Logger, MethodInfo info Logger p) => IsLabel t (Logger -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Logger = LoggerAttributeList -type LoggerAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Logger = LoggerSignalList -type LoggerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Logger::new --- method type : Constructor --- Args : [Arg {argCName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_body_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - IO (Ptr Logger) - - -loggerNew :: - (MonadIO m) => - LoggerLogLevel -- level - -> Int32 -- maxBodySize - -> m Logger -- result -loggerNew level maxBodySize = liftIO $ do - let level' = (fromIntegral . fromEnum) level - result <- soup_logger_new level' maxBodySize - checkUnexpectedReturnNULL "soup_logger_new" result - result' <- (wrapObject Logger) result - return result' - --- method Logger::attach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -loggerAttach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_logger_attach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - -data LoggerAttachMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, LoggerK a, SessionK b) => MethodInfo LoggerAttachMethodInfo a signature where - overloadedMethod _ = loggerAttach - --- method Logger::detach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -loggerDetach _obj session = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let session' = unsafeManagedPtrCastPtr session - soup_logger_detach _obj' session' - touchManagedPtr _obj - touchManagedPtr session - return () - -data LoggerDetachMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, LoggerK a, SessionK b) => MethodInfo LoggerDetachMethodInfo a signature where - overloadedMethod _ = loggerDetach - --- method Logger::set_printer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -loggerSetPrinter :: - (MonadIO m, LoggerK a) => - a -- _obj - -> LoggerPrinter -- printer - -> m () -- result -loggerSetPrinter _obj printer = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - printer' <- mkLoggerPrinter (loggerPrinterWrapper Nothing printer) - let printerData = castFunPtrToPtr printer' - let destroy = safeFreeFunPtrPtr - soup_logger_set_printer _obj' printer' printerData destroy - touchManagedPtr _obj - return () - -data LoggerSetPrinterMethodInfo -instance (signature ~ (LoggerPrinter -> m ()), MonadIO m, LoggerK a) => MethodInfo LoggerSetPrinterMethodInfo a signature where - overloadedMethod _ = loggerSetPrinter - --- method Logger::set_request_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -loggerSetRequestFilter :: - (MonadIO m, LoggerK a) => - a -- _obj - -> LoggerFilter -- requestFilter - -> m () -- result -loggerSetRequestFilter _obj requestFilter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - requestFilter' <- mkLoggerFilter (loggerFilterWrapper Nothing requestFilter) - let filterData = castFunPtrToPtr requestFilter' - let destroy = safeFreeFunPtrPtr - soup_logger_set_request_filter _obj' requestFilter' filterData destroy - touchManagedPtr _obj - return () - -data LoggerSetRequestFilterMethodInfo -instance (signature ~ (LoggerFilter -> m ()), MonadIO m, LoggerK a) => MethodInfo LoggerSetRequestFilterMethodInfo a signature where - overloadedMethod _ = loggerSetRequestFilter - --- method Logger::set_response_filter --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -loggerSetResponseFilter :: - (MonadIO m, LoggerK a) => - a -- _obj - -> LoggerFilter -- responseFilter - -> m () -- result -loggerSetResponseFilter _obj responseFilter = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - responseFilter' <- mkLoggerFilter (loggerFilterWrapper Nothing responseFilter) - let filterData = castFunPtrToPtr responseFilter' - let destroy = safeFreeFunPtrPtr - soup_logger_set_response_filter _obj' responseFilter' filterData destroy - touchManagedPtr _obj - return () - -data LoggerSetResponseFilterMethodInfo -instance (signature ~ (LoggerFilter -> m ()), MonadIO m, LoggerK a) => MethodInfo LoggerSetResponseFilterMethodInfo a signature where - overloadedMethod _ = loggerSetResponseFilter - - 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,18 +0,0 @@ -module GI.Soup.Objects.Logger where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data LoggerAttachMethodInfo -data LoggerDetachMethodInfo -data LoggerSetPrinterMethodInfo -data LoggerSetRequestFilterMethodInfo -data LoggerSetResponseFilterMethodInfo 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,2809 +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 - MessageContentSniffedMethodInfo , - messageContentSniffed , - - --- ** messageDisableFeature - MessageDisableFeatureMethodInfo , - messageDisableFeature , - - --- ** messageFinished - MessageFinishedMethodInfo , - messageFinished , - - --- ** messageGetAddress - MessageGetAddressMethodInfo , - messageGetAddress , - - --- ** messageGetFirstParty - MessageGetFirstPartyMethodInfo , - messageGetFirstParty , - - --- ** messageGetFlags - MessageGetFlagsMethodInfo , - messageGetFlags , - - --- ** messageGetHttpVersion - MessageGetHttpVersionMethodInfo , - messageGetHttpVersion , - - --- ** messageGetHttpsStatus - MessageGetHttpsStatusMethodInfo , - messageGetHttpsStatus , - - --- ** messageGetPriority - MessageGetPriorityMethodInfo , - messageGetPriority , - - --- ** messageGetSoupRequest - MessageGetSoupRequestMethodInfo , - messageGetSoupRequest , - - --- ** messageGetUri - MessageGetUriMethodInfo , - messageGetUri , - - --- ** messageGotBody - MessageGotBodyMethodInfo , - messageGotBody , - - --- ** messageGotChunk - MessageGotChunkMethodInfo , - messageGotChunk , - - --- ** messageGotHeaders - MessageGotHeadersMethodInfo , - messageGotHeaders , - - --- ** messageGotInformational - MessageGotInformationalMethodInfo , - messageGotInformational , - - --- ** messageIsKeepalive - MessageIsKeepaliveMethodInfo , - messageIsKeepalive , - - --- ** messageNew - messageNew , - - --- ** messageNewFromUri - messageNewFromUri , - - --- ** messageRestarted - MessageRestartedMethodInfo , - messageRestarted , - - --- ** messageSetChunkAllocator - MessageSetChunkAllocatorMethodInfo , - messageSetChunkAllocator , - - --- ** messageSetFirstParty - MessageSetFirstPartyMethodInfo , - messageSetFirstParty , - - --- ** messageSetFlags - MessageSetFlagsMethodInfo , - messageSetFlags , - - --- ** messageSetHttpVersion - MessageSetHttpVersionMethodInfo , - messageSetHttpVersion , - - --- ** messageSetPriority - MessageSetPriorityMethodInfo , - messageSetPriority , - - --- ** messageSetRedirect - MessageSetRedirectMethodInfo , - messageSetRedirect , - - --- ** messageSetRequest - MessageSetRequestMethodInfo , - messageSetRequest , - - --- ** messageSetResponse - MessageSetResponseMethodInfo , - messageSetResponse , - - --- ** messageSetStatus - MessageSetStatusMethodInfo , - messageSetStatus , - - --- ** messageSetStatusFull - MessageSetStatusFullMethodInfo , - messageSetStatusFull , - - --- ** messageSetUri - MessageSetUriMethodInfo , - messageSetUri , - - --- ** messageStarting - MessageStartingMethodInfo , - messageStarting , - - --- ** messageWroteBody - MessageWroteBodyMethodInfo , - messageWroteBody , - - --- ** messageWroteBodyData - MessageWroteBodyDataMethodInfo , - messageWroteBodyData , - - --- ** messageWroteChunk - MessageWroteChunkMethodInfo , - messageWroteChunk , - - --- ** messageWroteHeaders - MessageWroteHeadersMethodInfo , - messageWroteHeaders , - - --- ** messageWroteInformational - MessageWroteInformationalMethodInfo , - messageWroteInformational , - - - - - -- * Properties --- ** FirstParty - MessageFirstPartyPropertyInfo , - constructMessageFirstParty , - getMessageFirstParty , - messageFirstParty , - setMessageFirstParty , - - --- ** Flags - MessageFlagsPropertyInfo , - constructMessageFlags , - getMessageFlags , - messageFlags , - setMessageFlags , - - --- ** HttpVersion - MessageHttpVersionPropertyInfo , - constructMessageHttpVersion , - getMessageHttpVersion , - messageHttpVersion , - setMessageHttpVersion , - - --- ** Method - MessageMethodPropertyInfo , - clearMessageMethod , - constructMessageMethod , - getMessageMethod , - messageMethod , - setMessageMethod , - - --- ** Priority - MessagePriorityPropertyInfo , - constructMessagePriority , - getMessagePriority , - messagePriority , - setMessagePriority , - - --- ** ReasonPhrase - MessageReasonPhrasePropertyInfo , - clearMessageReasonPhrase , - constructMessageReasonPhrase , - getMessageReasonPhrase , - messageReasonPhrase , - setMessageReasonPhrase , - - --- ** RequestBody - MessageRequestBodyPropertyInfo , - getMessageRequestBody , - messageRequestBody , - - --- ** RequestBodyData - MessageRequestBodyDataPropertyInfo , - getMessageRequestBodyData , - messageRequestBodyData , - - --- ** RequestHeaders - MessageRequestHeadersPropertyInfo , - getMessageRequestHeaders , - messageRequestHeaders , - - --- ** ResponseBody - MessageResponseBodyPropertyInfo , - getMessageResponseBody , - messageResponseBody , - - --- ** ResponseBodyData - MessageResponseBodyDataPropertyInfo , - getMessageResponseBodyData , - messageResponseBodyData , - - --- ** ResponseHeaders - MessageResponseHeadersPropertyInfo , - getMessageResponseHeaders , - messageResponseHeaders , - - --- ** ServerSide - MessageServerSidePropertyInfo , - constructMessageServerSide , - getMessageServerSide , - messageServerSide , - - --- ** StatusCode - MessageStatusCodePropertyInfo , - constructMessageStatusCode , - getMessageStatusCode , - messageStatusCode , - setMessageStatusCode , - - --- ** TlsCertificate - MessageTlsCertificatePropertyInfo , - clearMessageTlsCertificate , - constructMessageTlsCertificate , - getMessageTlsCertificate , - messageTlsCertificate , - setMessageTlsCertificate , - - --- ** TlsErrors - MessageTlsErrorsPropertyInfo , - constructMessageTlsErrors , - getMessageTlsErrors , - messageTlsErrors , - setMessageTlsErrors , - - --- ** Uri - MessageUriPropertyInfo , - constructMessageUri , - getMessageUri , - messageUri , - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveMessageMethod (t :: Symbol) (o :: *) :: * where - ResolveMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMessageMethod "contentSniffed" o = MessageContentSniffedMethodInfo - ResolveMessageMethod "disableFeature" o = MessageDisableFeatureMethodInfo - ResolveMessageMethod "finished" o = MessageFinishedMethodInfo - ResolveMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMessageMethod "gotBody" o = MessageGotBodyMethodInfo - ResolveMessageMethod "gotChunk" o = MessageGotChunkMethodInfo - ResolveMessageMethod "gotHeaders" o = MessageGotHeadersMethodInfo - ResolveMessageMethod "gotInformational" o = MessageGotInformationalMethodInfo - ResolveMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMessageMethod "isKeepalive" o = MessageIsKeepaliveMethodInfo - ResolveMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMessageMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMessageMethod "restarted" o = MessageRestartedMethodInfo - ResolveMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMessageMethod "starting" o = MessageStartingMethodInfo - ResolveMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMessageMethod "wroteBody" o = MessageWroteBodyMethodInfo - ResolveMessageMethod "wroteBodyData" o = MessageWroteBodyDataMethodInfo - ResolveMessageMethod "wroteChunk" o = MessageWroteChunkMethodInfo - ResolveMessageMethod "wroteHeaders" o = MessageWroteHeadersMethodInfo - ResolveMessageMethod "wroteInformational" o = MessageWroteInformationalMethodInfo - ResolveMessageMethod "getAddress" o = MessageGetAddressMethodInfo - ResolveMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMessageMethod "getFirstParty" o = MessageGetFirstPartyMethodInfo - ResolveMessageMethod "getFlags" o = MessageGetFlagsMethodInfo - ResolveMessageMethod "getHttpVersion" o = MessageGetHttpVersionMethodInfo - ResolveMessageMethod "getHttpsStatus" o = MessageGetHttpsStatusMethodInfo - ResolveMessageMethod "getPriority" o = MessageGetPriorityMethodInfo - ResolveMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMessageMethod "getSoupRequest" o = MessageGetSoupRequestMethodInfo - ResolveMessageMethod "getUri" o = MessageGetUriMethodInfo - ResolveMessageMethod "setChunkAllocator" o = MessageSetChunkAllocatorMethodInfo - ResolveMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMessageMethod "setFirstParty" o = MessageSetFirstPartyMethodInfo - ResolveMessageMethod "setFlags" o = MessageSetFlagsMethodInfo - ResolveMessageMethod "setHttpVersion" o = MessageSetHttpVersionMethodInfo - ResolveMessageMethod "setPriority" o = MessageSetPriorityMethodInfo - ResolveMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMessageMethod "setRedirect" o = MessageSetRedirectMethodInfo - ResolveMessageMethod "setRequest" o = MessageSetRequestMethodInfo - ResolveMessageMethod "setResponse" o = MessageSetResponseMethodInfo - ResolveMessageMethod "setStatus" o = MessageSetStatusMethodInfo - ResolveMessageMethod "setStatusFull" o = MessageSetStatusFullMethodInfo - ResolveMessageMethod "setUri" o = MessageSetUriMethodInfo - ResolveMessageMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMessageMethod t Message, MethodInfo info Message p) => IsLabelProxy t (Message -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMessageMethod t Message, MethodInfo info Message p) => IsLabel t (Message -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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] - -- Nullable: (Just False,Just False) - -getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI -getMessageFirstParty obj = liftIO $ checkUnexpectedNothing "getMessageFirstParty" $ getObjectPropertyBoxed obj "first-party" URI - -setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m () -setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" (Just val) - -constructMessageFirstParty :: URI -> IO ([Char], GValue) -constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" (Just 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 = "first-party" - attrGet _ = getMessageFirstParty - attrSet _ = setMessageFirstParty - attrConstruct _ = constructMessageFirstParty - attrClear _ = undefined - --- VVV Prop "flags" - -- Type: TInterface "Soup" "MessageFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "flags" - attrGet _ = getMessageFlags - attrSet _ = setMessageFlags - attrConstruct _ = constructMessageFlags - attrClear _ = undefined - --- VVV Prop "http-version" - -- Type: TInterface "Soup" "HTTPVersion" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "http-version" - attrGet _ = getMessageHttpVersion - attrSet _ = setMessageHttpVersion - attrConstruct _ = constructMessageHttpVersion - attrClear _ = undefined - --- VVV Prop "method" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageMethod :: (MonadIO m, MessageK o) => o -> m (Maybe T.Text) -getMessageMethod obj = liftIO $ getObjectPropertyString obj "method" - -setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m () -setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" (Just val) - -constructMessageMethod :: T.Text -> IO ([Char], GValue) -constructMessageMethod val = constructObjectPropertyString "method" (Just val) - -clearMessageMethod :: (MonadIO m, MessageK o) => o -> m () -clearMessageMethod obj = liftIO $ setObjectPropertyString obj "method" (Nothing :: Maybe T.Text) - -data MessageMethodPropertyInfo -instance AttrInfo MessageMethodPropertyInfo where - type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK - type AttrGetType MessageMethodPropertyInfo = (Maybe T.Text) - type AttrLabel MessageMethodPropertyInfo = "method" - attrGet _ = getMessageMethod - attrSet _ = setMessageMethod - attrConstruct _ = constructMessageMethod - attrClear _ = clearMessageMethod - --- VVV Prop "priority" - -- Type: TInterface "Soup" "MessagePriority" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -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 = "priority" - attrGet _ = getMessagePriority - attrSet _ = setMessagePriority - attrConstruct _ = constructMessagePriority - attrClear _ = undefined - --- VVV Prop "reason-phrase" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m (Maybe 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" (Just val) - -constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue) -constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" (Just val) - -clearMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m () -clearMessageReasonPhrase obj = liftIO $ setObjectPropertyString obj "reason-phrase" (Nothing :: Maybe T.Text) - -data MessageReasonPhrasePropertyInfo -instance AttrInfo MessageReasonPhrasePropertyInfo where - type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK - type AttrGetType MessageReasonPhrasePropertyInfo = (Maybe T.Text) - type AttrLabel MessageReasonPhrasePropertyInfo = "reason-phrase" - attrGet _ = getMessageReasonPhrase - attrSet _ = setMessageReasonPhrase - attrConstruct _ = constructMessageReasonPhrase - attrClear _ = clearMessageReasonPhrase - --- VVV Prop "request-body" - -- Type: TInterface "Soup" "MessageBody" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m (Maybe MessageBody) -getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody - -data MessageRequestBodyPropertyInfo -instance AttrInfo MessageRequestBodyPropertyInfo where - type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK - type AttrGetType MessageRequestBodyPropertyInfo = (Maybe MessageBody) - type AttrLabel MessageRequestBodyPropertyInfo = "request-body" - attrGet _ = getMessageRequestBody - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "request-body-data" - -- Type: TInterface "GLib" "Bytes" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m (Maybe GLib.Bytes) -getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes - -data MessageRequestBodyDataPropertyInfo -instance AttrInfo MessageRequestBodyDataPropertyInfo where - type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK - type AttrGetType MessageRequestBodyDataPropertyInfo = (Maybe GLib.Bytes) - type AttrLabel MessageRequestBodyDataPropertyInfo = "request-body-data" - attrGet _ = getMessageRequestBodyData - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "request-headers" - -- Type: TInterface "Soup" "MessageHeaders" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m (Maybe MessageHeaders) -getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders - -data MessageRequestHeadersPropertyInfo -instance AttrInfo MessageRequestHeadersPropertyInfo where - type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK - type AttrGetType MessageRequestHeadersPropertyInfo = (Maybe MessageHeaders) - type AttrLabel MessageRequestHeadersPropertyInfo = "request-headers" - attrGet _ = getMessageRequestHeaders - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "response-body" - -- Type: TInterface "Soup" "MessageBody" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m (Maybe MessageBody) -getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody - -data MessageResponseBodyPropertyInfo -instance AttrInfo MessageResponseBodyPropertyInfo where - type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK - type AttrGetType MessageResponseBodyPropertyInfo = (Maybe MessageBody) - type AttrLabel MessageResponseBodyPropertyInfo = "response-body" - attrGet _ = getMessageResponseBody - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "response-body-data" - -- Type: TInterface "GLib" "Bytes" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m (Maybe GLib.Bytes) -getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes - -data MessageResponseBodyDataPropertyInfo -instance AttrInfo MessageResponseBodyDataPropertyInfo where - type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK - type AttrGetType MessageResponseBodyDataPropertyInfo = (Maybe GLib.Bytes) - type AttrLabel MessageResponseBodyDataPropertyInfo = "response-body-data" - attrGet _ = getMessageResponseBodyData - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "response-headers" - -- Type: TInterface "Soup" "MessageHeaders" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m (Maybe MessageHeaders) -getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders - -data MessageResponseHeadersPropertyInfo -instance AttrInfo MessageResponseHeadersPropertyInfo where - type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) () - type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK - type AttrGetType MessageResponseHeadersPropertyInfo = (Maybe MessageHeaders) - type AttrLabel MessageResponseHeadersPropertyInfo = "response-headers" - attrGet _ = getMessageResponseHeaders - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "server-side" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "server-side" - attrGet _ = getMessageServerSide - attrSet _ = undefined - attrConstruct _ = constructMessageServerSide - attrClear _ = undefined - --- VVV Prop "status-code" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32 -getMessageStatusCode obj = liftIO $ getObjectPropertyUInt32 obj "status-code" - -setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m () -setMessageStatusCode obj val = liftIO $ setObjectPropertyUInt32 obj "status-code" val - -constructMessageStatusCode :: Word32 -> IO ([Char], GValue) -constructMessageStatusCode val = constructObjectPropertyUInt32 "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 = "status-code" - attrGet _ = getMessageStatusCode - attrSet _ = setMessageStatusCode - attrConstruct _ = constructMessageStatusCode - attrClear _ = undefined - --- VVV Prop "tls-certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m (Maybe 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" (Just val) - -constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue) -constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" (Just val) - -clearMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m () -clearMessageTlsCertificate obj = liftIO $ setObjectPropertyObject obj "tls-certificate" (Nothing :: Maybe Gio.TlsCertificate) - -data MessageTlsCertificatePropertyInfo -instance AttrInfo MessageTlsCertificatePropertyInfo where - type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK - type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK - type AttrGetType MessageTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate) - type AttrLabel MessageTlsCertificatePropertyInfo = "tls-certificate" - attrGet _ = getMessageTlsCertificate - attrSet _ = setMessageTlsCertificate - attrConstruct _ = constructMessageTlsCertificate - attrClear _ = clearMessageTlsCertificate - --- VVV Prop "tls-errors" - -- Type: TInterface "Gio" "TlsCertificateFlags" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "tls-errors" - attrGet _ = getMessageTlsErrors - attrSet _ = setMessageTlsErrors - attrConstruct _ = constructMessageTlsErrors - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Just False,Just False) - -getMessageUri :: (MonadIO m, MessageK o) => o -> m URI -getMessageUri obj = liftIO $ checkUnexpectedNothing "getMessageUri" $ getObjectPropertyBoxed obj "uri" URI - -setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m () -setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" (Just val) - -constructMessageUri :: URI -> IO ([Char], GValue) -constructMessageUri val = constructObjectPropertyBoxed "uri" (Just 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 = "uri" - attrGet _ = getMessageUri - attrSet _ = setMessageUri - attrConstruct _ = constructMessageUri - attrClear _ = undefined - -type instance AttributeList Message = MessageAttributeList -type MessageAttributeList = ('[ '("firstParty", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("httpVersion", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reasonPhrase", MessageReasonPhrasePropertyInfo), '("requestBody", MessageRequestBodyPropertyInfo), '("requestBodyData", MessageRequestBodyDataPropertyInfo), '("requestHeaders", MessageRequestHeadersPropertyInfo), '("responseBody", MessageResponseBodyPropertyInfo), '("responseBodyData", MessageResponseBodyDataPropertyInfo), '("responseHeaders", MessageResponseHeadersPropertyInfo), '("serverSide", MessageServerSidePropertyInfo), '("statusCode", MessageStatusCodePropertyInfo), '("tlsCertificate", MessageTlsCertificatePropertyInfo), '("tlsErrors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)] :: [(Symbol, *)]) - -messageFirstParty :: AttrLabelProxy "firstParty" -messageFirstParty = AttrLabelProxy - -messageFlags :: AttrLabelProxy "flags" -messageFlags = AttrLabelProxy - -messageHttpVersion :: AttrLabelProxy "httpVersion" -messageHttpVersion = AttrLabelProxy - -messageMethod :: AttrLabelProxy "method" -messageMethod = AttrLabelProxy - -messagePriority :: AttrLabelProxy "priority" -messagePriority = AttrLabelProxy - -messageReasonPhrase :: AttrLabelProxy "reasonPhrase" -messageReasonPhrase = AttrLabelProxy - -messageRequestBody :: AttrLabelProxy "requestBody" -messageRequestBody = AttrLabelProxy - -messageRequestBodyData :: AttrLabelProxy "requestBodyData" -messageRequestBodyData = AttrLabelProxy - -messageRequestHeaders :: AttrLabelProxy "requestHeaders" -messageRequestHeaders = AttrLabelProxy - -messageResponseBody :: AttrLabelProxy "responseBody" -messageResponseBody = AttrLabelProxy - -messageResponseBodyData :: AttrLabelProxy "responseBodyData" -messageResponseBodyData = AttrLabelProxy - -messageResponseHeaders :: AttrLabelProxy "responseHeaders" -messageResponseHeaders = AttrLabelProxy - -messageServerSide :: AttrLabelProxy "serverSide" -messageServerSide = AttrLabelProxy - -messageStatusCode :: AttrLabelProxy "statusCode" -messageStatusCode = AttrLabelProxy - -messageTlsCertificate :: AttrLabelProxy "tlsCertificate" -messageTlsCertificate = AttrLabelProxy - -messageTlsErrors :: AttrLabelProxy "tlsErrors" -messageTlsErrors = AttrLabelProxy - -messageUri :: AttrLabelProxy "uri" -messageUri = AttrLabelProxy - -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 = ('[ '("contentSniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("gotBody", MessageGotBodySignalInfo), '("gotChunk", MessageGotChunkSignalInfo), '("gotHeaders", MessageGotHeadersSignalInfo), '("gotInformational", MessageGotInformationalSignalInfo), '("networkEvent", MessageNetworkEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wroteBody", MessageWroteBodySignalInfo), '("wroteBodyData", MessageWroteBodyDataSignalInfo), '("wroteChunk", MessageWroteChunkSignalInfo), '("wroteHeaders", MessageWroteHeadersSignalInfo), '("wroteInformational", MessageWroteInformationalSignalInfo)] :: [(Symbol, *)]) - --- method Message::new --- method type : Constructor --- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- uriString - -> m (Maybe Message) -- result -messageNew method uriString = liftIO $ do - method' <- textToCString method - uriString' <- textToCString uriString - result <- soup_message_new method' uriString' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Message) result' - return result'' - freeMem method' - freeMem uriString' - return maybeResult - --- method Message::new_from_uri --- method type : Constructor --- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TPtr) (TBasicType TPtr), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr) (TBasicType TPtr) - IO () - - -messageContentSniffed :: - (MonadIO m, MessageK a) => - a -- _obj - -> T.Text -- contentType - -> Map.Map (Ptr ()) (Ptr ()) -- params - -> m () -- result -messageContentSniffed _obj contentType params = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - contentType' <- textToCString contentType - 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' contentType' params'''' - touchManagedPtr _obj - freeMem contentType' - unrefGHashTable params'''' - return () - -data MessageContentSniffedMethodInfo -instance (signature ~ (T.Text -> Map.Map (Ptr ()) (Ptr ()) -> m ()), MonadIO m, MessageK a) => MethodInfo MessageContentSniffedMethodInfo a signature where - overloadedMethod _ = messageContentSniffed - --- method Message::disable_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- featureType - -> m () -- result -messageDisableFeature _obj featureType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let featureType' = gtypeToCGType featureType - soup_message_disable_feature _obj' featureType' - touchManagedPtr _obj - return () - -data MessageDisableFeatureMethodInfo -instance (signature ~ (GType -> m ()), MonadIO m, MessageK a) => MethodInfo MessageDisableFeatureMethodInfo a signature where - overloadedMethod _ = messageDisableFeature - --- method Message::finished --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageFinished _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_finished _obj' - touchManagedPtr _obj - return () - -data MessageFinishedMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageFinishedMethodInfo a signature where - overloadedMethod _ = messageFinished - --- method Message::get_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageGetAddressMethodInfo -instance (signature ~ (m Address), MonadIO m, MessageK a) => MethodInfo MessageGetAddressMethodInfo a signature where - overloadedMethod _ = messageGetAddress - --- method Message::get_first_party --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageGetFirstPartyMethodInfo -instance (signature ~ (m URI), MonadIO m, MessageK a) => MethodInfo MessageGetFirstPartyMethodInfo a signature where - overloadedMethod _ = messageGetFirstParty - --- method Message::get_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -messageGetFlags _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_flags _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data MessageGetFlagsMethodInfo -instance (signature ~ (m [MessageFlags]), MonadIO m, MessageK a) => MethodInfo MessageGetFlagsMethodInfo a signature where - overloadedMethod _ = messageGetFlags - --- method Message::get_http_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -messageGetHttpVersion _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_http_version _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data MessageGetHttpVersionMethodInfo -instance (signature ~ (m HTTPVersion), MonadIO m, MessageK a) => MethodInfo MessageGetHttpVersionMethodInfo a signature where - overloadedMethod _ = messageGetHttpVersion - --- method Message::get_https_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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])-- result -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'') - -data MessageGetHttpsStatusMethodInfo -instance (signature ~ (m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])), MonadIO m, MessageK a) => MethodInfo MessageGetHttpsStatusMethodInfo a signature where - overloadedMethod _ = messageGetHttpsStatus - --- method Message::get_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -messageGetPriority _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_get_priority _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data MessageGetPriorityMethodInfo -instance (signature ~ (m MessagePriority), MonadIO m, MessageK a) => MethodInfo MessageGetPriorityMethodInfo a signature where - overloadedMethod _ = messageGetPriority - --- method Message::get_soup_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageGetSoupRequestMethodInfo -instance (signature ~ (m Request), MonadIO m, MessageK a) => MethodInfo MessageGetSoupRequestMethodInfo a signature where - overloadedMethod _ = messageGetSoupRequest - --- method Message::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageGetUriMethodInfo -instance (signature ~ (m URI), MonadIO m, MessageK a) => MethodInfo MessageGetUriMethodInfo a signature where - overloadedMethod _ = messageGetUri - --- method Message::got_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageGotBody _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_got_body _obj' - touchManagedPtr _obj - return () - -data MessageGotBodyMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageGotBodyMethodInfo a signature where - overloadedMethod _ = messageGotBody - --- method Message::got_chunk --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageGotChunk _obj chunk = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let chunk' = unsafeManagedPtrGetPtr chunk - soup_message_got_chunk _obj' chunk' - touchManagedPtr _obj - touchManagedPtr chunk - return () - -data MessageGotChunkMethodInfo -instance (signature ~ (Buffer -> m ()), MonadIO m, MessageK a) => MethodInfo MessageGotChunkMethodInfo a signature where - overloadedMethod _ = messageGotChunk - --- method Message::got_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageGotHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_got_headers _obj' - touchManagedPtr _obj - return () - -data MessageGotHeadersMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageGotHeadersMethodInfo a signature where - overloadedMethod _ = messageGotHeaders - --- method Message::got_informational --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageGotInformational _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_got_informational _obj' - touchManagedPtr _obj - return () - -data MessageGotInformationalMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageGotInformationalMethodInfo a signature where - overloadedMethod _ = messageGotInformational - --- method Message::is_keepalive --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -messageIsKeepalive _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_message_is_keepalive _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MessageIsKeepaliveMethodInfo -instance (signature ~ (m Bool), MonadIO m, MessageK a) => MethodInfo MessageIsKeepaliveMethodInfo a signature where - overloadedMethod _ = messageIsKeepalive - --- method Message::restarted --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageRestarted _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_restarted _obj' - touchManagedPtr _obj - return () - -data MessageRestartedMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageRestartedMethodInfo a signature where - overloadedMethod _ = messageRestarted - --- method Message::set_chunk_allocator --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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 () -- result -messageSetChunkAllocator _obj allocator = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - allocator' <- mkChunkAllocator (chunkAllocatorWrapper Nothing allocator) - let userData = castFunPtrToPtr allocator' - let destroyNotify = safeFreeFunPtrPtr - soup_message_set_chunk_allocator _obj' allocator' userData destroyNotify - touchManagedPtr _obj - return () - -data MessageSetChunkAllocatorMethodInfo -instance (signature ~ (ChunkAllocator -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetChunkAllocatorMethodInfo a signature where - overloadedMethod _ = messageSetChunkAllocator - --- method Message::set_first_party --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- firstParty - -> m () -- result -messageSetFirstParty _obj firstParty = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let firstParty' = unsafeManagedPtrGetPtr firstParty - soup_message_set_first_party _obj' firstParty' - touchManagedPtr _obj - touchManagedPtr firstParty - return () - -data MessageSetFirstPartyMethodInfo -instance (signature ~ (URI -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetFirstPartyMethodInfo a signature where - overloadedMethod _ = messageSetFirstParty - --- method Message::set_flags --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageSetFlags _obj flags = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let flags' = gflagsToWord flags - soup_message_set_flags _obj' flags' - touchManagedPtr _obj - return () - -data MessageSetFlagsMethodInfo -instance (signature ~ ([MessageFlags] -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetFlagsMethodInfo a signature where - overloadedMethod _ = messageSetFlags - --- method Message::set_http_version --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageSetHttpVersion _obj version = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let version' = (fromIntegral . fromEnum) version - soup_message_set_http_version _obj' version' - touchManagedPtr _obj - return () - -data MessageSetHttpVersionMethodInfo -instance (signature ~ (HTTPVersion -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetHttpVersionMethodInfo a signature where - overloadedMethod _ = messageSetHttpVersion - --- method Message::set_priority --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageSetPriority _obj priority = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let priority' = (fromIntegral . fromEnum) priority - soup_message_set_priority _obj' priority' - touchManagedPtr _obj - return () - -data MessageSetPriorityMethodInfo -instance (signature ~ (MessagePriority -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetPriorityMethodInfo a signature where - overloadedMethod _ = messageSetPriority - --- method Message::set_redirect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TUInt - CString -> -- redirect_uri : TBasicType TUTF8 - IO () - - -messageSetRedirect :: - (MonadIO m, MessageK a) => - a -- _obj - -> Word32 -- statusCode - -> T.Text -- redirectUri - -> m () -- result -messageSetRedirect _obj statusCode redirectUri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - redirectUri' <- textToCString redirectUri - soup_message_set_redirect _obj' statusCode redirectUri' - touchManagedPtr _obj - freeMem redirectUri' - return () - -data MessageSetRedirectMethodInfo -instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetRedirectMethodInfo a signature where - overloadedMethod _ = messageSetRedirect - --- method Message::set_request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- 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) -- contentType - -> MemoryUse -- reqUse - -> Maybe (ByteString) -- reqBody - -> m () -- result -messageSetRequest _obj contentType reqUse reqBody = liftIO $ do - let reqLength = case reqBody of - Nothing -> 0 - Just jReqBody -> fromIntegral $ B.length jReqBody - let _obj' = unsafeManagedPtrCastPtr _obj - maybeContentType <- case contentType of - Nothing -> return nullPtr - Just jContentType -> do - jContentType' <- textToCString jContentType - return jContentType' - let reqUse' = (fromIntegral . fromEnum) reqUse - maybeReqBody <- case reqBody of - Nothing -> return nullPtr - Just jReqBody -> do - jReqBody' <- packByteString jReqBody - return jReqBody' - soup_message_set_request _obj' maybeContentType reqUse' maybeReqBody reqLength - touchManagedPtr _obj - freeMem maybeContentType - freeMem maybeReqBody - return () - -data MessageSetRequestMethodInfo -instance (signature ~ (Maybe (T.Text) -> MemoryUse -> Maybe (ByteString) -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetRequestMethodInfo a signature where - overloadedMethod _ = messageSetRequest - --- method Message::set_response --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- 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) -- contentType - -> MemoryUse -- respUse - -> Maybe (ByteString) -- respBody - -> m () -- result -messageSetResponse _obj contentType respUse respBody = liftIO $ do - let respLength = case respBody of - Nothing -> 0 - Just jRespBody -> fromIntegral $ B.length jRespBody - let _obj' = unsafeManagedPtrCastPtr _obj - maybeContentType <- case contentType of - Nothing -> return nullPtr - Just jContentType -> do - jContentType' <- textToCString jContentType - return jContentType' - let respUse' = (fromIntegral . fromEnum) respUse - maybeRespBody <- case respBody of - Nothing -> return nullPtr - Just jRespBody -> do - jRespBody' <- packByteString jRespBody - return jRespBody' - soup_message_set_response _obj' maybeContentType respUse' maybeRespBody respLength - touchManagedPtr _obj - freeMem maybeContentType - freeMem maybeRespBody - return () - -data MessageSetResponseMethodInfo -instance (signature ~ (Maybe (T.Text) -> MemoryUse -> Maybe (ByteString) -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetResponseMethodInfo a signature where - overloadedMethod _ = messageSetResponse - --- method Message::set_status --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TUInt - IO () - - -messageSetStatus :: - (MonadIO m, MessageK a) => - a -- _obj - -> Word32 -- statusCode - -> m () -- result -messageSetStatus _obj statusCode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_set_status _obj' statusCode - touchManagedPtr _obj - return () - -data MessageSetStatusMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetStatusMethodInfo a signature where - overloadedMethod _ = messageSetStatus - --- method Message::set_status_full --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TUInt - CString -> -- reason_phrase : TBasicType TUTF8 - IO () - - -messageSetStatusFull :: - (MonadIO m, MessageK a) => - a -- _obj - -> Word32 -- statusCode - -> T.Text -- reasonPhrase - -> m () -- result -messageSetStatusFull _obj statusCode reasonPhrase = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - reasonPhrase' <- textToCString reasonPhrase - soup_message_set_status_full _obj' statusCode reasonPhrase' - touchManagedPtr _obj - freeMem reasonPhrase' - return () - -data MessageSetStatusFullMethodInfo -instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetStatusFullMethodInfo a signature where - overloadedMethod _ = messageSetStatusFull - --- method Message::set_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageSetUri _obj uri = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let uri' = unsafeManagedPtrGetPtr uri - soup_message_set_uri _obj' uri' - touchManagedPtr _obj - touchManagedPtr uri - return () - -data MessageSetUriMethodInfo -instance (signature ~ (URI -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetUriMethodInfo a signature where - overloadedMethod _ = messageSetUri - --- method Message::starting --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageStarting _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_starting _obj' - touchManagedPtr _obj - return () - -data MessageStartingMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageStartingMethodInfo a signature where - overloadedMethod _ = messageStarting - --- method Message::wrote_body --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageWroteBody _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_body _obj' - touchManagedPtr _obj - return () - -data MessageWroteBodyMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteBodyMethodInfo a signature where - overloadedMethod _ = messageWroteBody - --- method Message::wrote_body_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageWroteBodyDataMethodInfo -instance (signature ~ (Buffer -> m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteBodyDataMethodInfo a signature where - overloadedMethod _ = messageWroteBodyData - --- method Message::wrote_chunk --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageWroteChunk _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_chunk _obj' - touchManagedPtr _obj - return () - -data MessageWroteChunkMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteChunkMethodInfo a signature where - overloadedMethod _ = messageWroteChunk - --- method Message::wrote_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageWroteHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_headers _obj' - touchManagedPtr _obj - return () - -data MessageWroteHeadersMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteHeadersMethodInfo a signature where - overloadedMethod _ = messageWroteHeaders - --- method Message::wrote_informational --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageWroteInformational _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_message_wrote_informational _obj' - touchManagedPtr _obj - return () - -data MessageWroteInformationalMethodInfo -instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteInformationalMethodInfo a signature where - overloadedMethod _ = messageWroteInformational - - 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,78 +0,0 @@ -module GI.Soup.Objects.Message where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data MessageContentSniffedMethodInfo -data MessageDisableFeatureMethodInfo -data MessageFinishedMethodInfo -data MessageGetAddressMethodInfo -data MessageGetFirstPartyMethodInfo -data MessageGetFlagsMethodInfo -data MessageGetHttpVersionMethodInfo -data MessageGetHttpsStatusMethodInfo -data MessageGetPriorityMethodInfo -data MessageGetSoupRequestMethodInfo -data MessageGetUriMethodInfo -data MessageGotBodyMethodInfo -data MessageGotChunkMethodInfo -data MessageGotHeadersMethodInfo -data MessageGotInformationalMethodInfo -data MessageIsKeepaliveMethodInfo -data MessageRestartedMethodInfo -data MessageSetChunkAllocatorMethodInfo -data MessageSetFirstPartyMethodInfo -data MessageSetFlagsMethodInfo -data MessageSetHttpVersionMethodInfo -data MessageSetPriorityMethodInfo -data MessageSetRedirectMethodInfo -data MessageSetRequestMethodInfo -data MessageSetResponseMethodInfo -data MessageSetStatusMethodInfo -data MessageSetStatusFullMethodInfo -data MessageSetUriMethodInfo -data MessageStartingMethodInfo -data MessageWroteBodyMethodInfo -data MessageWroteBodyDataMethodInfo -data MessageWroteChunkMethodInfo -data MessageWroteHeadersMethodInfo -data MessageWroteInformationalMethodInfo 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,375 +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 - MultipartInputStreamGetHeadersMethodInfo, - multipartInputStreamGetHeaders , - - --- ** multipartInputStreamNew - multipartInputStreamNew , - - --- ** multipartInputStreamNextPart - MultipartInputStreamNextPartMethodInfo , - multipartInputStreamNextPart , - - --- ** multipartInputStreamNextPartAsync - MultipartInputStreamNextPartAsyncMethodInfo, - multipartInputStreamNextPartAsync , - - --- ** multipartInputStreamNextPartFinish - MultipartInputStreamNextPartFinishMethodInfo, - multipartInputStreamNextPartFinish , - - - - - -- * Properties --- ** Message - MultipartInputStreamMessagePropertyInfo , - constructMultipartInputStreamMessage , - getMultipartInputStreamMessage , - multipartInputStreamMessage , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveMultipartInputStreamMethod (t :: Symbol) (o :: *) :: * where - ResolveMultipartInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveMultipartInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveMultipartInputStreamMethod "canPoll" o = Gio.PollableInputStreamCanPollMethodInfo - ResolveMultipartInputStreamMethod "clearPending" o = Gio.InputStreamClearPendingMethodInfo - ResolveMultipartInputStreamMethod "close" o = Gio.InputStreamCloseMethodInfo - ResolveMultipartInputStreamMethod "closeAsync" o = Gio.InputStreamCloseAsyncMethodInfo - ResolveMultipartInputStreamMethod "closeFinish" o = Gio.InputStreamCloseFinishMethodInfo - ResolveMultipartInputStreamMethod "createSource" o = Gio.PollableInputStreamCreateSourceMethodInfo - ResolveMultipartInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveMultipartInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveMultipartInputStreamMethod "hasPending" o = Gio.InputStreamHasPendingMethodInfo - ResolveMultipartInputStreamMethod "isClosed" o = Gio.InputStreamIsClosedMethodInfo - ResolveMultipartInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveMultipartInputStreamMethod "isReadable" o = Gio.PollableInputStreamIsReadableMethodInfo - ResolveMultipartInputStreamMethod "nextPart" o = MultipartInputStreamNextPartMethodInfo - ResolveMultipartInputStreamMethod "nextPartAsync" o = MultipartInputStreamNextPartAsyncMethodInfo - ResolveMultipartInputStreamMethod "nextPartFinish" o = MultipartInputStreamNextPartFinishMethodInfo - ResolveMultipartInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveMultipartInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveMultipartInputStreamMethod "read" o = Gio.InputStreamReadMethodInfo - ResolveMultipartInputStreamMethod "readAll" o = Gio.InputStreamReadAllMethodInfo - ResolveMultipartInputStreamMethod "readAllAsync" o = Gio.InputStreamReadAllAsyncMethodInfo - ResolveMultipartInputStreamMethod "readAllFinish" o = Gio.InputStreamReadAllFinishMethodInfo - ResolveMultipartInputStreamMethod "readAsync" o = Gio.InputStreamReadAsyncMethodInfo - ResolveMultipartInputStreamMethod "readBytes" o = Gio.InputStreamReadBytesMethodInfo - ResolveMultipartInputStreamMethod "readBytesAsync" o = Gio.InputStreamReadBytesAsyncMethodInfo - ResolveMultipartInputStreamMethod "readBytesFinish" o = Gio.InputStreamReadBytesFinishMethodInfo - ResolveMultipartInputStreamMethod "readFinish" o = Gio.InputStreamReadFinishMethodInfo - ResolveMultipartInputStreamMethod "readNonblocking" o = Gio.PollableInputStreamReadNonblockingMethodInfo - ResolveMultipartInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveMultipartInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveMultipartInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveMultipartInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveMultipartInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveMultipartInputStreamMethod "skip" o = Gio.InputStreamSkipMethodInfo - ResolveMultipartInputStreamMethod "skipAsync" o = Gio.InputStreamSkipAsyncMethodInfo - ResolveMultipartInputStreamMethod "skipFinish" o = Gio.InputStreamSkipFinishMethodInfo - ResolveMultipartInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveMultipartInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveMultipartInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveMultipartInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveMultipartInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveMultipartInputStreamMethod "getBaseStream" o = Gio.FilterInputStreamGetBaseStreamMethodInfo - ResolveMultipartInputStreamMethod "getCloseBaseStream" o = Gio.FilterInputStreamGetCloseBaseStreamMethodInfo - ResolveMultipartInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveMultipartInputStreamMethod "getHeaders" o = MultipartInputStreamGetHeadersMethodInfo - ResolveMultipartInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveMultipartInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveMultipartInputStreamMethod "setCloseBaseStream" o = Gio.FilterInputStreamSetCloseBaseStreamMethodInfo - ResolveMultipartInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveMultipartInputStreamMethod "setPending" o = Gio.InputStreamSetPendingMethodInfo - ResolveMultipartInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveMultipartInputStreamMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMultipartInputStreamMethod t MultipartInputStream, MethodInfo info MultipartInputStream p) => IsLabelProxy t (MultipartInputStream -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMultipartInputStreamMethod t MultipartInputStream, MethodInfo info MultipartInputStream p) => IsLabel t (MultipartInputStream -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "message" - -- Type: TInterface "Soup" "Message" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m (Maybe Message) -getMultipartInputStreamMessage obj = liftIO $ getObjectPropertyObject obj "message" Message - -constructMultipartInputStreamMessage :: (MessageK a) => a -> IO ([Char], GValue) -constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" (Just val) - -data MultipartInputStreamMessagePropertyInfo -instance AttrInfo MultipartInputStreamMessagePropertyInfo where - type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = MessageK - type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = MultipartInputStreamK - type AttrGetType MultipartInputStreamMessagePropertyInfo = (Maybe Message) - type AttrLabel MultipartInputStreamMessagePropertyInfo = "message" - attrGet _ = getMultipartInputStreamMessage - attrSet _ = undefined - attrConstruct _ = constructMultipartInputStreamMessage - attrClear _ = undefined - -type instance AttributeList MultipartInputStream = MultipartInputStreamAttributeList -type MultipartInputStreamAttributeList = ('[ '("baseStream", Gio.FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", Gio.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)] :: [(Symbol, *)]) - -multipartInputStreamMessage :: AttrLabelProxy "message" -multipartInputStreamMessage = AttrLabelProxy - -type instance SignalList MultipartInputStream = MultipartInputStreamSignalList -type MultipartInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method MultipartInputStream::new --- method type : Constructor --- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- baseStream - -> m MultipartInputStream -- result -multipartInputStreamNew msg baseStream = liftIO $ do - let msg' = unsafeManagedPtrCastPtr msg - let baseStream' = unsafeManagedPtrCastPtr baseStream - result <- soup_multipart_input_stream_new msg' baseStream' - checkUnexpectedReturnNULL "soup_multipart_input_stream_new" result - result' <- (wrapObject MultipartInputStream) result - touchManagedPtr msg - touchManagedPtr baseStream - return result' - --- method MultipartInputStream::get_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe MessageHeaders) -- result -multipartInputStreamGetHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_multipart_input_stream_get_headers _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed MessageHeaders) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data MultipartInputStreamGetHeadersMethodInfo -instance (signature ~ (m (Maybe MessageHeaders)), MonadIO m, MultipartInputStreamK a) => MethodInfo MultipartInputStreamGetHeadersMethodInfo a signature where - overloadedMethod _ = multipartInputStreamGetHeaders - --- method MultipartInputStream::next_part --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Gio.InputStream) -- result -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 - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Gio.InputStream) result' - return result'' - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return maybeResult - ) (do - return () - ) - -data MultipartInputStreamNextPartMethodInfo -instance (signature ~ (Maybe (b) -> m (Maybe Gio.InputStream)), MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => MethodInfo MultipartInputStreamNextPartMethodInfo a signature where - overloadedMethod _ = multipartInputStreamNextPart - --- method MultipartInputStream::next_part_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - Ptr Gio.Cancellable -> -- cancellable : TInterface "Gio" "Cancellable" - FunPtr Gio.AsyncReadyCallbackC -> -- callback : TInterface "Gio" "AsyncReadyCallback" - Ptr () -> -- data : TBasicType TPtr - IO () - - -multipartInputStreamNextPartAsync :: - (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => - a -- _obj - -> Int32 -- ioPriority - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -multipartInputStreamNextPartAsync _obj ioPriority 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' ioPriority maybeCancellable maybeCallback data_ - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data MultipartInputStreamNextPartAsyncMethodInfo -instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => MethodInfo MultipartInputStreamNextPartAsyncMethodInfo a signature where - overloadedMethod _ = multipartInputStreamNextPartAsync - --- method MultipartInputStream::next_part_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Gio.InputStream) -- result -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_' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapObject Gio.InputStream) result' - return result'' - touchManagedPtr _obj - touchManagedPtr result_ - return maybeResult - ) (do - return () - ) - -data MultipartInputStreamNextPartFinishMethodInfo -instance (signature ~ (b -> m (Maybe Gio.InputStream)), MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) => MethodInfo MultipartInputStreamNextPartFinishMethodInfo a signature where - overloadedMethod _ = multipartInputStreamNextPartFinish - - 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,18 +0,0 @@ -module GI.Soup.Objects.MultipartInputStream where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data MultipartInputStreamGetHeadersMethodInfo -data MultipartInputStreamNextPartMethodInfo -data MultipartInputStreamNextPartAsyncMethodInfo -data MultipartInputStreamNextPartFinishMethodInfo 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,140 +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, - clearProxyResolverDefaultGproxyResolver , - constructProxyResolverDefaultGproxyResolver, - proxyResolverDefaultGproxyResolver , - setProxyResolverDefaultGproxyResolver , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveProxyResolverDefaultMethod (t :: Symbol) (o :: *) :: * where - ResolveProxyResolverDefaultMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveProxyResolverDefaultMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveProxyResolverDefaultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveProxyResolverDefaultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveProxyResolverDefaultMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveProxyResolverDefaultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveProxyResolverDefaultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveProxyResolverDefaultMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveProxyResolverDefaultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveProxyResolverDefaultMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveProxyResolverDefaultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveProxyResolverDefaultMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveProxyResolverDefaultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveProxyResolverDefaultMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveProxyResolverDefaultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveProxyResolverDefaultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveProxyResolverDefaultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveProxyResolverDefaultMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveProxyResolverDefaultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveProxyResolverDefaultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveProxyResolverDefaultMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveProxyResolverDefaultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveProxyResolverDefaultMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveProxyResolverDefaultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveProxyResolverDefaultMethod "getProxyUriAsync" o = ProxyURIResolverGetProxyUriAsyncMethodInfo - ResolveProxyResolverDefaultMethod "getProxyUriSync" o = ProxyURIResolverGetProxyUriSyncMethodInfo - ResolveProxyResolverDefaultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveProxyResolverDefaultMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveProxyResolverDefaultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveProxyResolverDefaultMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveProxyResolverDefaultMethod t ProxyResolverDefault, MethodInfo info ProxyResolverDefault p) => IsLabelProxy t (ProxyResolverDefault -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveProxyResolverDefaultMethod t ProxyResolverDefault, MethodInfo info ProxyResolverDefault p) => IsLabel t (ProxyResolverDefault -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "gproxy-resolver" - -- Type: TInterface "Gio" "ProxyResolver" - -- Flags: [PropertyWritable] - -- Nullable: (Nothing,Nothing) - -setProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o, Gio.ProxyResolverK a) => o -> a -> m () -setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" (Just val) - -constructProxyResolverDefaultGproxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue) -constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" (Just val) - -clearProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o) => o -> m () -clearProxyResolverDefaultGproxyResolver obj = liftIO $ setObjectPropertyObject obj "gproxy-resolver" (Nothing :: Maybe Gio.ProxyResolver) - -data ProxyResolverDefaultGproxyResolverPropertyInfo -instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where - type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolverK - type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefaultK - type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = () - type AttrLabel ProxyResolverDefaultGproxyResolverPropertyInfo = "gproxy-resolver" - attrGet _ = undefined - attrSet _ = setProxyResolverDefaultGproxyResolver - attrConstruct _ = constructProxyResolverDefaultGproxyResolver - attrClear _ = clearProxyResolverDefaultGproxyResolver - -type instance AttributeList ProxyResolverDefault = ProxyResolverDefaultAttributeList -type ProxyResolverDefaultAttributeList = ('[ '("gproxyResolver", ProxyResolverDefaultGproxyResolverPropertyInfo)] :: [(Symbol, *)]) - -proxyResolverDefaultGproxyResolver :: AttrLabelProxy "gproxyResolver" -proxyResolverDefaultGproxyResolver = AttrLabelProxy - -type instance SignalList ProxyResolverDefault = ProxyResolverDefaultSignalList -type ProxyResolverDefaultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,449 +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 - RequestGetContentLengthMethodInfo , - requestGetContentLength , - - --- ** requestGetContentType - RequestGetContentTypeMethodInfo , - requestGetContentType , - - --- ** requestGetSession - RequestGetSessionMethodInfo , - requestGetSession , - - --- ** requestGetUri - RequestGetUriMethodInfo , - requestGetUri , - - --- ** requestSend - RequestSendMethodInfo , - requestSend , - - --- ** requestSendAsync - RequestSendAsyncMethodInfo , - requestSendAsync , - - --- ** requestSendFinish - RequestSendFinishMethodInfo , - requestSendFinish , - - - - - -- * Properties --- ** Session - RequestSessionPropertyInfo , - constructRequestSession , - getRequestSession , - requestSession , - - --- ** Uri - RequestUriPropertyInfo , - constructRequestUri , - getRequestUri , - requestUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveRequestMethod (t :: Symbol) (o :: *) :: * where - ResolveRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRequestMethod "init" o = Gio.InitableInitMethodInfo - ResolveRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRequestMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRequestMethod "send" o = RequestSendMethodInfo - ResolveRequestMethod "sendAsync" o = RequestSendAsyncMethodInfo - ResolveRequestMethod "sendFinish" o = RequestSendFinishMethodInfo - ResolveRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRequestMethod "getContentLength" o = RequestGetContentLengthMethodInfo - ResolveRequestMethod "getContentType" o = RequestGetContentTypeMethodInfo - ResolveRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRequestMethod "getSession" o = RequestGetSessionMethodInfo - ResolveRequestMethod "getUri" o = RequestGetUriMethodInfo - ResolveRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRequestMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRequestMethod t Request, MethodInfo info Request p) => IsLabelProxy t (Request -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRequestMethod t Request, MethodInfo info Request p) => IsLabel t (Request -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- VVV Prop "session" - -- Type: TInterface "Soup" "Session" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getRequestSession :: (MonadIO m, RequestK o) => o -> m Session -getRequestSession obj = liftIO $ checkUnexpectedNothing "getRequestSession" $ getObjectPropertyObject obj "session" Session - -constructRequestSession :: (SessionK a) => a -> IO ([Char], GValue) -constructRequestSession val = constructObjectPropertyObject "session" (Just val) - -data RequestSessionPropertyInfo -instance AttrInfo RequestSessionPropertyInfo where - type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RequestSessionPropertyInfo = SessionK - type AttrBaseTypeConstraint RequestSessionPropertyInfo = RequestK - type AttrGetType RequestSessionPropertyInfo = Session - type AttrLabel RequestSessionPropertyInfo = "session" - attrGet _ = getRequestSession - attrSet _ = undefined - attrConstruct _ = constructRequestSession - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getRequestUri :: (MonadIO m, RequestK o) => o -> m URI -getRequestUri obj = liftIO $ checkUnexpectedNothing "getRequestUri" $ getObjectPropertyBoxed obj "uri" URI - -constructRequestUri :: URI -> IO ([Char], GValue) -constructRequestUri val = constructObjectPropertyBoxed "uri" (Just val) - -data RequestUriPropertyInfo -instance AttrInfo RequestUriPropertyInfo where - type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint RequestUriPropertyInfo = (~) URI - type AttrBaseTypeConstraint RequestUriPropertyInfo = RequestK - type AttrGetType RequestUriPropertyInfo = URI - type AttrLabel RequestUriPropertyInfo = "uri" - attrGet _ = getRequestUri - attrSet _ = undefined - attrConstruct _ = constructRequestUri - attrClear _ = undefined - -type instance AttributeList Request = RequestAttributeList -type RequestAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -requestSession :: AttrLabelProxy "session" -requestSession = AttrLabelProxy - -requestUri :: AttrLabelProxy "uri" -requestUri = AttrLabelProxy - -type instance SignalList Request = RequestSignalList -type RequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Request::get_content_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -requestGetContentLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_get_content_length _obj' - touchManagedPtr _obj - return result - -data RequestGetContentLengthMethodInfo -instance (signature ~ (m Int64), MonadIO m, RequestK a) => MethodInfo RequestGetContentLengthMethodInfo a signature where - overloadedMethod _ = requestGetContentLength - --- method Request::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -requestGetContentType _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_request_get_content_type _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data RequestGetContentTypeMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, RequestK a) => MethodInfo RequestGetContentTypeMethodInfo a signature where - overloadedMethod _ = requestGetContentType - --- method Request::get_session --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data RequestGetSessionMethodInfo -instance (signature ~ (m Session), MonadIO m, RequestK a) => MethodInfo RequestGetSessionMethodInfo a signature where - overloadedMethod _ = requestGetSession - --- method Request::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data RequestGetUriMethodInfo -instance (signature ~ (m URI), MonadIO m, RequestK a) => MethodInfo RequestGetUriMethodInfo a signature where - overloadedMethod _ = requestGetUri - --- method Request::send --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data RequestSendMethodInfo -instance (signature ~ (Maybe (b) -> m Gio.InputStream), MonadIO m, RequestK a, Gio.CancellableK b) => MethodInfo RequestSendMethodInfo a signature where - overloadedMethod _ = requestSend - --- method Request::send_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -requestSendAsync :: - (MonadIO m, RequestK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -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 userData = nullPtr - soup_request_send_async _obj' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data RequestSendAsyncMethodInfo -instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, RequestK a, Gio.CancellableK b) => MethodInfo RequestSendAsyncMethodInfo a signature where - overloadedMethod _ = requestSendAsync - --- method Request::send_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data RequestSendFinishMethodInfo -instance (signature ~ (b -> m Gio.InputStream), MonadIO m, RequestK a, Gio.AsyncResultK b) => MethodInfo RequestSendFinishMethodInfo a signature where - overloadedMethod _ = requestSendFinish - - 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,22 +0,0 @@ -module GI.Soup.Objects.Request where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data RequestGetContentLengthMethodInfo -data RequestGetContentTypeMethodInfo -data RequestGetSessionMethodInfo -data RequestGetUriMethodInfo -data RequestSendMethodInfo -data RequestSendAsyncMethodInfo -data RequestSendFinishMethodInfo 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,101 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveRequestDataMethod (t :: Symbol) (o :: *) :: * where - ResolveRequestDataMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRequestDataMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRequestDataMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRequestDataMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRequestDataMethod "init" o = Gio.InitableInitMethodInfo - ResolveRequestDataMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRequestDataMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRequestDataMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRequestDataMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRequestDataMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRequestDataMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRequestDataMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRequestDataMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRequestDataMethod "send" o = RequestSendMethodInfo - ResolveRequestDataMethod "sendAsync" o = RequestSendAsyncMethodInfo - ResolveRequestDataMethod "sendFinish" o = RequestSendFinishMethodInfo - ResolveRequestDataMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRequestDataMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRequestDataMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRequestDataMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRequestDataMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRequestDataMethod "getContentLength" o = RequestGetContentLengthMethodInfo - ResolveRequestDataMethod "getContentType" o = RequestGetContentTypeMethodInfo - ResolveRequestDataMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRequestDataMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRequestDataMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRequestDataMethod "getSession" o = RequestGetSessionMethodInfo - ResolveRequestDataMethod "getUri" o = RequestGetUriMethodInfo - ResolveRequestDataMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRequestDataMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRequestDataMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRequestDataMethod t RequestData, MethodInfo info RequestData p) => IsLabelProxy t (RequestData -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRequestDataMethod t RequestData, MethodInfo info RequestData p) => IsLabel t (RequestData -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RequestData = RequestDataAttributeList -type RequestDataAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RequestData = RequestDataSignalList -type RequestDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,139 +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 - RequestFileGetFileMethodInfo , - requestFileGetFile , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveRequestFileMethod (t :: Symbol) (o :: *) :: * where - ResolveRequestFileMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRequestFileMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRequestFileMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRequestFileMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRequestFileMethod "init" o = Gio.InitableInitMethodInfo - ResolveRequestFileMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRequestFileMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRequestFileMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRequestFileMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRequestFileMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRequestFileMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRequestFileMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRequestFileMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRequestFileMethod "send" o = RequestSendMethodInfo - ResolveRequestFileMethod "sendAsync" o = RequestSendAsyncMethodInfo - ResolveRequestFileMethod "sendFinish" o = RequestSendFinishMethodInfo - ResolveRequestFileMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRequestFileMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRequestFileMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRequestFileMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRequestFileMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRequestFileMethod "getContentLength" o = RequestGetContentLengthMethodInfo - ResolveRequestFileMethod "getContentType" o = RequestGetContentTypeMethodInfo - ResolveRequestFileMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRequestFileMethod "getFile" o = RequestFileGetFileMethodInfo - ResolveRequestFileMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRequestFileMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRequestFileMethod "getSession" o = RequestGetSessionMethodInfo - ResolveRequestFileMethod "getUri" o = RequestGetUriMethodInfo - ResolveRequestFileMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRequestFileMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRequestFileMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRequestFileMethod t RequestFile, MethodInfo info RequestFile p) => IsLabelProxy t (RequestFile -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRequestFileMethod t RequestFile, MethodInfo info RequestFile p) => IsLabel t (RequestFile -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RequestFile = RequestFileAttributeList -type RequestFileAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RequestFile = RequestFileSignalList -type RequestFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RequestFile::get_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data RequestFileGetFileMethodInfo -instance (signature ~ (m Gio.File), MonadIO m, RequestFileK a) => MethodInfo RequestFileGetFileMethodInfo a signature where - overloadedMethod _ = requestFileGetFile - - 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,14 +0,0 @@ -module GI.Soup.Objects.RequestFile where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data RequestFileGetFileMethodInfo 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,139 +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 - RequestHTTPGetMessageMethodInfo , - requestHTTPGetMessage , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveRequestHTTPMethod (t :: Symbol) (o :: *) :: * where - ResolveRequestHTTPMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRequestHTTPMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRequestHTTPMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRequestHTTPMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRequestHTTPMethod "init" o = Gio.InitableInitMethodInfo - ResolveRequestHTTPMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRequestHTTPMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRequestHTTPMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRequestHTTPMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRequestHTTPMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRequestHTTPMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRequestHTTPMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRequestHTTPMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRequestHTTPMethod "send" o = RequestSendMethodInfo - ResolveRequestHTTPMethod "sendAsync" o = RequestSendAsyncMethodInfo - ResolveRequestHTTPMethod "sendFinish" o = RequestSendFinishMethodInfo - ResolveRequestHTTPMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRequestHTTPMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRequestHTTPMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRequestHTTPMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRequestHTTPMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRequestHTTPMethod "getContentLength" o = RequestGetContentLengthMethodInfo - ResolveRequestHTTPMethod "getContentType" o = RequestGetContentTypeMethodInfo - ResolveRequestHTTPMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRequestHTTPMethod "getMessage" o = RequestHTTPGetMessageMethodInfo - ResolveRequestHTTPMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRequestHTTPMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRequestHTTPMethod "getSession" o = RequestGetSessionMethodInfo - ResolveRequestHTTPMethod "getUri" o = RequestGetUriMethodInfo - ResolveRequestHTTPMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRequestHTTPMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRequestHTTPMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRequestHTTPMethod t RequestHTTP, MethodInfo info RequestHTTP p) => IsLabelProxy t (RequestHTTP -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRequestHTTPMethod t RequestHTTP, MethodInfo info RequestHTTP p) => IsLabel t (RequestHTTP -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList RequestHTTP = RequestHTTPAttributeList -type RequestHTTPAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList RequestHTTP = RequestHTTPSignalList -type RequestHTTPSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method RequestHTTP::get_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data RequestHTTPGetMessageMethodInfo -instance (signature ~ (m Message), MonadIO m, RequestHTTPK a) => MethodInfo RequestHTTPGetMessageMethodInfo a signature where - overloadedMethod _ = requestHTTPGetMessage - - 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,14 +0,0 @@ -module GI.Soup.Objects.RequestHTTP where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data RequestHTTPGetMessageMethodInfo 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,213 +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 - RequesterRequestMethodInfo , - requesterRequest , - - --- ** requesterRequestUri - RequesterRequestUriMethodInfo , - requesterRequestUri , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveRequesterMethod (t :: Symbol) (o :: *) :: * where - ResolveRequesterMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo - ResolveRequesterMethod "attach" o = SessionFeatureAttachMethodInfo - ResolveRequesterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveRequesterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveRequesterMethod "detach" o = SessionFeatureDetachMethodInfo - ResolveRequesterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveRequesterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveRequesterMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo - ResolveRequesterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveRequesterMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveRequesterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveRequesterMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveRequesterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveRequesterMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo - ResolveRequesterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveRequesterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveRequesterMethod "request" o = RequesterRequestMethodInfo - ResolveRequesterMethod "requestUri" o = RequesterRequestUriMethodInfo - ResolveRequesterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveRequesterMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveRequesterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveRequesterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveRequesterMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveRequesterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveRequesterMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveRequesterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveRequesterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveRequesterMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveRequesterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveRequesterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRequesterMethod t Requester, MethodInfo info Requester p) => IsLabelProxy t (Requester -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRequesterMethod t Requester, MethodInfo info Requester p) => IsLabel t (Requester -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList Requester = RequesterAttributeList -type RequesterAttributeList = ('[ ] :: [(Symbol, *)]) - -type instance SignalList Requester = RequesterSignalList -type RequesterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) - --- method Requester::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- uriString - -> m Request -- result -requesterRequest _obj uriString = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uriString' <- textToCString uriString - onException (do - result <- propagateGError $ soup_requester_request _obj' uriString' - checkUnexpectedReturnNULL "soup_requester_request" result - result' <- (wrapObject Request) result - touchManagedPtr _obj - freeMem uriString' - return result' - ) (do - freeMem uriString' - ) - -data RequesterRequestMethodInfo -instance (signature ~ (T.Text -> m Request), MonadIO m, RequesterK a) => MethodInfo RequesterRequestMethodInfo a signature where - overloadedMethod _ = requesterRequest - --- method Requester::request_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data RequesterRequestUriMethodInfo -instance (signature ~ (URI -> m Request), MonadIO m, RequesterK a) => MethodInfo RequesterRequestUriMethodInfo a signature where - overloadedMethod _ = requesterRequestUri - - 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,15 +0,0 @@ -module GI.Soup.Objects.Requester where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data RequesterRequestMethodInfo -data RequesterRequestUriMethodInfo 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,1721 +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 - ServerAcceptIostreamMethodInfo , - serverAcceptIostream , - - --- ** serverAddAuthDomain - ServerAddAuthDomainMethodInfo , - serverAddAuthDomain , - - --- ** serverAddEarlyHandler - ServerAddEarlyHandlerMethodInfo , - serverAddEarlyHandler , - - --- ** serverAddHandler - ServerAddHandlerMethodInfo , - serverAddHandler , - - --- ** serverAddWebsocketHandler - ServerAddWebsocketHandlerMethodInfo , - serverAddWebsocketHandler , - - --- ** serverDisconnect - ServerDisconnectMethodInfo , - serverDisconnect , - - --- ** serverGetAsyncContext - ServerGetAsyncContextMethodInfo , - serverGetAsyncContext , - - --- ** serverGetListener - ServerGetListenerMethodInfo , - serverGetListener , - - --- ** serverGetListeners - ServerGetListenersMethodInfo , - serverGetListeners , - - --- ** serverGetPort - ServerGetPortMethodInfo , - serverGetPort , - - --- ** serverGetUris - ServerGetUrisMethodInfo , - serverGetUris , - - --- ** serverIsHttps - ServerIsHttpsMethodInfo , - serverIsHttps , - - --- ** serverListen - ServerListenMethodInfo , - serverListen , - - --- ** serverListenAll - ServerListenAllMethodInfo , - serverListenAll , - - --- ** serverListenFd - ServerListenFdMethodInfo , - serverListenFd , - - --- ** serverListenLocal - ServerListenLocalMethodInfo , - serverListenLocal , - - --- ** serverListenSocket - ServerListenSocketMethodInfo , - serverListenSocket , - - --- ** serverPauseMessage - ServerPauseMessageMethodInfo , - serverPauseMessage , - - --- ** serverQuit - ServerQuitMethodInfo , - serverQuit , - - --- ** serverRemoveAuthDomain - ServerRemoveAuthDomainMethodInfo , - serverRemoveAuthDomain , - - --- ** serverRemoveHandler - ServerRemoveHandlerMethodInfo , - serverRemoveHandler , - - --- ** serverRun - ServerRunMethodInfo , - serverRun , - - --- ** serverRunAsync - ServerRunAsyncMethodInfo , - serverRunAsync , - - --- ** serverSetSslCertFile - ServerSetSslCertFileMethodInfo , - serverSetSslCertFile , - - --- ** serverUnpauseMessage - ServerUnpauseMessageMethodInfo , - serverUnpauseMessage , - - - - - -- * Properties --- ** AsyncContext - ServerAsyncContextPropertyInfo , - constructServerAsyncContext , - getServerAsyncContext , - serverAsyncContext , - - --- ** HttpAliases - ServerHttpAliasesPropertyInfo , - clearServerHttpAliases , - constructServerHttpAliases , - getServerHttpAliases , - serverHttpAliases , - setServerHttpAliases , - - --- ** HttpsAliases - ServerHttpsAliasesPropertyInfo , - clearServerHttpsAliases , - constructServerHttpsAliases , - getServerHttpsAliases , - serverHttpsAliases , - setServerHttpsAliases , - - --- ** Interface - ServerInterfacePropertyInfo , - constructServerInterface , - getServerInterface , - serverInterface , - - --- ** Port - ServerPortPropertyInfo , - constructServerPort , - getServerPort , - serverPort , - - --- ** RawPaths - ServerRawPathsPropertyInfo , - constructServerRawPaths , - getServerRawPaths , - serverRawPaths , - - --- ** ServerHeader - ServerServerHeaderPropertyInfo , - clearServerServerHeader , - constructServerServerHeader , - getServerServerHeader , - serverServerHeader , - setServerServerHeader , - - --- ** SslCertFile - ServerSslCertFilePropertyInfo , - constructServerSslCertFile , - getServerSslCertFile , - serverSslCertFile , - - --- ** SslKeyFile - ServerSslKeyFilePropertyInfo , - constructServerSslKeyFile , - getServerSslKeyFile , - serverSslKeyFile , - - --- ** TlsCertificate - ServerTlsCertificatePropertyInfo , - constructServerTlsCertificate , - getServerTlsCertificate , - serverTlsCertificate , - - - - - -- * 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveServerMethod (t :: Symbol) (o :: *) :: * where - ResolveServerMethod "acceptIostream" o = ServerAcceptIostreamMethodInfo - ResolveServerMethod "addAuthDomain" o = ServerAddAuthDomainMethodInfo - ResolveServerMethod "addEarlyHandler" o = ServerAddEarlyHandlerMethodInfo - ResolveServerMethod "addHandler" o = ServerAddHandlerMethodInfo - ResolveServerMethod "addWebsocketHandler" o = ServerAddWebsocketHandlerMethodInfo - ResolveServerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveServerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveServerMethod "disconnect" o = ServerDisconnectMethodInfo - ResolveServerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveServerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveServerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveServerMethod "isHttps" o = ServerIsHttpsMethodInfo - ResolveServerMethod "listen" o = ServerListenMethodInfo - ResolveServerMethod "listenAll" o = ServerListenAllMethodInfo - ResolveServerMethod "listenFd" o = ServerListenFdMethodInfo - ResolveServerMethod "listenLocal" o = ServerListenLocalMethodInfo - ResolveServerMethod "listenSocket" o = ServerListenSocketMethodInfo - ResolveServerMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveServerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveServerMethod "pauseMessage" o = ServerPauseMessageMethodInfo - ResolveServerMethod "quit" o = ServerQuitMethodInfo - ResolveServerMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveServerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveServerMethod "removeAuthDomain" o = ServerRemoveAuthDomainMethodInfo - ResolveServerMethod "removeHandler" o = ServerRemoveHandlerMethodInfo - ResolveServerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveServerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveServerMethod "run" o = ServerRunMethodInfo - ResolveServerMethod "runAsync" o = ServerRunAsyncMethodInfo - ResolveServerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveServerMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveServerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveServerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveServerMethod "unpauseMessage" o = ServerUnpauseMessageMethodInfo - ResolveServerMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveServerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveServerMethod "getAsyncContext" o = ServerGetAsyncContextMethodInfo - ResolveServerMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveServerMethod "getListener" o = ServerGetListenerMethodInfo - ResolveServerMethod "getListeners" o = ServerGetListenersMethodInfo - ResolveServerMethod "getPort" o = ServerGetPortMethodInfo - ResolveServerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveServerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveServerMethod "getUris" o = ServerGetUrisMethodInfo - ResolveServerMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveServerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveServerMethod "setSslCertFile" o = ServerSetSslCertFileMethodInfo - ResolveServerMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveServerMethod t Server, MethodInfo info Server p) => IsLabelProxy t (Server -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveServerMethod t Server, MethodInfo info Server p) => IsLabel t (Server -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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 TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "async-context" - attrGet _ = getServerAsyncContext - attrSet _ = undefined - attrConstruct _ = constructServerAsyncContext - attrClear _ = undefined - --- VVV Prop "http-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getServerHttpAliases :: (MonadIO m, ServerK o) => o -> m (Maybe [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" (Just val) - -constructServerHttpAliases :: [T.Text] -> IO ([Char], GValue) -constructServerHttpAliases val = constructObjectPropertyStringArray "http-aliases" (Just val) - -clearServerHttpAliases :: (MonadIO m, ServerK o) => o -> m () -clearServerHttpAliases obj = liftIO $ setObjectPropertyStringArray obj "http-aliases" (Nothing :: Maybe [T.Text]) - -data ServerHttpAliasesPropertyInfo -instance AttrInfo ServerHttpAliasesPropertyInfo where - type AttrAllowedOps ServerHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ServerHttpAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint ServerHttpAliasesPropertyInfo = ServerK - type AttrGetType ServerHttpAliasesPropertyInfo = (Maybe [T.Text]) - type AttrLabel ServerHttpAliasesPropertyInfo = "http-aliases" - attrGet _ = getServerHttpAliases - attrSet _ = setServerHttpAliases - attrConstruct _ = constructServerHttpAliases - attrClear _ = clearServerHttpAliases - --- VVV Prop "https-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m (Maybe [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" (Just val) - -constructServerHttpsAliases :: [T.Text] -> IO ([Char], GValue) -constructServerHttpsAliases val = constructObjectPropertyStringArray "https-aliases" (Just val) - -clearServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m () -clearServerHttpsAliases obj = liftIO $ setObjectPropertyStringArray obj "https-aliases" (Nothing :: Maybe [T.Text]) - -data ServerHttpsAliasesPropertyInfo -instance AttrInfo ServerHttpsAliasesPropertyInfo where - type AttrAllowedOps ServerHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ServerHttpsAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint ServerHttpsAliasesPropertyInfo = ServerK - type AttrGetType ServerHttpsAliasesPropertyInfo = (Maybe [T.Text]) - type AttrLabel ServerHttpsAliasesPropertyInfo = "https-aliases" - attrGet _ = getServerHttpsAliases - attrSet _ = setServerHttpsAliases - attrConstruct _ = constructServerHttpsAliases - attrClear _ = clearServerHttpsAliases - --- VVV Prop "interface" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getServerInterface :: (MonadIO m, ServerK o) => o -> m (Maybe Address) -getServerInterface obj = liftIO $ getObjectPropertyObject obj "interface" Address - -constructServerInterface :: (AddressK a) => a -> IO ([Char], GValue) -constructServerInterface val = constructObjectPropertyObject "interface" (Just val) - -data ServerInterfacePropertyInfo -instance AttrInfo ServerInterfacePropertyInfo where - type AttrAllowedOps ServerInterfacePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ServerInterfacePropertyInfo = AddressK - type AttrBaseTypeConstraint ServerInterfacePropertyInfo = ServerK - type AttrGetType ServerInterfacePropertyInfo = (Maybe Address) - type AttrLabel ServerInterfacePropertyInfo = "interface" - attrGet _ = getServerInterface - attrSet _ = undefined - attrConstruct _ = constructServerInterface - attrClear _ = undefined - --- VVV Prop "port" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getServerPort :: (MonadIO m, ServerK o) => o -> m Word32 -getServerPort obj = liftIO $ getObjectPropertyUInt32 obj "port" - -constructServerPort :: Word32 -> IO ([Char], GValue) -constructServerPort val = constructObjectPropertyUInt32 "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 = "port" - attrGet _ = getServerPort - attrSet _ = undefined - attrConstruct _ = constructServerPort - attrClear _ = undefined - --- VVV Prop "raw-paths" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "raw-paths" - attrGet _ = getServerRawPaths - attrSet _ = undefined - attrConstruct _ = constructServerRawPaths - attrClear _ = undefined - --- VVV Prop "server-header" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct] - -- Nullable: (Nothing,Nothing) - -getServerServerHeader :: (MonadIO m, ServerK o) => o -> m (Maybe 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" (Just val) - -constructServerServerHeader :: T.Text -> IO ([Char], GValue) -constructServerServerHeader val = constructObjectPropertyString "server-header" (Just val) - -clearServerServerHeader :: (MonadIO m, ServerK o) => o -> m () -clearServerServerHeader obj = liftIO $ setObjectPropertyString obj "server-header" (Nothing :: Maybe T.Text) - -data ServerServerHeaderPropertyInfo -instance AttrInfo ServerServerHeaderPropertyInfo where - type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = ServerK - type AttrGetType ServerServerHeaderPropertyInfo = (Maybe T.Text) - type AttrLabel ServerServerHeaderPropertyInfo = "server-header" - attrGet _ = getServerServerHeader - attrSet _ = setServerServerHeader - attrConstruct _ = constructServerServerHeader - attrClear _ = clearServerServerHeader - --- VVV Prop "ssl-cert-file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getServerSslCertFile :: (MonadIO m, ServerK o) => o -> m (Maybe T.Text) -getServerSslCertFile obj = liftIO $ getObjectPropertyString obj "ssl-cert-file" - -constructServerSslCertFile :: T.Text -> IO ([Char], GValue) -constructServerSslCertFile val = constructObjectPropertyString "ssl-cert-file" (Just val) - -data ServerSslCertFilePropertyInfo -instance AttrInfo ServerSslCertFilePropertyInfo where - type AttrAllowedOps ServerSslCertFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ServerSslCertFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ServerSslCertFilePropertyInfo = ServerK - type AttrGetType ServerSslCertFilePropertyInfo = (Maybe T.Text) - type AttrLabel ServerSslCertFilePropertyInfo = "ssl-cert-file" - attrGet _ = getServerSslCertFile - attrSet _ = undefined - attrConstruct _ = constructServerSslCertFile - attrClear _ = undefined - --- VVV Prop "ssl-key-file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getServerSslKeyFile :: (MonadIO m, ServerK o) => o -> m (Maybe T.Text) -getServerSslKeyFile obj = liftIO $ getObjectPropertyString obj "ssl-key-file" - -constructServerSslKeyFile :: T.Text -> IO ([Char], GValue) -constructServerSslKeyFile val = constructObjectPropertyString "ssl-key-file" (Just val) - -data ServerSslKeyFilePropertyInfo -instance AttrInfo ServerSslKeyFilePropertyInfo where - type AttrAllowedOps ServerSslKeyFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ServerSslKeyFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint ServerSslKeyFilePropertyInfo = ServerK - type AttrGetType ServerSslKeyFilePropertyInfo = (Maybe T.Text) - type AttrLabel ServerSslKeyFilePropertyInfo = "ssl-key-file" - attrGet _ = getServerSslKeyFile - attrSet _ = undefined - attrConstruct _ = constructServerSslKeyFile - attrClear _ = undefined - --- VVV Prop "tls-certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getServerTlsCertificate :: (MonadIO m, ServerK o) => o -> m (Maybe Gio.TlsCertificate) -getServerTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate - -constructServerTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue) -constructServerTlsCertificate val = constructObjectPropertyObject "tls-certificate" (Just val) - -data ServerTlsCertificatePropertyInfo -instance AttrInfo ServerTlsCertificatePropertyInfo where - type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificateK - type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = ServerK - type AttrGetType ServerTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate) - type AttrLabel ServerTlsCertificatePropertyInfo = "tls-certificate" - attrGet _ = getServerTlsCertificate - attrSet _ = undefined - attrConstruct _ = constructServerTlsCertificate - attrClear _ = undefined - -type instance AttributeList Server = ServerAttributeList -type ServerAttributeList = ('[ '("asyncContext", ServerAsyncContextPropertyInfo), '("httpAliases", ServerHttpAliasesPropertyInfo), '("httpsAliases", ServerHttpsAliasesPropertyInfo), '("interface", ServerInterfacePropertyInfo), '("port", ServerPortPropertyInfo), '("rawPaths", ServerRawPathsPropertyInfo), '("serverHeader", ServerServerHeaderPropertyInfo), '("sslCertFile", ServerSslCertFilePropertyInfo), '("sslKeyFile", ServerSslKeyFilePropertyInfo), '("tlsCertificate", ServerTlsCertificatePropertyInfo)] :: [(Symbol, *)]) - -serverAsyncContext :: AttrLabelProxy "asyncContext" -serverAsyncContext = AttrLabelProxy - -serverHttpAliases :: AttrLabelProxy "httpAliases" -serverHttpAliases = AttrLabelProxy - -serverHttpsAliases :: AttrLabelProxy "httpsAliases" -serverHttpsAliases = AttrLabelProxy - -serverInterface :: AttrLabelProxy "interface" -serverInterface = AttrLabelProxy - -serverPort :: AttrLabelProxy "port" -serverPort = AttrLabelProxy - -serverRawPaths :: AttrLabelProxy "rawPaths" -serverRawPaths = AttrLabelProxy - -serverServerHeader :: AttrLabelProxy "serverHeader" -serverServerHeader = AttrLabelProxy - -serverSslCertFile :: AttrLabelProxy "sslCertFile" -serverSslCertFile = AttrLabelProxy - -serverSslKeyFile :: AttrLabelProxy "sslKeyFile" -serverSslKeyFile = AttrLabelProxy - -serverTlsCertificate :: AttrLabelProxy "tlsCertificate" -serverTlsCertificate = AttrLabelProxy - -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), '("requestAborted", ServerRequestAbortedSignalInfo), '("requestFinished", ServerRequestFinishedSignalInfo), '("requestRead", ServerRequestReadSignalInfo), '("requestStarted", ServerRequestStartedSignalInfo)] :: [(Symbol, *)]) - --- method Server::accept_iostream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- localAddr - -> Maybe (d) -- remoteAddr - -> m () -- result -serverAcceptIostream _obj stream localAddr remoteAddr = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let stream' = unsafeManagedPtrCastPtr stream - maybeLocalAddr <- case localAddr of - Nothing -> return nullPtr - Just jLocalAddr -> do - let jLocalAddr' = unsafeManagedPtrCastPtr jLocalAddr - return jLocalAddr' - maybeRemoteAddr <- case remoteAddr of - Nothing -> return nullPtr - Just jRemoteAddr -> do - let jRemoteAddr' = unsafeManagedPtrCastPtr jRemoteAddr - return jRemoteAddr' - onException (do - _ <- propagateGError $ soup_server_accept_iostream _obj' stream' maybeLocalAddr maybeRemoteAddr - touchManagedPtr _obj - touchManagedPtr stream - whenJust localAddr touchManagedPtr - whenJust remoteAddr touchManagedPtr - return () - ) (do - return () - ) - -data ServerAcceptIostreamMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m ()), MonadIO m, ServerK a, Gio.IOStreamK b, Gio.SocketAddressK c, Gio.SocketAddressK d) => MethodInfo ServerAcceptIostreamMethodInfo a signature where - overloadedMethod _ = serverAcceptIostream - --- method Server::add_auth_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- authDomain - -> m () -- result -serverAddAuthDomain _obj authDomain = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let authDomain' = unsafeManagedPtrCastPtr authDomain - soup_server_add_auth_domain _obj' authDomain' - touchManagedPtr _obj - touchManagedPtr authDomain - return () - -data ServerAddAuthDomainMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ServerK a, AuthDomainK b) => MethodInfo ServerAddAuthDomainMethodInfo a signature where - overloadedMethod _ = serverAddAuthDomain - --- method Server::add_early_handler --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -serverAddEarlyHandler :: - (MonadIO m, ServerK a) => - a -- _obj - -> Maybe (T.Text) -- path - -> ServerCallback -- callback - -> m () -- result -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 userData = castFunPtrToPtr callback' - let destroy = safeFreeFunPtrPtr - soup_server_add_early_handler _obj' maybePath callback' userData destroy - touchManagedPtr _obj - freeMem maybePath - return () - -data ServerAddEarlyHandlerMethodInfo -instance (signature ~ (Maybe (T.Text) -> ServerCallback -> m ()), MonadIO m, ServerK a) => MethodInfo ServerAddEarlyHandlerMethodInfo a signature where - overloadedMethod _ = serverAddEarlyHandler - --- method Server::add_handler --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" - IO () - - -serverAddHandler :: - (MonadIO m, ServerK a) => - a -- _obj - -> Maybe (T.Text) -- path - -> ServerCallback -- callback - -> m () -- result -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 userData = castFunPtrToPtr callback' - let destroy = safeFreeFunPtrPtr - soup_server_add_handler _obj' maybePath callback' userData destroy - touchManagedPtr _obj - freeMem maybePath - return () - -data ServerAddHandlerMethodInfo -instance (signature ~ (Maybe (T.Text) -> ServerCallback -> m ()), MonadIO m, ServerK a) => MethodInfo ServerAddHandlerMethodInfo a signature where - overloadedMethod _ = serverAddHandler - --- method Server::add_websocket_handler --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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 () -- result -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 userData = castFunPtrToPtr callback' - let destroy = safeFreeFunPtrPtr - soup_server_add_websocket_handler _obj' maybePath maybeOrigin maybeProtocols callback' userData destroy - touchManagedPtr _obj - freeMem maybePath - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return () - -data ServerAddWebsocketHandlerMethodInfo -instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> Maybe ([T.Text]) -> ServerWebsocketCallback -> m ()), MonadIO m, ServerK a) => MethodInfo ServerAddWebsocketHandlerMethodInfo a signature where - overloadedMethod _ = serverAddWebsocketHandler - --- method Server::disconnect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -serverDisconnect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_disconnect _obj' - touchManagedPtr _obj - return () - -data ServerDisconnectMethodInfo -instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerDisconnectMethodInfo a signature where - overloadedMethod _ = serverDisconnect - --- method Server::get_async_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe GLib.MainContext) -- result -serverGetAsyncContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_async_context _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed GLib.MainContext) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ServerGetAsyncContextMethodInfo -instance (signature ~ (m (Maybe GLib.MainContext)), MonadIO m, ServerK a) => MethodInfo ServerGetAsyncContextMethodInfo a signature where - overloadedMethod _ = serverGetAsyncContext - --- method Server::get_listener --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ServerGetListenerMethodInfo -instance (signature ~ (m Socket), MonadIO m, ServerK a) => MethodInfo ServerGetListenerMethodInfo a signature where - overloadedMethod _ = serverGetListener - --- method Server::get_listeners --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -serverGetListeners _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_listeners _obj' - result' <- unpackGSList result - result'' <- mapM (newObject Gio.Socket) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data ServerGetListenersMethodInfo -instance (signature ~ (m [Gio.Socket]), MonadIO m, ServerK a) => MethodInfo ServerGetListenersMethodInfo a signature where - overloadedMethod _ = serverGetListeners - --- method Server::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -serverGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_port _obj' - touchManagedPtr _obj - return result - -data ServerGetPortMethodInfo -instance (signature ~ (m Word32), MonadIO m, ServerK a) => MethodInfo ServerGetPortMethodInfo a signature where - overloadedMethod _ = serverGetPort - --- method Server::get_uris --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -serverGetUris _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_get_uris _obj' - result' <- unpackGSList result - result'' <- mapM (wrapBoxed URI) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data ServerGetUrisMethodInfo -instance (signature ~ (m [URI]), MonadIO m, ServerK a) => MethodInfo ServerGetUrisMethodInfo a signature where - overloadedMethod _ = serverGetUris - --- method Server::is_https --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -serverIsHttps _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_server_is_https _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data ServerIsHttpsMethodInfo -instance (signature ~ (m Bool), MonadIO m, ServerK a) => MethodInfo ServerIsHttpsMethodInfo a signature where - overloadedMethod _ = serverIsHttps - --- method Server::listen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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 () - ) - -data ServerListenMethodInfo -instance (signature ~ (b -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a, Gio.SocketAddressK b) => MethodInfo ServerListenMethodInfo a signature where - overloadedMethod _ = serverListen - --- method Server::listen_all --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TUInt - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListenAll :: - (MonadIO m, ServerK a) => - a -- _obj - -> Word32 -- port - -> [ServerListenOptions] -- options - -> m () -- result -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 () - ) - -data ServerListenAllMethodInfo -instance (signature ~ (Word32 -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a) => MethodInfo ServerListenAllMethodInfo a signature where - overloadedMethod _ = serverListenAll - --- method Server::listen_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListenFd :: - (MonadIO m, ServerK a) => - a -- _obj - -> Int32 -- fd - -> [ServerListenOptions] -- options - -> m () -- result -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 () - ) - -data ServerListenFdMethodInfo -instance (signature ~ (Int32 -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a) => MethodInfo ServerListenFdMethodInfo a signature where - overloadedMethod _ = serverListenFd - --- method Server::listen_local --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TUInt - CUInt -> -- options : TInterface "Soup" "ServerListenOptions" - Ptr (Ptr GError) -> -- error - IO CInt - - -serverListenLocal :: - (MonadIO m, ServerK a) => - a -- _obj - -> Word32 -- port - -> [ServerListenOptions] -- options - -> m () -- result -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 () - ) - -data ServerListenLocalMethodInfo -instance (signature ~ (Word32 -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a) => MethodInfo ServerListenLocalMethodInfo a signature where - overloadedMethod _ = serverListenLocal - --- method Server::listen_socket --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 () -- result -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 () - ) - -data ServerListenSocketMethodInfo -instance (signature ~ (b -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a, Gio.SocketK b) => MethodInfo ServerListenSocketMethodInfo a signature where - overloadedMethod _ = serverListenSocket - --- method Server::pause_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -serverPauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_server_pause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - -data ServerPauseMessageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ServerK a, MessageK b) => MethodInfo ServerPauseMessageMethodInfo a signature where - overloadedMethod _ = serverPauseMessage - --- method Server::quit --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -serverQuit _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_quit _obj' - touchManagedPtr _obj - return () - -data ServerQuitMethodInfo -instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerQuitMethodInfo a signature where - overloadedMethod _ = serverQuit - --- method Server::remove_auth_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- authDomain - -> m () -- result -serverRemoveAuthDomain _obj authDomain = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let authDomain' = unsafeManagedPtrCastPtr authDomain - soup_server_remove_auth_domain _obj' authDomain' - touchManagedPtr _obj - touchManagedPtr authDomain - return () - -data ServerRemoveAuthDomainMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ServerK a, AuthDomainK b) => MethodInfo ServerRemoveAuthDomainMethodInfo a signature where - overloadedMethod _ = serverRemoveAuthDomain - --- method Server::remove_handler --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -serverRemoveHandler _obj path = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - path' <- textToCString path - soup_server_remove_handler _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data ServerRemoveHandlerMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, ServerK a) => MethodInfo ServerRemoveHandlerMethodInfo a signature where - overloadedMethod _ = serverRemoveHandler - --- method Server::run --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -serverRun _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_run _obj' - touchManagedPtr _obj - return () - -data ServerRunMethodInfo -instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerRunMethodInfo a signature where - overloadedMethod _ = serverRun - --- method Server::run_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -serverRunAsync _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_server_run_async _obj' - touchManagedPtr _obj - return () - -data ServerRunAsyncMethodInfo -instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerRunAsyncMethodInfo a signature where - overloadedMethod _ = serverRunAsync - --- method Server::set_ssl_cert_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- sslCertFile - -> T.Text -- sslKeyFile - -> m () -- result -serverSetSslCertFile _obj sslCertFile sslKeyFile = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sslCertFile' <- textToCString sslCertFile - sslKeyFile' <- textToCString sslKeyFile - onException (do - _ <- propagateGError $ soup_server_set_ssl_cert_file _obj' sslCertFile' sslKeyFile' - touchManagedPtr _obj - freeMem sslCertFile' - freeMem sslKeyFile' - return () - ) (do - freeMem sslCertFile' - freeMem sslKeyFile' - ) - -data ServerSetSslCertFileMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, ServerK a) => MethodInfo ServerSetSslCertFileMethodInfo a signature where - overloadedMethod _ = serverSetSslCertFile - --- method Server::unpause_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -serverUnpauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_server_unpause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - -data ServerUnpauseMessageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, ServerK a, MessageK b) => MethodInfo ServerUnpauseMessageMethodInfo a signature where - overloadedMethod _ = serverUnpauseMessage - - 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,52 +0,0 @@ -module GI.Soup.Objects.Server where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data ServerAcceptIostreamMethodInfo -data ServerAddAuthDomainMethodInfo -data ServerAddEarlyHandlerMethodInfo -data ServerAddHandlerMethodInfo -data ServerAddWebsocketHandlerMethodInfo -data ServerDisconnectMethodInfo -data ServerGetAsyncContextMethodInfo -data ServerGetListenerMethodInfo -data ServerGetListenersMethodInfo -data ServerGetPortMethodInfo -data ServerGetUrisMethodInfo -data ServerIsHttpsMethodInfo -data ServerListenMethodInfo -data ServerListenAllMethodInfo -data ServerListenFdMethodInfo -data ServerListenLocalMethodInfo -data ServerListenSocketMethodInfo -data ServerPauseMessageMethodInfo -data ServerQuitMethodInfo -data ServerRemoveAuthDomainMethodInfo -data ServerRemoveHandlerMethodInfo -data ServerRunMethodInfo -data ServerRunAsyncMethodInfo -data ServerSetSslCertFileMethodInfo -data ServerUnpauseMessageMethodInfo 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,2532 +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 - SessionAbortMethodInfo , - sessionAbort , - - --- ** sessionAddFeature - SessionAddFeatureMethodInfo , - sessionAddFeature , - - --- ** sessionAddFeatureByType - SessionAddFeatureByTypeMethodInfo , - sessionAddFeatureByType , - - --- ** sessionCancelMessage - SessionCancelMessageMethodInfo , - sessionCancelMessage , - - --- ** sessionGetAsyncContext - SessionGetAsyncContextMethodInfo , - sessionGetAsyncContext , - - --- ** sessionGetFeature - SessionGetFeatureMethodInfo , - sessionGetFeature , - - --- ** sessionGetFeatureForMessage - SessionGetFeatureForMessageMethodInfo , - sessionGetFeatureForMessage , - - --- ** sessionGetFeatures - SessionGetFeaturesMethodInfo , - sessionGetFeatures , - - --- ** sessionHasFeature - SessionHasFeatureMethodInfo , - sessionHasFeature , - - --- ** sessionNew - sessionNew , - - --- ** sessionPauseMessage - SessionPauseMessageMethodInfo , - sessionPauseMessage , - - --- ** sessionPrefetchDns - SessionPrefetchDnsMethodInfo , - sessionPrefetchDns , - - --- ** sessionPrepareForUri - SessionPrepareForUriMethodInfo , - sessionPrepareForUri , - - --- ** sessionQueueMessage - SessionQueueMessageMethodInfo , - sessionQueueMessage , - - --- ** sessionRedirectMessage - SessionRedirectMessageMethodInfo , - sessionRedirectMessage , - - --- ** sessionRemoveFeature - SessionRemoveFeatureMethodInfo , - sessionRemoveFeature , - - --- ** sessionRemoveFeatureByType - SessionRemoveFeatureByTypeMethodInfo , - sessionRemoveFeatureByType , - - --- ** sessionRequest - SessionRequestMethodInfo , - sessionRequest , - - --- ** sessionRequestHttp - SessionRequestHttpMethodInfo , - sessionRequestHttp , - - --- ** sessionRequestHttpUri - SessionRequestHttpUriMethodInfo , - sessionRequestHttpUri , - - --- ** sessionRequestUri - SessionRequestUriMethodInfo , - sessionRequestUri , - - --- ** sessionRequeueMessage - SessionRequeueMessageMethodInfo , - sessionRequeueMessage , - - --- ** sessionSend - SessionSendMethodInfo , - sessionSend , - - --- ** sessionSendAsync - SessionSendAsyncMethodInfo , - sessionSendAsync , - - --- ** sessionSendFinish - SessionSendFinishMethodInfo , - sessionSendFinish , - - --- ** sessionSendMessage - SessionSendMessageMethodInfo , - sessionSendMessage , - - --- ** sessionStealConnection - SessionStealConnectionMethodInfo , - sessionStealConnection , - - --- ** sessionUnpauseMessage - SessionUnpauseMessageMethodInfo , - sessionUnpauseMessage , - - --- ** sessionWebsocketConnectAsync - SessionWebsocketConnectAsyncMethodInfo , - sessionWebsocketConnectAsync , - - --- ** sessionWebsocketConnectFinish - SessionWebsocketConnectFinishMethodInfo , - sessionWebsocketConnectFinish , - - --- ** sessionWouldRedirect - SessionWouldRedirectMethodInfo , - sessionWouldRedirect , - - - - - -- * Properties --- ** AcceptLanguage - SessionAcceptLanguagePropertyInfo , - clearSessionAcceptLanguage , - constructSessionAcceptLanguage , - getSessionAcceptLanguage , - sessionAcceptLanguage , - setSessionAcceptLanguage , - - --- ** AcceptLanguageAuto - SessionAcceptLanguageAutoPropertyInfo , - constructSessionAcceptLanguageAuto , - getSessionAcceptLanguageAuto , - sessionAcceptLanguageAuto , - setSessionAcceptLanguageAuto , - - --- ** AsyncContext - SessionAsyncContextPropertyInfo , - constructSessionAsyncContext , - getSessionAsyncContext , - sessionAsyncContext , - - --- ** HttpAliases - SessionHttpAliasesPropertyInfo , - clearSessionHttpAliases , - constructSessionHttpAliases , - getSessionHttpAliases , - sessionHttpAliases , - setSessionHttpAliases , - - --- ** HttpsAliases - SessionHttpsAliasesPropertyInfo , - clearSessionHttpsAliases , - constructSessionHttpsAliases , - getSessionHttpsAliases , - sessionHttpsAliases , - setSessionHttpsAliases , - - --- ** IdleTimeout - SessionIdleTimeoutPropertyInfo , - constructSessionIdleTimeout , - getSessionIdleTimeout , - sessionIdleTimeout , - setSessionIdleTimeout , - - --- ** LocalAddress - SessionLocalAddressPropertyInfo , - constructSessionLocalAddress , - getSessionLocalAddress , - sessionLocalAddress , - - --- ** MaxConns - SessionMaxConnsPropertyInfo , - constructSessionMaxConns , - getSessionMaxConns , - sessionMaxConns , - setSessionMaxConns , - - --- ** MaxConnsPerHost - SessionMaxConnsPerHostPropertyInfo , - constructSessionMaxConnsPerHost , - getSessionMaxConnsPerHost , - sessionMaxConnsPerHost , - setSessionMaxConnsPerHost , - - --- ** ProxyResolver - SessionProxyResolverPropertyInfo , - clearSessionProxyResolver , - constructSessionProxyResolver , - getSessionProxyResolver , - sessionProxyResolver , - setSessionProxyResolver , - - --- ** ProxyUri - SessionProxyUriPropertyInfo , - clearSessionProxyUri , - constructSessionProxyUri , - getSessionProxyUri , - sessionProxyUri , - setSessionProxyUri , - - --- ** SslCaFile - SessionSslCaFilePropertyInfo , - clearSessionSslCaFile , - constructSessionSslCaFile , - getSessionSslCaFile , - sessionSslCaFile , - setSessionSslCaFile , - - --- ** SslStrict - SessionSslStrictPropertyInfo , - constructSessionSslStrict , - getSessionSslStrict , - sessionSslStrict , - setSessionSslStrict , - - --- ** SslUseSystemCaFile - SessionSslUseSystemCaFilePropertyInfo , - constructSessionSslUseSystemCaFile , - getSessionSslUseSystemCaFile , - sessionSslUseSystemCaFile , - setSessionSslUseSystemCaFile , - - --- ** Timeout - SessionTimeoutPropertyInfo , - constructSessionTimeout , - getSessionTimeout , - sessionTimeout , - setSessionTimeout , - - --- ** TlsDatabase - SessionTlsDatabasePropertyInfo , - clearSessionTlsDatabase , - constructSessionTlsDatabase , - getSessionTlsDatabase , - sessionTlsDatabase , - setSessionTlsDatabase , - - --- ** TlsInteraction - SessionTlsInteractionPropertyInfo , - clearSessionTlsInteraction , - constructSessionTlsInteraction , - getSessionTlsInteraction , - sessionTlsInteraction , - setSessionTlsInteraction , - - --- ** UseNtlm - SessionUseNtlmPropertyInfo , - constructSessionUseNtlm , - getSessionUseNtlm , - sessionUseNtlm , - setSessionUseNtlm , - - --- ** UseThreadContext - SessionUseThreadContextPropertyInfo , - constructSessionUseThreadContext , - getSessionUseThreadContext , - sessionUseThreadContext , - setSessionUseThreadContext , - - --- ** UserAgent - SessionUserAgentPropertyInfo , - clearSessionUserAgent , - constructSessionUserAgent , - getSessionUserAgent , - sessionUserAgent , - 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveSessionMethod (t :: Symbol) (o :: *) :: * where - ResolveSessionMethod "abort" o = SessionAbortMethodInfo - ResolveSessionMethod "addFeature" o = SessionAddFeatureMethodInfo - ResolveSessionMethod "addFeatureByType" o = SessionAddFeatureByTypeMethodInfo - ResolveSessionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSessionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSessionMethod "cancelMessage" o = SessionCancelMessageMethodInfo - ResolveSessionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSessionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSessionMethod "hasFeature" o = SessionHasFeatureMethodInfo - ResolveSessionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSessionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSessionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSessionMethod "pauseMessage" o = SessionPauseMessageMethodInfo - ResolveSessionMethod "prefetchDns" o = SessionPrefetchDnsMethodInfo - ResolveSessionMethod "prepareForUri" o = SessionPrepareForUriMethodInfo - ResolveSessionMethod "queueMessage" o = SessionQueueMessageMethodInfo - ResolveSessionMethod "redirectMessage" o = SessionRedirectMessageMethodInfo - ResolveSessionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSessionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSessionMethod "removeFeature" o = SessionRemoveFeatureMethodInfo - ResolveSessionMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo - ResolveSessionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSessionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSessionMethod "request" o = SessionRequestMethodInfo - ResolveSessionMethod "requestHttp" o = SessionRequestHttpMethodInfo - ResolveSessionMethod "requestHttpUri" o = SessionRequestHttpUriMethodInfo - ResolveSessionMethod "requestUri" o = SessionRequestUriMethodInfo - ResolveSessionMethod "requeueMessage" o = SessionRequeueMessageMethodInfo - ResolveSessionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSessionMethod "send" o = SessionSendMethodInfo - ResolveSessionMethod "sendAsync" o = SessionSendAsyncMethodInfo - ResolveSessionMethod "sendFinish" o = SessionSendFinishMethodInfo - ResolveSessionMethod "sendMessage" o = SessionSendMessageMethodInfo - ResolveSessionMethod "stealConnection" o = SessionStealConnectionMethodInfo - ResolveSessionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSessionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSessionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSessionMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo - ResolveSessionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSessionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSessionMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo - ResolveSessionMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo - ResolveSessionMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo - ResolveSessionMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo - ResolveSessionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSessionMethod "getFeature" o = SessionGetFeatureMethodInfo - ResolveSessionMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo - ResolveSessionMethod "getFeatures" o = SessionGetFeaturesMethodInfo - ResolveSessionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSessionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSessionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSessionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSessionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSessionMethod t Session, MethodInfo info Session p) => IsLabelProxy t (Session -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSessionMethod t Session, MethodInfo info Session p) => IsLabel t (Session -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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] - -- Nullable: (Nothing,Nothing) - -getSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> m (Maybe 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" (Just val) - -constructSessionAcceptLanguage :: T.Text -> IO ([Char], GValue) -constructSessionAcceptLanguage val = constructObjectPropertyString "accept-language" (Just val) - -clearSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> m () -clearSessionAcceptLanguage obj = liftIO $ setObjectPropertyString obj "accept-language" (Nothing :: Maybe T.Text) - -data SessionAcceptLanguagePropertyInfo -instance AttrInfo SessionAcceptLanguagePropertyInfo where - type AttrAllowedOps SessionAcceptLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionAcceptLanguagePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SessionAcceptLanguagePropertyInfo = SessionK - type AttrGetType SessionAcceptLanguagePropertyInfo = (Maybe T.Text) - type AttrLabel SessionAcceptLanguagePropertyInfo = "accept-language" - attrGet _ = getSessionAcceptLanguage - attrSet _ = setSessionAcceptLanguage - attrConstruct _ = constructSessionAcceptLanguage - attrClear _ = clearSessionAcceptLanguage - --- VVV Prop "accept-language-auto" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "accept-language-auto" - attrGet _ = getSessionAcceptLanguageAuto - attrSet _ = setSessionAcceptLanguageAuto - attrConstruct _ = constructSessionAcceptLanguageAuto - attrClear _ = undefined - --- VVV Prop "async-context" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "async-context" - attrGet _ = getSessionAsyncContext - attrSet _ = undefined - attrConstruct _ = constructSessionAsyncContext - attrClear _ = undefined - --- VVV Prop "http-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionHttpAliases :: (MonadIO m, SessionK o) => o -> m (Maybe [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" (Just val) - -constructSessionHttpAliases :: [T.Text] -> IO ([Char], GValue) -constructSessionHttpAliases val = constructObjectPropertyStringArray "http-aliases" (Just val) - -clearSessionHttpAliases :: (MonadIO m, SessionK o) => o -> m () -clearSessionHttpAliases obj = liftIO $ setObjectPropertyStringArray obj "http-aliases" (Nothing :: Maybe [T.Text]) - -data SessionHttpAliasesPropertyInfo -instance AttrInfo SessionHttpAliasesPropertyInfo where - type AttrAllowedOps SessionHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionHttpAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint SessionHttpAliasesPropertyInfo = SessionK - type AttrGetType SessionHttpAliasesPropertyInfo = (Maybe [T.Text]) - type AttrLabel SessionHttpAliasesPropertyInfo = "http-aliases" - attrGet _ = getSessionHttpAliases - attrSet _ = setSessionHttpAliases - attrConstruct _ = constructSessionHttpAliases - attrClear _ = clearSessionHttpAliases - --- VVV Prop "https-aliases" - -- Type: TCArray True (-1) (-1) (TBasicType TUTF8) - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> m (Maybe [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" (Just val) - -constructSessionHttpsAliases :: [T.Text] -> IO ([Char], GValue) -constructSessionHttpsAliases val = constructObjectPropertyStringArray "https-aliases" (Just val) - -clearSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> m () -clearSessionHttpsAliases obj = liftIO $ setObjectPropertyStringArray obj "https-aliases" (Nothing :: Maybe [T.Text]) - -data SessionHttpsAliasesPropertyInfo -instance AttrInfo SessionHttpsAliasesPropertyInfo where - type AttrAllowedOps SessionHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionHttpsAliasesPropertyInfo = (~) [T.Text] - type AttrBaseTypeConstraint SessionHttpsAliasesPropertyInfo = SessionK - type AttrGetType SessionHttpsAliasesPropertyInfo = (Maybe [T.Text]) - type AttrLabel SessionHttpsAliasesPropertyInfo = "https-aliases" - attrGet _ = getSessionHttpsAliases - attrSet _ = setSessionHttpsAliases - attrConstruct _ = constructSessionHttpsAliases - attrClear _ = clearSessionHttpsAliases - --- VVV Prop "idle-timeout" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> m Word32 -getSessionIdleTimeout obj = liftIO $ getObjectPropertyUInt32 obj "idle-timeout" - -setSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m () -setSessionIdleTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "idle-timeout" val - -constructSessionIdleTimeout :: Word32 -> IO ([Char], GValue) -constructSessionIdleTimeout val = constructObjectPropertyUInt32 "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 = "idle-timeout" - attrGet _ = getSessionIdleTimeout - attrSet _ = setSessionIdleTimeout - attrConstruct _ = constructSessionIdleTimeout - attrClear _ = undefined - --- VVV Prop "local-address" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -getSessionLocalAddress :: (MonadIO m, SessionK o) => o -> m (Maybe Address) -getSessionLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address - -constructSessionLocalAddress :: (AddressK a) => a -> IO ([Char], GValue) -constructSessionLocalAddress val = constructObjectPropertyObject "local-address" (Just val) - -data SessionLocalAddressPropertyInfo -instance AttrInfo SessionLocalAddressPropertyInfo where - type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = AddressK - type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = SessionK - type AttrGetType SessionLocalAddressPropertyInfo = (Maybe Address) - type AttrLabel SessionLocalAddressPropertyInfo = "local-address" - attrGet _ = getSessionLocalAddress - attrSet _ = undefined - attrConstruct _ = constructSessionLocalAddress - attrClear _ = undefined - --- VVV Prop "max-conns" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionMaxConns :: (MonadIO m, SessionK o) => o -> m Int32 -getSessionMaxConns obj = liftIO $ getObjectPropertyInt32 obj "max-conns" - -setSessionMaxConns :: (MonadIO m, SessionK o) => o -> Int32 -> m () -setSessionMaxConns obj val = liftIO $ setObjectPropertyInt32 obj "max-conns" val - -constructSessionMaxConns :: Int32 -> IO ([Char], GValue) -constructSessionMaxConns val = constructObjectPropertyInt32 "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 = "max-conns" - attrGet _ = getSessionMaxConns - attrSet _ = setSessionMaxConns - attrConstruct _ = constructSessionMaxConns - attrClear _ = undefined - --- VVV Prop "max-conns-per-host" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> m Int32 -getSessionMaxConnsPerHost obj = liftIO $ getObjectPropertyInt32 obj "max-conns-per-host" - -setSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> Int32 -> m () -setSessionMaxConnsPerHost obj val = liftIO $ setObjectPropertyInt32 obj "max-conns-per-host" val - -constructSessionMaxConnsPerHost :: Int32 -> IO ([Char], GValue) -constructSessionMaxConnsPerHost val = constructObjectPropertyInt32 "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 = "max-conns-per-host" - attrGet _ = getSessionMaxConnsPerHost - attrSet _ = setSessionMaxConnsPerHost - attrConstruct _ = constructSessionMaxConnsPerHost - attrClear _ = undefined - --- VVV Prop "proxy-resolver" - -- Type: TInterface "Gio" "ProxyResolver" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m (Maybe 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" (Just val) - -constructSessionProxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue) -constructSessionProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val) - -clearSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m () -clearSessionProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe Gio.ProxyResolver) - -data SessionProxyResolverPropertyInfo -instance AttrInfo SessionProxyResolverPropertyInfo where - type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolverK - type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = SessionK - type AttrGetType SessionProxyResolverPropertyInfo = (Maybe Gio.ProxyResolver) - type AttrLabel SessionProxyResolverPropertyInfo = "proxy-resolver" - attrGet _ = getSessionProxyResolver - attrSet _ = setSessionProxyResolver - attrConstruct _ = constructSessionProxyResolver - attrClear _ = clearSessionProxyResolver - --- VVV Prop "proxy-uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionProxyUri :: (MonadIO m, SessionK o) => o -> m (Maybe 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" (Just val) - -constructSessionProxyUri :: URI -> IO ([Char], GValue) -constructSessionProxyUri val = constructObjectPropertyBoxed "proxy-uri" (Just val) - -clearSessionProxyUri :: (MonadIO m, SessionK o) => o -> m () -clearSessionProxyUri obj = liftIO $ setObjectPropertyBoxed obj "proxy-uri" (Nothing :: Maybe URI) - -data SessionProxyUriPropertyInfo -instance AttrInfo SessionProxyUriPropertyInfo where - type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) URI - type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = SessionK - type AttrGetType SessionProxyUriPropertyInfo = (Maybe URI) - type AttrLabel SessionProxyUriPropertyInfo = "proxy-uri" - attrGet _ = getSessionProxyUri - attrSet _ = setSessionProxyUri - attrConstruct _ = constructSessionProxyUri - attrClear _ = clearSessionProxyUri - --- VVV Prop "ssl-ca-file" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionSslCaFile :: (MonadIO m, SessionK o) => o -> m (Maybe 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" (Just val) - -constructSessionSslCaFile :: T.Text -> IO ([Char], GValue) -constructSessionSslCaFile val = constructObjectPropertyString "ssl-ca-file" (Just val) - -clearSessionSslCaFile :: (MonadIO m, SessionK o) => o -> m () -clearSessionSslCaFile obj = liftIO $ setObjectPropertyString obj "ssl-ca-file" (Nothing :: Maybe T.Text) - -data SessionSslCaFilePropertyInfo -instance AttrInfo SessionSslCaFilePropertyInfo where - type AttrAllowedOps SessionSslCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionSslCaFilePropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SessionSslCaFilePropertyInfo = SessionK - type AttrGetType SessionSslCaFilePropertyInfo = (Maybe T.Text) - type AttrLabel SessionSslCaFilePropertyInfo = "ssl-ca-file" - attrGet _ = getSessionSslCaFile - attrSet _ = setSessionSslCaFile - attrConstruct _ = constructSessionSslCaFile - attrClear _ = clearSessionSslCaFile - --- VVV Prop "ssl-strict" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "ssl-strict" - attrGet _ = getSessionSslStrict - attrSet _ = setSessionSslStrict - attrConstruct _ = constructSessionSslStrict - attrClear _ = undefined - --- VVV Prop "ssl-use-system-ca-file" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "ssl-use-system-ca-file" - attrGet _ = getSessionSslUseSystemCaFile - attrSet _ = setSessionSslUseSystemCaFile - attrConstruct _ = constructSessionSslUseSystemCaFile - attrClear _ = undefined - --- VVV Prop "timeout" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionTimeout :: (MonadIO m, SessionK o) => o -> m Word32 -getSessionTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout" - -setSessionTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m () -setSessionTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val - -constructSessionTimeout :: Word32 -> IO ([Char], GValue) -constructSessionTimeout val = constructObjectPropertyUInt32 "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 = "timeout" - attrGet _ = getSessionTimeout - attrSet _ = setSessionTimeout - attrConstruct _ = constructSessionTimeout - attrClear _ = undefined - --- VVV Prop "tls-database" - -- Type: TInterface "Gio" "TlsDatabase" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m (Maybe 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" (Just val) - -constructSessionTlsDatabase :: (Gio.TlsDatabaseK a) => a -> IO ([Char], GValue) -constructSessionTlsDatabase val = constructObjectPropertyObject "tls-database" (Just val) - -clearSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m () -clearSessionTlsDatabase obj = liftIO $ setObjectPropertyObject obj "tls-database" (Nothing :: Maybe Gio.TlsDatabase) - -data SessionTlsDatabasePropertyInfo -instance AttrInfo SessionTlsDatabasePropertyInfo where - type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabaseK - type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = SessionK - type AttrGetType SessionTlsDatabasePropertyInfo = (Maybe Gio.TlsDatabase) - type AttrLabel SessionTlsDatabasePropertyInfo = "tls-database" - attrGet _ = getSessionTlsDatabase - attrSet _ = setSessionTlsDatabase - attrConstruct _ = constructSessionTlsDatabase - attrClear _ = clearSessionTlsDatabase - --- VVV Prop "tls-interaction" - -- Type: TInterface "Gio" "TlsInteraction" - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m (Maybe 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" (Just val) - -constructSessionTlsInteraction :: (Gio.TlsInteractionK a) => a -> IO ([Char], GValue) -constructSessionTlsInteraction val = constructObjectPropertyObject "tls-interaction" (Just val) - -clearSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m () -clearSessionTlsInteraction obj = liftIO $ setObjectPropertyObject obj "tls-interaction" (Nothing :: Maybe Gio.TlsInteraction) - -data SessionTlsInteractionPropertyInfo -instance AttrInfo SessionTlsInteractionPropertyInfo where - type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteractionK - type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = SessionK - type AttrGetType SessionTlsInteractionPropertyInfo = (Maybe Gio.TlsInteraction) - type AttrLabel SessionTlsInteractionPropertyInfo = "tls-interaction" - attrGet _ = getSessionTlsInteraction - attrSet _ = setSessionTlsInteraction - attrConstruct _ = constructSessionTlsInteraction - attrClear _ = clearSessionTlsInteraction - --- VVV Prop "use-ntlm" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "use-ntlm" - attrGet _ = getSessionUseNtlm - attrSet _ = setSessionUseNtlm - attrConstruct _ = constructSessionUseNtlm - attrClear _ = undefined - --- VVV Prop "use-thread-context" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "use-thread-context" - attrGet _ = getSessionUseThreadContext - attrSet _ = setSessionUseThreadContext - attrConstruct _ = constructSessionUseThreadContext - attrClear _ = undefined - --- VVV Prop "user-agent" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSessionUserAgent :: (MonadIO m, SessionK o) => o -> m (Maybe 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" (Just val) - -constructSessionUserAgent :: T.Text -> IO ([Char], GValue) -constructSessionUserAgent val = constructObjectPropertyString "user-agent" (Just val) - -clearSessionUserAgent :: (MonadIO m, SessionK o) => o -> m () -clearSessionUserAgent obj = liftIO $ setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text) - -data SessionUserAgentPropertyInfo -instance AttrInfo SessionUserAgentPropertyInfo where - type AttrAllowedOps SessionUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SessionUserAgentPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint SessionUserAgentPropertyInfo = SessionK - type AttrGetType SessionUserAgentPropertyInfo = (Maybe T.Text) - type AttrLabel SessionUserAgentPropertyInfo = "user-agent" - attrGet _ = getSessionUserAgent - attrSet _ = setSessionUserAgent - attrConstruct _ = constructSessionUserAgent - attrClear _ = clearSessionUserAgent - -type instance AttributeList Session = SessionAttributeList -type SessionAttributeList = ('[ '("acceptLanguage", SessionAcceptLanguagePropertyInfo), '("acceptLanguageAuto", SessionAcceptLanguageAutoPropertyInfo), '("asyncContext", SessionAsyncContextPropertyInfo), '("httpAliases", SessionHttpAliasesPropertyInfo), '("httpsAliases", SessionHttpsAliasesPropertyInfo), '("idleTimeout", SessionIdleTimeoutPropertyInfo), '("localAddress", SessionLocalAddressPropertyInfo), '("maxConns", SessionMaxConnsPropertyInfo), '("maxConnsPerHost", SessionMaxConnsPerHostPropertyInfo), '("proxyResolver", SessionProxyResolverPropertyInfo), '("proxyUri", SessionProxyUriPropertyInfo), '("sslCaFile", SessionSslCaFilePropertyInfo), '("sslStrict", SessionSslStrictPropertyInfo), '("sslUseSystemCaFile", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tlsDatabase", SessionTlsDatabasePropertyInfo), '("tlsInteraction", SessionTlsInteractionPropertyInfo), '("useNtlm", SessionUseNtlmPropertyInfo), '("useThreadContext", SessionUseThreadContextPropertyInfo), '("userAgent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)]) - -sessionAcceptLanguage :: AttrLabelProxy "acceptLanguage" -sessionAcceptLanguage = AttrLabelProxy - -sessionAcceptLanguageAuto :: AttrLabelProxy "acceptLanguageAuto" -sessionAcceptLanguageAuto = AttrLabelProxy - -sessionAsyncContext :: AttrLabelProxy "asyncContext" -sessionAsyncContext = AttrLabelProxy - -sessionHttpAliases :: AttrLabelProxy "httpAliases" -sessionHttpAliases = AttrLabelProxy - -sessionHttpsAliases :: AttrLabelProxy "httpsAliases" -sessionHttpsAliases = AttrLabelProxy - -sessionIdleTimeout :: AttrLabelProxy "idleTimeout" -sessionIdleTimeout = AttrLabelProxy - -sessionLocalAddress :: AttrLabelProxy "localAddress" -sessionLocalAddress = AttrLabelProxy - -sessionMaxConns :: AttrLabelProxy "maxConns" -sessionMaxConns = AttrLabelProxy - -sessionMaxConnsPerHost :: AttrLabelProxy "maxConnsPerHost" -sessionMaxConnsPerHost = AttrLabelProxy - -sessionProxyResolver :: AttrLabelProxy "proxyResolver" -sessionProxyResolver = AttrLabelProxy - -sessionProxyUri :: AttrLabelProxy "proxyUri" -sessionProxyUri = AttrLabelProxy - -sessionSslCaFile :: AttrLabelProxy "sslCaFile" -sessionSslCaFile = AttrLabelProxy - -sessionSslStrict :: AttrLabelProxy "sslStrict" -sessionSslStrict = AttrLabelProxy - -sessionSslUseSystemCaFile :: AttrLabelProxy "sslUseSystemCaFile" -sessionSslUseSystemCaFile = AttrLabelProxy - -sessionTimeout :: AttrLabelProxy "timeout" -sessionTimeout = AttrLabelProxy - -sessionTlsDatabase :: AttrLabelProxy "tlsDatabase" -sessionTlsDatabase = AttrLabelProxy - -sessionTlsInteraction :: AttrLabelProxy "tlsInteraction" -sessionTlsInteraction = AttrLabelProxy - -sessionUseNtlm :: AttrLabelProxy "useNtlm" -sessionUseNtlm = AttrLabelProxy - -sessionUseThreadContext :: AttrLabelProxy "useThreadContext" -sessionUseThreadContext = AttrLabelProxy - -sessionUserAgent :: AttrLabelProxy "userAgent" -sessionUserAgent = AttrLabelProxy - -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), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)]) - --- method Session::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionAbort _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_session_abort _obj' - touchManagedPtr _obj - return () - -data SessionAbortMethodInfo -instance (signature ~ (m ()), MonadIO m, SessionK a) => MethodInfo SessionAbortMethodInfo a signature where - overloadedMethod _ = sessionAbort - --- method Session::add_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionAddFeature _obj feature = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature' = unsafeManagedPtrCastPtr feature - soup_session_add_feature _obj' feature' - touchManagedPtr _obj - touchManagedPtr feature - return () - -data SessionAddFeatureMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SessionK a, SessionFeatureK b) => MethodInfo SessionAddFeatureMethodInfo a signature where - overloadedMethod _ = sessionAddFeature - --- method Session::add_feature_by_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- featureType - -> m () -- result -sessionAddFeatureByType _obj featureType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let featureType' = gtypeToCGType featureType - soup_session_add_feature_by_type _obj' featureType' - touchManagedPtr _obj - return () - -data SessionAddFeatureByTypeMethodInfo -instance (signature ~ (GType -> m ()), MonadIO m, SessionK a) => MethodInfo SessionAddFeatureByTypeMethodInfo a signature where - overloadedMethod _ = sessionAddFeatureByType - --- method Session::cancel_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TUInt - IO () - - -sessionCancelMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -- _obj - -> b -- msg - -> Word32 -- statusCode - -> m () -- result -sessionCancelMessage _obj msg statusCode = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_cancel_message _obj' msg' statusCode - touchManagedPtr _obj - touchManagedPtr msg - return () - -data SessionCancelMessageMethodInfo -instance (signature ~ (b -> Word32 -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionCancelMessageMethodInfo a signature where - overloadedMethod _ = sessionCancelMessage - --- method Session::get_async_context --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe GLib.MainContext) -- result -sessionGetAsyncContext _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_session_get_async_context _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newBoxed GLib.MainContext) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data SessionGetAsyncContextMethodInfo -instance (signature ~ (m (Maybe GLib.MainContext)), MonadIO m, SessionK a) => MethodInfo SessionGetAsyncContextMethodInfo a signature where - overloadedMethod _ = sessionGetAsyncContext - --- method Session::get_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- featureType - -> m (Maybe SessionFeature) -- result -sessionGetFeature _obj featureType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let featureType' = gtypeToCGType featureType - result <- soup_session_get_feature _obj' featureType' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject SessionFeature) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data SessionGetFeatureMethodInfo -instance (signature ~ (GType -> m (Maybe SessionFeature)), MonadIO m, SessionK a) => MethodInfo SessionGetFeatureMethodInfo a signature where - overloadedMethod _ = sessionGetFeature - --- method Session::get_feature_for_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- featureType - -> b -- msg - -> m (Maybe SessionFeature) -- result -sessionGetFeatureForMessage _obj featureType msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let featureType' = gtypeToCGType featureType - let msg' = unsafeManagedPtrCastPtr msg - result <- soup_session_get_feature_for_message _obj' featureType' msg' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject SessionFeature) result' - return result'' - touchManagedPtr _obj - touchManagedPtr msg - return maybeResult - -data SessionGetFeatureForMessageMethodInfo -instance (signature ~ (GType -> b -> m (Maybe SessionFeature)), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionGetFeatureForMessageMethodInfo a signature where - overloadedMethod _ = sessionGetFeatureForMessage - --- method Session::get_features --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- featureType - -> m [SessionFeature] -- result -sessionGetFeatures _obj featureType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let featureType' = gtypeToCGType featureType - result <- soup_session_get_features _obj' featureType' - result' <- unpackGSList result - result'' <- mapM (newObject SessionFeature) result' - g_slist_free result - touchManagedPtr _obj - return result'' - -data SessionGetFeaturesMethodInfo -instance (signature ~ (GType -> m [SessionFeature]), MonadIO m, SessionK a) => MethodInfo SessionGetFeaturesMethodInfo a signature where - overloadedMethod _ = sessionGetFeatures - --- method Session::has_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- featureType - -> m Bool -- result -sessionHasFeature _obj featureType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let featureType' = gtypeToCGType featureType - result <- soup_session_has_feature _obj' featureType' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SessionHasFeatureMethodInfo -instance (signature ~ (GType -> m Bool), MonadIO m, SessionK a) => MethodInfo SessionHasFeatureMethodInfo a signature where - overloadedMethod _ = sessionHasFeature - --- method Session::pause_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionPauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_pause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - -data SessionPauseMessageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionPauseMessageMethodInfo a signature where - overloadedMethod _ = sessionPauseMessage - --- method Session::prefetch_dns --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -sessionPrefetchDns :: - (MonadIO m, SessionK a, Gio.CancellableK b) => - a -- _obj - -> T.Text -- hostname - -> Maybe (b) -- cancellable - -> Maybe (AddressCallback) -- callback - -> m () -- result -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 userData = nullPtr - soup_session_prefetch_dns _obj' hostname' maybeCancellable maybeCallback userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem hostname' - return () - -data SessionPrefetchDnsMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> Maybe (AddressCallback) -> m ()), MonadIO m, SessionK a, Gio.CancellableK b) => MethodInfo SessionPrefetchDnsMethodInfo a signature where - overloadedMethod _ = sessionPrefetchDns - --- method Session::prepare_for_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data SessionPrepareForUriMethodInfo -instance (signature ~ (URI -> m ()), MonadIO m, SessionK a) => MethodInfo SessionPrepareForUriMethodInfo a signature where - overloadedMethod _ = sessionPrepareForUri - --- method Session::queue_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -sessionQueueMessage :: - (MonadIO m, SessionK a, MessageK b) => - a -- _obj - -> b -- msg - -> Maybe (SessionCallback) -- callback - -> m () -- result -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 userData = nullPtr - soup_session_queue_message _obj' msg' maybeCallback userData - touchManagedPtr _obj - touchManagedPtr msg - return () - -data SessionQueueMessageMethodInfo -instance (signature ~ (b -> Maybe (SessionCallback) -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionQueueMessageMethodInfo a signature where - overloadedMethod _ = sessionQueueMessage - --- method Session::redirect_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SessionRedirectMessageMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionRedirectMessageMethodInfo a signature where - overloadedMethod _ = sessionRedirectMessage - --- method Session::remove_feature --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionRemoveFeature _obj feature = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let feature' = unsafeManagedPtrCastPtr feature - soup_session_remove_feature _obj' feature' - touchManagedPtr _obj - touchManagedPtr feature - return () - -data SessionRemoveFeatureMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SessionK a, SessionFeatureK b) => MethodInfo SessionRemoveFeatureMethodInfo a signature where - overloadedMethod _ = sessionRemoveFeature - --- method Session::remove_feature_by_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- featureType - -> m () -- result -sessionRemoveFeatureByType _obj featureType = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let featureType' = gtypeToCGType featureType - soup_session_remove_feature_by_type _obj' featureType' - touchManagedPtr _obj - return () - -data SessionRemoveFeatureByTypeMethodInfo -instance (signature ~ (GType -> m ()), MonadIO m, SessionK a) => MethodInfo SessionRemoveFeatureByTypeMethodInfo a signature where - overloadedMethod _ = sessionRemoveFeatureByType - --- method Session::request --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- uriString - -> m Request -- result -sessionRequest _obj uriString = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - uriString' <- textToCString uriString - onException (do - result <- propagateGError $ soup_session_request _obj' uriString' - checkUnexpectedReturnNULL "soup_session_request" result - result' <- (wrapObject Request) result - touchManagedPtr _obj - freeMem uriString' - return result' - ) (do - freeMem uriString' - ) - -data SessionRequestMethodInfo -instance (signature ~ (T.Text -> m Request), MonadIO m, SessionK a) => MethodInfo SessionRequestMethodInfo a signature where - overloadedMethod _ = sessionRequest - --- method Session::request_http --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- uriString - -> m RequestHTTP -- result -sessionRequestHttp _obj method uriString = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - method' <- textToCString method - uriString' <- textToCString uriString - onException (do - result <- propagateGError $ soup_session_request_http _obj' method' uriString' - checkUnexpectedReturnNULL "soup_session_request_http" result - result' <- (wrapObject RequestHTTP) result - touchManagedPtr _obj - freeMem method' - freeMem uriString' - return result' - ) (do - freeMem method' - freeMem uriString' - ) - -data SessionRequestHttpMethodInfo -instance (signature ~ (T.Text -> T.Text -> m RequestHTTP), MonadIO m, SessionK a) => MethodInfo SessionRequestHttpMethodInfo a signature where - overloadedMethod _ = sessionRequestHttp - --- method Session::request_http_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - ) - -data SessionRequestHttpUriMethodInfo -instance (signature ~ (T.Text -> URI -> m RequestHTTP), MonadIO m, SessionK a) => MethodInfo SessionRequestHttpUriMethodInfo a signature where - overloadedMethod _ = sessionRequestHttpUri - --- method Session::request_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data SessionRequestUriMethodInfo -instance (signature ~ (URI -> m Request), MonadIO m, SessionK a) => MethodInfo SessionRequestUriMethodInfo a signature where - overloadedMethod _ = sessionRequestUri - --- method Session::requeue_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionRequeueMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_requeue_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - -data SessionRequeueMessageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionRequeueMessageMethodInfo a signature where - overloadedMethod _ = sessionRequeueMessage - --- method Session::send --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data SessionSendMethodInfo -instance (signature ~ (b -> Maybe (c) -> m Gio.InputStream), MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => MethodInfo SessionSendMethodInfo a signature where - overloadedMethod _ = sessionSend - --- method Session::send_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -sessionSendAsync :: - (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => - a -- _obj - -> b -- msg - -> Maybe (c) -- cancellable - -> Maybe (Gio.AsyncReadyCallback) -- callback - -> m () -- result -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 userData = nullPtr - soup_session_send_async _obj' msg' maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr msg - whenJust cancellable touchManagedPtr - return () - -data SessionSendAsyncMethodInfo -instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => MethodInfo SessionSendAsyncMethodInfo a signature where - overloadedMethod _ = sessionSendAsync - --- method Session::send_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data SessionSendFinishMethodInfo -instance (signature ~ (b -> m Gio.InputStream), MonadIO m, SessionK a, Gio.AsyncResultK b) => MethodInfo SessionSendFinishMethodInfo a signature where - overloadedMethod _ = sessionSendFinish - --- method Session::send_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -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 - -data SessionSendMessageMethodInfo -instance (signature ~ (b -> m Word32), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionSendMessageMethodInfo a signature where - overloadedMethod _ = sessionSendMessage - --- method Session::steal_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SessionStealConnectionMethodInfo -instance (signature ~ (b -> m Gio.IOStream), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionStealConnectionMethodInfo a signature where - overloadedMethod _ = sessionStealConnection - --- method Session::unpause_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -sessionUnpauseMessage _obj msg = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - let msg' = unsafeManagedPtrCastPtr msg - soup_session_unpause_message _obj' msg' - touchManagedPtr _obj - touchManagedPtr msg - return () - -data SessionUnpauseMessageMethodInfo -instance (signature ~ (b -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionUnpauseMessageMethodInfo a signature where - overloadedMethod _ = sessionUnpauseMessage - --- method Session::websocket_connect_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - 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 () -- result -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 userData = nullPtr - soup_session_websocket_connect_async _obj' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback userData - touchManagedPtr _obj - touchManagedPtr msg - whenJust cancellable touchManagedPtr - freeMem maybeOrigin - mapZeroTerminatedCArray freeMem maybeProtocols - freeMem maybeProtocols - return () - -data SessionWebsocketConnectAsyncMethodInfo -instance (signature ~ (b -> Maybe (T.Text) -> Maybe ([T.Text]) -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => MethodInfo SessionWebsocketConnectAsyncMethodInfo a signature where - overloadedMethod _ = sessionWebsocketConnectAsync - --- method Session::websocket_connect_finish --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 () - ) - -data SessionWebsocketConnectFinishMethodInfo -instance (signature ~ (b -> m WebsocketConnection), MonadIO m, SessionK a, Gio.AsyncResultK b) => MethodInfo SessionWebsocketConnectFinishMethodInfo a signature where - overloadedMethod _ = sessionWebsocketConnectFinish - --- method Session::would_redirect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SessionWouldRedirectMethodInfo -instance (signature ~ (b -> m Bool), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionWouldRedirectMethodInfo a signature where - overloadedMethod _ = sessionWouldRedirect - - 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,69 +0,0 @@ -module GI.Soup.Objects.Session where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data SessionAbortMethodInfo -data SessionAddFeatureMethodInfo -data SessionAddFeatureByTypeMethodInfo -data SessionCancelMessageMethodInfo -data SessionGetAsyncContextMethodInfo -data SessionGetFeatureMethodInfo -data SessionGetFeatureForMessageMethodInfo -data SessionGetFeaturesMethodInfo -data SessionHasFeatureMethodInfo -data SessionPauseMessageMethodInfo -data SessionPrefetchDnsMethodInfo -data SessionPrepareForUriMethodInfo -data SessionQueueMessageMethodInfo -data SessionRedirectMessageMethodInfo -data SessionRemoveFeatureMethodInfo -data SessionRemoveFeatureByTypeMethodInfo -data SessionRequestMethodInfo -data SessionRequestHttpMethodInfo -data SessionRequestHttpUriMethodInfo -data SessionRequestUriMethodInfo -data SessionRequeueMessageMethodInfo -data SessionSendMethodInfo -data SessionSendAsyncMethodInfo -data SessionSendFinishMethodInfo -data SessionSendMessageMethodInfo -data SessionStealConnectionMethodInfo -data SessionUnpauseMessageMethodInfo -data SessionWebsocketConnectAsyncMethodInfo -data SessionWebsocketConnectFinishMethodInfo -data SessionWouldRedirectMethodInfo 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,150 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveSessionAsyncMethod (t :: Symbol) (o :: *) :: * where - ResolveSessionAsyncMethod "abort" o = SessionAbortMethodInfo - ResolveSessionAsyncMethod "addFeature" o = SessionAddFeatureMethodInfo - ResolveSessionAsyncMethod "addFeatureByType" o = SessionAddFeatureByTypeMethodInfo - ResolveSessionAsyncMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSessionAsyncMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSessionAsyncMethod "cancelMessage" o = SessionCancelMessageMethodInfo - ResolveSessionAsyncMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSessionAsyncMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSessionAsyncMethod "hasFeature" o = SessionHasFeatureMethodInfo - ResolveSessionAsyncMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSessionAsyncMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSessionAsyncMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSessionAsyncMethod "pauseMessage" o = SessionPauseMessageMethodInfo - ResolveSessionAsyncMethod "prefetchDns" o = SessionPrefetchDnsMethodInfo - ResolveSessionAsyncMethod "prepareForUri" o = SessionPrepareForUriMethodInfo - ResolveSessionAsyncMethod "queueMessage" o = SessionQueueMessageMethodInfo - ResolveSessionAsyncMethod "redirectMessage" o = SessionRedirectMessageMethodInfo - ResolveSessionAsyncMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSessionAsyncMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSessionAsyncMethod "removeFeature" o = SessionRemoveFeatureMethodInfo - ResolveSessionAsyncMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo - ResolveSessionAsyncMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSessionAsyncMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSessionAsyncMethod "request" o = SessionRequestMethodInfo - ResolveSessionAsyncMethod "requestHttp" o = SessionRequestHttpMethodInfo - ResolveSessionAsyncMethod "requestHttpUri" o = SessionRequestHttpUriMethodInfo - ResolveSessionAsyncMethod "requestUri" o = SessionRequestUriMethodInfo - ResolveSessionAsyncMethod "requeueMessage" o = SessionRequeueMessageMethodInfo - ResolveSessionAsyncMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSessionAsyncMethod "send" o = SessionSendMethodInfo - ResolveSessionAsyncMethod "sendAsync" o = SessionSendAsyncMethodInfo - ResolveSessionAsyncMethod "sendFinish" o = SessionSendFinishMethodInfo - ResolveSessionAsyncMethod "sendMessage" o = SessionSendMessageMethodInfo - ResolveSessionAsyncMethod "stealConnection" o = SessionStealConnectionMethodInfo - ResolveSessionAsyncMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSessionAsyncMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSessionAsyncMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSessionAsyncMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo - ResolveSessionAsyncMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSessionAsyncMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSessionAsyncMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo - ResolveSessionAsyncMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo - ResolveSessionAsyncMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo - ResolveSessionAsyncMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo - ResolveSessionAsyncMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSessionAsyncMethod "getFeature" o = SessionGetFeatureMethodInfo - ResolveSessionAsyncMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo - ResolveSessionAsyncMethod "getFeatures" o = SessionGetFeaturesMethodInfo - ResolveSessionAsyncMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSessionAsyncMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSessionAsyncMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSessionAsyncMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSessionAsyncMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSessionAsyncMethod t SessionAsync, MethodInfo info SessionAsync p) => IsLabelProxy t (SessionAsync -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSessionAsyncMethod t SessionAsync, MethodInfo info SessionAsync p) => IsLabel t (SessionAsync -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SessionAsync = SessionAsyncAttributeList -type SessionAsyncAttributeList = ('[ '("acceptLanguage", SessionAcceptLanguagePropertyInfo), '("acceptLanguageAuto", SessionAcceptLanguageAutoPropertyInfo), '("asyncContext", SessionAsyncContextPropertyInfo), '("httpAliases", SessionHttpAliasesPropertyInfo), '("httpsAliases", SessionHttpsAliasesPropertyInfo), '("idleTimeout", SessionIdleTimeoutPropertyInfo), '("localAddress", SessionLocalAddressPropertyInfo), '("maxConns", SessionMaxConnsPropertyInfo), '("maxConnsPerHost", SessionMaxConnsPerHostPropertyInfo), '("proxyResolver", SessionProxyResolverPropertyInfo), '("proxyUri", SessionProxyUriPropertyInfo), '("sslCaFile", SessionSslCaFilePropertyInfo), '("sslStrict", SessionSslStrictPropertyInfo), '("sslUseSystemCaFile", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tlsDatabase", SessionTlsDatabasePropertyInfo), '("tlsInteraction", SessionTlsInteractionPropertyInfo), '("useNtlm", SessionUseNtlmPropertyInfo), '("useThreadContext", SessionUseThreadContextPropertyInfo), '("userAgent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SessionAsync = SessionAsyncSignalList -type SessionAsyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)]) - --- method SessionAsync::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,150 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 family ResolveSessionSyncMethod (t :: Symbol) (o :: *) :: * where - ResolveSessionSyncMethod "abort" o = SessionAbortMethodInfo - ResolveSessionSyncMethod "addFeature" o = SessionAddFeatureMethodInfo - ResolveSessionSyncMethod "addFeatureByType" o = SessionAddFeatureByTypeMethodInfo - ResolveSessionSyncMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSessionSyncMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSessionSyncMethod "cancelMessage" o = SessionCancelMessageMethodInfo - ResolveSessionSyncMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSessionSyncMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSessionSyncMethod "hasFeature" o = SessionHasFeatureMethodInfo - ResolveSessionSyncMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSessionSyncMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSessionSyncMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSessionSyncMethod "pauseMessage" o = SessionPauseMessageMethodInfo - ResolveSessionSyncMethod "prefetchDns" o = SessionPrefetchDnsMethodInfo - ResolveSessionSyncMethod "prepareForUri" o = SessionPrepareForUriMethodInfo - ResolveSessionSyncMethod "queueMessage" o = SessionQueueMessageMethodInfo - ResolveSessionSyncMethod "redirectMessage" o = SessionRedirectMessageMethodInfo - ResolveSessionSyncMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSessionSyncMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSessionSyncMethod "removeFeature" o = SessionRemoveFeatureMethodInfo - ResolveSessionSyncMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo - ResolveSessionSyncMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSessionSyncMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSessionSyncMethod "request" o = SessionRequestMethodInfo - ResolveSessionSyncMethod "requestHttp" o = SessionRequestHttpMethodInfo - ResolveSessionSyncMethod "requestHttpUri" o = SessionRequestHttpUriMethodInfo - ResolveSessionSyncMethod "requestUri" o = SessionRequestUriMethodInfo - ResolveSessionSyncMethod "requeueMessage" o = SessionRequeueMessageMethodInfo - ResolveSessionSyncMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSessionSyncMethod "send" o = SessionSendMethodInfo - ResolveSessionSyncMethod "sendAsync" o = SessionSendAsyncMethodInfo - ResolveSessionSyncMethod "sendFinish" o = SessionSendFinishMethodInfo - ResolveSessionSyncMethod "sendMessage" o = SessionSendMessageMethodInfo - ResolveSessionSyncMethod "stealConnection" o = SessionStealConnectionMethodInfo - ResolveSessionSyncMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSessionSyncMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSessionSyncMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSessionSyncMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo - ResolveSessionSyncMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSessionSyncMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSessionSyncMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo - ResolveSessionSyncMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo - ResolveSessionSyncMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo - ResolveSessionSyncMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo - ResolveSessionSyncMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSessionSyncMethod "getFeature" o = SessionGetFeatureMethodInfo - ResolveSessionSyncMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo - ResolveSessionSyncMethod "getFeatures" o = SessionGetFeaturesMethodInfo - ResolveSessionSyncMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSessionSyncMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSessionSyncMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSessionSyncMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSessionSyncMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSessionSyncMethod t SessionSync, MethodInfo info SessionSync p) => IsLabelProxy t (SessionSync -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSessionSyncMethod t SessionSync, MethodInfo info SessionSync p) => IsLabel t (SessionSync -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - -type instance AttributeList SessionSync = SessionSyncAttributeList -type SessionSyncAttributeList = ('[ '("acceptLanguage", SessionAcceptLanguagePropertyInfo), '("acceptLanguageAuto", SessionAcceptLanguageAutoPropertyInfo), '("asyncContext", SessionAsyncContextPropertyInfo), '("httpAliases", SessionHttpAliasesPropertyInfo), '("httpsAliases", SessionHttpsAliasesPropertyInfo), '("idleTimeout", SessionIdleTimeoutPropertyInfo), '("localAddress", SessionLocalAddressPropertyInfo), '("maxConns", SessionMaxConnsPropertyInfo), '("maxConnsPerHost", SessionMaxConnsPerHostPropertyInfo), '("proxyResolver", SessionProxyResolverPropertyInfo), '("proxyUri", SessionProxyUriPropertyInfo), '("sslCaFile", SessionSslCaFilePropertyInfo), '("sslStrict", SessionSslStrictPropertyInfo), '("sslUseSystemCaFile", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tlsDatabase", SessionTlsDatabasePropertyInfo), '("tlsInteraction", SessionTlsInteractionPropertyInfo), '("useNtlm", SessionUseNtlmPropertyInfo), '("useThreadContext", SessionUseThreadContextPropertyInfo), '("userAgent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)]) - -type instance SignalList SessionSync = SessionSyncSignalList -type SessionSyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)]) - --- method SessionSync::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,1539 +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 - SocketConnectAsyncMethodInfo , - socketConnectAsync , - - --- ** socketConnectSync - SocketConnectSyncMethodInfo , - socketConnectSync , - - --- ** socketDisconnect - SocketDisconnectMethodInfo , - socketDisconnect , - - --- ** socketGetFd - SocketGetFdMethodInfo , - socketGetFd , - - --- ** socketGetLocalAddress - SocketGetLocalAddressMethodInfo , - socketGetLocalAddress , - - --- ** socketGetRemoteAddress - SocketGetRemoteAddressMethodInfo , - socketGetRemoteAddress , - - --- ** socketIsConnected - SocketIsConnectedMethodInfo , - socketIsConnected , - - --- ** socketIsSsl - SocketIsSslMethodInfo , - socketIsSsl , - - --- ** socketListen - SocketListenMethodInfo , - socketListen , - - --- ** socketRead - SocketReadMethodInfo , - socketRead , - - --- ** socketReadUntil - SocketReadUntilMethodInfo , - socketReadUntil , - - --- ** socketStartProxySsl - SocketStartProxySslMethodInfo , - socketStartProxySsl , - - --- ** socketStartSsl - SocketStartSslMethodInfo , - socketStartSsl , - - --- ** socketWrite - SocketWriteMethodInfo , - socketWrite , - - - - - -- * Properties --- ** AsyncContext - SocketAsyncContextPropertyInfo , - constructSocketAsyncContext , - getSocketAsyncContext , - socketAsyncContext , - - --- ** Fd - SocketFdPropertyInfo , - constructSocketFd , - getSocketFd , - socketFd , - - --- ** Gsocket - SocketGsocketPropertyInfo , - constructSocketGsocket , - socketGsocket , - - --- ** Iostream - SocketIostreamPropertyInfo , - constructSocketIostream , - socketIostream , - - --- ** Ipv6Only - SocketIpv6OnlyPropertyInfo , - constructSocketIpv6Only , - getSocketIpv6Only , - setSocketIpv6Only , - socketIpv6Only , - - --- ** IsServer - SocketIsServerPropertyInfo , - getSocketIsServer , - socketIsServer , - - --- ** LocalAddress - SocketLocalAddressPropertyInfo , - constructSocketLocalAddress , - getSocketLocalAddress , - socketLocalAddress , - - --- ** NonBlocking - SocketNonBlockingPropertyInfo , - constructSocketNonBlocking , - getSocketNonBlocking , - setSocketNonBlocking , - socketNonBlocking , - - --- ** RemoteAddress - SocketRemoteAddressPropertyInfo , - constructSocketRemoteAddress , - getSocketRemoteAddress , - socketRemoteAddress , - - --- ** SslCreds - SocketSslCredsPropertyInfo , - constructSocketSslCreds , - getSocketSslCreds , - setSocketSslCreds , - socketSslCreds , - - --- ** SslFallback - SocketSslFallbackPropertyInfo , - constructSocketSslFallback , - getSocketSslFallback , - socketSslFallback , - - --- ** SslStrict - SocketSslStrictPropertyInfo , - constructSocketSslStrict , - getSocketSslStrict , - socketSslStrict , - - --- ** Timeout - SocketTimeoutPropertyInfo , - constructSocketTimeout , - getSocketTimeout , - setSocketTimeout , - socketTimeout , - - --- ** TlsCertificate - SocketTlsCertificatePropertyInfo , - getSocketTlsCertificate , - socketTlsCertificate , - - --- ** TlsErrors - SocketTlsErrorsPropertyInfo , - getSocketTlsErrors , - socketTlsErrors , - - --- ** TrustedCertificate - SocketTrustedCertificatePropertyInfo , - getSocketTrustedCertificate , - socketTrustedCertificate , - - --- ** UseThreadContext - SocketUseThreadContextPropertyInfo , - constructSocketUseThreadContext , - getSocketUseThreadContext , - socketUseThreadContext , - - - - - -- * 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where - ResolveSocketMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveSocketMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveSocketMethod "connectAsync" o = SocketConnectAsyncMethodInfo - ResolveSocketMethod "connectSync" o = SocketConnectSyncMethodInfo - ResolveSocketMethod "disconnect" o = SocketDisconnectMethodInfo - ResolveSocketMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveSocketMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveSocketMethod "init" o = Gio.InitableInitMethodInfo - ResolveSocketMethod "isConnected" o = SocketIsConnectedMethodInfo - ResolveSocketMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveSocketMethod "isSsl" o = SocketIsSslMethodInfo - ResolveSocketMethod "listen" o = SocketListenMethodInfo - ResolveSocketMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveSocketMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveSocketMethod "read" o = SocketReadMethodInfo - ResolveSocketMethod "readUntil" o = SocketReadUntilMethodInfo - ResolveSocketMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveSocketMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveSocketMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveSocketMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveSocketMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveSocketMethod "startProxySsl" o = SocketStartProxySslMethodInfo - ResolveSocketMethod "startSsl" o = SocketStartSslMethodInfo - ResolveSocketMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveSocketMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveSocketMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveSocketMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveSocketMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveSocketMethod "write" o = SocketWriteMethodInfo - ResolveSocketMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveSocketMethod "getFd" o = SocketGetFdMethodInfo - ResolveSocketMethod "getLocalAddress" o = SocketGetLocalAddressMethodInfo - ResolveSocketMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveSocketMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveSocketMethod "getRemoteAddress" o = SocketGetRemoteAddressMethodInfo - ResolveSocketMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveSocketMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveSocketMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabelProxy t (Socket -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabel t (Socket -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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 TPtr - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "async-context" - attrGet _ = getSocketAsyncContext - attrSet _ = undefined - attrConstruct _ = constructSocketAsyncContext - attrClear _ = undefined - --- VVV Prop "fd" - -- Type: TBasicType TInt - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32 -getSocketFd obj = liftIO $ getObjectPropertyInt32 obj "fd" - -constructSocketFd :: Int32 -> IO ([Char], GValue) -constructSocketFd val = constructObjectPropertyInt32 "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 = "fd" - attrGet _ = getSocketFd - attrSet _ = undefined - attrConstruct _ = constructSocketFd - attrClear _ = undefined - --- VVV Prop "gsocket" - -- Type: TInterface "Gio" "Socket" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructSocketGsocket :: (Gio.SocketK a) => a -> IO ([Char], GValue) -constructSocketGsocket val = constructObjectPropertyObject "gsocket" (Just val) - -data SocketGsocketPropertyInfo -instance AttrInfo SocketGsocketPropertyInfo where - type AttrAllowedOps SocketGsocketPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint SocketGsocketPropertyInfo = Gio.SocketK - type AttrBaseTypeConstraint SocketGsocketPropertyInfo = SocketK - type AttrGetType SocketGsocketPropertyInfo = () - type AttrLabel SocketGsocketPropertyInfo = "gsocket" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructSocketGsocket - attrClear _ = undefined - --- VVV Prop "iostream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -constructSocketIostream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue) -constructSocketIostream val = constructObjectPropertyObject "iostream" (Just val) - -data SocketIostreamPropertyInfo -instance AttrInfo SocketIostreamPropertyInfo where - type AttrAllowedOps SocketIostreamPropertyInfo = '[ 'AttrConstruct, 'AttrClear] - type AttrSetTypeConstraint SocketIostreamPropertyInfo = Gio.IOStreamK - type AttrBaseTypeConstraint SocketIostreamPropertyInfo = SocketK - type AttrGetType SocketIostreamPropertyInfo = () - type AttrLabel SocketIostreamPropertyInfo = "iostream" - attrGet _ = undefined - attrSet _ = undefined - attrConstruct _ = constructSocketIostream - attrClear _ = undefined - --- VVV Prop "ipv6-only" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "ipv6-only" - attrGet _ = getSocketIpv6Only - attrSet _ = setSocketIpv6Only - attrConstruct _ = constructSocketIpv6Only - attrClear _ = undefined - --- VVV Prop "is-server" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "is-server" - attrGet _ = getSocketIsServer - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "local-address" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m Address -getSocketLocalAddress obj = liftIO $ checkUnexpectedNothing "getSocketLocalAddress" $ getObjectPropertyObject obj "local-address" Address - -constructSocketLocalAddress :: (AddressK a) => a -> IO ([Char], GValue) -constructSocketLocalAddress val = constructObjectPropertyObject "local-address" (Just val) - -data SocketLocalAddressPropertyInfo -instance AttrInfo SocketLocalAddressPropertyInfo where - type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = AddressK - type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK - type AttrGetType SocketLocalAddressPropertyInfo = Address - type AttrLabel SocketLocalAddressPropertyInfo = "local-address" - attrGet _ = getSocketLocalAddress - attrSet _ = undefined - attrConstruct _ = constructSocketLocalAddress - attrClear _ = undefined - --- VVV Prop "non-blocking" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "non-blocking" - attrGet _ = getSocketNonBlocking - attrSet _ = setSocketNonBlocking - attrConstruct _ = constructSocketNonBlocking - attrClear _ = undefined - --- VVV Prop "remote-address" - -- Type: TInterface "Soup" "Address" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m Address -getSocketRemoteAddress obj = liftIO $ checkUnexpectedNothing "getSocketRemoteAddress" $ getObjectPropertyObject obj "remote-address" Address - -constructSocketRemoteAddress :: (AddressK a) => a -> IO ([Char], GValue) -constructSocketRemoteAddress val = constructObjectPropertyObject "remote-address" (Just val) - -data SocketRemoteAddressPropertyInfo -instance AttrInfo SocketRemoteAddressPropertyInfo where - type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = AddressK - type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK - type AttrGetType SocketRemoteAddressPropertyInfo = Address - type AttrLabel SocketRemoteAddressPropertyInfo = "remote-address" - attrGet _ = getSocketRemoteAddress - attrSet _ = undefined - attrConstruct _ = constructSocketRemoteAddress - attrClear _ = undefined - --- VVV Prop "ssl-creds" - -- Type: TBasicType TPtr - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -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 = "ssl-creds" - attrGet _ = getSocketSslCreds - attrSet _ = setSocketSslCreds - attrConstruct _ = constructSocketSslCreds - attrClear _ = undefined - --- VVV Prop "ssl-fallback" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "ssl-fallback" - attrGet _ = getSocketSslFallback - attrSet _ = undefined - attrConstruct _ = constructSocketSslFallback - attrClear _ = undefined - --- VVV Prop "ssl-strict" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "ssl-strict" - attrGet _ = getSocketSslStrict - attrSet _ = undefined - attrConstruct _ = constructSocketSslStrict - attrClear _ = undefined - --- VVV Prop "timeout" - -- Type: TBasicType TUInt - -- Flags: [PropertyReadable,PropertyWritable] - -- Nullable: (Nothing,Nothing) - -getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32 -getSocketTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout" - -setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m () -setSocketTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val - -constructSocketTimeout :: Word32 -> IO ([Char], GValue) -constructSocketTimeout val = constructObjectPropertyUInt32 "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 = "timeout" - attrGet _ = getSocketTimeout - attrSet _ = setSocketTimeout - attrConstruct _ = constructSocketTimeout - attrClear _ = undefined - --- VVV Prop "tls-certificate" - -- Type: TInterface "Gio" "TlsCertificate" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -getSocketTlsCertificate :: (MonadIO m, SocketK o) => o -> m (Maybe Gio.TlsCertificate) -getSocketTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate - -data SocketTlsCertificatePropertyInfo -instance AttrInfo SocketTlsCertificatePropertyInfo where - type AttrAllowedOps SocketTlsCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint SocketTlsCertificatePropertyInfo = (~) () - type AttrBaseTypeConstraint SocketTlsCertificatePropertyInfo = SocketK - type AttrGetType SocketTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate) - type AttrLabel SocketTlsCertificatePropertyInfo = "tls-certificate" - attrGet _ = getSocketTlsCertificate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "tls-errors" - -- Type: TInterface "Gio" "TlsCertificateFlags" - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "tls-errors" - attrGet _ = getSocketTlsErrors - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "trusted-certificate" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable] - -- Nullable: (Nothing,Nothing) - -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 = "trusted-certificate" - attrGet _ = getSocketTrustedCertificate - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "use-thread-context" - -- Type: TBasicType TBoolean - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Nothing,Nothing) - -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 = "use-thread-context" - attrGet _ = getSocketUseThreadContext - attrSet _ = undefined - attrConstruct _ = constructSocketUseThreadContext - attrClear _ = undefined - -type instance AttributeList Socket = SocketAttributeList -type SocketAttributeList = ('[ '("asyncContext", SocketAsyncContextPropertyInfo), '("fd", SocketFdPropertyInfo), '("gsocket", SocketGsocketPropertyInfo), '("iostream", SocketIostreamPropertyInfo), '("ipv6Only", SocketIpv6OnlyPropertyInfo), '("isServer", SocketIsServerPropertyInfo), '("localAddress", SocketLocalAddressPropertyInfo), '("nonBlocking", SocketNonBlockingPropertyInfo), '("remoteAddress", SocketRemoteAddressPropertyInfo), '("sslCreds", SocketSslCredsPropertyInfo), '("sslFallback", SocketSslFallbackPropertyInfo), '("sslStrict", SocketSslStrictPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("tlsCertificate", SocketTlsCertificatePropertyInfo), '("tlsErrors", SocketTlsErrorsPropertyInfo), '("trustedCertificate", SocketTrustedCertificatePropertyInfo), '("useThreadContext", SocketUseThreadContextPropertyInfo)] :: [(Symbol, *)]) - -socketAsyncContext :: AttrLabelProxy "asyncContext" -socketAsyncContext = AttrLabelProxy - -socketFd :: AttrLabelProxy "fd" -socketFd = AttrLabelProxy - -socketGsocket :: AttrLabelProxy "gsocket" -socketGsocket = AttrLabelProxy - -socketIostream :: AttrLabelProxy "iostream" -socketIostream = AttrLabelProxy - -socketIpv6Only :: AttrLabelProxy "ipv6Only" -socketIpv6Only = AttrLabelProxy - -socketIsServer :: AttrLabelProxy "isServer" -socketIsServer = AttrLabelProxy - -socketLocalAddress :: AttrLabelProxy "localAddress" -socketLocalAddress = AttrLabelProxy - -socketNonBlocking :: AttrLabelProxy "nonBlocking" -socketNonBlocking = AttrLabelProxy - -socketRemoteAddress :: AttrLabelProxy "remoteAddress" -socketRemoteAddress = AttrLabelProxy - -socketSslCreds :: AttrLabelProxy "sslCreds" -socketSslCreds = AttrLabelProxy - -socketSslFallback :: AttrLabelProxy "sslFallback" -socketSslFallback = AttrLabelProxy - -socketSslStrict :: AttrLabelProxy "sslStrict" -socketSslStrict = AttrLabelProxy - -socketTimeout :: AttrLabelProxy "timeout" -socketTimeout = AttrLabelProxy - -socketTlsCertificate :: AttrLabelProxy "tlsCertificate" -socketTlsCertificate = AttrLabelProxy - -socketTlsErrors :: AttrLabelProxy "tlsErrors" -socketTlsErrors = AttrLabelProxy - -socketTrustedCertificate :: AttrLabelProxy "trustedCertificate" -socketTrustedCertificate = AttrLabelProxy - -socketUseThreadContext :: AttrLabelProxy "useThreadContext" -socketUseThreadContext = AttrLabelProxy - -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), '("newConnection", SocketNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("readable", SocketReadableSignalInfo), '("writable", SocketWritableSignalInfo)] :: [(Symbol, *)]) - --- method Socket::connect_async --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -socketConnectAsync :: - (MonadIO m, SocketK a, Gio.CancellableK b) => - a -- _obj - -> Maybe (b) -- cancellable - -> SocketCallback -- callback - -> m () -- result -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 userData = nullPtr - soup_socket_connect_async _obj' maybeCancellable callback' userData - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - return () - -data SocketConnectAsyncMethodInfo -instance (signature ~ (Maybe (b) -> SocketCallback -> m ()), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketConnectAsyncMethodInfo a signature where - overloadedMethod _ = socketConnectAsync - --- method Socket::connect_sync --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -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 - -data SocketConnectSyncMethodInfo -instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketConnectSyncMethodInfo a signature where - overloadedMethod _ = socketConnectSync - --- method Socket::disconnect --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -socketDisconnect _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - soup_socket_disconnect _obj' - touchManagedPtr _obj - return () - -data SocketDisconnectMethodInfo -instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketDisconnectMethodInfo a signature where - overloadedMethod _ = socketDisconnect - --- method Socket::get_fd --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -socketGetFd _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_get_fd _obj' - touchManagedPtr _obj - return result - -data SocketGetFdMethodInfo -instance (signature ~ (m Int32), MonadIO m, SocketK a) => MethodInfo SocketGetFdMethodInfo a signature where - overloadedMethod _ = socketGetFd - --- method Socket::get_local_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SocketGetLocalAddressMethodInfo -instance (signature ~ (m Address), MonadIO m, SocketK a) => MethodInfo SocketGetLocalAddressMethodInfo a signature where - overloadedMethod _ = socketGetLocalAddress - --- method Socket::get_remote_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SocketGetRemoteAddressMethodInfo -instance (signature ~ (m Address), MonadIO m, SocketK a) => MethodInfo SocketGetRemoteAddressMethodInfo a signature where - overloadedMethod _ = socketGetRemoteAddress - --- method Socket::is_connected --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -socketIsConnected _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_is_connected _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketIsConnectedMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsConnectedMethodInfo a signature where - overloadedMethod _ = socketIsConnected - --- method Socket::is_ssl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -socketIsSsl _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_is_ssl _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketIsSslMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsSslMethodInfo a signature where - overloadedMethod _ = socketIsSsl - --- method Socket::listen --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -socketListen _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_socket_listen _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data SocketListenMethodInfo -instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketListenMethodInfo a signature where - overloadedMethod _ = socketListen - --- method Socket::read --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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) -- result -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 - ) - -data SocketReadMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m (SocketIOStatus,Word64)), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketReadMethodInfo a signature where - overloadedMethod _ = socketRead - --- method Socket::read_until --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TPtr - 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 -- boundaryLen - -> Bool -- gotBoundary - -> Maybe (b) -- cancellable - -> m (SocketIOStatus,Word64) -- result -socketReadUntil _obj buffer boundary boundaryLen gotBoundary cancellable = liftIO $ do - let len = fromIntegral $ B.length buffer - let _obj' = unsafeManagedPtrCastPtr _obj - buffer' <- packByteString buffer - nread <- allocMem :: IO (Ptr Word64) - let gotBoundary' = (fromIntegral . fromEnum) gotBoundary - 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 boundaryLen nread gotBoundary' 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 - ) - -data SocketReadUntilMethodInfo -instance (signature ~ (ByteString -> Ptr () -> Word64 -> Bool -> Maybe (b) -> m (SocketIOStatus,Word64)), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketReadUntilMethodInfo a signature where - overloadedMethod _ = socketReadUntil - --- method Socket::start_proxy_ssl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- sslHost - -> Maybe (b) -- cancellable - -> m Bool -- result -socketStartProxySsl _obj sslHost cancellable = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - sslHost' <- textToCString sslHost - maybeCancellable <- case cancellable of - Nothing -> return nullPtr - Just jCancellable -> do - let jCancellable' = unsafeManagedPtrCastPtr jCancellable - return jCancellable' - result <- soup_socket_start_proxy_ssl _obj' sslHost' maybeCancellable - let result' = (/= 0) result - touchManagedPtr _obj - whenJust cancellable touchManagedPtr - freeMem sslHost' - return result' - -data SocketStartProxySslMethodInfo -instance (signature ~ (T.Text -> Maybe (b) -> m Bool), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketStartProxySslMethodInfo a signature where - overloadedMethod _ = socketStartProxySsl - --- method Socket::start_ssl --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data SocketStartSslMethodInfo -instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketStartSslMethodInfo a signature where - overloadedMethod _ = socketStartSsl - --- method Socket::write --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nwrote", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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) -- result -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 - ) - -data SocketWriteMethodInfo -instance (signature ~ (ByteString -> Maybe (b) -> m (SocketIOStatus,Word64)), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketWriteMethodInfo a signature where - overloadedMethod _ = socketWrite - - 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,49 +0,0 @@ -module GI.Soup.Objects.Socket where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data SocketConnectAsyncMethodInfo -data SocketConnectSyncMethodInfo -data SocketDisconnectMethodInfo -data SocketGetFdMethodInfo -data SocketGetLocalAddressMethodInfo -data SocketGetRemoteAddressMethodInfo -data SocketIsConnectedMethodInfo -data SocketIsSslMethodInfo -data SocketListenMethodInfo -data SocketReadMethodInfo -data SocketReadUntilMethodInfo -data SocketStartProxySslMethodInfo -data SocketStartSslMethodInfo -data SocketWriteMethodInfo 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,977 +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 - WebsocketConnectionCloseMethodInfo , - websocketConnectionClose , - - --- ** websocketConnectionGetCloseCode - WebsocketConnectionGetCloseCodeMethodInfo, - websocketConnectionGetCloseCode , - - --- ** websocketConnectionGetCloseData - WebsocketConnectionGetCloseDataMethodInfo, - websocketConnectionGetCloseData , - - --- ** websocketConnectionGetConnectionType - WebsocketConnectionGetConnectionTypeMethodInfo, - websocketConnectionGetConnectionType , - - --- ** websocketConnectionGetIoStream - WebsocketConnectionGetIoStreamMethodInfo, - websocketConnectionGetIoStream , - - --- ** websocketConnectionGetOrigin - WebsocketConnectionGetOriginMethodInfo , - websocketConnectionGetOrigin , - - --- ** websocketConnectionGetProtocol - WebsocketConnectionGetProtocolMethodInfo, - websocketConnectionGetProtocol , - - --- ** websocketConnectionGetState - WebsocketConnectionGetStateMethodInfo , - websocketConnectionGetState , - - --- ** websocketConnectionGetUri - WebsocketConnectionGetUriMethodInfo , - websocketConnectionGetUri , - - --- ** websocketConnectionNew - websocketConnectionNew , - - --- ** websocketConnectionSendBinary - WebsocketConnectionSendBinaryMethodInfo , - websocketConnectionSendBinary , - - --- ** websocketConnectionSendText - WebsocketConnectionSendTextMethodInfo , - websocketConnectionSendText , - - - - - -- * Properties --- ** ConnectionType - WebsocketConnectionConnectionTypePropertyInfo, - constructWebsocketConnectionConnectionType, - getWebsocketConnectionConnectionType , - websocketConnectionConnectionType , - - --- ** IoStream - WebsocketConnectionIoStreamPropertyInfo , - constructWebsocketConnectionIoStream , - getWebsocketConnectionIoStream , - websocketConnectionIoStream , - - --- ** Origin - WebsocketConnectionOriginPropertyInfo , - constructWebsocketConnectionOrigin , - getWebsocketConnectionOrigin , - websocketConnectionOrigin , - - --- ** Protocol - WebsocketConnectionProtocolPropertyInfo , - constructWebsocketConnectionProtocol , - getWebsocketConnectionProtocol , - websocketConnectionProtocol , - - --- ** State - WebsocketConnectionStatePropertyInfo , - getWebsocketConnectionState , - websocketConnectionState , - - --- ** Uri - WebsocketConnectionUriPropertyInfo , - constructWebsocketConnectionUri , - getWebsocketConnectionUri , - websocketConnectionUri , - - - - - -- * 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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - -type family ResolveWebsocketConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveWebsocketConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo - ResolveWebsocketConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo - ResolveWebsocketConnectionMethod "close" o = WebsocketConnectionCloseMethodInfo - ResolveWebsocketConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo - ResolveWebsocketConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo - ResolveWebsocketConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo - ResolveWebsocketConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo - ResolveWebsocketConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo - ResolveWebsocketConnectionMethod "ref" o = GObject.ObjectRefMethodInfo - ResolveWebsocketConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo - ResolveWebsocketConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo - ResolveWebsocketConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo - ResolveWebsocketConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo - ResolveWebsocketConnectionMethod "sendBinary" o = WebsocketConnectionSendBinaryMethodInfo - ResolveWebsocketConnectionMethod "sendText" o = WebsocketConnectionSendTextMethodInfo - ResolveWebsocketConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo - ResolveWebsocketConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo - ResolveWebsocketConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo - ResolveWebsocketConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo - ResolveWebsocketConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo - ResolveWebsocketConnectionMethod "getCloseCode" o = WebsocketConnectionGetCloseCodeMethodInfo - ResolveWebsocketConnectionMethod "getCloseData" o = WebsocketConnectionGetCloseDataMethodInfo - ResolveWebsocketConnectionMethod "getConnectionType" o = WebsocketConnectionGetConnectionTypeMethodInfo - ResolveWebsocketConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo - ResolveWebsocketConnectionMethod "getIoStream" o = WebsocketConnectionGetIoStreamMethodInfo - ResolveWebsocketConnectionMethod "getOrigin" o = WebsocketConnectionGetOriginMethodInfo - ResolveWebsocketConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo - ResolveWebsocketConnectionMethod "getProtocol" o = WebsocketConnectionGetProtocolMethodInfo - ResolveWebsocketConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo - ResolveWebsocketConnectionMethod "getState" o = WebsocketConnectionGetStateMethodInfo - ResolveWebsocketConnectionMethod "getUri" o = WebsocketConnectionGetUriMethodInfo - ResolveWebsocketConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo - ResolveWebsocketConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo - ResolveWebsocketConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveWebsocketConnectionMethod t WebsocketConnection, MethodInfo info WebsocketConnection p) => IsLabelProxy t (WebsocketConnection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveWebsocketConnectionMethod t WebsocketConnection, MethodInfo info WebsocketConnection p) => IsLabel t (WebsocketConnection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - --- 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] - -- Nullable: (Just False,Nothing) - -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 = "connection-type" - attrGet _ = getWebsocketConnectionConnectionType - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionConnectionType - attrClear _ = undefined - --- VVV Prop "io-stream" - -- Type: TInterface "Gio" "IOStream" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsocketConnectionIoStream :: (MonadIO m, WebsocketConnectionK o) => o -> m Gio.IOStream -getWebsocketConnectionIoStream obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionIoStream" $ getObjectPropertyObject obj "io-stream" Gio.IOStream - -constructWebsocketConnectionIoStream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue) -constructWebsocketConnectionIoStream val = constructObjectPropertyObject "io-stream" (Just val) - -data WebsocketConnectionIoStreamPropertyInfo -instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where - type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStreamK - type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream - type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "io-stream" - attrGet _ = getWebsocketConnectionIoStream - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionIoStream - attrClear _ = undefined - --- VVV Prop "origin" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just True,Nothing) - -getWebsocketConnectionOrigin :: (MonadIO m, WebsocketConnectionK o) => o -> m (Maybe T.Text) -getWebsocketConnectionOrigin obj = liftIO $ getObjectPropertyString obj "origin" - -constructWebsocketConnectionOrigin :: T.Text -> IO ([Char], GValue) -constructWebsocketConnectionOrigin val = constructObjectPropertyString "origin" (Just val) - -data WebsocketConnectionOriginPropertyInfo -instance AttrInfo WebsocketConnectionOriginPropertyInfo where - type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionOriginPropertyInfo = (Maybe T.Text) - type AttrLabel WebsocketConnectionOriginPropertyInfo = "origin" - attrGet _ = getWebsocketConnectionOrigin - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionOrigin - attrClear _ = undefined - --- VVV Prop "protocol" - -- Type: TBasicType TUTF8 - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just True,Nothing) - -getWebsocketConnectionProtocol :: (MonadIO m, WebsocketConnectionK o) => o -> m (Maybe T.Text) -getWebsocketConnectionProtocol obj = liftIO $ getObjectPropertyString obj "protocol" - -constructWebsocketConnectionProtocol :: T.Text -> IO ([Char], GValue) -constructWebsocketConnectionProtocol val = constructObjectPropertyString "protocol" (Just val) - -data WebsocketConnectionProtocolPropertyInfo -instance AttrInfo WebsocketConnectionProtocolPropertyInfo where - type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text - type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionProtocolPropertyInfo = (Maybe T.Text) - type AttrLabel WebsocketConnectionProtocolPropertyInfo = "protocol" - attrGet _ = getWebsocketConnectionProtocol - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionProtocol - attrClear _ = undefined - --- VVV Prop "state" - -- Type: TInterface "Soup" "WebsocketState" - -- Flags: [PropertyReadable] - -- Nullable: (Just False,Nothing) - -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 = "state" - attrGet _ = getWebsocketConnectionState - attrSet _ = undefined - attrConstruct _ = undefined - attrClear _ = undefined - --- VVV Prop "uri" - -- Type: TInterface "Soup" "URI" - -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] - -- Nullable: (Just False,Nothing) - -getWebsocketConnectionUri :: (MonadIO m, WebsocketConnectionK o) => o -> m URI -getWebsocketConnectionUri obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionUri" $ getObjectPropertyBoxed obj "uri" URI - -constructWebsocketConnectionUri :: URI -> IO ([Char], GValue) -constructWebsocketConnectionUri val = constructObjectPropertyBoxed "uri" (Just val) - -data WebsocketConnectionUriPropertyInfo -instance AttrInfo WebsocketConnectionUriPropertyInfo where - type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) URI - type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = WebsocketConnectionK - type AttrGetType WebsocketConnectionUriPropertyInfo = URI - type AttrLabel WebsocketConnectionUriPropertyInfo = "uri" - attrGet _ = getWebsocketConnectionUri - attrSet _ = undefined - attrConstruct _ = constructWebsocketConnectionUri - attrClear _ = undefined - -type instance AttributeList WebsocketConnection = WebsocketConnectionAttributeList -type WebsocketConnectionAttributeList = ('[ '("connectionType", WebsocketConnectionConnectionTypePropertyInfo), '("ioStream", WebsocketConnectionIoStreamPropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)] :: [(Symbol, *)]) - -websocketConnectionConnectionType :: AttrLabelProxy "connectionType" -websocketConnectionConnectionType = AttrLabelProxy - -websocketConnectionIoStream :: AttrLabelProxy "ioStream" -websocketConnectionIoStream = AttrLabelProxy - -websocketConnectionOrigin :: AttrLabelProxy "origin" -websocketConnectionOrigin = AttrLabelProxy - -websocketConnectionProtocol :: AttrLabelProxy "protocol" -websocketConnectionProtocol = AttrLabelProxy - -websocketConnectionState :: AttrLabelProxy "state" -websocketConnectionState = AttrLabelProxy - -websocketConnectionUri :: AttrLabelProxy "uri" -websocketConnectionUri = AttrLabelProxy - -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)] :: [(Symbol, *)]) - --- method WebsocketConnection::new --- method type : Constructor --- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data WebsocketConnectionCloseMethodInfo -instance (signature ~ (Word16 -> Maybe (T.Text) -> m ()), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionCloseMethodInfo a signature where - overloadedMethod _ = websocketConnectionClose - --- method WebsocketConnection::get_close_code --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -websocketConnectionGetCloseCode _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_close_code _obj' - touchManagedPtr _obj - return result - -data WebsocketConnectionGetCloseCodeMethodInfo -instance (signature ~ (m Word16), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetCloseCodeMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetCloseCode - --- method WebsocketConnection::get_close_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebsocketConnectionGetCloseDataMethodInfo -instance (signature ~ (m T.Text), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetCloseDataMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetCloseData - --- method WebsocketConnection::get_connection_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebsocketConnectionGetConnectionTypeMethodInfo -instance (signature ~ (m WebsocketConnectionType), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetConnectionTypeMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetConnectionType - --- method WebsocketConnection::get_io_stream --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebsocketConnectionGetIoStreamMethodInfo -instance (signature ~ (m Gio.IOStream), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetIoStreamMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetIoStream - --- method WebsocketConnection::get_origin --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -websocketConnectionGetOrigin _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_origin _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WebsocketConnectionGetOriginMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetOriginMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetOrigin - --- method WebsocketConnection::get_protocol --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -websocketConnectionGetProtocol _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_protocol _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data WebsocketConnectionGetProtocolMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetProtocolMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetProtocol - --- method WebsocketConnection::get_state --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -websocketConnectionGetState _obj = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - result <- soup_websocket_connection_get_state _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data WebsocketConnectionGetStateMethodInfo -instance (signature ~ (m WebsocketState), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetStateMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetState - --- method WebsocketConnection::get_uri --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data WebsocketConnectionGetUriMethodInfo -instance (signature ~ (m URI), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetUriMethodInfo a signature where - overloadedMethod _ = websocketConnectionGetUri - --- method WebsocketConnection::send_binary --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- 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 () -- result -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 () - -data WebsocketConnectionSendBinaryMethodInfo -instance (signature ~ (ByteString -> m ()), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionSendBinaryMethodInfo a signature where - overloadedMethod _ = websocketConnectionSendBinary - --- method WebsocketConnection::send_text --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -websocketConnectionSendText _obj text = liftIO $ do - let _obj' = unsafeManagedPtrCastPtr _obj - text' <- textToCString text - soup_websocket_connection_send_text _obj' text' - touchManagedPtr _obj - freeMem text' - return () - -data WebsocketConnectionSendTextMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionSendTextMethodInfo a signature where - overloadedMethod _ = websocketConnectionSendText - - 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,34 +0,0 @@ -module GI.Soup.Objects.WebsocketConnection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data WebsocketConnectionCloseMethodInfo -data WebsocketConnectionGetCloseCodeMethodInfo -data WebsocketConnectionGetCloseDataMethodInfo -data WebsocketConnectionGetConnectionTypeMethodInfo -data WebsocketConnectionGetIoStreamMethodInfo -data WebsocketConnectionGetOriginMethodInfo -data WebsocketConnectionGetProtocolMethodInfo -data WebsocketConnectionGetStateMethodInfo -data WebsocketConnectionGetUriMethodInfo -data WebsocketConnectionSendBinaryMethodInfo -data WebsocketConnectionSendTextMethodInfo diff --git a/GI/Soup/Structs.hs b/GI/Soup/Structs.hs deleted file mode 100644 --- a/GI/Soup/Structs.hs +++ /dev/null @@ -1,53 +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 , - module GI.Soup.Structs.XMLRPCParams , - - - ) 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 GI.Soup.Structs.XMLRPCParams - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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,435 +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(..) , - newZeroBuffer , - noBuffer , - - - -- * Methods --- ** bufferCopy - BufferCopyMethodInfo , - bufferCopy , - - --- ** bufferFree - BufferFreeMethodInfo , - bufferFree , - - --- ** bufferGetAsBytes - BufferGetAsBytesMethodInfo , - bufferGetAsBytes , - - --- ** bufferGetData - BufferGetDataMethodInfo , - bufferGetData , - - --- ** bufferGetOwner - BufferGetOwnerMethodInfo , - bufferGetOwner , - - --- ** bufferNew - bufferNew , - - --- ** bufferNewSubbuffer - BufferNewSubbufferMethodInfo , - bufferNewSubbuffer , - - --- ** bufferNewWithOwner - bufferNewWithOwner , - - - - - -- * Properties --- ** Data - bufferClearData , - bufferData , - bufferReadData , - bufferWriteData , - - --- ** Length - bufferLength , - bufferReadLength , - bufferWriteLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- | Construct a `Buffer` struct initialized to zero. -newZeroBuffer :: MonadIO m => m Buffer -newZeroBuffer = liftIO $ callocBoxedBytes 16 >>= wrapBoxed Buffer - -instance tag ~ 'AttrSet => Constructible Buffer tag where - new _ attrs = do - o <- newZeroBuffer - GI.Attributes.set o attrs - return o - - -noBuffer :: Maybe Buffer -noBuffer = Nothing - -bufferReadData :: MonadIO m => Buffer -> m (Ptr ()) -bufferReadData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO (Ptr ()) - return val - -bufferWriteData :: MonadIO m => Buffer -> Ptr () -> m () -bufferWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Ptr ()) - -bufferClearData :: MonadIO m => Buffer -> m () -bufferClearData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: Ptr ()) - -data BufferDataFieldInfo -instance AttrInfo BufferDataFieldInfo where - type AttrAllowedOps BufferDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint BufferDataFieldInfo = (~) (Ptr ()) - type AttrBaseTypeConstraint BufferDataFieldInfo = (~) Buffer - type AttrGetType BufferDataFieldInfo = Ptr () - type AttrLabel BufferDataFieldInfo = "data" - attrGet _ = bufferReadData - attrSet _ = bufferWriteData - attrConstruct = undefined - attrClear _ = bufferClearData - -bufferData :: AttrLabelProxy "data" -bufferData = AttrLabelProxy - - -bufferReadLength :: MonadIO m => Buffer -> m Word64 -bufferReadLength s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Word64 - return val - -bufferWriteLength :: MonadIO m => Buffer -> Word64 -> m () -bufferWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Word64) - -data BufferLengthFieldInfo -instance AttrInfo BufferLengthFieldInfo where - type AttrAllowedOps BufferLengthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint BufferLengthFieldInfo = (~) Word64 - type AttrBaseTypeConstraint BufferLengthFieldInfo = (~) Buffer - type AttrGetType BufferLengthFieldInfo = Word64 - type AttrLabel BufferLengthFieldInfo = "length" - attrGet _ = bufferReadLength - attrSet _ = bufferWriteLength - attrConstruct = undefined - attrClear _ = undefined - -bufferLength :: AttrLabelProxy "length" -bufferLength = AttrLabelProxy - - - -type instance AttributeList Buffer = BufferAttributeList -type BufferAttributeList = ('[ '("data", BufferDataFieldInfo), '("length", BufferLengthFieldInfo)] :: [(Symbol, *)]) - --- method Buffer::new --- method type : Constructor --- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 -- result -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 {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Just (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 TPtr - FunPtr GLib.DestroyNotifyC -> -- owner_dnotify : TInterface "GLib" "DestroyNotify" - IO (Ptr Buffer) - - -bufferNewWithOwner :: - (MonadIO m) => - ByteString -- data_ - -> Ptr () -- owner - -> Maybe (GLib.DestroyNotify) -- ownerDnotify - -> m Buffer -- result -bufferNewWithOwner data_ owner ownerDnotify = liftIO $ do - let length_ = fromIntegral $ B.length data_ - data_' <- packByteString data_ - ptrownerDnotify <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC)) - maybeOwnerDnotify <- case ownerDnotify of - Nothing -> return (castPtrToFunPtr nullPtr) - Just jOwnerDnotify -> do - jOwnerDnotify' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrownerDnotify) jOwnerDnotify) - poke ptrownerDnotify jOwnerDnotify' - return jOwnerDnotify' - result <- soup_buffer_new_with_owner data_' length_ owner maybeOwnerDnotify - checkUnexpectedReturnNULL "soup_buffer_new_with_owner" result - result' <- (wrapBoxed Buffer) result - freeMem data_' - return result' - --- method Buffer::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data BufferCopyMethodInfo -instance (signature ~ (m Buffer), MonadIO m) => MethodInfo BufferCopyMethodInfo Buffer signature where - overloadedMethod _ = bufferCopy - --- method Buffer::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -bufferFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_buffer_free _obj' - touchManagedPtr _obj - return () - -data BufferFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo BufferFreeMethodInfo Buffer signature where - overloadedMethod _ = bufferFree - --- method Buffer::get_as_bytes --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data BufferGetAsBytesMethodInfo -instance (signature ~ (m GLib.Bytes), MonadIO m) => MethodInfo BufferGetAsBytesMethodInfo Buffer signature where - overloadedMethod _ = bufferGetAsBytes - --- method Buffer::get_data --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Nothing --- 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) -- result -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_'' - -data BufferGetDataMethodInfo -instance (signature ~ (m (ByteString)), MonadIO m) => MethodInfo BufferGetDataMethodInfo Buffer signature where - overloadedMethod _ = bufferGetData - --- method Buffer::get_owner --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TPtr) --- throws : False --- Skip return : False - -foreign import ccall "soup_buffer_get_owner" soup_buffer_get_owner :: - Ptr Buffer -> -- _obj : TInterface "Soup" "Buffer" - IO (Ptr ()) - - -bufferGetOwner :: - (MonadIO m) => - Buffer -- _obj - -> m (Ptr ()) -- result -bufferGetOwner _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_buffer_get_owner _obj' - touchManagedPtr _obj - return result - -data BufferGetOwnerMethodInfo -instance (signature ~ (m (Ptr ())), MonadIO m) => MethodInfo BufferGetOwnerMethodInfo Buffer signature where - overloadedMethod _ = bufferGetOwner - --- method Buffer::new_subbuffer --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data BufferNewSubbufferMethodInfo -instance (signature ~ (Word64 -> Word64 -> m Buffer), MonadIO m) => MethodInfo BufferNewSubbufferMethodInfo Buffer signature where - overloadedMethod _ = bufferNewSubbuffer - -type family ResolveBufferMethod (t :: Symbol) (o :: *) :: * where - ResolveBufferMethod "copy" o = BufferCopyMethodInfo - ResolveBufferMethod "free" o = BufferFreeMethodInfo - ResolveBufferMethod "newSubbuffer" o = BufferNewSubbufferMethodInfo - ResolveBufferMethod "getAsBytes" o = BufferGetAsBytesMethodInfo - ResolveBufferMethod "getData" o = BufferGetDataMethodInfo - ResolveBufferMethod "getOwner" o = BufferGetOwnerMethodInfo - ResolveBufferMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveBufferMethod t Buffer, MethodInfo info Buffer p) => IsLabelProxy t (Buffer -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveBufferMethod t Buffer, MethodInfo info Buffer p) => IsLabel t (Buffer -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,17 +0,0 @@ -module GI.Soup.Structs.Buffer where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data BufferCopyMethodInfo -data BufferFreeMethodInfo -data BufferGetAsBytesMethodInfo -data BufferGetDataMethodInfo -data BufferGetOwnerMethodInfo -data BufferNewSubbufferMethodInfo 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,392 +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 - ClientContextGetAddressMethodInfo , - clientContextGetAddress , - - --- ** clientContextGetAuthDomain - ClientContextGetAuthDomainMethodInfo , - clientContextGetAuthDomain , - - --- ** clientContextGetAuthUser - ClientContextGetAuthUserMethodInfo , - clientContextGetAuthUser , - - --- ** clientContextGetGsocket - ClientContextGetGsocketMethodInfo , - clientContextGetGsocket , - - --- ** clientContextGetHost - ClientContextGetHostMethodInfo , - clientContextGetHost , - - --- ** clientContextGetLocalAddress - ClientContextGetLocalAddressMethodInfo , - clientContextGetLocalAddress , - - --- ** clientContextGetRemoteAddress - ClientContextGetRemoteAddressMethodInfo , - clientContextGetRemoteAddress , - - --- ** clientContextGetSocket - ClientContextGetSocketMethodInfo , - clientContextGetSocket , - - --- ** clientContextStealConnection - ClientContextStealConnectionMethodInfo , - clientContextStealConnection , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - -type instance AttributeList ClientContext = ClientContextAttributeList -type ClientContextAttributeList = ('[ ] :: [(Symbol, *)]) - --- method ClientContext::get_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Address) -- result -clientContextGetAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_address _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Address) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClientContextGetAddressMethodInfo -instance (signature ~ (m (Maybe Address)), MonadIO m) => MethodInfo ClientContextGetAddressMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetAddress - --- method ClientContext::get_auth_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe AuthDomain) -- result -clientContextGetAuthDomain _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_auth_domain _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject AuthDomain) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClientContextGetAuthDomainMethodInfo -instance (signature ~ (m (Maybe AuthDomain)), MonadIO m) => MethodInfo ClientContextGetAuthDomainMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetAuthDomain - --- method ClientContext::get_auth_user --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -clientContextGetAuthUser _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_auth_user _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClientContextGetAuthUserMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m) => MethodInfo ClientContextGetAuthUserMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetAuthUser - --- method ClientContext::get_gsocket --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Gio.Socket) -- result -clientContextGetGsocket _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_gsocket _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Gio.Socket) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClientContextGetGsocketMethodInfo -instance (signature ~ (m (Maybe Gio.Socket)), MonadIO m) => MethodInfo ClientContextGetGsocketMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetGsocket - --- method ClientContext::get_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -clientContextGetHost _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_host _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClientContextGetHostMethodInfo -instance (signature ~ (m (Maybe T.Text)), MonadIO m) => MethodInfo ClientContextGetHostMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetHost - --- method ClientContext::get_local_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Gio.SocketAddress) -- result -clientContextGetLocalAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_local_address _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Gio.SocketAddress) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClientContextGetLocalAddressMethodInfo -instance (signature ~ (m (Maybe Gio.SocketAddress)), MonadIO m) => MethodInfo ClientContextGetLocalAddressMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetLocalAddress - --- method ClientContext::get_remote_address --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Gio.SocketAddress) -- result -clientContextGetRemoteAddress _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_client_context_get_remote_address _obj' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (newObject Gio.SocketAddress) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data ClientContextGetRemoteAddressMethodInfo -instance (signature ~ (m (Maybe Gio.SocketAddress)), MonadIO m) => MethodInfo ClientContextGetRemoteAddressMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetRemoteAddress - --- method ClientContext::get_socket --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ClientContextGetSocketMethodInfo -instance (signature ~ (m Socket), MonadIO m) => MethodInfo ClientContextGetSocketMethodInfo ClientContext signature where - overloadedMethod _ = clientContextGetSocket - --- method ClientContext::steal_connection --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data ClientContextStealConnectionMethodInfo -instance (signature ~ (m Gio.IOStream), MonadIO m) => MethodInfo ClientContextStealConnectionMethodInfo ClientContext signature where - overloadedMethod _ = clientContextStealConnection - -type family ResolveClientContextMethod (t :: Symbol) (o :: *) :: * where - ResolveClientContextMethod "stealConnection" o = ClientContextStealConnectionMethodInfo - ResolveClientContextMethod "getAddress" o = ClientContextGetAddressMethodInfo - ResolveClientContextMethod "getAuthDomain" o = ClientContextGetAuthDomainMethodInfo - ResolveClientContextMethod "getAuthUser" o = ClientContextGetAuthUserMethodInfo - ResolveClientContextMethod "getGsocket" o = ClientContextGetGsocketMethodInfo - ResolveClientContextMethod "getHost" o = ClientContextGetHostMethodInfo - ResolveClientContextMethod "getLocalAddress" o = ClientContextGetLocalAddressMethodInfo - ResolveClientContextMethod "getRemoteAddress" o = ClientContextGetRemoteAddressMethodInfo - ResolveClientContextMethod "getSocket" o = ClientContextGetSocketMethodInfo - ResolveClientContextMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveClientContextMethod t ClientContext, MethodInfo info ClientContext p) => IsLabelProxy t (ClientContext -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveClientContextMethod t ClientContext, MethodInfo info ClientContext p) => IsLabel t (ClientContext -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,20 +0,0 @@ -module GI.Soup.Structs.ClientContext where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data ClientContextGetAddressMethodInfo -data ClientContextGetAuthDomainMethodInfo -data ClientContextGetAuthUserMethodInfo -data ClientContextGetGsocketMethodInfo -data ClientContextGetHostMethodInfo -data ClientContextGetLocalAddressMethodInfo -data ClientContextGetRemoteAddressMethodInfo -data ClientContextGetSocketMethodInfo -data ClientContextStealConnectionMethodInfo 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,54 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr Connection where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noConnection :: Maybe Connection -noConnection = Nothing - - -type instance AttributeList Connection = ConnectionAttributeList -type ConnectionAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveConnectionMethod (t :: Symbol) (o :: *) :: * where - ResolveConnectionMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveConnectionMethod t Connection, MethodInfo info Connection p) => IsLabelProxy t (Connection -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveConnectionMethod t Connection, MethodInfo info Connection p) => IsLabel t (Connection -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.Soup.Structs.Connection where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Connection = Connection (ForeignPtr Connection) -instance WrappedPtr Connection where 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,1220 +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(..) , - newZeroCookie , - noCookie , - - - -- * Methods --- ** cookieAppliesToUri - CookieAppliesToUriMethodInfo , - cookieAppliesToUri , - - --- ** cookieCopy - CookieCopyMethodInfo , - cookieCopy , - - --- ** cookieDomainMatches - CookieDomainMatchesMethodInfo , - cookieDomainMatches , - - --- ** cookieEqual - CookieEqualMethodInfo , - cookieEqual , - - --- ** cookieFree - CookieFreeMethodInfo , - cookieFree , - - --- ** cookieGetDomain - CookieGetDomainMethodInfo , - cookieGetDomain , - - --- ** cookieGetExpires - CookieGetExpiresMethodInfo , - cookieGetExpires , - - --- ** cookieGetHttpOnly - CookieGetHttpOnlyMethodInfo , - cookieGetHttpOnly , - - --- ** cookieGetName - CookieGetNameMethodInfo , - cookieGetName , - - --- ** cookieGetPath - CookieGetPathMethodInfo , - cookieGetPath , - - --- ** cookieGetSecure - CookieGetSecureMethodInfo , - cookieGetSecure , - - --- ** cookieGetValue - CookieGetValueMethodInfo , - cookieGetValue , - - --- ** cookieNew - cookieNew , - - --- ** cookieParse - cookieParse , - - --- ** cookieSetDomain - CookieSetDomainMethodInfo , - cookieSetDomain , - - --- ** cookieSetExpires - CookieSetExpiresMethodInfo , - cookieSetExpires , - - --- ** cookieSetHttpOnly - CookieSetHttpOnlyMethodInfo , - cookieSetHttpOnly , - - --- ** cookieSetMaxAge - CookieSetMaxAgeMethodInfo , - cookieSetMaxAge , - - --- ** cookieSetName - CookieSetNameMethodInfo , - cookieSetName , - - --- ** cookieSetPath - CookieSetPathMethodInfo , - cookieSetPath , - - --- ** cookieSetSecure - CookieSetSecureMethodInfo , - cookieSetSecure , - - --- ** cookieSetValue - CookieSetValueMethodInfo , - cookieSetValue , - - --- ** cookieToCookieHeader - CookieToCookieHeaderMethodInfo , - cookieToCookieHeader , - - --- ** cookieToSetCookieHeader - CookieToSetCookieHeaderMethodInfo , - cookieToSetCookieHeader , - - - - - -- * Properties --- ** Domain - cookieClearDomain , - cookieDomain , - cookieReadDomain , - cookieWriteDomain , - - --- ** Expires - cookieClearExpires , - cookieExpires , - cookieReadExpires , - cookieWriteExpires , - - --- ** HttpOnly - cookieHttpOnly , - cookieReadHttpOnly , - cookieWriteHttpOnly , - - --- ** Name - cookieClearName , - cookieName , - cookieReadName , - cookieWriteName , - - --- ** Path - cookieClearPath , - cookiePath , - cookieReadPath , - cookieWritePath , - - --- ** Secure - cookieReadSecure , - cookieSecure , - cookieWriteSecure , - - --- ** Value - cookieClearValue , - cookieReadValue , - cookieValue , - cookieWriteValue , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- | Construct a `Cookie` struct initialized to zero. -newZeroCookie :: MonadIO m => m Cookie -newZeroCookie = liftIO $ callocBoxedBytes 48 >>= wrapBoxed Cookie - -instance tag ~ 'AttrSet => Constructible Cookie tag where - new _ attrs = do - o <- newZeroCookie - GI.Attributes.set o attrs - return o - - -noCookie :: Maybe Cookie -noCookie = Nothing - -cookieReadName :: MonadIO m => Cookie -> m (Maybe T.Text) -cookieReadName s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -cookieWriteName :: MonadIO m => Cookie -> CString -> m () -cookieWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -cookieClearName :: MonadIO m => Cookie -> m () -cookieClearName s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data CookieNameFieldInfo -instance AttrInfo CookieNameFieldInfo where - type AttrAllowedOps CookieNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CookieNameFieldInfo = (~) CString - type AttrBaseTypeConstraint CookieNameFieldInfo = (~) Cookie - type AttrGetType CookieNameFieldInfo = Maybe T.Text - type AttrLabel CookieNameFieldInfo = "name" - attrGet _ = cookieReadName - attrSet _ = cookieWriteName - attrConstruct = undefined - attrClear _ = cookieClearName - -cookieName :: AttrLabelProxy "name" -cookieName = AttrLabelProxy - - -cookieReadValue :: MonadIO m => Cookie -> m (Maybe T.Text) -cookieReadValue s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -cookieWriteValue :: MonadIO m => Cookie -> CString -> m () -cookieWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -cookieClearValue :: MonadIO m => Cookie -> m () -cookieClearValue s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data CookieValueFieldInfo -instance AttrInfo CookieValueFieldInfo where - type AttrAllowedOps CookieValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CookieValueFieldInfo = (~) CString - type AttrBaseTypeConstraint CookieValueFieldInfo = (~) Cookie - type AttrGetType CookieValueFieldInfo = Maybe T.Text - type AttrLabel CookieValueFieldInfo = "value" - attrGet _ = cookieReadValue - attrSet _ = cookieWriteValue - attrConstruct = undefined - attrClear _ = cookieClearValue - -cookieValue :: AttrLabelProxy "value" -cookieValue = AttrLabelProxy - - -cookieReadDomain :: MonadIO m => Cookie -> m (Maybe T.Text) -cookieReadDomain s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -cookieWriteDomain :: MonadIO m => Cookie -> CString -> m () -cookieWriteDomain s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -cookieClearDomain :: MonadIO m => Cookie -> m () -cookieClearDomain s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data CookieDomainFieldInfo -instance AttrInfo CookieDomainFieldInfo where - type AttrAllowedOps CookieDomainFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CookieDomainFieldInfo = (~) CString - type AttrBaseTypeConstraint CookieDomainFieldInfo = (~) Cookie - type AttrGetType CookieDomainFieldInfo = Maybe T.Text - type AttrLabel CookieDomainFieldInfo = "domain" - attrGet _ = cookieReadDomain - attrSet _ = cookieWriteDomain - attrConstruct = undefined - attrClear _ = cookieClearDomain - -cookieDomain :: AttrLabelProxy "domain" -cookieDomain = AttrLabelProxy - - -cookieReadPath :: MonadIO m => Cookie -> m (Maybe T.Text) -cookieReadPath s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -cookieWritePath :: MonadIO m => Cookie -> CString -> m () -cookieWritePath s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -cookieClearPath :: MonadIO m => Cookie -> m () -cookieClearPath s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data CookiePathFieldInfo -instance AttrInfo CookiePathFieldInfo where - type AttrAllowedOps CookiePathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CookiePathFieldInfo = (~) CString - type AttrBaseTypeConstraint CookiePathFieldInfo = (~) Cookie - type AttrGetType CookiePathFieldInfo = Maybe T.Text - type AttrLabel CookiePathFieldInfo = "path" - attrGet _ = cookieReadPath - attrSet _ = cookieWritePath - attrConstruct = undefined - attrClear _ = cookieClearPath - -cookiePath :: AttrLabelProxy "path" -cookiePath = AttrLabelProxy - - -cookieReadExpires :: MonadIO m => Cookie -> m (Maybe Date) -cookieReadExpires s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO (Ptr Date) - result <- convertIfNonNull val $ \val' -> do - val'' <- (newBoxed Date) val' - return val'' - return result - -cookieWriteExpires :: MonadIO m => Cookie -> Ptr Date -> m () -cookieWriteExpires s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Ptr Date) - -cookieClearExpires :: MonadIO m => Cookie -> m () -cookieClearExpires s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (nullPtr :: Ptr Date) - -data CookieExpiresFieldInfo -instance AttrInfo CookieExpiresFieldInfo where - type AttrAllowedOps CookieExpiresFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint CookieExpiresFieldInfo = (~) (Ptr Date) - type AttrBaseTypeConstraint CookieExpiresFieldInfo = (~) Cookie - type AttrGetType CookieExpiresFieldInfo = Maybe Date - type AttrLabel CookieExpiresFieldInfo = "expires" - attrGet _ = cookieReadExpires - attrSet _ = cookieWriteExpires - attrConstruct = undefined - attrClear _ = cookieClearExpires - -cookieExpires :: AttrLabelProxy "expires" -cookieExpires = AttrLabelProxy - - -cookieReadSecure :: MonadIO m => Cookie -> m Bool -cookieReadSecure s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CInt - let val' = (/= 0) val - return val' - -cookieWriteSecure :: MonadIO m => Cookie -> Bool -> m () -cookieWriteSecure s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 40) (val' :: CInt) - -data CookieSecureFieldInfo -instance AttrInfo CookieSecureFieldInfo where - type AttrAllowedOps CookieSecureFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint CookieSecureFieldInfo = (~) Bool - type AttrBaseTypeConstraint CookieSecureFieldInfo = (~) Cookie - type AttrGetType CookieSecureFieldInfo = Bool - type AttrLabel CookieSecureFieldInfo = "secure" - attrGet _ = cookieReadSecure - attrSet _ = cookieWriteSecure - attrConstruct = undefined - attrClear _ = undefined - -cookieSecure :: AttrLabelProxy "secure" -cookieSecure = AttrLabelProxy - - -cookieReadHttpOnly :: MonadIO m => Cookie -> m Bool -cookieReadHttpOnly s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 44) :: IO CInt - let val' = (/= 0) val - return val' - -cookieWriteHttpOnly :: MonadIO m => Cookie -> Bool -> m () -cookieWriteHttpOnly s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 44) (val' :: CInt) - -data CookieHttpOnlyFieldInfo -instance AttrInfo CookieHttpOnlyFieldInfo where - type AttrAllowedOps CookieHttpOnlyFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint CookieHttpOnlyFieldInfo = (~) Bool - type AttrBaseTypeConstraint CookieHttpOnlyFieldInfo = (~) Cookie - type AttrGetType CookieHttpOnlyFieldInfo = Bool - type AttrLabel CookieHttpOnlyFieldInfo = "http_only" - attrGet _ = cookieReadHttpOnly - attrSet _ = cookieWriteHttpOnly - attrConstruct = undefined - attrClear _ = undefined - -cookieHttpOnly :: AttrLabelProxy "httpOnly" -cookieHttpOnly = AttrLabelProxy - - - -type instance AttributeList Cookie = CookieAttributeList -type CookieAttributeList = ('[ '("name", CookieNameFieldInfo), '("value", CookieValueFieldInfo), '("domain", CookieDomainFieldInfo), '("path", CookiePathFieldInfo), '("expires", CookieExpiresFieldInfo), '("secure", CookieSecureFieldInfo), '("httpOnly", CookieHttpOnlyFieldInfo)] :: [(Symbol, *)]) - --- method Cookie::new --- method type : Constructor --- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_age", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - IO (Ptr Cookie) - - -cookieNew :: - (MonadIO m) => - T.Text -- name - -> T.Text -- value - -> T.Text -- domain - -> T.Text -- path - -> Int32 -- maxAge - -> m Cookie -- result -cookieNew name value domain path maxAge = liftIO $ do - name' <- textToCString name - value' <- textToCString value - domain' <- textToCString domain - path' <- textToCString path - result <- soup_cookie_new name' value' domain' path' maxAge - 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 {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieAppliesToUriMethodInfo -instance (signature ~ (URI -> m Bool), MonadIO m) => MethodInfo CookieAppliesToUriMethodInfo Cookie signature where - overloadedMethod _ = cookieAppliesToUri - --- method Cookie::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieCopyMethodInfo -instance (signature ~ (m Cookie), MonadIO m) => MethodInfo CookieCopyMethodInfo Cookie signature where - overloadedMethod _ = cookieCopy - --- method Cookie::domain_matches --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieDomainMatchesMethodInfo -instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo CookieDomainMatchesMethodInfo Cookie signature where - overloadedMethod _ = cookieDomainMatches - --- method Cookie::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieEqualMethodInfo -instance (signature ~ (Cookie -> m Bool), MonadIO m) => MethodInfo CookieEqualMethodInfo Cookie signature where - overloadedMethod _ = cookieEqual - --- method Cookie::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_cookie_free _obj' - touchManagedPtr _obj - return () - -data CookieFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo CookieFreeMethodInfo Cookie signature where - overloadedMethod _ = cookieFree - --- method Cookie::get_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieGetDomainMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetDomainMethodInfo Cookie signature where - overloadedMethod _ = cookieGetDomain - --- method Cookie::get_expires --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieGetExpiresMethodInfo -instance (signature ~ (m Date), MonadIO m) => MethodInfo CookieGetExpiresMethodInfo Cookie signature where - overloadedMethod _ = cookieGetExpires - --- method Cookie::get_http_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -cookieGetHttpOnly _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_http_only _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CookieGetHttpOnlyMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo CookieGetHttpOnlyMethodInfo Cookie signature where - overloadedMethod _ = cookieGetHttpOnly - --- method Cookie::get_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieGetNameMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetNameMethodInfo Cookie signature where - overloadedMethod _ = cookieGetName - --- method Cookie::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieGetPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetPathMethodInfo Cookie signature where - overloadedMethod _ = cookieGetPath - --- method Cookie::get_secure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -cookieGetSecure _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_cookie_get_secure _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data CookieGetSecureMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo CookieGetSecureMethodInfo Cookie signature where - overloadedMethod _ = cookieGetSecure - --- method Cookie::get_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieGetValueMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetValueMethodInfo Cookie signature where - overloadedMethod _ = cookieGetValue - --- method Cookie::set_domain --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieSetDomain _obj domain = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - domain' <- textToCString domain - soup_cookie_set_domain _obj' domain' - touchManagedPtr _obj - freeMem domain' - return () - -data CookieSetDomainMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetDomainMethodInfo Cookie signature where - overloadedMethod _ = cookieSetDomain - --- method Cookie::set_expires --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieSetExpires _obj expires = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let expires' = unsafeManagedPtrGetPtr expires - soup_cookie_set_expires _obj' expires' - touchManagedPtr _obj - touchManagedPtr expires - return () - -data CookieSetExpiresMethodInfo -instance (signature ~ (Date -> m ()), MonadIO m) => MethodInfo CookieSetExpiresMethodInfo Cookie signature where - overloadedMethod _ = cookieSetExpires - --- method Cookie::set_http_only --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- httpOnly - -> m () -- result -cookieSetHttpOnly _obj httpOnly = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let httpOnly' = (fromIntegral . fromEnum) httpOnly - soup_cookie_set_http_only _obj' httpOnly' - touchManagedPtr _obj - return () - -data CookieSetHttpOnlyMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo CookieSetHttpOnlyMethodInfo Cookie signature where - overloadedMethod _ = cookieSetHttpOnly - --- method Cookie::set_max_age --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_age", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - IO () - - -cookieSetMaxAge :: - (MonadIO m) => - Cookie -- _obj - -> Int32 -- maxAge - -> m () -- result -cookieSetMaxAge _obj maxAge = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_cookie_set_max_age _obj' maxAge - touchManagedPtr _obj - return () - -data CookieSetMaxAgeMethodInfo -instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo CookieSetMaxAgeMethodInfo Cookie signature where - overloadedMethod _ = cookieSetMaxAge - --- method Cookie::set_name --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieSetName _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - soup_cookie_set_name _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data CookieSetNameMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetNameMethodInfo Cookie signature where - overloadedMethod _ = cookieSetName - --- method Cookie::set_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieSetPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - soup_cookie_set_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data CookieSetPathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetPathMethodInfo Cookie signature where - overloadedMethod _ = cookieSetPath - --- method Cookie::set_secure --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieSetSecure _obj secure = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let secure' = (fromIntegral . fromEnum) secure - soup_cookie_set_secure _obj' secure' - touchManagedPtr _obj - return () - -data CookieSetSecureMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo CookieSetSecureMethodInfo Cookie signature where - overloadedMethod _ = cookieSetSecure - --- method Cookie::set_value --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -cookieSetValue _obj value = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - value' <- textToCString value - soup_cookie_set_value _obj' value' - touchManagedPtr _obj - freeMem value' - return () - -data CookieSetValueMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetValueMethodInfo Cookie signature where - overloadedMethod _ = cookieSetValue - --- method Cookie::to_cookie_header --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieToCookieHeaderMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieToCookieHeaderMethodInfo Cookie signature where - overloadedMethod _ = cookieToCookieHeader - --- method Cookie::to_set_cookie_header --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data CookieToSetCookieHeaderMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieToSetCookieHeaderMethodInfo Cookie signature where - overloadedMethod _ = cookieToSetCookieHeader - --- method Cookie::parse --- method type : MemberFunction --- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Cookie) -- result -cookieParse header origin = liftIO $ do - header' <- textToCString header - let origin' = unsafeManagedPtrGetPtr origin - result <- soup_cookie_parse header' origin' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Cookie) result' - return result'' - touchManagedPtr origin - freeMem header' - return maybeResult - -type family ResolveCookieMethod (t :: Symbol) (o :: *) :: * where - ResolveCookieMethod "appliesToUri" o = CookieAppliesToUriMethodInfo - ResolveCookieMethod "copy" o = CookieCopyMethodInfo - ResolveCookieMethod "domainMatches" o = CookieDomainMatchesMethodInfo - ResolveCookieMethod "equal" o = CookieEqualMethodInfo - ResolveCookieMethod "free" o = CookieFreeMethodInfo - ResolveCookieMethod "toCookieHeader" o = CookieToCookieHeaderMethodInfo - ResolveCookieMethod "toSetCookieHeader" o = CookieToSetCookieHeaderMethodInfo - ResolveCookieMethod "getDomain" o = CookieGetDomainMethodInfo - ResolveCookieMethod "getExpires" o = CookieGetExpiresMethodInfo - ResolveCookieMethod "getHttpOnly" o = CookieGetHttpOnlyMethodInfo - ResolveCookieMethod "getName" o = CookieGetNameMethodInfo - ResolveCookieMethod "getPath" o = CookieGetPathMethodInfo - ResolveCookieMethod "getSecure" o = CookieGetSecureMethodInfo - ResolveCookieMethod "getValue" o = CookieGetValueMethodInfo - ResolveCookieMethod "setDomain" o = CookieSetDomainMethodInfo - ResolveCookieMethod "setExpires" o = CookieSetExpiresMethodInfo - ResolveCookieMethod "setHttpOnly" o = CookieSetHttpOnlyMethodInfo - ResolveCookieMethod "setMaxAge" o = CookieSetMaxAgeMethodInfo - ResolveCookieMethod "setName" o = CookieSetNameMethodInfo - ResolveCookieMethod "setPath" o = CookieSetPathMethodInfo - ResolveCookieMethod "setSecure" o = CookieSetSecureMethodInfo - ResolveCookieMethod "setValue" o = CookieSetValueMethodInfo - ResolveCookieMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveCookieMethod t Cookie, MethodInfo info Cookie p) => IsLabelProxy t (Cookie -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveCookieMethod t Cookie, MethodInfo info Cookie p) => IsLabel t (Cookie -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,33 +0,0 @@ -module GI.Soup.Structs.Cookie where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data CookieAppliesToUriMethodInfo -data CookieCopyMethodInfo -data CookieDomainMatchesMethodInfo -data CookieEqualMethodInfo -data CookieFreeMethodInfo -data CookieGetDomainMethodInfo -data CookieGetExpiresMethodInfo -data CookieGetHttpOnlyMethodInfo -data CookieGetNameMethodInfo -data CookieGetPathMethodInfo -data CookieGetSecureMethodInfo -data CookieGetValueMethodInfo -data CookieSetDomainMethodInfo -data CookieSetExpiresMethodInfo -data CookieSetHttpOnlyMethodInfo -data CookieSetMaxAgeMethodInfo -data CookieSetNameMethodInfo -data CookieSetPathMethodInfo -data CookieSetSecureMethodInfo -data CookieSetValueMethodInfo -data CookieToCookieHeaderMethodInfo -data CookieToSetCookieHeaderMethodInfo 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,926 +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(..) , - newZeroDate , - noDate , - - - -- * Methods --- ** dateCopy - DateCopyMethodInfo , - dateCopy , - - --- ** dateFree - DateFreeMethodInfo , - dateFree , - - --- ** dateGetDay - DateGetDayMethodInfo , - dateGetDay , - - --- ** dateGetHour - DateGetHourMethodInfo , - dateGetHour , - - --- ** dateGetMinute - DateGetMinuteMethodInfo , - dateGetMinute , - - --- ** dateGetMonth - DateGetMonthMethodInfo , - dateGetMonth , - - --- ** dateGetOffset - DateGetOffsetMethodInfo , - dateGetOffset , - - --- ** dateGetSecond - DateGetSecondMethodInfo , - dateGetSecond , - - --- ** dateGetUtc - DateGetUtcMethodInfo , - dateGetUtc , - - --- ** dateGetYear - DateGetYearMethodInfo , - dateGetYear , - - --- ** dateIsPast - DateIsPastMethodInfo , - dateIsPast , - - --- ** dateNew - dateNew , - - --- ** dateNewFromNow - dateNewFromNow , - - --- ** dateNewFromString - dateNewFromString , - - --- ** dateNewFromTimeT - dateNewFromTimeT , - - --- ** dateToString - DateToStringMethodInfo , - dateToString , - - --- ** dateToTimeT - DateToTimeTMethodInfo , - dateToTimeT , - - --- ** dateToTimeval - DateToTimevalMethodInfo , - dateToTimeval , - - - - - -- * Properties --- ** Day - dateDay , - dateReadDay , - dateWriteDay , - - --- ** Hour - dateHour , - dateReadHour , - dateWriteHour , - - --- ** Minute - dateMinute , - dateReadMinute , - dateWriteMinute , - - --- ** Month - dateMonth , - dateReadMonth , - dateWriteMonth , - - --- ** Offset - dateOffset , - dateReadOffset , - dateWriteOffset , - - --- ** Second - dateReadSecond , - dateSecond , - dateWriteSecond , - - --- ** Utc - dateReadUtc , - dateUtc , - dateWriteUtc , - - --- ** Year - dateReadYear , - dateWriteYear , - dateYear , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- | Construct a `Date` struct initialized to zero. -newZeroDate :: MonadIO m => m Date -newZeroDate = liftIO $ callocBoxedBytes 32 >>= wrapBoxed Date - -instance tag ~ 'AttrSet => Constructible Date tag where - new _ attrs = do - o <- newZeroDate - GI.Attributes.set o attrs - return o - - -noDate :: Maybe Date -noDate = Nothing - -dateReadYear :: MonadIO m => Date -> m Int32 -dateReadYear s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int32 - return val - -dateWriteYear :: MonadIO m => Date -> Int32 -> m () -dateWriteYear s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int32) - -data DateYearFieldInfo -instance AttrInfo DateYearFieldInfo where - type AttrAllowedOps DateYearFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateYearFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DateYearFieldInfo = (~) Date - type AttrGetType DateYearFieldInfo = Int32 - type AttrLabel DateYearFieldInfo = "year" - attrGet _ = dateReadYear - attrSet _ = dateWriteYear - attrConstruct = undefined - attrClear _ = undefined - -dateYear :: AttrLabelProxy "year" -dateYear = AttrLabelProxy - - -dateReadMonth :: MonadIO m => Date -> m Int32 -dateReadMonth s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 4) :: IO Int32 - return val - -dateWriteMonth :: MonadIO m => Date -> Int32 -> m () -dateWriteMonth s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 4) (val :: Int32) - -data DateMonthFieldInfo -instance AttrInfo DateMonthFieldInfo where - type AttrAllowedOps DateMonthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateMonthFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DateMonthFieldInfo = (~) Date - type AttrGetType DateMonthFieldInfo = Int32 - type AttrLabel DateMonthFieldInfo = "month" - attrGet _ = dateReadMonth - attrSet _ = dateWriteMonth - attrConstruct = undefined - attrClear _ = undefined - -dateMonth :: AttrLabelProxy "month" -dateMonth = AttrLabelProxy - - -dateReadDay :: MonadIO m => Date -> m Int32 -dateReadDay s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int32 - return val - -dateWriteDay :: MonadIO m => Date -> Int32 -> m () -dateWriteDay s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int32) - -data DateDayFieldInfo -instance AttrInfo DateDayFieldInfo where - type AttrAllowedOps DateDayFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateDayFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DateDayFieldInfo = (~) Date - type AttrGetType DateDayFieldInfo = Int32 - type AttrLabel DateDayFieldInfo = "day" - attrGet _ = dateReadDay - attrSet _ = dateWriteDay - attrConstruct = undefined - attrClear _ = undefined - -dateDay :: AttrLabelProxy "day" -dateDay = AttrLabelProxy - - -dateReadHour :: MonadIO m => Date -> m Int32 -dateReadHour s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 12) :: IO Int32 - return val - -dateWriteHour :: MonadIO m => Date -> Int32 -> m () -dateWriteHour s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 12) (val :: Int32) - -data DateHourFieldInfo -instance AttrInfo DateHourFieldInfo where - type AttrAllowedOps DateHourFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateHourFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DateHourFieldInfo = (~) Date - type AttrGetType DateHourFieldInfo = Int32 - type AttrLabel DateHourFieldInfo = "hour" - attrGet _ = dateReadHour - attrSet _ = dateWriteHour - attrConstruct = undefined - attrClear _ = undefined - -dateHour :: AttrLabelProxy "hour" -dateHour = AttrLabelProxy - - -dateReadMinute :: MonadIO m => Date -> m Int32 -dateReadMinute s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO Int32 - return val - -dateWriteMinute :: MonadIO m => Date -> Int32 -> m () -dateWriteMinute s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: Int32) - -data DateMinuteFieldInfo -instance AttrInfo DateMinuteFieldInfo where - type AttrAllowedOps DateMinuteFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateMinuteFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DateMinuteFieldInfo = (~) Date - type AttrGetType DateMinuteFieldInfo = Int32 - type AttrLabel DateMinuteFieldInfo = "minute" - attrGet _ = dateReadMinute - attrSet _ = dateWriteMinute - attrConstruct = undefined - attrClear _ = undefined - -dateMinute :: AttrLabelProxy "minute" -dateMinute = AttrLabelProxy - - -dateReadSecond :: MonadIO m => Date -> m Int32 -dateReadSecond s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 20) :: IO Int32 - return val - -dateWriteSecond :: MonadIO m => Date -> Int32 -> m () -dateWriteSecond s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 20) (val :: Int32) - -data DateSecondFieldInfo -instance AttrInfo DateSecondFieldInfo where - type AttrAllowedOps DateSecondFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateSecondFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DateSecondFieldInfo = (~) Date - type AttrGetType DateSecondFieldInfo = Int32 - type AttrLabel DateSecondFieldInfo = "second" - attrGet _ = dateReadSecond - attrSet _ = dateWriteSecond - attrConstruct = undefined - attrClear _ = undefined - -dateSecond :: AttrLabelProxy "second" -dateSecond = AttrLabelProxy - - -dateReadUtc :: MonadIO m => Date -> m Bool -dateReadUtc s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CInt - let val' = (/= 0) val - return val' - -dateWriteUtc :: MonadIO m => Date -> Bool -> m () -dateWriteUtc s val = liftIO $ withManagedPtr s $ \ptr -> do - let val' = (fromIntegral . fromEnum) val - poke (ptr `plusPtr` 24) (val' :: CInt) - -data DateUtcFieldInfo -instance AttrInfo DateUtcFieldInfo where - type AttrAllowedOps DateUtcFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateUtcFieldInfo = (~) Bool - type AttrBaseTypeConstraint DateUtcFieldInfo = (~) Date - type AttrGetType DateUtcFieldInfo = Bool - type AttrLabel DateUtcFieldInfo = "utc" - attrGet _ = dateReadUtc - attrSet _ = dateWriteUtc - attrConstruct = undefined - attrClear _ = undefined - -dateUtc :: AttrLabelProxy "utc" -dateUtc = AttrLabelProxy - - -dateReadOffset :: MonadIO m => Date -> m Int32 -dateReadOffset s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 28) :: IO Int32 - return val - -dateWriteOffset :: MonadIO m => Date -> Int32 -> m () -dateWriteOffset s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 28) (val :: Int32) - -data DateOffsetFieldInfo -instance AttrInfo DateOffsetFieldInfo where - type AttrAllowedOps DateOffsetFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint DateOffsetFieldInfo = (~) Int32 - type AttrBaseTypeConstraint DateOffsetFieldInfo = (~) Date - type AttrGetType DateOffsetFieldInfo = Int32 - type AttrLabel DateOffsetFieldInfo = "offset" - attrGet _ = dateReadOffset - attrSet _ = dateWriteOffset - attrConstruct = undefined - attrClear _ = undefined - -dateOffset :: AttrLabelProxy "offset" -dateOffset = AttrLabelProxy - - - -type instance AttributeList Date = DateAttributeList -type DateAttributeList = ('[ '("year", DateYearFieldInfo), '("month", DateMonthFieldInfo), '("day", DateDayFieldInfo), '("hour", DateHourFieldInfo), '("minute", DateMinuteFieldInfo), '("second", DateSecondFieldInfo), '("utc", DateUtcFieldInfo), '("offset", DateOffsetFieldInfo)] :: [(Symbol, *)]) - --- method Date::new --- method type : Constructor --- Args : [Arg {argCName = "year", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hour", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minute", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "second", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Soup" "Date") --- throws : False --- Skip return : False - -foreign import ccall "soup_date_new" soup_date_new :: - Int32 -> -- year : TBasicType TInt - Int32 -> -- month : TBasicType TInt - Int32 -> -- day : TBasicType TInt - Int32 -> -- hour : TBasicType TInt - Int32 -> -- minute : TBasicType TInt - Int32 -> -- second : TBasicType TInt - IO (Ptr Date) - - -dateNew :: - (MonadIO m) => - Int32 -- year - -> Int32 -- month - -> Int32 -- day - -> Int32 -- hour - -> Int32 -- minute - -> Int32 -- second - -> m Date -- result -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 {argCName = "offset_seconds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - IO (Ptr Date) - - -dateNewFromNow :: - (MonadIO m) => - Int32 -- offsetSeconds - -> m Date -- result -dateNewFromNow offsetSeconds = liftIO $ do - result <- soup_date_new_from_now offsetSeconds - checkUnexpectedReturnNULL "soup_date_new_from_now" result - result' <- (wrapBoxed Date) result - return result' - --- method Date::new_from_string --- method type : Constructor --- Args : [Arg {argCName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- dateString - -> m (Maybe Date) -- result -dateNewFromString dateString = liftIO $ do - dateString' <- textToCString dateString - result <- soup_date_new_from_string dateString' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Date) result' - return result'' - freeMem dateString' - return maybeResult - --- method Date::new_from_time_t --- method type : Constructor --- Args : [Arg {argCName = "when", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TInterface "Soup" "Date") --- throws : False --- Skip return : False - -foreign import ccall "soup_date_new_from_time_t" soup_date_new_from_time_t :: - CLong -> -- when : TBasicType TLong - IO (Ptr Date) - - -dateNewFromTimeT :: - (MonadIO m) => - CLong -- when_ - -> m Date -- result -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 {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DateCopyMethodInfo -instance (signature ~ (m Date), MonadIO m) => MethodInfo DateCopyMethodInfo Date signature where - overloadedMethod _ = dateCopy - --- method Date::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -dateFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_date_free _obj' - touchManagedPtr _obj - return () - -data DateFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo DateFreeMethodInfo Date signature where - overloadedMethod _ = dateFree - --- method Date::get_day --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetDay _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_day _obj' - touchManagedPtr _obj - return result - -data DateGetDayMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetDayMethodInfo Date signature where - overloadedMethod _ = dateGetDay - --- method Date::get_hour --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetHour _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_hour _obj' - touchManagedPtr _obj - return result - -data DateGetHourMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetHourMethodInfo Date signature where - overloadedMethod _ = dateGetHour - --- method Date::get_minute --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetMinute _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_minute _obj' - touchManagedPtr _obj - return result - -data DateGetMinuteMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetMinuteMethodInfo Date signature where - overloadedMethod _ = dateGetMinute - --- method Date::get_month --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetMonth _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_month _obj' - touchManagedPtr _obj - return result - -data DateGetMonthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetMonthMethodInfo Date signature where - overloadedMethod _ = dateGetMonth - --- method Date::get_offset --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetOffset _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_offset _obj' - touchManagedPtr _obj - return result - -data DateGetOffsetMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetOffsetMethodInfo Date signature where - overloadedMethod _ = dateGetOffset - --- method Date::get_second --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetSecond _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_second _obj' - touchManagedPtr _obj - return result - -data DateGetSecondMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetSecondMethodInfo Date signature where - overloadedMethod _ = dateGetSecond - --- method Date::get_utc --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetUtc _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_utc _obj' - touchManagedPtr _obj - return result - -data DateGetUtcMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetUtcMethodInfo Date signature where - overloadedMethod _ = dateGetUtc - --- method Date::get_year --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -dateGetYear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_get_year _obj' - touchManagedPtr _obj - return result - -data DateGetYearMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetYearMethodInfo Date signature where - overloadedMethod _ = dateGetYear - --- method Date::is_past --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -dateIsPast _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_is_past _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data DateIsPastMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo DateIsPastMethodInfo Date signature where - overloadedMethod _ = dateIsPast - --- method Date::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data DateToStringMethodInfo -instance (signature ~ (DateFormat -> m T.Text), MonadIO m) => MethodInfo DateToStringMethodInfo Date signature where - overloadedMethod _ = dateToString - --- method Date::to_time_t --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TLong) --- 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 CLong - - -dateToTimeT :: - (MonadIO m) => - Date -- _obj - -> m CLong -- result -dateToTimeT _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_date_to_time_t _obj' - touchManagedPtr _obj - return result - -data DateToTimeTMethodInfo -instance (signature ~ (m CLong), MonadIO m) => MethodInfo DateToTimeTMethodInfo Date signature where - overloadedMethod _ = dateToTimeT - --- method Date::to_timeval --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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) -- result -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' - -data DateToTimevalMethodInfo -instance (signature ~ (m (GLib.TimeVal)), MonadIO m) => MethodInfo DateToTimevalMethodInfo Date signature where - overloadedMethod _ = dateToTimeval - -type family ResolveDateMethod (t :: Symbol) (o :: *) :: * where - ResolveDateMethod "copy" o = DateCopyMethodInfo - ResolveDateMethod "free" o = DateFreeMethodInfo - ResolveDateMethod "isPast" o = DateIsPastMethodInfo - ResolveDateMethod "toString" o = DateToStringMethodInfo - ResolveDateMethod "toTimeT" o = DateToTimeTMethodInfo - ResolveDateMethod "toTimeval" o = DateToTimevalMethodInfo - ResolveDateMethod "getDay" o = DateGetDayMethodInfo - ResolveDateMethod "getHour" o = DateGetHourMethodInfo - ResolveDateMethod "getMinute" o = DateGetMinuteMethodInfo - ResolveDateMethod "getMonth" o = DateGetMonthMethodInfo - ResolveDateMethod "getOffset" o = DateGetOffsetMethodInfo - ResolveDateMethod "getSecond" o = DateGetSecondMethodInfo - ResolveDateMethod "getUtc" o = DateGetUtcMethodInfo - ResolveDateMethod "getYear" o = DateGetYearMethodInfo - ResolveDateMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveDateMethod t Date, MethodInfo info Date p) => IsLabelProxy t (Date -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveDateMethod t Date, MethodInfo info Date p) => IsLabel t (Date -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,25 +0,0 @@ -module GI.Soup.Structs.Date where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data DateCopyMethodInfo -data DateFreeMethodInfo -data DateGetDayMethodInfo -data DateGetHourMethodInfo -data DateGetMinuteMethodInfo -data DateGetMonthMethodInfo -data DateGetOffsetMethodInfo -data DateGetSecondMethodInfo -data DateGetUtcMethodInfo -data DateGetYearMethodInfo -data DateIsPastMethodInfo -data DateToStringMethodInfo -data DateToTimeTMethodInfo -data DateToTimevalMethodInfo 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,572 +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(..) , - newZeroMessageBody , - noMessageBody , - - - -- * Methods --- ** messageBodyAppend - MessageBodyAppendMethodInfo , - messageBodyAppend , - - --- ** messageBodyAppendBuffer - MessageBodyAppendBufferMethodInfo , - messageBodyAppendBuffer , - - --- ** messageBodyComplete - MessageBodyCompleteMethodInfo , - messageBodyComplete , - - --- ** messageBodyFlatten - MessageBodyFlattenMethodInfo , - messageBodyFlatten , - - --- ** messageBodyFree - MessageBodyFreeMethodInfo , - messageBodyFree , - - --- ** messageBodyGetAccumulate - MessageBodyGetAccumulateMethodInfo , - messageBodyGetAccumulate , - - --- ** messageBodyGetChunk - MessageBodyGetChunkMethodInfo , - messageBodyGetChunk , - - --- ** messageBodyGotChunk - MessageBodyGotChunkMethodInfo , - messageBodyGotChunk , - - --- ** messageBodyNew - messageBodyNew , - - --- ** messageBodySetAccumulate - MessageBodySetAccumulateMethodInfo , - messageBodySetAccumulate , - - --- ** messageBodyTruncate - MessageBodyTruncateMethodInfo , - messageBodyTruncate , - - --- ** messageBodyWroteChunk - MessageBodyWroteChunkMethodInfo , - messageBodyWroteChunk , - - - - - -- * Properties --- ** Data - messageBodyClearData , - messageBodyData , - messageBodyReadData , - messageBodyWriteData , - - --- ** Length - messageBodyLength , - messageBodyReadLength , - messageBodyWriteLength , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- | Construct a `MessageBody` struct initialized to zero. -newZeroMessageBody :: MonadIO m => m MessageBody -newZeroMessageBody = liftIO $ callocBoxedBytes 16 >>= wrapBoxed MessageBody - -instance tag ~ 'AttrSet => Constructible MessageBody tag where - new _ attrs = do - o <- newZeroMessageBody - GI.Attributes.set o attrs - return o - - -noMessageBody :: Maybe MessageBody -noMessageBody = Nothing - -messageBodyReadData :: MonadIO m => MessageBody -> m (Maybe T.Text) -messageBodyReadData s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -messageBodyWriteData :: MonadIO m => MessageBody -> CString -> m () -messageBodyWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -messageBodyClearData :: MonadIO m => MessageBody -> m () -messageBodyClearData s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data MessageBodyDataFieldInfo -instance AttrInfo MessageBodyDataFieldInfo where - type AttrAllowedOps MessageBodyDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint MessageBodyDataFieldInfo = (~) CString - type AttrBaseTypeConstraint MessageBodyDataFieldInfo = (~) MessageBody - type AttrGetType MessageBodyDataFieldInfo = Maybe T.Text - type AttrLabel MessageBodyDataFieldInfo = "data" - attrGet _ = messageBodyReadData - attrSet _ = messageBodyWriteData - attrConstruct = undefined - attrClear _ = messageBodyClearData - -messageBodyData :: AttrLabelProxy "data" -messageBodyData = AttrLabelProxy - - -messageBodyReadLength :: MonadIO m => MessageBody -> m Int64 -messageBodyReadLength s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int64 - return val - -messageBodyWriteLength :: MonadIO m => MessageBody -> Int64 -> m () -messageBodyWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int64) - -data MessageBodyLengthFieldInfo -instance AttrInfo MessageBodyLengthFieldInfo where - type AttrAllowedOps MessageBodyLengthFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint MessageBodyLengthFieldInfo = (~) Int64 - type AttrBaseTypeConstraint MessageBodyLengthFieldInfo = (~) MessageBody - type AttrGetType MessageBodyLengthFieldInfo = Int64 - type AttrLabel MessageBodyLengthFieldInfo = "length" - attrGet _ = messageBodyReadLength - attrSet _ = messageBodyWriteLength - attrConstruct = undefined - attrClear _ = undefined - -messageBodyLength :: AttrLabelProxy "length" -messageBodyLength = AttrLabelProxy - - - -type instance AttributeList MessageBody = MessageBodyAttributeList -type MessageBodyAttributeList = ('[ '("data", MessageBodyDataFieldInfo), '("length", MessageBodyLengthFieldInfo)] :: [(Symbol, *)]) - --- method MessageBody::new --- method type : Constructor --- Args : [] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageBodyAppendBufferMethodInfo -instance (signature ~ (Buffer -> m ()), MonadIO m) => MethodInfo MessageBodyAppendBufferMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyAppendBuffer - --- method MessageBody::append --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageBodyAppendMethodInfo -instance (signature ~ (ByteString -> m ()), MonadIO m) => MethodInfo MessageBodyAppendMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyAppend - --- method MessageBody::complete --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageBodyComplete _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_body_complete _obj' - touchManagedPtr _obj - return () - -data MessageBodyCompleteMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageBodyCompleteMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyComplete - --- method MessageBody::flatten --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageBodyFlattenMethodInfo -instance (signature ~ (m Buffer), MonadIO m) => MethodInfo MessageBodyFlattenMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyFlatten - --- method MessageBody::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageBodyFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_body_free _obj' - touchManagedPtr _obj - return () - -data MessageBodyFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageBodyFreeMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyFree - --- method MessageBody::get_accumulate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -messageBodyGetAccumulate _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_body_get_accumulate _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MessageBodyGetAccumulateMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo MessageBodyGetAccumulateMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyGetAccumulate - --- method MessageBody::get_chunk --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Buffer) -- result -messageBodyGetChunk _obj offset = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_body_get_chunk _obj' offset - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Buffer) result' - return result'' - touchManagedPtr _obj - return maybeResult - -data MessageBodyGetChunkMethodInfo -instance (signature ~ (Int64 -> m (Maybe Buffer)), MonadIO m) => MethodInfo MessageBodyGetChunkMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyGetChunk - --- method MessageBody::got_chunk --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageBodyGotChunkMethodInfo -instance (signature ~ (Buffer -> m ()), MonadIO m) => MethodInfo MessageBodyGotChunkMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyGotChunk - --- method MessageBody::set_accumulate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageBodySetAccumulate _obj accumulate = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let accumulate' = (fromIntegral . fromEnum) accumulate - soup_message_body_set_accumulate _obj' accumulate' - touchManagedPtr _obj - return () - -data MessageBodySetAccumulateMethodInfo -instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo MessageBodySetAccumulateMethodInfo MessageBody signature where - overloadedMethod _ = messageBodySetAccumulate - --- method MessageBody::truncate --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageBodyTruncate _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_body_truncate _obj' - touchManagedPtr _obj - return () - -data MessageBodyTruncateMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageBodyTruncateMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyTruncate - --- method MessageBody::wrote_chunk --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageBodyWroteChunkMethodInfo -instance (signature ~ (Buffer -> m ()), MonadIO m) => MethodInfo MessageBodyWroteChunkMethodInfo MessageBody signature where - overloadedMethod _ = messageBodyWroteChunk - -type family ResolveMessageBodyMethod (t :: Symbol) (o :: *) :: * where - ResolveMessageBodyMethod "appendBuffer" o = MessageBodyAppendBufferMethodInfo - ResolveMessageBodyMethod "append" o = MessageBodyAppendMethodInfo - ResolveMessageBodyMethod "complete" o = MessageBodyCompleteMethodInfo - ResolveMessageBodyMethod "flatten" o = MessageBodyFlattenMethodInfo - ResolveMessageBodyMethod "free" o = MessageBodyFreeMethodInfo - ResolveMessageBodyMethod "gotChunk" o = MessageBodyGotChunkMethodInfo - ResolveMessageBodyMethod "truncate" o = MessageBodyTruncateMethodInfo - ResolveMessageBodyMethod "wroteChunk" o = MessageBodyWroteChunkMethodInfo - ResolveMessageBodyMethod "getAccumulate" o = MessageBodyGetAccumulateMethodInfo - ResolveMessageBodyMethod "getChunk" o = MessageBodyGetChunkMethodInfo - ResolveMessageBodyMethod "setAccumulate" o = MessageBodySetAccumulateMethodInfo - ResolveMessageBodyMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMessageBodyMethod t MessageBody, MethodInfo info MessageBody p) => IsLabelProxy t (MessageBody -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMessageBodyMethod t MessageBody, MethodInfo info MessageBody p) => IsLabel t (MessageBody -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,22 +0,0 @@ -module GI.Soup.Structs.MessageBody where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data MessageBodyAppendBufferMethodInfo -data MessageBodyAppendMethodInfo -data MessageBodyCompleteMethodInfo -data MessageBodyFlattenMethodInfo -data MessageBodyFreeMethodInfo -data MessageBodyGetAccumulateMethodInfo -data MessageBodyGetChunkMethodInfo -data MessageBodyGotChunkMethodInfo -data MessageBodySetAccumulateMethodInfo -data MessageBodyTruncateMethodInfo -data MessageBodyWroteChunkMethodInfo 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,1227 +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 - MessageHeadersAppendMethodInfo , - messageHeadersAppend , - - --- ** messageHeadersCleanConnectionHeaders - MessageHeadersCleanConnectionHeadersMethodInfo, - messageHeadersCleanConnectionHeaders , - - --- ** messageHeadersClear - MessageHeadersClearMethodInfo , - messageHeadersClear , - - --- ** messageHeadersForeach - MessageHeadersForeachMethodInfo , - messageHeadersForeach , - - --- ** messageHeadersFree - MessageHeadersFreeMethodInfo , - messageHeadersFree , - - --- ** messageHeadersFreeRanges - MessageHeadersFreeRangesMethodInfo , - messageHeadersFreeRanges , - - --- ** messageHeadersGet - MessageHeadersGetMethodInfo , - messageHeadersGet , - - --- ** messageHeadersGetContentDisposition - MessageHeadersGetContentDispositionMethodInfo, - messageHeadersGetContentDisposition , - - --- ** messageHeadersGetContentLength - MessageHeadersGetContentLengthMethodInfo, - messageHeadersGetContentLength , - - --- ** messageHeadersGetContentRange - MessageHeadersGetContentRangeMethodInfo , - messageHeadersGetContentRange , - - --- ** messageHeadersGetContentType - MessageHeadersGetContentTypeMethodInfo , - messageHeadersGetContentType , - - --- ** messageHeadersGetEncoding - MessageHeadersGetEncodingMethodInfo , - messageHeadersGetEncoding , - - --- ** messageHeadersGetExpectations - MessageHeadersGetExpectationsMethodInfo , - messageHeadersGetExpectations , - - --- ** messageHeadersGetHeadersType - MessageHeadersGetHeadersTypeMethodInfo , - messageHeadersGetHeadersType , - - --- ** messageHeadersGetList - MessageHeadersGetListMethodInfo , - messageHeadersGetList , - - --- ** messageHeadersGetOne - MessageHeadersGetOneMethodInfo , - messageHeadersGetOne , - - --- ** messageHeadersGetRanges - MessageHeadersGetRangesMethodInfo , - messageHeadersGetRanges , - - --- ** messageHeadersHeaderContains - MessageHeadersHeaderContainsMethodInfo , - messageHeadersHeaderContains , - - --- ** messageHeadersHeaderEquals - MessageHeadersHeaderEqualsMethodInfo , - messageHeadersHeaderEquals , - - --- ** messageHeadersNew - messageHeadersNew , - - --- ** messageHeadersRemove - MessageHeadersRemoveMethodInfo , - messageHeadersRemove , - - --- ** messageHeadersReplace - MessageHeadersReplaceMethodInfo , - messageHeadersReplace , - - --- ** messageHeadersSetContentDisposition - MessageHeadersSetContentDispositionMethodInfo, - messageHeadersSetContentDisposition , - - --- ** messageHeadersSetContentLength - MessageHeadersSetContentLengthMethodInfo, - messageHeadersSetContentLength , - - --- ** messageHeadersSetContentRange - MessageHeadersSetContentRangeMethodInfo , - messageHeadersSetContentRange , - - --- ** messageHeadersSetContentType - MessageHeadersSetContentTypeMethodInfo , - messageHeadersSetContentType , - - --- ** messageHeadersSetEncoding - MessageHeadersSetEncodingMethodInfo , - messageHeadersSetEncoding , - - --- ** messageHeadersSetExpectations - MessageHeadersSetExpectationsMethodInfo , - messageHeadersSetExpectations , - - --- ** messageHeadersSetRange - MessageHeadersSetRangeMethodInfo , - messageHeadersSetRange , - - --- ** messageHeadersSetRanges - MessageHeadersSetRangesMethodInfo , - messageHeadersSetRanges , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - -type instance AttributeList MessageHeaders = MessageHeadersAttributeList -type MessageHeadersAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MessageHeaders::new --- method type : Constructor --- Args : [Arg {argCName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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 {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageHeadersAppendMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo MessageHeadersAppendMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersAppend - --- method MessageHeaders::clean_connection_headers --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageHeadersCleanConnectionHeaders _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_headers_clean_connection_headers _obj' - touchManagedPtr _obj - return () - -data MessageHeadersCleanConnectionHeadersMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageHeadersCleanConnectionHeadersMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersCleanConnectionHeaders - --- method MessageHeaders::clear --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageHeadersClear _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_headers_clear _obj' - touchManagedPtr _obj - return () - -data MessageHeadersClearMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageHeadersClearMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersClear - --- method MessageHeaders::foreach --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TPtr - IO () - - -messageHeadersForeach :: - (MonadIO m) => - MessageHeaders -- _obj - -> MessageHeadersForeachFunc -- func - -> m () -- result -messageHeadersForeach _obj func = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - func' <- mkMessageHeadersForeachFunc (messageHeadersForeachFuncWrapper Nothing func) - let userData = nullPtr - soup_message_headers_foreach _obj' func' userData - safeFreeFunPtr $ castFunPtrToPtr func' - touchManagedPtr _obj - return () - -data MessageHeadersForeachMethodInfo -instance (signature ~ (MessageHeadersForeachFunc -> m ()), MonadIO m) => MethodInfo MessageHeadersForeachMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersForeach - --- method MessageHeaders::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageHeadersFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_headers_free _obj' - touchManagedPtr _obj - return () - -data MessageHeadersFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageHeadersFreeMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersFree - --- method MessageHeaders::free_ranges --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageHeadersFreeRangesMethodInfo -instance (signature ~ (Range -> m ()), MonadIO m) => MethodInfo MessageHeadersFreeRangesMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersFreeRanges - --- method MessageHeaders::get --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -messageHeadersGet _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- soup_message_headers_get _obj' name' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - freeMem name' - return maybeResult - -data MessageHeadersGetMethodInfo -instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => MethodInfo MessageHeadersGetMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGet - --- method MessageHeaders::get_content_disposition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disposition", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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))-- result -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''''''') - -data MessageHeadersGetContentDispositionMethodInfo -instance (signature ~ (m (Bool,T.Text,(Map.Map T.Text T.Text))), MonadIO m) => MethodInfo MessageHeadersGetContentDispositionMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetContentDisposition - --- method MessageHeaders::get_content_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -messageHeadersGetContentLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_headers_get_content_length _obj' - touchManagedPtr _obj - return result - -data MessageHeadersGetContentLengthMethodInfo -instance (signature ~ (m Int64), MonadIO m) => MethodInfo MessageHeadersGetContentLengthMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetContentLength - --- method MessageHeaders::get_content_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- totalLength - -> m Bool -- result -messageHeadersGetContentRange _obj start end totalLength = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_headers_get_content_range _obj' start end totalLength - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data MessageHeadersGetContentRangeMethodInfo -instance (signature ~ (Int64 -> Int64 -> Int64 -> m Bool), MonadIO m) => MethodInfo MessageHeadersGetContentRangeMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetContentRange - --- method MessageHeaders::get_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [] --- returnType : Just (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 ((Maybe T.Text),(Map.Map T.Text T.Text))-- result -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 - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return 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 (maybeResult, params''''''') - -data MessageHeadersGetContentTypeMethodInfo -instance (signature ~ (m ((Maybe T.Text),(Map.Map T.Text T.Text))), MonadIO m) => MethodInfo MessageHeadersGetContentTypeMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetContentType - --- method MessageHeaders::get_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -messageHeadersGetEncoding _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_headers_get_encoding _obj' - let result' = (toEnum . fromIntegral) result - touchManagedPtr _obj - return result' - -data MessageHeadersGetEncodingMethodInfo -instance (signature ~ (m Encoding), MonadIO m) => MethodInfo MessageHeadersGetEncodingMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetEncoding - --- method MessageHeaders::get_expectations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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] -- result -messageHeadersGetExpectations _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_message_headers_get_expectations _obj' - let result' = wordToGFlags result - touchManagedPtr _obj - return result' - -data MessageHeadersGetExpectationsMethodInfo -instance (signature ~ (m [Expectation]), MonadIO m) => MethodInfo MessageHeadersGetExpectationsMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetExpectations - --- method MessageHeaders::get_headers_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageHeadersGetHeadersTypeMethodInfo -instance (signature ~ (m MessageHeadersType), MonadIO m) => MethodInfo MessageHeadersGetHeadersTypeMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetHeadersType - --- method MessageHeaders::get_list --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -messageHeadersGetList _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- soup_message_headers_get_list _obj' name' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - freeMem name' - return maybeResult - -data MessageHeadersGetListMethodInfo -instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => MethodInfo MessageHeadersGetListMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetList - --- method MessageHeaders::get_one --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe T.Text) -- result -messageHeadersGetOne _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - result <- soup_message_headers_get_one _obj' name' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- cstringToText result' - return result'' - touchManagedPtr _obj - freeMem name' - return maybeResult - -data MessageHeadersGetOneMethodInfo -instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => MethodInfo MessageHeadersGetOneMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetOne - --- method MessageHeaders::get_ranges --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TCArray False (-1) 3 (TInterface "Soup" "Range"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] --- returnType : Just (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 TInt - IO CInt - - -messageHeadersGetRanges :: - (MonadIO m) => - MessageHeaders -- _obj - -> Int64 -- totalLength - -> m (Bool,[Range]) -- result -messageHeadersGetRanges _obj totalLength = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - ranges <- allocMem :: IO (Ptr (Ptr Range)) - length_ <- allocMem :: IO (Ptr Int32) - result <- soup_message_headers_get_ranges _obj' totalLength 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''') - -data MessageHeadersGetRangesMethodInfo -instance (signature ~ (Int64 -> m (Bool,[Range])), MonadIO m) => MethodInfo MessageHeadersGetRangesMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersGetRanges - --- method MessageHeaders::header_contains --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageHeadersHeaderContainsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m) => MethodInfo MessageHeadersHeaderContainsMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersHeaderContains - --- method MessageHeaders::header_equals --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data MessageHeadersHeaderEqualsMethodInfo -instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m) => MethodInfo MessageHeadersHeaderEqualsMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersHeaderEquals - --- method MessageHeaders::remove --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageHeadersRemove _obj name = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - name' <- textToCString name - soup_message_headers_remove _obj' name' - touchManagedPtr _obj - freeMem name' - return () - -data MessageHeadersRemoveMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo MessageHeadersRemoveMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersRemove - --- method MessageHeaders::replace --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageHeadersReplaceMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo MessageHeadersReplaceMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersReplace - --- method MessageHeaders::set_content_disposition --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MessageHeadersSetContentDispositionMethodInfo -instance (signature ~ (T.Text -> Maybe (Map.Map T.Text T.Text) -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentDispositionMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetContentDisposition - --- method MessageHeaders::set_content_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- contentLength - -> m () -- result -messageHeadersSetContentLength _obj contentLength = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_headers_set_content_length _obj' contentLength - touchManagedPtr _obj - return () - -data MessageHeadersSetContentLengthMethodInfo -instance (signature ~ (Int64 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentLengthMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetContentLength - --- method MessageHeaders::set_content_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- totalLength - -> m () -- result -messageHeadersSetContentRange _obj start end totalLength = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_headers_set_content_range _obj' start end totalLength - touchManagedPtr _obj - return () - -data MessageHeadersSetContentRangeMethodInfo -instance (signature ~ (Int64 -> Int64 -> Int64 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentRangeMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetContentRange - --- method MessageHeaders::set_content_type --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- contentType - -> Maybe (Map.Map T.Text T.Text) -- params - -> m () -- result -messageHeadersSetContentType _obj contentType params = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - contentType' <- textToCString contentType - 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' contentType' maybeParams - touchManagedPtr _obj - freeMem contentType' - unrefGHashTable maybeParams - return () - -data MessageHeadersSetContentTypeMethodInfo -instance (signature ~ (T.Text -> Maybe (Map.Map T.Text T.Text) -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentTypeMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetContentType - --- method MessageHeaders::set_encoding --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageHeadersSetEncoding _obj encoding = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let encoding' = (fromIntegral . fromEnum) encoding - soup_message_headers_set_encoding _obj' encoding' - touchManagedPtr _obj - return () - -data MessageHeadersSetEncodingMethodInfo -instance (signature ~ (Encoding -> m ()), MonadIO m) => MethodInfo MessageHeadersSetEncodingMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetEncoding - --- method MessageHeaders::set_expectations --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageHeadersSetExpectations _obj expectations = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let expectations' = gflagsToWord expectations - soup_message_headers_set_expectations _obj' expectations' - touchManagedPtr _obj - return () - -data MessageHeadersSetExpectationsMethodInfo -instance (signature ~ ([Expectation] -> m ()), MonadIO m) => MethodInfo MessageHeadersSetExpectationsMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetExpectations - --- method MessageHeaders::set_range --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -messageHeadersSetRange _obj start end = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_message_headers_set_range _obj' start end - touchManagedPtr _obj - return () - -data MessageHeadersSetRangeMethodInfo -instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetRangeMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetRange - --- method MessageHeaders::set_ranges --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TInt - IO () - - -messageHeadersSetRanges :: - (MonadIO m) => - MessageHeaders -- _obj - -> Range -- ranges - -> Int32 -- length_ - -> m () -- result -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 () - -data MessageHeadersSetRangesMethodInfo -instance (signature ~ (Range -> Int32 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetRangesMethodInfo MessageHeaders signature where - overloadedMethod _ = messageHeadersSetRanges - -type family ResolveMessageHeadersMethod (t :: Symbol) (o :: *) :: * where - ResolveMessageHeadersMethod "append" o = MessageHeadersAppendMethodInfo - ResolveMessageHeadersMethod "cleanConnectionHeaders" o = MessageHeadersCleanConnectionHeadersMethodInfo - ResolveMessageHeadersMethod "clear" o = MessageHeadersClearMethodInfo - ResolveMessageHeadersMethod "foreach" o = MessageHeadersForeachMethodInfo - ResolveMessageHeadersMethod "free" o = MessageHeadersFreeMethodInfo - ResolveMessageHeadersMethod "freeRanges" o = MessageHeadersFreeRangesMethodInfo - ResolveMessageHeadersMethod "get" o = MessageHeadersGetMethodInfo - ResolveMessageHeadersMethod "headerContains" o = MessageHeadersHeaderContainsMethodInfo - ResolveMessageHeadersMethod "headerEquals" o = MessageHeadersHeaderEqualsMethodInfo - ResolveMessageHeadersMethod "remove" o = MessageHeadersRemoveMethodInfo - ResolveMessageHeadersMethod "replace" o = MessageHeadersReplaceMethodInfo - ResolveMessageHeadersMethod "getContentDisposition" o = MessageHeadersGetContentDispositionMethodInfo - ResolveMessageHeadersMethod "getContentLength" o = MessageHeadersGetContentLengthMethodInfo - ResolveMessageHeadersMethod "getContentRange" o = MessageHeadersGetContentRangeMethodInfo - ResolveMessageHeadersMethod "getContentType" o = MessageHeadersGetContentTypeMethodInfo - ResolveMessageHeadersMethod "getEncoding" o = MessageHeadersGetEncodingMethodInfo - ResolveMessageHeadersMethod "getExpectations" o = MessageHeadersGetExpectationsMethodInfo - ResolveMessageHeadersMethod "getHeadersType" o = MessageHeadersGetHeadersTypeMethodInfo - ResolveMessageHeadersMethod "getList" o = MessageHeadersGetListMethodInfo - ResolveMessageHeadersMethod "getOne" o = MessageHeadersGetOneMethodInfo - ResolveMessageHeadersMethod "getRanges" o = MessageHeadersGetRangesMethodInfo - ResolveMessageHeadersMethod "setContentDisposition" o = MessageHeadersSetContentDispositionMethodInfo - ResolveMessageHeadersMethod "setContentLength" o = MessageHeadersSetContentLengthMethodInfo - ResolveMessageHeadersMethod "setContentRange" o = MessageHeadersSetContentRangeMethodInfo - ResolveMessageHeadersMethod "setContentType" o = MessageHeadersSetContentTypeMethodInfo - ResolveMessageHeadersMethod "setEncoding" o = MessageHeadersSetEncodingMethodInfo - ResolveMessageHeadersMethod "setExpectations" o = MessageHeadersSetExpectationsMethodInfo - ResolveMessageHeadersMethod "setRange" o = MessageHeadersSetRangeMethodInfo - ResolveMessageHeadersMethod "setRanges" o = MessageHeadersSetRangesMethodInfo - ResolveMessageHeadersMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMessageHeadersMethod t MessageHeaders, MethodInfo info MessageHeaders p) => IsLabelProxy t (MessageHeaders -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMessageHeadersMethod t MessageHeaders, MethodInfo info MessageHeaders p) => IsLabel t (MessageHeaders -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,40 +0,0 @@ -module GI.Soup.Structs.MessageHeaders where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data MessageHeadersAppendMethodInfo -data MessageHeadersCleanConnectionHeadersMethodInfo -data MessageHeadersClearMethodInfo -data MessageHeadersForeachMethodInfo -data MessageHeadersFreeMethodInfo -data MessageHeadersFreeRangesMethodInfo -data MessageHeadersGetMethodInfo -data MessageHeadersGetContentDispositionMethodInfo -data MessageHeadersGetContentLengthMethodInfo -data MessageHeadersGetContentRangeMethodInfo -data MessageHeadersGetContentTypeMethodInfo -data MessageHeadersGetEncodingMethodInfo -data MessageHeadersGetExpectationsMethodInfo -data MessageHeadersGetHeadersTypeMethodInfo -data MessageHeadersGetListMethodInfo -data MessageHeadersGetOneMethodInfo -data MessageHeadersGetRangesMethodInfo -data MessageHeadersHeaderContainsMethodInfo -data MessageHeadersHeaderEqualsMethodInfo -data MessageHeadersRemoveMethodInfo -data MessageHeadersReplaceMethodInfo -data MessageHeadersSetContentDispositionMethodInfo -data MessageHeadersSetContentLengthMethodInfo -data MessageHeadersSetContentRangeMethodInfo -data MessageHeadersSetContentTypeMethodInfo -data MessageHeadersSetEncodingMethodInfo -data MessageHeadersSetExpectationsMethodInfo -data MessageHeadersSetRangeMethodInfo -data MessageHeadersSetRangesMethodInfo 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,151 +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(..) , - newZeroMessageHeadersIter , - noMessageHeadersIter , - - - -- * Methods --- ** messageHeadersIterInit - messageHeadersIterInit , - - --- ** messageHeadersIterNext - MessageHeadersIterNextMethodInfo , - messageHeadersIterNext , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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) -instance WrappedPtr MessageHeadersIter where - wrappedPtrCalloc = callocBytes 24 - wrappedPtrCopy = copyPtr 24 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `MessageHeadersIter` struct initialized to zero. -newZeroMessageHeadersIter :: MonadIO m => m MessageHeadersIter -newZeroMessageHeadersIter = liftIO $ wrappedPtrCalloc >>= wrapPtr MessageHeadersIter - -instance tag ~ 'AttrSet => Constructible MessageHeadersIter tag where - new _ attrs = do - o <- newZeroMessageHeadersIter - GI.Attributes.set o attrs - return o - - -noMessageHeadersIter :: Maybe MessageHeadersIter -noMessageHeadersIter = Nothing - - -type instance AttributeList MessageHeadersIter = MessageHeadersIterAttributeList -type MessageHeadersIterAttributeList = ('[ ] :: [(Symbol, *)]) - --- method MessageHeadersIter::next --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- result -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'') - -data MessageHeadersIterNextMethodInfo -instance (signature ~ (m (Bool,T.Text,T.Text)), MonadIO m) => MethodInfo MessageHeadersIterNextMethodInfo MessageHeadersIter signature where - overloadedMethod _ = messageHeadersIterNext - --- method MessageHeadersIter::init --- method type : MemberFunction --- Args : [Arg {argCName = "iter", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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) -- result -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' - -type family ResolveMessageHeadersIterMethod (t :: Symbol) (o :: *) :: * where - ResolveMessageHeadersIterMethod "next" o = MessageHeadersIterNextMethodInfo - ResolveMessageHeadersIterMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMessageHeadersIterMethod t MessageHeadersIter, MethodInfo info MessageHeadersIter p) => IsLabelProxy t (MessageHeadersIter -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMessageHeadersIterMethod t MessageHeadersIter, MethodInfo info MessageHeadersIter p) => IsLabel t (MessageHeadersIter -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,12 +0,0 @@ -module GI.Soup.Structs.MessageHeadersIter where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter) -instance WrappedPtr MessageHeadersIter where -data MessageHeadersIterNextMethodInfo 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,54 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr MessageQueue where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noMessageQueue :: Maybe MessageQueue -noMessageQueue = Nothing - - -type instance AttributeList MessageQueue = MessageQueueAttributeList -type MessageQueueAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveMessageQueueMethod (t :: Symbol) (o :: *) :: * where - ResolveMessageQueueMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMessageQueueMethod t MessageQueue, MethodInfo info MessageQueue p) => IsLabelProxy t (MessageQueue -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMessageQueueMethod t MessageQueue, MethodInfo info MessageQueue p) => IsLabel t (MessageQueue -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.Soup.Structs.MessageQueue where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue) -instance WrappedPtr MessageQueue where 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,54 +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 Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr MessageQueueItem where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noMessageQueueItem :: Maybe MessageQueueItem -noMessageQueueItem = Nothing - - -type instance AttributeList MessageQueueItem = MessageQueueItemAttributeList -type MessageQueueItemAttributeList = ('[ ] :: [(Symbol, *)]) - -type family ResolveMessageQueueItemMethod (t :: Symbol) (o :: *) :: * where - ResolveMessageQueueItemMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMessageQueueItemMethod t MessageQueueItem, MethodInfo info MessageQueueItem p) => IsLabelProxy t (MessageQueueItem -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMessageQueueItemMethod t MessageQueueItem, MethodInfo info MessageQueueItem p) => IsLabel t (MessageQueueItem -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.Soup.Structs.MessageQueueItem where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem) -instance WrappedPtr MessageQueueItem where 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,414 +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 - MultipartAppendFormFileMethodInfo , - multipartAppendFormFile , - - --- ** multipartAppendFormString - MultipartAppendFormStringMethodInfo , - multipartAppendFormString , - - --- ** multipartAppendPart - MultipartAppendPartMethodInfo , - multipartAppendPart , - - --- ** multipartFree - MultipartFreeMethodInfo , - multipartFree , - - --- ** multipartGetLength - MultipartGetLengthMethodInfo , - multipartGetLength , - - --- ** multipartGetPart - MultipartGetPartMethodInfo , - multipartGetPart , - - --- ** multipartNew - multipartNew , - - --- ** multipartNewFromMessage - multipartNewFromMessage , - - --- ** multipartToMessage - MultipartToMessageMethodInfo , - multipartToMessage , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - - -type instance AttributeList Multipart = MultipartAttributeList -type MultipartAttributeList = ('[ ] :: [(Symbol, *)]) - --- method Multipart::new --- method type : Constructor --- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- mimeType - -> m Multipart -- result -multipartNew mimeType = liftIO $ do - mimeType' <- textToCString mimeType - result <- soup_multipart_new mimeType' - checkUnexpectedReturnNULL "soup_multipart_new" result - result' <- (wrapBoxed Multipart) result - freeMem mimeType' - return result' - --- method Multipart::new_from_message --- method type : Constructor --- Args : [Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 (Maybe Multipart) -- result -multipartNewFromMessage headers body = liftIO $ do - let headers' = unsafeManagedPtrGetPtr headers - let body' = unsafeManagedPtrGetPtr body - result <- soup_multipart_new_from_message headers' body' - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed Multipart) result' - return result'' - touchManagedPtr headers - touchManagedPtr body - return maybeResult - --- method Multipart::append_form_file --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- controlName - -> T.Text -- filename - -> T.Text -- contentType - -> Buffer -- body - -> m () -- result -multipartAppendFormFile _obj controlName filename contentType body = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - controlName' <- textToCString controlName - filename' <- textToCString filename - contentType' <- textToCString contentType - let body' = unsafeManagedPtrGetPtr body - soup_multipart_append_form_file _obj' controlName' filename' contentType' body' - touchManagedPtr _obj - touchManagedPtr body - freeMem controlName' - freeMem filename' - freeMem contentType' - return () - -data MultipartAppendFormFileMethodInfo -instance (signature ~ (T.Text -> T.Text -> T.Text -> Buffer -> m ()), MonadIO m) => MethodInfo MultipartAppendFormFileMethodInfo Multipart signature where - overloadedMethod _ = multipartAppendFormFile - --- method Multipart::append_form_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- controlName - -> T.Text -- data_ - -> m () -- result -multipartAppendFormString _obj controlName data_ = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - controlName' <- textToCString controlName - data_' <- textToCString data_ - soup_multipart_append_form_string _obj' controlName' data_' - touchManagedPtr _obj - freeMem controlName' - freeMem data_' - return () - -data MultipartAppendFormStringMethodInfo -instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo MultipartAppendFormStringMethodInfo Multipart signature where - overloadedMethod _ = multipartAppendFormString - --- method Multipart::append_part --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data MultipartAppendPartMethodInfo -instance (signature ~ (MessageHeaders -> Buffer -> m ()), MonadIO m) => MethodInfo MultipartAppendPartMethodInfo Multipart signature where - overloadedMethod _ = multipartAppendPart - --- method Multipart::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -multipartFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_multipart_free _obj' - touchManagedPtr _obj - return () - -data MultipartFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo MultipartFreeMethodInfo Multipart signature where - overloadedMethod _ = multipartFree - --- method Multipart::get_length --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TInt) --- 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 -- result -multipartGetLength _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_multipart_get_length _obj' - touchManagedPtr _obj - return result - -data MultipartGetLengthMethodInfo -instance (signature ~ (m Int32), MonadIO m) => MethodInfo MultipartGetLengthMethodInfo Multipart signature where - overloadedMethod _ = multipartGetLength - --- method Multipart::get_part --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 TInt - 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) -- result -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') - -data MultipartGetPartMethodInfo -instance (signature ~ (Int32 -> m (Bool,MessageHeaders,Buffer)), MonadIO m) => MethodInfo MultipartGetPartMethodInfo Multipart signature where - overloadedMethod _ = multipartGetPart - --- method Multipart::to_message --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 -- destHeaders - -> MessageBody -- destBody - -> m () -- result -multipartToMessage _obj destHeaders destBody = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let destHeaders' = unsafeManagedPtrGetPtr destHeaders - let destBody' = unsafeManagedPtrGetPtr destBody - soup_multipart_to_message _obj' destHeaders' destBody' - touchManagedPtr _obj - touchManagedPtr destHeaders - touchManagedPtr destBody - return () - -data MultipartToMessageMethodInfo -instance (signature ~ (MessageHeaders -> MessageBody -> m ()), MonadIO m) => MethodInfo MultipartToMessageMethodInfo Multipart signature where - overloadedMethod _ = multipartToMessage - -type family ResolveMultipartMethod (t :: Symbol) (o :: *) :: * where - ResolveMultipartMethod "appendFormFile" o = MultipartAppendFormFileMethodInfo - ResolveMultipartMethod "appendFormString" o = MultipartAppendFormStringMethodInfo - ResolveMultipartMethod "appendPart" o = MultipartAppendPartMethodInfo - ResolveMultipartMethod "free" o = MultipartFreeMethodInfo - ResolveMultipartMethod "toMessage" o = MultipartToMessageMethodInfo - ResolveMultipartMethod "getLength" o = MultipartGetLengthMethodInfo - ResolveMultipartMethod "getPart" o = MultipartGetPartMethodInfo - ResolveMultipartMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveMultipartMethod t Multipart, MethodInfo info Multipart p) => IsLabelProxy t (Multipart -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveMultipartMethod t Multipart, MethodInfo info Multipart p) => IsLabel t (Multipart -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,18 +0,0 @@ -module GI.Soup.Structs.Multipart where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data MultipartAppendFormFileMethodInfo -data MultipartAppendFormStringMethodInfo -data MultipartAppendPartMethodInfo -data MultipartFreeMethodInfo -data MultipartGetLengthMethodInfo -data MultipartGetPartMethodInfo -data MultipartToMessageMethodInfo 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,145 +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(..) , - newZeroRange , - noRange , - - - -- * Properties --- ** End - rangeEnd , - rangeReadEnd , - rangeWriteEnd , - - --- ** Start - rangeReadStart , - rangeStart , - rangeWriteStart , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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) -instance WrappedPtr Range where - wrappedPtrCalloc = callocBytes 16 - wrappedPtrCopy = copyPtr 16 - wrappedPtrFree = Just ptr_to_g_free - --- | Construct a `Range` struct initialized to zero. -newZeroRange :: MonadIO m => m Range -newZeroRange = liftIO $ wrappedPtrCalloc >>= wrapPtr Range - -instance tag ~ 'AttrSet => Constructible Range tag where - new _ attrs = do - o <- newZeroRange - GI.Attributes.set o attrs - return o - - -noRange :: Maybe Range -noRange = Nothing - -rangeReadStart :: MonadIO m => Range -> m Int64 -rangeReadStart s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO Int64 - return val - -rangeWriteStart :: MonadIO m => Range -> Int64 -> m () -rangeWriteStart s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: Int64) - -data RangeStartFieldInfo -instance AttrInfo RangeStartFieldInfo where - type AttrAllowedOps RangeStartFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RangeStartFieldInfo = (~) Int64 - type AttrBaseTypeConstraint RangeStartFieldInfo = (~) Range - type AttrGetType RangeStartFieldInfo = Int64 - type AttrLabel RangeStartFieldInfo = "start" - attrGet _ = rangeReadStart - attrSet _ = rangeWriteStart - attrConstruct = undefined - attrClear _ = undefined - -rangeStart :: AttrLabelProxy "start" -rangeStart = AttrLabelProxy - - -rangeReadEnd :: MonadIO m => Range -> m Int64 -rangeReadEnd s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO Int64 - return val - -rangeWriteEnd :: MonadIO m => Range -> Int64 -> m () -rangeWriteEnd s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: Int64) - -data RangeEndFieldInfo -instance AttrInfo RangeEndFieldInfo where - type AttrAllowedOps RangeEndFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint RangeEndFieldInfo = (~) Int64 - type AttrBaseTypeConstraint RangeEndFieldInfo = (~) Range - type AttrGetType RangeEndFieldInfo = Int64 - type AttrLabel RangeEndFieldInfo = "end" - attrGet _ = rangeReadEnd - attrSet _ = rangeWriteEnd - attrConstruct = undefined - attrClear _ = undefined - -rangeEnd :: AttrLabelProxy "end" -rangeEnd = AttrLabelProxy - - - -type instance AttributeList Range = RangeAttributeList -type RangeAttributeList = ('[ '("start", RangeStartFieldInfo), '("end", RangeEndFieldInfo)] :: [(Symbol, *)]) - -type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * where - ResolveRangeMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabelProxy t (Range -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabel t (Range -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,11 +0,0 @@ -module GI.Soup.Structs.Range where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype Range = Range (ForeignPtr Range) -instance WrappedPtr Range where 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,1516 +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(..) , - newZeroURI , - noURI , - - - -- * Methods --- ** uRICopy - URICopyMethodInfo , - uRICopy , - - --- ** uRICopyHost - URICopyHostMethodInfo , - uRICopyHost , - - --- ** uRIDecode - uRIDecode , - - --- ** uRIEncode - uRIEncode , - - --- ** uRIEqual - URIEqualMethodInfo , - uRIEqual , - - --- ** uRIFree - URIFreeMethodInfo , - uRIFree , - - --- ** uRIGetFragment - URIGetFragmentMethodInfo , - uRIGetFragment , - - --- ** uRIGetHost - URIGetHostMethodInfo , - uRIGetHost , - - --- ** uRIGetPassword - URIGetPasswordMethodInfo , - uRIGetPassword , - - --- ** uRIGetPath - URIGetPathMethodInfo , - uRIGetPath , - - --- ** uRIGetPort - URIGetPortMethodInfo , - uRIGetPort , - - --- ** uRIGetQuery - URIGetQueryMethodInfo , - uRIGetQuery , - - --- ** uRIGetScheme - URIGetSchemeMethodInfo , - uRIGetScheme , - - --- ** uRIGetUser - URIGetUserMethodInfo , - uRIGetUser , - - --- ** uRIHostEqual - URIHostEqualMethodInfo , - uRIHostEqual , - - --- ** uRIHostHash - URIHostHashMethodInfo , - uRIHostHash , - - --- ** uRINew - uRINew , - - --- ** uRINewWithBase - URINewWithBaseMethodInfo , - uRINewWithBase , - - --- ** uRINormalize - uRINormalize , - - --- ** uRISetFragment - URISetFragmentMethodInfo , - uRISetFragment , - - --- ** uRISetHost - URISetHostMethodInfo , - uRISetHost , - - --- ** uRISetPassword - URISetPasswordMethodInfo , - uRISetPassword , - - --- ** uRISetPath - URISetPathMethodInfo , - uRISetPath , - - --- ** uRISetPort - URISetPortMethodInfo , - uRISetPort , - - --- ** uRISetQuery - URISetQueryMethodInfo , - uRISetQuery , - - --- ** uRISetQueryFromForm - URISetQueryFromFormMethodInfo , - uRISetQueryFromForm , - - --- ** uRISetScheme - URISetSchemeMethodInfo , - uRISetScheme , - - --- ** uRISetUser - URISetUserMethodInfo , - uRISetUser , - - --- ** uRIToString - URIToStringMethodInfo , - uRIToString , - - --- ** uRIUsesDefaultPort - URIUsesDefaultPortMethodInfo , - uRIUsesDefaultPort , - - - - - -- * Properties --- ** Fragment - uRIClearFragment , - uRIFragment , - uRIReadFragment , - uRIWriteFragment , - - --- ** Host - uRIClearHost , - uRIHost , - uRIReadHost , - uRIWriteHost , - - --- ** Password - uRIClearPassword , - uRIPassword , - uRIReadPassword , - uRIWritePassword , - - --- ** Path - uRIClearPath , - uRIPath , - uRIReadPath , - uRIWritePath , - - --- ** Port - uRIPort , - uRIReadPort , - uRIWritePort , - - --- ** Query - uRIClearQuery , - uRIQuery , - uRIReadQuery , - uRIWriteQuery , - - --- ** Scheme - uRIClearScheme , - uRIReadScheme , - uRIScheme , - uRIWriteScheme , - - --- ** User - uRIClearUser , - uRIReadUser , - uRIUser , - uRIWriteUser , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 - --- | Construct a `URI` struct initialized to zero. -newZeroURI :: MonadIO m => m URI -newZeroURI = liftIO $ callocBoxedBytes 64 >>= wrapBoxed URI - -instance tag ~ 'AttrSet => Constructible URI tag where - new _ attrs = do - o <- newZeroURI - GI.Attributes.set o attrs - return o - - -noURI :: Maybe URI -noURI = Nothing - -uRIReadScheme :: MonadIO m => URI -> m (Maybe T.Text) -uRIReadScheme s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 0) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -uRIWriteScheme :: MonadIO m => URI -> CString -> m () -uRIWriteScheme s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (val :: CString) - -uRIClearScheme :: MonadIO m => URI -> m () -uRIClearScheme s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 0) (nullPtr :: CString) - -data URISchemeFieldInfo -instance AttrInfo URISchemeFieldInfo where - type AttrAllowedOps URISchemeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URISchemeFieldInfo = (~) CString - type AttrBaseTypeConstraint URISchemeFieldInfo = (~) URI - type AttrGetType URISchemeFieldInfo = Maybe T.Text - type AttrLabel URISchemeFieldInfo = "scheme" - attrGet _ = uRIReadScheme - attrSet _ = uRIWriteScheme - attrConstruct = undefined - attrClear _ = uRIClearScheme - -uRIScheme :: AttrLabelProxy "scheme" -uRIScheme = AttrLabelProxy - - -uRIReadUser :: MonadIO m => URI -> m (Maybe T.Text) -uRIReadUser s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 8) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -uRIWriteUser :: MonadIO m => URI -> CString -> m () -uRIWriteUser s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (val :: CString) - -uRIClearUser :: MonadIO m => URI -> m () -uRIClearUser s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 8) (nullPtr :: CString) - -data URIUserFieldInfo -instance AttrInfo URIUserFieldInfo where - type AttrAllowedOps URIUserFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIUserFieldInfo = (~) CString - type AttrBaseTypeConstraint URIUserFieldInfo = (~) URI - type AttrGetType URIUserFieldInfo = Maybe T.Text - type AttrLabel URIUserFieldInfo = "user" - attrGet _ = uRIReadUser - attrSet _ = uRIWriteUser - attrConstruct = undefined - attrClear _ = uRIClearUser - -uRIUser :: AttrLabelProxy "user" -uRIUser = AttrLabelProxy - - -uRIReadPassword :: MonadIO m => URI -> m (Maybe T.Text) -uRIReadPassword s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 16) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -uRIWritePassword :: MonadIO m => URI -> CString -> m () -uRIWritePassword s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (val :: CString) - -uRIClearPassword :: MonadIO m => URI -> m () -uRIClearPassword s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 16) (nullPtr :: CString) - -data URIPasswordFieldInfo -instance AttrInfo URIPasswordFieldInfo where - type AttrAllowedOps URIPasswordFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIPasswordFieldInfo = (~) CString - type AttrBaseTypeConstraint URIPasswordFieldInfo = (~) URI - type AttrGetType URIPasswordFieldInfo = Maybe T.Text - type AttrLabel URIPasswordFieldInfo = "password" - attrGet _ = uRIReadPassword - attrSet _ = uRIWritePassword - attrConstruct = undefined - attrClear _ = uRIClearPassword - -uRIPassword :: AttrLabelProxy "password" -uRIPassword = AttrLabelProxy - - -uRIReadHost :: MonadIO m => URI -> m (Maybe T.Text) -uRIReadHost s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 24) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -uRIWriteHost :: MonadIO m => URI -> CString -> m () -uRIWriteHost s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (val :: CString) - -uRIClearHost :: MonadIO m => URI -> m () -uRIClearHost s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 24) (nullPtr :: CString) - -data URIHostFieldInfo -instance AttrInfo URIHostFieldInfo where - type AttrAllowedOps URIHostFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIHostFieldInfo = (~) CString - type AttrBaseTypeConstraint URIHostFieldInfo = (~) URI - type AttrGetType URIHostFieldInfo = Maybe T.Text - type AttrLabel URIHostFieldInfo = "host" - attrGet _ = uRIReadHost - attrSet _ = uRIWriteHost - attrConstruct = undefined - attrClear _ = uRIClearHost - -uRIHost :: AttrLabelProxy "host" -uRIHost = AttrLabelProxy - - -uRIReadPort :: MonadIO m => URI -> m Word32 -uRIReadPort s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 32) :: IO Word32 - return val - -uRIWritePort :: MonadIO m => URI -> Word32 -> m () -uRIWritePort s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 32) (val :: Word32) - -data URIPortFieldInfo -instance AttrInfo URIPortFieldInfo where - type AttrAllowedOps URIPortFieldInfo = '[ 'AttrSet, 'AttrGet] - type AttrSetTypeConstraint URIPortFieldInfo = (~) Word32 - type AttrBaseTypeConstraint URIPortFieldInfo = (~) URI - type AttrGetType URIPortFieldInfo = Word32 - type AttrLabel URIPortFieldInfo = "port" - attrGet _ = uRIReadPort - attrSet _ = uRIWritePort - attrConstruct = undefined - attrClear _ = undefined - -uRIPort :: AttrLabelProxy "port" -uRIPort = AttrLabelProxy - - -uRIReadPath :: MonadIO m => URI -> m (Maybe T.Text) -uRIReadPath s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 40) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -uRIWritePath :: MonadIO m => URI -> CString -> m () -uRIWritePath s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (val :: CString) - -uRIClearPath :: MonadIO m => URI -> m () -uRIClearPath s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 40) (nullPtr :: CString) - -data URIPathFieldInfo -instance AttrInfo URIPathFieldInfo where - type AttrAllowedOps URIPathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIPathFieldInfo = (~) CString - type AttrBaseTypeConstraint URIPathFieldInfo = (~) URI - type AttrGetType URIPathFieldInfo = Maybe T.Text - type AttrLabel URIPathFieldInfo = "path" - attrGet _ = uRIReadPath - attrSet _ = uRIWritePath - attrConstruct = undefined - attrClear _ = uRIClearPath - -uRIPath :: AttrLabelProxy "path" -uRIPath = AttrLabelProxy - - -uRIReadQuery :: MonadIO m => URI -> m (Maybe T.Text) -uRIReadQuery s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 48) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -uRIWriteQuery :: MonadIO m => URI -> CString -> m () -uRIWriteQuery s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (val :: CString) - -uRIClearQuery :: MonadIO m => URI -> m () -uRIClearQuery s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 48) (nullPtr :: CString) - -data URIQueryFieldInfo -instance AttrInfo URIQueryFieldInfo where - type AttrAllowedOps URIQueryFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIQueryFieldInfo = (~) CString - type AttrBaseTypeConstraint URIQueryFieldInfo = (~) URI - type AttrGetType URIQueryFieldInfo = Maybe T.Text - type AttrLabel URIQueryFieldInfo = "query" - attrGet _ = uRIReadQuery - attrSet _ = uRIWriteQuery - attrConstruct = undefined - attrClear _ = uRIClearQuery - -uRIQuery :: AttrLabelProxy "query" -uRIQuery = AttrLabelProxy - - -uRIReadFragment :: MonadIO m => URI -> m (Maybe T.Text) -uRIReadFragment s = liftIO $ withManagedPtr s $ \ptr -> do - val <- peek (ptr `plusPtr` 56) :: IO CString - result <- convertIfNonNull val $ \val' -> do - val'' <- cstringToText val' - return val'' - return result - -uRIWriteFragment :: MonadIO m => URI -> CString -> m () -uRIWriteFragment s val = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (val :: CString) - -uRIClearFragment :: MonadIO m => URI -> m () -uRIClearFragment s = liftIO $ withManagedPtr s $ \ptr -> do - poke (ptr `plusPtr` 56) (nullPtr :: CString) - -data URIFragmentFieldInfo -instance AttrInfo URIFragmentFieldInfo where - type AttrAllowedOps URIFragmentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear] - type AttrSetTypeConstraint URIFragmentFieldInfo = (~) CString - type AttrBaseTypeConstraint URIFragmentFieldInfo = (~) URI - type AttrGetType URIFragmentFieldInfo = Maybe T.Text - type AttrLabel URIFragmentFieldInfo = "fragment" - attrGet _ = uRIReadFragment - attrSet _ = uRIWriteFragment - attrConstruct = undefined - attrClear _ = uRIClearFragment - -uRIFragment :: AttrLabelProxy "fragment" -uRIFragment = AttrLabelProxy - - - -type instance AttributeList URI = URIAttributeList -type URIAttributeList = ('[ '("scheme", URISchemeFieldInfo), '("user", URIUserFieldInfo), '("password", URIPasswordFieldInfo), '("host", URIHostFieldInfo), '("port", URIPortFieldInfo), '("path", URIPathFieldInfo), '("query", URIQueryFieldInfo), '("fragment", URIFragmentFieldInfo)] :: [(Symbol, *)]) - --- method URI::new --- method type : Constructor --- Args : [Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- uriString - -> m (Maybe URI) -- result -uRINew uriString = liftIO $ do - maybeUriString <- case uriString of - Nothing -> return nullPtr - Just jUriString -> do - jUriString' <- textToCString jUriString - return jUriString' - result <- soup_uri_new maybeUriString - maybeResult <- convertIfNonNull result $ \result' -> do - result'' <- (wrapBoxed URI) result' - return result'' - freeMem maybeUriString - return maybeResult - --- method URI::copy --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URICopyMethodInfo -instance (signature ~ (m URI), MonadIO m) => MethodInfo URICopyMethodInfo URI signature where - overloadedMethod _ = uRICopy - --- method URI::copy_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URICopyHostMethodInfo -instance (signature ~ (m URI), MonadIO m) => MethodInfo URICopyHostMethodInfo URI signature where - overloadedMethod _ = uRICopyHost - --- method URI::equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIEqualMethodInfo -instance (signature ~ (URI -> m Bool), MonadIO m) => MethodInfo URIEqualMethodInfo URI signature where - overloadedMethod _ = uRIEqual - --- method URI::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -uRIFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_uri_free _obj' - touchManagedPtr _obj - return () - -data URIFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo URIFreeMethodInfo URI signature where - overloadedMethod _ = uRIFree - --- method URI::get_fragment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIGetFragmentMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetFragmentMethodInfo URI signature where - overloadedMethod _ = uRIGetFragment - --- method URI::get_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIGetHostMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetHostMethodInfo URI signature where - overloadedMethod _ = uRIGetHost - --- method URI::get_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIGetPasswordMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetPasswordMethodInfo URI signature where - overloadedMethod _ = uRIGetPassword - --- method URI::get_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIGetPathMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetPathMethodInfo URI signature where - overloadedMethod _ = uRIGetPath - --- method URI::get_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -uRIGetPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_get_port _obj' - touchManagedPtr _obj - return result - -data URIGetPortMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo URIGetPortMethodInfo URI signature where - overloadedMethod _ = uRIGetPort - --- method URI::get_query --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIGetQueryMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetQueryMethodInfo URI signature where - overloadedMethod _ = uRIGetQuery - --- method URI::get_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIGetSchemeMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetSchemeMethodInfo URI signature where - overloadedMethod _ = uRIGetScheme - --- method URI::get_user --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIGetUserMethodInfo -instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetUserMethodInfo URI signature where - overloadedMethod _ = uRIGetUser - --- method URI::host_equal --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - -data URIHostEqualMethodInfo -instance (signature ~ (URI -> m Bool), MonadIO m) => MethodInfo URIHostEqualMethodInfo URI signature where - overloadedMethod _ = uRIHostEqual - --- method URI::host_hash --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (TBasicType TUInt) --- 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 -- result -uRIHostHash _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_host_hash _obj' - touchManagedPtr _obj - return result - -data URIHostHashMethodInfo -instance (signature ~ (m Word32), MonadIO m) => MethodInfo URIHostHashMethodInfo URI signature where - overloadedMethod _ = uRIHostHash - --- method URI::new_with_base --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- uriString - -> m URI -- result -uRINewWithBase _obj uriString = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - uriString' <- textToCString uriString - result <- soup_uri_new_with_base _obj' uriString' - checkUnexpectedReturnNULL "soup_uri_new_with_base" result - result' <- (wrapBoxed URI) result - touchManagedPtr _obj - freeMem uriString' - return result' - -data URINewWithBaseMethodInfo -instance (signature ~ (T.Text -> m URI), MonadIO m) => MethodInfo URINewWithBaseMethodInfo URI signature where - overloadedMethod _ = uRINewWithBase - --- method URI::set_fragment --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data URISetFragmentMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetFragmentMethodInfo URI signature where - overloadedMethod _ = uRISetFragment - --- method URI::set_host --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data URISetHostMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetHostMethodInfo URI signature where - overloadedMethod _ = uRISetHost - --- method URI::set_password --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data URISetPasswordMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetPasswordMethodInfo URI signature where - overloadedMethod _ = uRISetPassword - --- method URI::set_path --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -uRISetPath _obj path = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - path' <- textToCString path - soup_uri_set_path _obj' path' - touchManagedPtr _obj - freeMem path' - return () - -data URISetPathMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo URISetPathMethodInfo URI signature where - overloadedMethod _ = uRISetPath - --- method URI::set_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 TUInt - IO () - - -uRISetPort :: - (MonadIO m) => - URI -- _obj - -> Word32 -- port - -> m () -- result -uRISetPort _obj port = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_uri_set_port _obj' port - touchManagedPtr _obj - return () - -data URISetPortMethodInfo -instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo URISetPortMethodInfo URI signature where - overloadedMethod _ = uRISetPort - --- method URI::set_query --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data URISetQueryMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetQueryMethodInfo URI signature where - overloadedMethod _ = uRISetQuery - --- method URI::set_query_from_form --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data URISetQueryFromFormMethodInfo -instance (signature ~ (Map.Map T.Text T.Text -> m ()), MonadIO m) => MethodInfo URISetQueryFromFormMethodInfo URI signature where - overloadedMethod _ = uRISetQueryFromForm - --- method URI::set_scheme --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -uRISetScheme _obj scheme = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - scheme' <- textToCString scheme - soup_uri_set_scheme _obj' scheme' - touchManagedPtr _obj - freeMem scheme' - return () - -data URISetSchemeMethodInfo -instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo URISetSchemeMethodInfo URI signature where - overloadedMethod _ = uRISetScheme - --- method URI::set_user --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -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 () - -data URISetUserMethodInfo -instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetUserMethodInfo URI signature where - overloadedMethod _ = uRISetUser - --- method URI::to_string --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- justPathAndQuery - -> m T.Text -- result -uRIToString _obj justPathAndQuery = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - let justPathAndQuery' = (fromIntegral . fromEnum) justPathAndQuery - result <- soup_uri_to_string _obj' justPathAndQuery' - checkUnexpectedReturnNULL "soup_uri_to_string" result - result' <- cstringToText result - freeMem result - touchManagedPtr _obj - return result' - -data URIToStringMethodInfo -instance (signature ~ (Bool -> m T.Text), MonadIO m) => MethodInfo URIToStringMethodInfo URI signature where - overloadedMethod _ = uRIToString - --- method URI::uses_default_port --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -uRIUsesDefaultPort _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - result <- soup_uri_uses_default_port _obj' - let result' = (/= 0) result - touchManagedPtr _obj - return result' - -data URIUsesDefaultPortMethodInfo -instance (signature ~ (m Bool), MonadIO m) => MethodInfo URIUsesDefaultPortMethodInfo URI signature where - overloadedMethod _ = uRIUsesDefaultPort - --- method URI::decode --- method type : MemberFunction --- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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 -- result -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' - --- method URI::encode --- method type : MemberFunction --- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- escapeExtra - -> m T.Text -- result -uRIEncode part escapeExtra = liftIO $ do - part' <- textToCString part - maybeEscapeExtra <- case escapeExtra of - Nothing -> return nullPtr - Just jEscapeExtra -> do - jEscapeExtra' <- textToCString jEscapeExtra - return jEscapeExtra' - result <- soup_uri_encode part' maybeEscapeExtra - checkUnexpectedReturnNULL "soup_uri_encode" result - result' <- cstringToText result - freeMem result - freeMem part' - freeMem maybeEscapeExtra - return result' - --- method URI::normalize --- method type : MemberFunction --- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just (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) -- unescapeExtra - -> m T.Text -- result -uRINormalize part unescapeExtra = liftIO $ do - part' <- textToCString part - maybeUnescapeExtra <- case unescapeExtra of - Nothing -> return nullPtr - Just jUnescapeExtra -> do - jUnescapeExtra' <- textToCString jUnescapeExtra - return jUnescapeExtra' - result <- soup_uri_normalize part' maybeUnescapeExtra - checkUnexpectedReturnNULL "soup_uri_normalize" result - result' <- cstringToText result - freeMem result - freeMem part' - freeMem maybeUnescapeExtra - return result' - -type family ResolveURIMethod (t :: Symbol) (o :: *) :: * where - ResolveURIMethod "copy" o = URICopyMethodInfo - ResolveURIMethod "copyHost" o = URICopyHostMethodInfo - ResolveURIMethod "equal" o = URIEqualMethodInfo - ResolveURIMethod "free" o = URIFreeMethodInfo - ResolveURIMethod "hostEqual" o = URIHostEqualMethodInfo - ResolveURIMethod "hostHash" o = URIHostHashMethodInfo - ResolveURIMethod "newWithBase" o = URINewWithBaseMethodInfo - ResolveURIMethod "toString" o = URIToStringMethodInfo - ResolveURIMethod "usesDefaultPort" o = URIUsesDefaultPortMethodInfo - ResolveURIMethod "getFragment" o = URIGetFragmentMethodInfo - ResolveURIMethod "getHost" o = URIGetHostMethodInfo - ResolveURIMethod "getPassword" o = URIGetPasswordMethodInfo - ResolveURIMethod "getPath" o = URIGetPathMethodInfo - ResolveURIMethod "getPort" o = URIGetPortMethodInfo - ResolveURIMethod "getQuery" o = URIGetQueryMethodInfo - ResolveURIMethod "getScheme" o = URIGetSchemeMethodInfo - ResolveURIMethod "getUser" o = URIGetUserMethodInfo - ResolveURIMethod "setFragment" o = URISetFragmentMethodInfo - ResolveURIMethod "setHost" o = URISetHostMethodInfo - ResolveURIMethod "setPassword" o = URISetPasswordMethodInfo - ResolveURIMethod "setPath" o = URISetPathMethodInfo - ResolveURIMethod "setPort" o = URISetPortMethodInfo - ResolveURIMethod "setQuery" o = URISetQueryMethodInfo - ResolveURIMethod "setQueryFromForm" o = URISetQueryFromFormMethodInfo - ResolveURIMethod "setScheme" o = URISetSchemeMethodInfo - ResolveURIMethod "setUser" o = URISetUserMethodInfo - ResolveURIMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveURIMethod t URI, MethodInfo info URI p) => IsLabelProxy t (URI -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveURIMethod t URI, MethodInfo info URI p) => IsLabel t (URI -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - 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,37 +0,0 @@ -module GI.Soup.Structs.URI where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 -data URICopyMethodInfo -data URICopyHostMethodInfo -data URIEqualMethodInfo -data URIFreeMethodInfo -data URIGetFragmentMethodInfo -data URIGetHostMethodInfo -data URIGetPasswordMethodInfo -data URIGetPathMethodInfo -data URIGetPortMethodInfo -data URIGetQueryMethodInfo -data URIGetSchemeMethodInfo -data URIGetUserMethodInfo -data URIHostEqualMethodInfo -data URIHostHashMethodInfo -data URINewWithBaseMethodInfo -data URISetFragmentMethodInfo -data URISetHostMethodInfo -data URISetPasswordMethodInfo -data URISetPathMethodInfo -data URISetPortMethodInfo -data URISetQueryMethodInfo -data URISetQueryFromFormMethodInfo -data URISetSchemeMethodInfo -data URISetUserMethodInfo -data URIToStringMethodInfo -data URIUsesDefaultPortMethodInfo diff --git a/GI/Soup/Structs/XMLRPCParams.hs b/GI/Soup/Structs/XMLRPCParams.hs deleted file mode 100644 --- a/GI/Soup/Structs/XMLRPCParams.hs +++ /dev/null @@ -1,142 +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) - -Opaque structure containing XML-RPC methodCall parameter values. -Can be parsed using soup_xmlrpc_params_parse() and freed with -soup_xmlrpc_params_free(). --} - -module GI.Soup.Structs.XMLRPCParams - ( - --- * Exported types - XMLRPCParams(..) , - noXMLRPCParams , - - - -- * Methods --- ** xMLRPCParamsFree - XMLRPCParamsFreeMethodInfo , - xMLRPCParamsFree , - - --- ** xMLRPCParamsParse - XMLRPCParamsParseMethodInfo , - xMLRPCParamsParse , - - - - - ) where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -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 XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams) --- XXX Wrapping a foreign struct/union with no known destructor or size, leak? -instance WrappedPtr XMLRPCParams where - wrappedPtrCalloc = return nullPtr - wrappedPtrCopy = return - wrappedPtrFree = Nothing - -noXMLRPCParams :: Maybe XMLRPCParams -noXMLRPCParams = Nothing - - -type instance AttributeList XMLRPCParams = XMLRPCParamsAttributeList -type XMLRPCParamsAttributeList = ('[ ] :: [(Symbol, *)]) - --- method XMLRPCParams::free --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Nothing --- 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 () -- result -xMLRPCParamsFree _obj = liftIO $ do - let _obj' = unsafeManagedPtrGetPtr _obj - soup_xmlrpc_params_free _obj' - touchManagedPtr _obj - return () - -data XMLRPCParamsFreeMethodInfo -instance (signature ~ (m ()), MonadIO m) => MethodInfo XMLRPCParamsFreeMethodInfo XMLRPCParams signature where - overloadedMethod _ = xMLRPCParamsFree - --- method XMLRPCParams::parse --- method type : OrdinaryMethod --- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] --- Lengths : [] --- returnType : Just 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 -- result -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 - ) - -data XMLRPCParamsParseMethodInfo -instance (signature ~ (Maybe (T.Text) -> m GVariant), MonadIO m) => MethodInfo XMLRPCParamsParseMethodInfo XMLRPCParams signature where - overloadedMethod _ = xMLRPCParamsParse - -type family ResolveXMLRPCParamsMethod (t :: Symbol) (o :: *) :: * where - ResolveXMLRPCParamsMethod "free" o = XMLRPCParamsFreeMethodInfo - ResolveXMLRPCParamsMethod "parse" o = XMLRPCParamsParseMethodInfo - ResolveXMLRPCParamsMethod l o = MethodResolutionFailed l o - -instance (info ~ ResolveXMLRPCParamsMethod t XMLRPCParams, MethodInfo info XMLRPCParams p) => IsLabelProxy t (XMLRPCParams -> p) where - fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) - -#if MIN_VERSION_base(4,9,0) -instance (info ~ ResolveXMLRPCParamsMethod t XMLRPCParams, MethodInfo info XMLRPCParams p) => IsLabel t (XMLRPCParams -> p) where - fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) -#endif - - diff --git a/GI/Soup/Structs/XMLRPCParams.hs-boot b/GI/Soup/Structs/XMLRPCParams.hs-boot deleted file mode 100644 --- a/GI/Soup/Structs/XMLRPCParams.hs-boot +++ /dev/null @@ -1,13 +0,0 @@ -module GI.Soup.Structs.XMLRPCParams where - -import Data.GI.Base.ShortPrelude - -import qualified Data.GI.Base.Attributes as GI.Attributes -import qualified Data.Text as T -import qualified Data.ByteString.Char8 as B -import qualified Data.Map as Map - -newtype XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams) -instance WrappedPtr XMLRPCParams where -data XMLRPCParamsFreeMethodInfo -data XMLRPCParamsParseMethodInfo diff --git a/GI/Soup/Types.hs b/GI/Soup/Types.hs deleted file mode 100644 --- a/GI/Soup/Types.hs +++ /dev/null @@ -1,106 +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.Structs.XMLRPCParams , - 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 {-# SOURCE #-} GI.Soup.Structs.XMLRPCParams - -import GI.Soup.Enums -import GI.Soup.Flags - diff --git a/Setup.hs b/Setup.hs --- a/Setup.hs +++ b/Setup.hs @@ -1,3 +1,12 @@ -#!/usr/bin/env runhaskell -import Distribution.Simple -main = defaultMain +{-# LANGUAGE OverloadedStrings #-} + +import Distribution.Simple (defaultMainWithHooks) +import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks) + +main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose + overridesFile outputDir) + where name = "Soup" + version = "2.4" + verbose = False + overridesFile = Just "Soup.overrides" + outputDir = Nothing diff --git a/Soup.overrides b/Soup.overrides new file mode 100644 --- /dev/null +++ b/Soup.overrides @@ -0,0 +1,4 @@ +namespace Soup + +# The "len" parameter is not marked as (out) +ignore Address.get_sockaddr diff --git a/gi-soup.cabal b/gi-soup.cabal --- a/gi-soup.cabal +++ b/gi-soup.cabal @@ -1,86 +1,36 @@ --- Autogenerated, do not edit. name: gi-soup -version: 0.2.52.15 -synopsis: Soup bindings -description: Bindings for Soup, autogenerated by haskell-gi. +version: 2.4.1 +synopsis: Libsoup bindings +description: Bindings for Libsoup, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi license: LGPL-2.1 license-file: LICENSE author: Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer: Iñaki García Etxebarria (garetxe@gmail.com) category: Bindings -build-type: Simple -cabal-version: >=1.10 +build-type: Custom +cabal-version: >= 1.24 +extra-source-files: Soup.overrides + +custom-setup + setup-depends: base >= 4.7, + Cabal >= 1.24, + haskell-gi >= 0.15 + library default-language: Haskell2010 default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts other-extensions: PatternSynonyms 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 - GI.Soup.Structs.XMLRPCParams - pkgconfig-depends: libsoup-2.4 >= 2.52 + + pkgconfig-depends: libsoup-2.4 build-depends: base >= 4.7 && <5, haskell-gi-base >= 0.15 && < 1, - gi-glib >= 0.2.46.15 && < 0.2.47, - gi-gobject >= 0.2.46.15 && < 0.2.47, - gi-gio >= 0.2.46.15 && < 0.2.47, + gi-glib == 2.0.*, + gi-gobject == 2.0.*, + gi-gio == 2.0.*, bytestring >= 0.10, containers >= 0.5, text >= 1.0, - transformers >= 0.3 + transformers >= 0.5