{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' is a simple t'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' implementation
-- that handles a single default proxy, multiple URI-scheme-specific
-- proxies, and a list of hosts that proxies should not be used for.
-- 
-- t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' is never the default proxy resolver, but it
-- can be used as the base class for another proxy resolver
-- implementation, or it can be created and used manually, such as
-- with 'GI.Gio.Objects.SocketClient.socketClientSetProxyResolver'.
-- 
-- /Since: 2.36/

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.Gio.Objects.SimpleProxyResolver
    ( 

-- * Exported types
    SimpleProxyResolver(..)                 ,
    IsSimpleProxyResolver                   ,
    toSimpleProxyResolver                   ,


 -- * Methods
-- ** Overloaded methods #method:Overloaded methods#

#if defined(ENABLE_OVERLOADING)
    ResolveSimpleProxyResolverMethod        ,
#endif


-- ** new #method:new#

    simpleProxyResolverNew                  ,


-- ** setDefaultProxy #method:setDefaultProxy#

#if defined(ENABLE_OVERLOADING)
    SimpleProxyResolverSetDefaultProxyMethodInfo,
#endif
    simpleProxyResolverSetDefaultProxy      ,


-- ** setIgnoreHosts #method:setIgnoreHosts#

#if defined(ENABLE_OVERLOADING)
    SimpleProxyResolverSetIgnoreHostsMethodInfo,
#endif
    simpleProxyResolverSetIgnoreHosts       ,


-- ** setUriProxy #method:setUriProxy#

#if defined(ENABLE_OVERLOADING)
    SimpleProxyResolverSetUriProxyMethodInfo,
#endif
    simpleProxyResolverSetUriProxy          ,




 -- * Properties
-- ** defaultProxy #attr:defaultProxy#
-- | The default proxy URI that will be used for any URI that doesn\'t
-- match t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@, and doesn\'t match any
-- of the schemes set with 'GI.Gio.Objects.SimpleProxyResolver.simpleProxyResolverSetUriProxy'.
-- 
-- Note that as a special case, if this URI starts with
-- \"socks:\/\/\", t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' will treat it as referring
-- to all three of the socks5, socks4a, and socks4 proxy types.

#if defined(ENABLE_OVERLOADING)
    SimpleProxyResolverDefaultProxyPropertyInfo,
#endif
    constructSimpleProxyResolverDefaultProxy,
    getSimpleProxyResolverDefaultProxy      ,
    setSimpleProxyResolverDefaultProxy      ,
#if defined(ENABLE_OVERLOADING)
    simpleProxyResolverDefaultProxy         ,
#endif


-- ** ignoreHosts #attr:ignoreHosts#
-- | A list of hostnames and IP addresses that the resolver should
-- allow direct connections to.
-- 
-- Entries can be in one of 4 formats:
-- 
-- * A hostname, such as \"example.com\", \".example.com\", or
-- \"*.example.com\", any of which match \"example.com\" or
-- any subdomain of it.
-- * An IPv4 or IPv6 address, such as \"192.168.1.1\",
-- which matches only that address.
-- * 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](#g:signal:1)]:443\"
-- * An IP address range, given by a base address and prefix length,
-- such as \"fe80::\/10\", which matches any address in that range.
-- 
-- 
-- 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 the :ignore-hosts list
-- contains only \"192.168.1.1\", then a connection to \"example.com\"
-- (eg, via a t'GI.Gio.Objects.NetworkAddress.NetworkAddress') will use the proxy, and a connection to
-- \"192.168.1.1\" (eg, via a t'GI.Gio.Objects.InetSocketAddress.InetSocketAddress') will not.
-- 
-- These rules match the \"ignore-hosts\"\/\"noproxy\" rules most
-- commonly used by other applications.

#if defined(ENABLE_OVERLOADING)
    SimpleProxyResolverIgnoreHostsPropertyInfo,
#endif
    clearSimpleProxyResolverIgnoreHosts     ,
    constructSimpleProxyResolverIgnoreHosts ,
    getSimpleProxyResolverIgnoreHosts       ,
    setSimpleProxyResolverIgnoreHosts       ,
#if defined(ENABLE_OVERLOADING)
    simpleProxyResolverIgnoreHosts          ,
#endif




    ) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
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
import qualified GHC.OverloadedLabels as OL

import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver

-- | Memory-managed wrapper type.
newtype SimpleProxyResolver = SimpleProxyResolver (SP.ManagedPtr SimpleProxyResolver)
    deriving (SimpleProxyResolver -> SimpleProxyResolver -> Bool
(SimpleProxyResolver -> SimpleProxyResolver -> Bool)
-> (SimpleProxyResolver -> SimpleProxyResolver -> Bool)
-> Eq SimpleProxyResolver
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SimpleProxyResolver -> SimpleProxyResolver -> Bool
$c/= :: SimpleProxyResolver -> SimpleProxyResolver -> Bool
== :: SimpleProxyResolver -> SimpleProxyResolver -> Bool
$c== :: SimpleProxyResolver -> SimpleProxyResolver -> Bool
Eq)

instance SP.ManagedPtrNewtype SimpleProxyResolver where
    toManagedPtr :: SimpleProxyResolver -> ManagedPtr SimpleProxyResolver
toManagedPtr (SimpleProxyResolver ManagedPtr SimpleProxyResolver
p) = ManagedPtr SimpleProxyResolver
p

foreign import ccall "g_simple_proxy_resolver_get_type"
    c_g_simple_proxy_resolver_get_type :: IO B.Types.GType

instance B.Types.TypedObject SimpleProxyResolver where
    glibType :: IO GType
glibType = IO GType
c_g_simple_proxy_resolver_get_type

instance B.Types.GObject SimpleProxyResolver

-- | Convert 'SimpleProxyResolver' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue SimpleProxyResolver where
    toGValue :: SimpleProxyResolver -> IO GValue
toGValue SimpleProxyResolver
o = do
        GType
gtype <- IO GType
c_g_simple_proxy_resolver_get_type
        SimpleProxyResolver
-> (Ptr SimpleProxyResolver -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SimpleProxyResolver
o (GType
-> (GValue -> Ptr SimpleProxyResolver -> IO ())
-> Ptr SimpleProxyResolver
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr SimpleProxyResolver -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
        
    fromGValue :: GValue -> IO SimpleProxyResolver
fromGValue GValue
gv = do
        Ptr SimpleProxyResolver
ptr <- GValue -> IO (Ptr SimpleProxyResolver)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr SimpleProxyResolver)
        (ManagedPtr SimpleProxyResolver -> SimpleProxyResolver)
-> Ptr SimpleProxyResolver -> IO SimpleProxyResolver
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SimpleProxyResolver -> SimpleProxyResolver
SimpleProxyResolver Ptr SimpleProxyResolver
ptr
        
    

-- | Type class for types which can be safely cast to `SimpleProxyResolver`, for instance with `toSimpleProxyResolver`.
class (SP.GObject o, O.IsDescendantOf SimpleProxyResolver o) => IsSimpleProxyResolver o
instance (SP.GObject o, O.IsDescendantOf SimpleProxyResolver o) => IsSimpleProxyResolver o

instance O.HasParentTypes SimpleProxyResolver
type instance O.ParentTypes SimpleProxyResolver = '[GObject.Object.Object, Gio.ProxyResolver.ProxyResolver]

-- | Cast to `SimpleProxyResolver`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toSimpleProxyResolver :: (MonadIO m, IsSimpleProxyResolver o) => o -> m SimpleProxyResolver
toSimpleProxyResolver :: o -> m SimpleProxyResolver
toSimpleProxyResolver = IO SimpleProxyResolver -> m SimpleProxyResolver
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SimpleProxyResolver -> m SimpleProxyResolver)
-> (o -> IO SimpleProxyResolver) -> o -> m SimpleProxyResolver
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SimpleProxyResolver -> SimpleProxyResolver)
-> o -> IO SimpleProxyResolver
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
 ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr SimpleProxyResolver -> SimpleProxyResolver
SimpleProxyResolver

#if defined(ENABLE_OVERLOADING)
type family ResolveSimpleProxyResolverMethod (t :: Symbol) (o :: *) :: * where
    ResolveSimpleProxyResolverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveSimpleProxyResolverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveSimpleProxyResolverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveSimpleProxyResolverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveSimpleProxyResolverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveSimpleProxyResolverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveSimpleProxyResolverMethod "isSupported" o = Gio.ProxyResolver.ProxyResolverIsSupportedMethodInfo
    ResolveSimpleProxyResolverMethod "lookup" o = Gio.ProxyResolver.ProxyResolverLookupMethodInfo
    ResolveSimpleProxyResolverMethod "lookupAsync" o = Gio.ProxyResolver.ProxyResolverLookupAsyncMethodInfo
    ResolveSimpleProxyResolverMethod "lookupFinish" o = Gio.ProxyResolver.ProxyResolverLookupFinishMethodInfo
    ResolveSimpleProxyResolverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveSimpleProxyResolverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveSimpleProxyResolverMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveSimpleProxyResolverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveSimpleProxyResolverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveSimpleProxyResolverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveSimpleProxyResolverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveSimpleProxyResolverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveSimpleProxyResolverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveSimpleProxyResolverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveSimpleProxyResolverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveSimpleProxyResolverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveSimpleProxyResolverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveSimpleProxyResolverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveSimpleProxyResolverMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveSimpleProxyResolverMethod "setDefaultProxy" o = SimpleProxyResolverSetDefaultProxyMethodInfo
    ResolveSimpleProxyResolverMethod "setIgnoreHosts" o = SimpleProxyResolverSetIgnoreHostsMethodInfo
    ResolveSimpleProxyResolverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveSimpleProxyResolverMethod "setUriProxy" o = SimpleProxyResolverSetUriProxyMethodInfo
    ResolveSimpleProxyResolverMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveSimpleProxyResolverMethod t SimpleProxyResolver, O.MethodInfo info SimpleProxyResolver p) => OL.IsLabel t (SimpleProxyResolver -> p) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.overloadedMethod @info
#else
    fromLabel _ = O.overloadedMethod @info
#endif

#endif

-- VVV Prop "default-proxy"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Nothing,Just False)

-- | Get the value of the “@default-proxy@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' simpleProxyResolver #defaultProxy
-- @
getSimpleProxyResolverDefaultProxy :: (MonadIO m, IsSimpleProxyResolver o) => o -> m (Maybe T.Text)
getSimpleProxyResolverDefaultProxy :: o -> m (Maybe Text)
getSimpleProxyResolverDefaultProxy o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"default-proxy"

-- | Set the value of the “@default-proxy@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' simpleProxyResolver [ #defaultProxy 'Data.GI.Base.Attributes.:=' value ]
-- @
setSimpleProxyResolverDefaultProxy :: (MonadIO m, IsSimpleProxyResolver o) => o -> T.Text -> m ()
setSimpleProxyResolverDefaultProxy :: o -> Text -> m ()
setSimpleProxyResolverDefaultProxy o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"default-proxy" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)

-- | Construct a `GValueConstruct` with valid value for the “@default-proxy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructSimpleProxyResolverDefaultProxy :: (IsSimpleProxyResolver o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructSimpleProxyResolverDefaultProxy :: Text -> m (GValueConstruct o)
constructSimpleProxyResolverDefaultProxy Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"default-proxy" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)

#if defined(ENABLE_OVERLOADING)
data SimpleProxyResolverDefaultProxyPropertyInfo
instance AttrInfo SimpleProxyResolverDefaultProxyPropertyInfo where
    type AttrAllowedOps SimpleProxyResolverDefaultProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
    type AttrBaseTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = IsSimpleProxyResolver
    type AttrSetTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint SimpleProxyResolverDefaultProxyPropertyInfo = (~) T.Text
    type AttrTransferType SimpleProxyResolverDefaultProxyPropertyInfo = T.Text
    type AttrGetType SimpleProxyResolverDefaultProxyPropertyInfo = (Maybe T.Text)
    type AttrLabel SimpleProxyResolverDefaultProxyPropertyInfo = "default-proxy"
    type AttrOrigin SimpleProxyResolverDefaultProxyPropertyInfo = SimpleProxyResolver
    attrGet = getSimpleProxyResolverDefaultProxy
    attrSet = setSimpleProxyResolverDefaultProxy
    attrTransfer _ v = do
        return v
    attrConstruct = constructSimpleProxyResolverDefaultProxy
    attrClear = undefined
#endif

-- VVV Prop "ignore-hosts"
   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Nothing,Nothing)

-- | Get the value of the “@ignore-hosts@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' simpleProxyResolver #ignoreHosts
-- @
getSimpleProxyResolverIgnoreHosts :: (MonadIO m, IsSimpleProxyResolver o) => o -> m (Maybe [T.Text])
getSimpleProxyResolverIgnoreHosts :: o -> m (Maybe [Text])
getSimpleProxyResolverIgnoreHosts o
obj = IO (Maybe [Text]) -> m (Maybe [Text])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe [Text]) -> m (Maybe [Text]))
-> IO (Maybe [Text]) -> m (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe [Text])
forall a. GObject a => a -> String -> IO (Maybe [Text])
B.Properties.getObjectPropertyStringArray o
obj String
"ignore-hosts"

-- | Set the value of the “@ignore-hosts@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' simpleProxyResolver [ #ignoreHosts 'Data.GI.Base.Attributes.:=' value ]
-- @
setSimpleProxyResolverIgnoreHosts :: (MonadIO m, IsSimpleProxyResolver o) => o -> [T.Text] -> m ()
setSimpleProxyResolverIgnoreHosts :: o -> [Text] -> m ()
setSimpleProxyResolverIgnoreHosts o
obj [Text]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"ignore-hosts" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
Just [Text]
val)

-- | Construct a `GValueConstruct` with valid value for the “@ignore-hosts@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructSimpleProxyResolverIgnoreHosts :: (IsSimpleProxyResolver o, MIO.MonadIO m) => [T.Text] -> m (GValueConstruct o)
constructSimpleProxyResolverIgnoreHosts :: [Text] -> m (GValueConstruct o)
constructSimpleProxyResolverIgnoreHosts [Text]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe [Text] -> IO (GValueConstruct o)
forall o. String -> Maybe [Text] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyStringArray String
"ignore-hosts" ([Text] -> Maybe [Text]
forall a. a -> Maybe a
P.Just [Text]
val)

-- | Set the value of the “@ignore-hosts@” property to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ignoreHosts
-- @
clearSimpleProxyResolverIgnoreHosts :: (MonadIO m, IsSimpleProxyResolver o) => o -> m ()
clearSimpleProxyResolverIgnoreHosts :: o -> m ()
clearSimpleProxyResolverIgnoreHosts o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe [Text] -> IO ()
forall a. GObject a => a -> String -> Maybe [Text] -> IO ()
B.Properties.setObjectPropertyStringArray o
obj String
"ignore-hosts" (Maybe [Text]
forall a. Maybe a
Nothing :: Maybe [T.Text])

#if defined(ENABLE_OVERLOADING)
data SimpleProxyResolverIgnoreHostsPropertyInfo
instance AttrInfo SimpleProxyResolverIgnoreHostsPropertyInfo where
    type AttrAllowedOps SimpleProxyResolverIgnoreHostsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrBaseTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = IsSimpleProxyResolver
    type AttrSetTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = (~) [T.Text]
    type AttrTransferTypeConstraint SimpleProxyResolverIgnoreHostsPropertyInfo = (~) [T.Text]
    type AttrTransferType SimpleProxyResolverIgnoreHostsPropertyInfo = [T.Text]
    type AttrGetType SimpleProxyResolverIgnoreHostsPropertyInfo = (Maybe [T.Text])
    type AttrLabel SimpleProxyResolverIgnoreHostsPropertyInfo = "ignore-hosts"
    type AttrOrigin SimpleProxyResolverIgnoreHostsPropertyInfo = SimpleProxyResolver
    attrGet = getSimpleProxyResolverIgnoreHosts
    attrSet = setSimpleProxyResolverIgnoreHosts
    attrTransfer _ v = do
        return v
    attrConstruct = constructSimpleProxyResolverIgnoreHosts
    attrClear = clearSimpleProxyResolverIgnoreHosts
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SimpleProxyResolver
type instance O.AttributeList SimpleProxyResolver = SimpleProxyResolverAttributeList
type SimpleProxyResolverAttributeList = ('[ '("defaultProxy", SimpleProxyResolverDefaultProxyPropertyInfo), '("ignoreHosts", SimpleProxyResolverIgnoreHostsPropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
simpleProxyResolverDefaultProxy :: AttrLabelProxy "defaultProxy"
simpleProxyResolverDefaultProxy = AttrLabelProxy

simpleProxyResolverIgnoreHosts :: AttrLabelProxy "ignoreHosts"
simpleProxyResolverIgnoreHosts = AttrLabelProxy

#endif

#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SimpleProxyResolver = SimpleProxyResolverSignalList
type SimpleProxyResolverSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method SimpleProxyResolver::set_default_proxy
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "resolver"
--           , argType =
--               TInterface
--                 Name { namespace = "Gio" , name = "SimpleProxyResolver" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GSimpleProxyResolver"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "default_proxy"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the default proxy to use"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "g_simple_proxy_resolver_set_default_proxy" g_simple_proxy_resolver_set_default_proxy :: 
    Ptr SimpleProxyResolver ->              -- resolver : TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"})
    CString ->                              -- default_proxy : TBasicType TUTF8
    IO ()

-- | Sets the default proxy on /@resolver@/, to be used for any URIs that
-- don\'t match t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@ or a proxy set
-- via 'GI.Gio.Objects.SimpleProxyResolver.simpleProxyResolverSetUriProxy'.
-- 
-- If /@defaultProxy@/ starts with \"socks:\/\/\",
-- t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' will treat it as referring to all three of
-- the socks5, socks4a, and socks4 proxy types.
-- 
-- /Since: 2.36/
simpleProxyResolverSetDefaultProxy ::
    (B.CallStack.HasCallStack, MonadIO m, IsSimpleProxyResolver a) =>
    a
    -- ^ /@resolver@/: a t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver'
    -> T.Text
    -- ^ /@defaultProxy@/: the default proxy to use
    -> m ()
simpleProxyResolverSetDefaultProxy :: a -> Text -> m ()
simpleProxyResolverSetDefaultProxy a
resolver Text
defaultProxy = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr SimpleProxyResolver
resolver' <- a -> IO (Ptr SimpleProxyResolver)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
resolver
    CString
defaultProxy' <- Text -> IO CString
textToCString Text
defaultProxy
    Ptr SimpleProxyResolver -> CString -> IO ()
g_simple_proxy_resolver_set_default_proxy Ptr SimpleProxyResolver
resolver' CString
defaultProxy'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
resolver
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
defaultProxy'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data SimpleProxyResolverSetDefaultProxyMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSimpleProxyResolver a) => O.MethodInfo SimpleProxyResolverSetDefaultProxyMethodInfo a signature where
    overloadedMethod = simpleProxyResolverSetDefaultProxy

#endif

-- method SimpleProxyResolver::set_ignore_hosts
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "resolver"
--           , argType =
--               TInterface
--                 Name { namespace = "Gio" , name = "SimpleProxyResolver" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GSimpleProxyResolver"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "ignore_hosts"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just
--                       "%NULL-terminated list of hosts/IP addresses\n    to not use a proxy for"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Nothing
-- throws : False
-- Skip return : False

foreign import ccall "g_simple_proxy_resolver_set_ignore_hosts" g_simple_proxy_resolver_set_ignore_hosts :: 
    Ptr SimpleProxyResolver ->              -- resolver : TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"})
    CString ->                              -- ignore_hosts : TBasicType TUTF8
    IO ()

-- | Sets the list of ignored hosts.
-- 
-- See t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@ for more details on how the
-- /@ignoreHosts@/ argument is interpreted.
-- 
-- /Since: 2.36/
simpleProxyResolverSetIgnoreHosts ::
    (B.CallStack.HasCallStack, MonadIO m, IsSimpleProxyResolver a) =>
    a
    -- ^ /@resolver@/: a t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver'
    -> T.Text
    -- ^ /@ignoreHosts@/: 'P.Nothing'-terminated list of hosts\/IP addresses
    --     to not use a proxy for
    -> m ()
simpleProxyResolverSetIgnoreHosts :: a -> Text -> m ()
simpleProxyResolverSetIgnoreHosts a
resolver Text
ignoreHosts = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr SimpleProxyResolver
resolver' <- a -> IO (Ptr SimpleProxyResolver)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
resolver
    CString
ignoreHosts' <- Text -> IO CString
textToCString Text
ignoreHosts
    Ptr SimpleProxyResolver -> CString -> IO ()
g_simple_proxy_resolver_set_ignore_hosts Ptr SimpleProxyResolver
resolver' CString
ignoreHosts'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
resolver
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
ignoreHosts'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data SimpleProxyResolverSetIgnoreHostsMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsSimpleProxyResolver a) => O.MethodInfo SimpleProxyResolverSetIgnoreHostsMethodInfo a signature where
    overloadedMethod = simpleProxyResolverSetIgnoreHosts

#endif

-- method SimpleProxyResolver::set_uri_proxy
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "resolver"
--           , argType =
--               TInterface
--                 Name { namespace = "Gio" , name = "SimpleProxyResolver" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GSimpleProxyResolver"
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       , Arg
--           { argCName = "uri_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"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the proxy 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 "g_simple_proxy_resolver_set_uri_proxy" g_simple_proxy_resolver_set_uri_proxy :: 
    Ptr SimpleProxyResolver ->              -- resolver : TInterface (Name {namespace = "Gio", name = "SimpleProxyResolver"})
    CString ->                              -- uri_scheme : TBasicType TUTF8
    CString ->                              -- proxy : TBasicType TUTF8
    IO ()

-- | Adds a URI-scheme-specific proxy to /@resolver@/; URIs whose scheme
-- matches /@uriScheme@/ (and which don\'t match
-- t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@) will be proxied via /@proxy@/.
-- 
-- As with t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/default-proxy/@, if /@proxy@/ starts with
-- \"socks:\/\/\", t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' will treat it
-- as referring to all three of the socks5, socks4a, and socks4 proxy
-- types.
-- 
-- /Since: 2.36/
simpleProxyResolverSetUriProxy ::
    (B.CallStack.HasCallStack, MonadIO m, IsSimpleProxyResolver a) =>
    a
    -- ^ /@resolver@/: a t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver'
    -> T.Text
    -- ^ /@uriScheme@/: the URI scheme to add a proxy for
    -> T.Text
    -- ^ /@proxy@/: the proxy to use for /@uriScheme@/
    -> m ()
simpleProxyResolverSetUriProxy :: a -> Text -> Text -> m ()
simpleProxyResolverSetUriProxy a
resolver Text
uriScheme Text
proxy = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
    Ptr SimpleProxyResolver
resolver' <- a -> IO (Ptr SimpleProxyResolver)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
resolver
    CString
uriScheme' <- Text -> IO CString
textToCString Text
uriScheme
    CString
proxy' <- Text -> IO CString
textToCString Text
proxy
    Ptr SimpleProxyResolver -> CString -> CString -> IO ()
g_simple_proxy_resolver_set_uri_proxy Ptr SimpleProxyResolver
resolver' CString
uriScheme' CString
proxy'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
resolver
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uriScheme'
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
proxy'
    () -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()

#if defined(ENABLE_OVERLOADING)
data SimpleProxyResolverSetUriProxyMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsSimpleProxyResolver a) => O.MethodInfo SimpleProxyResolverSetUriProxyMethodInfo a signature where
    overloadedMethod = simpleProxyResolverSetUriProxy

#endif

-- method SimpleProxyResolver::new
-- method type : MemberFunction
-- Args: [ Arg
--           { argCName = "default_proxy"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = True
--           , argDoc =
--               Documentation
--                 { rawDocText =
--                     Just "the default proxy to use, eg\n    \"socks://192.168.1.1\""
--                 , 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\n    to not use a proxy for."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface Name { namespace = "Gio" , name = "ProxyResolver" })
-- throws : False
-- Skip return : False

foreign import ccall "g_simple_proxy_resolver_new" g_simple_proxy_resolver_new :: 
    CString ->                              -- default_proxy : TBasicType TUTF8
    CString ->                              -- ignore_hosts : TBasicType TUTF8
    IO (Ptr Gio.ProxyResolver.ProxyResolver)

-- | Creates a new t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver'. See
-- t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/default-proxy/@ and
-- t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver':@/ignore-hosts/@ for more details on how the
-- arguments are interpreted.
-- 
-- /Since: 2.36/
simpleProxyResolverNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    Maybe (T.Text)
    -- ^ /@defaultProxy@/: the default proxy to use, eg
    --     \"socks:\/\/192.168.1.1\"
    -> Maybe (T.Text)
    -- ^ /@ignoreHosts@/: an optional list of hosts\/IP addresses
    --     to not use a proxy for.
    -> m Gio.ProxyResolver.ProxyResolver
    -- ^ __Returns:__ a new t'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver'
simpleProxyResolverNew :: Maybe Text -> Maybe Text -> m ProxyResolver
simpleProxyResolverNew Maybe Text
defaultProxy Maybe Text
ignoreHosts = IO ProxyResolver -> m ProxyResolver
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ProxyResolver -> m ProxyResolver)
-> IO ProxyResolver -> m ProxyResolver
forall a b. (a -> b) -> a -> b
$ do
    CString
maybeDefaultProxy <- case Maybe Text
defaultProxy of
        Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
        Just Text
jDefaultProxy -> do
            CString
jDefaultProxy' <- Text -> IO CString
textToCString Text
jDefaultProxy
            CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jDefaultProxy'
    CString
maybeIgnoreHosts <- case Maybe Text
ignoreHosts of
        Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
        Just Text
jIgnoreHosts -> do
            CString
jIgnoreHosts' <- Text -> IO CString
textToCString Text
jIgnoreHosts
            CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jIgnoreHosts'
    Ptr ProxyResolver
result <- CString -> CString -> IO (Ptr ProxyResolver)
g_simple_proxy_resolver_new CString
maybeDefaultProxy CString
maybeIgnoreHosts
    Text -> Ptr ProxyResolver -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"simpleProxyResolverNew" Ptr ProxyResolver
result
    ProxyResolver
result' <- ((ManagedPtr ProxyResolver -> ProxyResolver)
-> Ptr ProxyResolver -> IO ProxyResolver
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ProxyResolver -> ProxyResolver
Gio.ProxyResolver.ProxyResolver) Ptr ProxyResolver
result
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeDefaultProxy
    CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeIgnoreHosts
    ProxyResolver -> IO ProxyResolver
forall (m :: * -> *) a. Monad m => a -> m a
return ProxyResolver
result'

#if defined(ENABLE_OVERLOADING)
#endif