{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- Represents a ssh key agent credential.

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

module GI.Ggit.Objects.CredSshKeyFromAgent
    (

-- * Exported types
    CredSshKeyFromAgent(..)                 ,
    IsCredSshKeyFromAgent                   ,
    toCredSshKeyFromAgent                   ,
    noCredSshKeyFromAgent                   ,


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

#if defined(ENABLE_OVERLOADING)
    ResolveCredSshKeyFromAgentMethod        ,
#endif


-- ** getUsername #method:getUsername#

#if defined(ENABLE_OVERLOADING)
    CredSshKeyFromAgentGetUsernameMethodInfo,
#endif
    credSshKeyFromAgentGetUsername          ,


-- ** new #method:new#

    credSshKeyFromAgentNew                  ,




 -- * Properties
-- ** username #attr:username#
-- | /No description available in the introspection data./

#if defined(ENABLE_OVERLOADING)
    CredSshKeyFromAgentUsernamePropertyInfo ,
#endif
    constructCredSshKeyFromAgentUsername    ,
#if defined(ENABLE_OVERLOADING)
    credSshKeyFromAgentUsername             ,
#endif
    getCredSshKeyFromAgentUsername          ,




    ) 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.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 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.Ggit.Objects.Cred as Ggit.Cred
import {-# SOURCE #-} qualified GI.Ggit.Objects.Native as Ggit.Native
import {-# SOURCE #-} qualified GI.Ggit.Objects.ObjectFactoryBase as Ggit.ObjectFactoryBase
import qualified GI.Gio.Interfaces.Initable as Gio.Initable

-- | Memory-managed wrapper type.
newtype CredSshKeyFromAgent = CredSshKeyFromAgent (ManagedPtr CredSshKeyFromAgent)
    deriving (Eq)
foreign import ccall "ggit_cred_ssh_key_from_agent_get_type"
    c_ggit_cred_ssh_key_from_agent_get_type :: IO GType

instance GObject CredSshKeyFromAgent where
    gobjectType = c_ggit_cred_ssh_key_from_agent_get_type


-- | Convert 'CredSshKeyFromAgent' to and from 'Data.GI.Base.GValue.GValue' with 'Data.GI.Base.GValue.toGValue' and 'Data.GI.Base.GValue.fromGValue'.
instance B.GValue.IsGValue CredSshKeyFromAgent where
    toGValue o = do
        gtype <- c_ggit_cred_ssh_key_from_agent_get_type
        B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)

    fromGValue gv = do
        ptr <- B.GValue.get_object gv :: IO (Ptr CredSshKeyFromAgent)
        B.ManagedPtr.newObject CredSshKeyFromAgent ptr



-- | Type class for types which can be safely cast to `CredSshKeyFromAgent`, for instance with `toCredSshKeyFromAgent`.
class (GObject o, O.IsDescendantOf CredSshKeyFromAgent o) => IsCredSshKeyFromAgent o
instance (GObject o, O.IsDescendantOf CredSshKeyFromAgent o) => IsCredSshKeyFromAgent o

instance O.HasParentTypes CredSshKeyFromAgent
type instance O.ParentTypes CredSshKeyFromAgent = '[Ggit.Cred.Cred, Ggit.Native.Native, Ggit.ObjectFactoryBase.ObjectFactoryBase, GObject.Object.Object, Gio.Initable.Initable]

-- | Cast to `CredSshKeyFromAgent`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toCredSshKeyFromAgent :: (MonadIO m, IsCredSshKeyFromAgent o) => o -> m CredSshKeyFromAgent
toCredSshKeyFromAgent = liftIO . unsafeCastTo CredSshKeyFromAgent

-- | A convenience alias for `Nothing` :: `Maybe` `CredSshKeyFromAgent`.
noCredSshKeyFromAgent :: Maybe CredSshKeyFromAgent
noCredSshKeyFromAgent = Nothing

#if defined(ENABLE_OVERLOADING)
type family ResolveCredSshKeyFromAgentMethod (t :: Symbol) (o :: *) :: * where
    ResolveCredSshKeyFromAgentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveCredSshKeyFromAgentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveCredSshKeyFromAgentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveCredSshKeyFromAgentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveCredSshKeyFromAgentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveCredSshKeyFromAgentMethod "init" o = Gio.Initable.InitableInitMethodInfo
    ResolveCredSshKeyFromAgentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveCredSshKeyFromAgentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveCredSshKeyFromAgentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveCredSshKeyFromAgentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveCredSshKeyFromAgentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveCredSshKeyFromAgentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveCredSshKeyFromAgentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveCredSshKeyFromAgentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveCredSshKeyFromAgentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveCredSshKeyFromAgentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveCredSshKeyFromAgentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveCredSshKeyFromAgentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveCredSshKeyFromAgentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveCredSshKeyFromAgentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveCredSshKeyFromAgentMethod "getUsername" o = CredSshKeyFromAgentGetUsernameMethodInfo
    ResolveCredSshKeyFromAgentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveCredSshKeyFromAgentMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
    ResolveCredSshKeyFromAgentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveCredSshKeyFromAgentMethod l o = O.MethodResolutionFailed l o

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

#endif

-- VVV Prop "username"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]
   -- Nullable: (Just True,Nothing)

-- | Get the value of the “@username@” property.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' credSshKeyFromAgent #username
-- @
getCredSshKeyFromAgentUsername :: (MonadIO m, IsCredSshKeyFromAgent o) => o -> m (Maybe T.Text)
getCredSshKeyFromAgentUsername obj = liftIO $ B.Properties.getObjectPropertyString obj "username"

-- | Construct a `GValueConstruct` with valid value for the “@username@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
constructCredSshKeyFromAgentUsername :: (IsCredSshKeyFromAgent o) => T.Text -> IO (GValueConstruct o)
constructCredSshKeyFromAgentUsername val = B.Properties.constructObjectPropertyString "username" (Just val)

#if defined(ENABLE_OVERLOADING)
data CredSshKeyFromAgentUsernamePropertyInfo
instance AttrInfo CredSshKeyFromAgentUsernamePropertyInfo where
    type AttrAllowedOps CredSshKeyFromAgentUsernamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
    type AttrBaseTypeConstraint CredSshKeyFromAgentUsernamePropertyInfo = IsCredSshKeyFromAgent
    type AttrSetTypeConstraint CredSshKeyFromAgentUsernamePropertyInfo = (~) T.Text
    type AttrTransferTypeConstraint CredSshKeyFromAgentUsernamePropertyInfo = (~) T.Text
    type AttrTransferType CredSshKeyFromAgentUsernamePropertyInfo = T.Text
    type AttrGetType CredSshKeyFromAgentUsernamePropertyInfo = (Maybe T.Text)
    type AttrLabel CredSshKeyFromAgentUsernamePropertyInfo = "username"
    type AttrOrigin CredSshKeyFromAgentUsernamePropertyInfo = CredSshKeyFromAgent
    attrGet = getCredSshKeyFromAgentUsername
    attrSet = undefined
    attrTransfer _ v = do
        return v
    attrConstruct = constructCredSshKeyFromAgentUsername
    attrClear = undefined
#endif

#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CredSshKeyFromAgent
type instance O.AttributeList CredSshKeyFromAgent = CredSshKeyFromAgentAttributeList
type CredSshKeyFromAgentAttributeList = ('[ '("native", Ggit.Native.NativeNativePropertyInfo), '("username", CredSshKeyFromAgentUsernamePropertyInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
credSshKeyFromAgentUsername :: AttrLabelProxy "username"
credSshKeyFromAgentUsername = AttrLabelProxy

#endif

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

#endif

-- method CredSshKeyFromAgent::new
-- method type : Constructor
-- Args: [ Arg
--           { argCName = "username"
--           , argType = TBasicType TUTF8
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "the username." , sinceVersion = Nothing }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just
--               (TInterface
--                  Name { namespace = "Ggit" , name = "CredSshKeyFromAgent" })
-- throws : True
-- Skip return : False

foreign import ccall "ggit_cred_ssh_key_from_agent_new" ggit_cred_ssh_key_from_agent_new ::
    CString ->                              -- username : TBasicType TUTF8
    Ptr (Ptr GError) ->                     -- error
    IO (Ptr CredSshKeyFromAgent)

-- | Creates a new t'GI.Ggit.Objects.CredSshKeyFromAgent.CredSshKeyFromAgent'.
credSshKeyFromAgentNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    T.Text
    -- ^ /@username@/: the username.
    -> m (Maybe CredSshKeyFromAgent)
    -- ^ __Returns:__ a new t'GI.Ggit.Objects.CredSshKeyFromAgent.CredSshKeyFromAgent' or 'P.Nothing' if there was an error. /(Can throw 'Data.GI.Base.GError.GError')/
credSshKeyFromAgentNew username = liftIO $ do
    username' <- textToCString username
    onException (do
        result <- propagateGError $ ggit_cred_ssh_key_from_agent_new username'
        maybeResult <- convertIfNonNull result $ \result' -> do
            result'' <- (wrapObject CredSshKeyFromAgent) result'
            return result''
        freeMem username'
        return maybeResult
     ) (do
        freeMem username'
     )

#if defined(ENABLE_OVERLOADING)
#endif

-- method CredSshKeyFromAgent::get_username
-- method type : OrdinaryMethod
-- Args: [ Arg
--           { argCName = "cred"
--           , argType =
--               TInterface
--                 Name { namespace = "Ggit" , name = "CredSshKeyFromAgent" }
--           , direction = DirectionIn
--           , mayBeNull = False
--           , argDoc =
--               Documentation
--                 { rawDocText = Just "a #GgitCredSshKeyFromAgent."
--                 , sinceVersion = Nothing
--                 }
--           , argScope = ScopeTypeInvalid
--           , argClosure = -1
--           , argDestroy = -1
--           , argCallerAllocates = False
--           , transfer = TransferNothing
--           }
--       ]
-- Lengths: []
-- returnType: Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "ggit_cred_ssh_key_from_agent_get_username" ggit_cred_ssh_key_from_agent_get_username ::
    Ptr CredSshKeyFromAgent ->              -- cred : TInterface (Name {namespace = "Ggit", name = "CredSshKeyFromAgent"})
    IO CString

-- | Gets the username for the credential.
credSshKeyFromAgentGetUsername ::
    (B.CallStack.HasCallStack, MonadIO m, IsCredSshKeyFromAgent a) =>
    a
    -- ^ /@cred@/: a t'GI.Ggit.Objects.CredSshKeyFromAgent.CredSshKeyFromAgent'.
    -> m (Maybe T.Text)
    -- ^ __Returns:__ the username or 'P.Nothing'.
credSshKeyFromAgentGetUsername cred = liftIO $ do
    cred' <- unsafeManagedPtrCastPtr cred
    result <- ggit_cred_ssh_key_from_agent_get_username cred'
    maybeResult <- convertIfNonNull result $ \result' -> do
        result'' <- cstringToText result'
        return result''
    touchManagedPtr cred
    return maybeResult

#if defined(ENABLE_OVERLOADING)
data CredSshKeyFromAgentGetUsernameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCredSshKeyFromAgent a) => O.MethodInfo CredSshKeyFromAgentGetUsernameMethodInfo a signature where
    overloadedMethod = credSshKeyFromAgentGetUsername

#endif