{- |
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.WebKit2.Structs.NetworkProxySettings
    ( 

-- * Exported types
    NetworkProxySettings(..)                ,
    noNetworkProxySettings                  ,


 -- * Methods
-- ** addProxyForScheme #method:addProxyForScheme#
    NetworkProxySettingsAddProxyForSchemeMethodInfo,
    networkProxySettingsAddProxyForScheme   ,


-- ** copy #method:copy#
    NetworkProxySettingsCopyMethodInfo      ,
    networkProxySettingsCopy                ,


-- ** free #method:free#
    NetworkProxySettingsFreeMethodInfo      ,
    networkProxySettingsFree                ,


-- ** new #method:new#
    networkProxySettingsNew                 ,




    ) where

import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P

import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP


newtype NetworkProxySettings = NetworkProxySettings (ManagedPtr NetworkProxySettings)
foreign import ccall "webkit_network_proxy_settings_get_type" c_webkit_network_proxy_settings_get_type :: 
    IO GType

instance BoxedObject NetworkProxySettings where
    boxedType _ = c_webkit_network_proxy_settings_get_type

noNetworkProxySettings :: Maybe NetworkProxySettings
noNetworkProxySettings = Nothing


instance O.HasAttributeList NetworkProxySettings
type instance O.AttributeList NetworkProxySettings = NetworkProxySettingsAttributeList
type NetworkProxySettingsAttributeList = ('[ ] :: [(Symbol, *)])

-- method NetworkProxySettings::new
-- method type : Constructor
-- Args : [Arg {argCName = "default_proxy_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the default proxy URI to use, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ignore_hosts", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "an optional list of hosts/IP addresses to not use a proxy for.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}))
-- throws : False
-- Skip return : False

foreign import ccall "webkit_network_proxy_settings_new" webkit_network_proxy_settings_new :: 
    CString ->                              -- default_proxy_uri : TBasicType TUTF8
    CString ->                              -- ignore_hosts : TBasicType TUTF8
    IO (Ptr NetworkProxySettings)

{- |
Create a new 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' with the given /@defaultProxyUri@/ and /@ignoreHosts@/.

The default proxy URI will be used for any URI that doesn\'t match /@ignoreHosts@/, and doesn\'t match any
of the schemes added with 'GI.WebKit2.Structs.NetworkProxySettings.networkProxySettingsAddProxyForScheme'.
If /@defaultProxyUri@/ starts with \"socks:\/\/\", it will be treated as referring to all three of the
socks5, socks4a, and socks4 proxy types.

/@ignoreHosts@/ is a list of hostnames and IP addresses that the resolver should allow direct connections to.
Entries can be in one of 4 formats:
\<itemizedlist>
\<listitem>\<para>
A hostname, such as \"example.com\", \".example.com\", or \"*.example.com\", any of which match \"example.com\" or
any subdomain of it.
\<\/para>\<\/listitem>
\<listitem>\<para>
An IPv4 or IPv6 address, such as \"192.168.1.1\", which matches only that address.
\<\/para>\<\/listitem>
\<listitem>\<para>
A hostname or IP address followed by a port, such as \"example.com:80\", which matches whatever the hostname or IP
address would match, but only for URLs with the (explicitly) indicated port. In the case of an IPv6 address, the address
part must appear in brackets: \"[::1]:443\"
\<\/para>\<\/listitem>
\<listitem>\<para>
An IP address range, given by a base address and prefix length, such as \"fe80::\/10\", which matches any address in that range.
\<\/para>\<\/listitem>
\<\/itemizedlist>

Note that when dealing with Unicode hostnames, the matching is done against the ASCII form of the name.
Also note that hostname exclusions apply only to connections made to hosts identified by name, and IP address exclusions apply only
to connections made to hosts identified by address. That is, if example.com has an address of 192.168.1.1, and /@ignoreHosts@/
contains only \"192.168.1.1\", then a connection to \"example.com\" will use the proxy, and a connection to 192.168.1.1\" will not.

@since 2.16
-}
networkProxySettingsNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    Maybe (T.Text)
    {- ^ /@defaultProxyUri@/: the default proxy URI to use, or 'Nothing'. -}
    -> Maybe (T.Text)
    {- ^ /@ignoreHosts@/: an optional list of hosts\/IP addresses to not use a proxy for. -}
    -> m NetworkProxySettings
    {- ^ __Returns:__ A new 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings'. -}
networkProxySettingsNew defaultProxyUri ignoreHosts = liftIO $ do
    maybeDefaultProxyUri <- case defaultProxyUri of
        Nothing -> return nullPtr
        Just jDefaultProxyUri -> do
            jDefaultProxyUri' <- textToCString jDefaultProxyUri
            return jDefaultProxyUri'
    maybeIgnoreHosts <- case ignoreHosts of
        Nothing -> return nullPtr
        Just jIgnoreHosts -> do
            jIgnoreHosts' <- textToCString jIgnoreHosts
            return jIgnoreHosts'
    result <- webkit_network_proxy_settings_new maybeDefaultProxyUri maybeIgnoreHosts
    checkUnexpectedReturnNULL "networkProxySettingsNew" result
    result' <- (wrapBoxed NetworkProxySettings) result
    freeMem maybeDefaultProxyUri
    freeMem maybeIgnoreHosts
    return result'

-- method NetworkProxySettings::add_proxy_for_scheme
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "proxy_settings", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNetworkProxySettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI scheme to add a proxy for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the proxy URI to use for @uri_scheme", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "webkit_network_proxy_settings_add_proxy_for_scheme" webkit_network_proxy_settings_add_proxy_for_scheme :: 
    Ptr NetworkProxySettings ->             -- proxy_settings : TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"})
    CString ->                              -- scheme : TBasicType TUTF8
    CString ->                              -- proxy_uri : TBasicType TUTF8
    IO ()

{- |
Adds a URI-scheme-specific proxy. URIs whose scheme matches /@uriScheme@/ will be proxied via /@proxyUri@/.
As with the default proxy URI, if /@proxyUri@/ starts with \"socks:\/\/\", it will be treated as referring to
all three of the socks5, socks4a, and socks4 proxy types.

@since 2.16
-}
networkProxySettingsAddProxyForScheme ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    NetworkProxySettings
    {- ^ /@proxySettings@/: a 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}
    -> T.Text
    {- ^ /@scheme@/: the URI scheme to add a proxy for -}
    -> T.Text
    {- ^ /@proxyUri@/: the proxy URI to use for /@uriScheme@/ -}
    -> m ()
networkProxySettingsAddProxyForScheme proxySettings scheme proxyUri = liftIO $ do
    proxySettings' <- unsafeManagedPtrGetPtr proxySettings
    scheme' <- textToCString scheme
    proxyUri' <- textToCString proxyUri
    webkit_network_proxy_settings_add_proxy_for_scheme proxySettings' scheme' proxyUri'
    touchManagedPtr proxySettings
    freeMem scheme'
    freeMem proxyUri'
    return ()

data NetworkProxySettingsAddProxyForSchemeMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => O.MethodInfo NetworkProxySettingsAddProxyForSchemeMethodInfo NetworkProxySettings signature where
    overloadedMethod _ = networkProxySettingsAddProxyForScheme

-- method NetworkProxySettings::copy
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "proxy_settings", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #WebKitNetworkProxySettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}))
-- throws : False
-- Skip return : False

foreign import ccall "webkit_network_proxy_settings_copy" webkit_network_proxy_settings_copy :: 
    Ptr NetworkProxySettings ->             -- proxy_settings : TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"})
    IO (Ptr NetworkProxySettings)

{- |
Make a copy of the 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings'.

@since 2.16
-}
networkProxySettingsCopy ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    NetworkProxySettings
    {- ^ /@proxySettings@/: a 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}
    -> m NetworkProxySettings
    {- ^ __Returns:__ A copy of passed in 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}
networkProxySettingsCopy proxySettings = liftIO $ do
    proxySettings' <- unsafeManagedPtrGetPtr proxySettings
    result <- webkit_network_proxy_settings_copy proxySettings'
    checkUnexpectedReturnNULL "networkProxySettingsCopy" result
    result' <- (wrapBoxed NetworkProxySettings) result
    touchManagedPtr proxySettings
    return result'

data NetworkProxySettingsCopyMethodInfo
instance (signature ~ (m NetworkProxySettings), MonadIO m) => O.MethodInfo NetworkProxySettingsCopyMethodInfo NetworkProxySettings signature where
    overloadedMethod _ = networkProxySettingsCopy

-- method NetworkProxySettings::free
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "proxy_settings", argType = TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitNetworkProxySettings", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "webkit_network_proxy_settings_free" webkit_network_proxy_settings_free :: 
    Ptr NetworkProxySettings ->             -- proxy_settings : TInterface (Name {namespace = "WebKit2", name = "NetworkProxySettings"})
    IO ()

{- |
Free the 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings'.

@since 2.16
-}
networkProxySettingsFree ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    NetworkProxySettings
    {- ^ /@proxySettings@/: A 'GI.WebKit2.Structs.NetworkProxySettings.NetworkProxySettings' -}
    -> m ()
networkProxySettingsFree proxySettings = liftIO $ do
    proxySettings' <- unsafeManagedPtrGetPtr proxySettings
    webkit_network_proxy_settings_free proxySettings'
    touchManagedPtr proxySettings
    return ()

data NetworkProxySettingsFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo NetworkProxySettingsFreeMethodInfo NetworkProxySettings signature where
    overloadedMethod _ = networkProxySettingsFree

type family ResolveNetworkProxySettingsMethod (t :: Symbol) (o :: *) :: * where
    ResolveNetworkProxySettingsMethod "addProxyForScheme" o = NetworkProxySettingsAddProxyForSchemeMethodInfo
    ResolveNetworkProxySettingsMethod "copy" o = NetworkProxySettingsCopyMethodInfo
    ResolveNetworkProxySettingsMethod "free" o = NetworkProxySettingsFreeMethodInfo
    ResolveNetworkProxySettingsMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveNetworkProxySettingsMethod t NetworkProxySettings, O.MethodInfo info NetworkProxySettings p) => O.IsLabelProxy t (NetworkProxySettings -> p) where
    fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveNetworkProxySettingsMethod t NetworkProxySettings, O.MethodInfo info NetworkProxySettings p) => O.IsLabel t (NetworkProxySettings -> p) where
    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif