{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GObject.Structs.ObjectConstructParam
(
ObjectConstructParam(..) ,
newZeroObjectConstructParam ,
#if defined(ENABLE_OVERLOADING)
ResolveObjectConstructParamMethod ,
#endif
clearObjectConstructParamPspec ,
getObjectConstructParamPspec ,
#if defined(ENABLE_OVERLOADING)
objectConstructParam_pspec ,
#endif
setObjectConstructParamPspec ,
clearObjectConstructParamValue ,
getObjectConstructParamValue ,
#if defined(ENABLE_OVERLOADING)
objectConstructParam_value ,
#endif
setObjectConstructParamValue ,
) 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.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
newtype ObjectConstructParam = ObjectConstructParam (SP.ManagedPtr ObjectConstructParam)
deriving (ObjectConstructParam -> ObjectConstructParam -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ObjectConstructParam -> ObjectConstructParam -> Bool
$c/= :: ObjectConstructParam -> ObjectConstructParam -> Bool
== :: ObjectConstructParam -> ObjectConstructParam -> Bool
$c== :: ObjectConstructParam -> ObjectConstructParam -> Bool
Eq)
instance SP.ManagedPtrNewtype ObjectConstructParam where
toManagedPtr :: ObjectConstructParam -> ManagedPtr ObjectConstructParam
toManagedPtr (ObjectConstructParam ManagedPtr ObjectConstructParam
p) = ManagedPtr ObjectConstructParam
p
instance BoxedPtr ObjectConstructParam where
boxedPtrCopy :: ObjectConstructParam -> IO ObjectConstructParam
boxedPtrCopy = \ObjectConstructParam
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ObjectConstructParam
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
8 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr ObjectConstructParam -> ObjectConstructParam
ObjectConstructParam)
boxedPtrFree :: ObjectConstructParam -> IO ()
boxedPtrFree = \ObjectConstructParam
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr ObjectConstructParam
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr ObjectConstructParam where
boxedPtrCalloc :: IO (Ptr ObjectConstructParam)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
8
newZeroObjectConstructParam :: MonadIO m => m ObjectConstructParam
newZeroObjectConstructParam :: forall (m :: * -> *). MonadIO m => m ObjectConstructParam
newZeroObjectConstructParam = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr ObjectConstructParam -> ObjectConstructParam
ObjectConstructParam
instance tag ~ 'AttrSet => Constructible ObjectConstructParam tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr ObjectConstructParam -> ObjectConstructParam)
-> [AttrOp ObjectConstructParam tag] -> m ObjectConstructParam
new ManagedPtr ObjectConstructParam -> ObjectConstructParam
_ [AttrOp ObjectConstructParam tag]
attrs = do
ObjectConstructParam
o <- forall (m :: * -> *). MonadIO m => m ObjectConstructParam
newZeroObjectConstructParam
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set ObjectConstructParam
o [AttrOp ObjectConstructParam tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return ObjectConstructParam
o
getObjectConstructParamPspec :: MonadIO m => ObjectConstructParam -> m (Maybe GParamSpec)
getObjectConstructParamPspec :: forall (m :: * -> *).
MonadIO m =>
ObjectConstructParam -> m (Maybe GParamSpec)
getObjectConstructParamPspec ObjectConstructParam
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ObjectConstructParam
s forall a b. (a -> b) -> a -> b
$ \Ptr ObjectConstructParam
ptr -> do
Ptr GParamSpec
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr ObjectConstructParam
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO (Ptr GParamSpec)
Maybe GParamSpec
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr GParamSpec
val forall a b. (a -> b) -> a -> b
$ \Ptr GParamSpec
val' -> do
GParamSpec
val'' <- Ptr GParamSpec -> IO GParamSpec
B.GParamSpec.newGParamSpecFromPtr Ptr GParamSpec
val'
forall (m :: * -> *) a. Monad m => a -> m a
return GParamSpec
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GParamSpec
result
setObjectConstructParamPspec :: MonadIO m => ObjectConstructParam -> Ptr GParamSpec -> m ()
setObjectConstructParamPspec :: forall (m :: * -> *).
MonadIO m =>
ObjectConstructParam -> Ptr GParamSpec -> m ()
setObjectConstructParamPspec ObjectConstructParam
s Ptr GParamSpec
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ObjectConstructParam
s forall a b. (a -> b) -> a -> b
$ \Ptr ObjectConstructParam
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ObjectConstructParam
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (Ptr GParamSpec
val :: Ptr GParamSpec)
clearObjectConstructParamPspec :: MonadIO m => ObjectConstructParam -> m ()
clearObjectConstructParamPspec :: forall (m :: * -> *). MonadIO m => ObjectConstructParam -> m ()
clearObjectConstructParamPspec ObjectConstructParam
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ObjectConstructParam
s forall a b. (a -> b) -> a -> b
$ \Ptr ObjectConstructParam
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ObjectConstructParam
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (forall a. Ptr a
FP.nullPtr :: Ptr GParamSpec)
#if defined(ENABLE_OVERLOADING)
data ObjectConstructParamPspecFieldInfo
instance AttrInfo ObjectConstructParamPspecFieldInfo where
type AttrBaseTypeConstraint ObjectConstructParamPspecFieldInfo = (~) ObjectConstructParam
type AttrAllowedOps ObjectConstructParamPspecFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectConstructParamPspecFieldInfo = (~) (Ptr GParamSpec)
type AttrTransferTypeConstraint ObjectConstructParamPspecFieldInfo = (~)(Ptr GParamSpec)
type AttrTransferType ObjectConstructParamPspecFieldInfo = (Ptr GParamSpec)
type AttrGetType ObjectConstructParamPspecFieldInfo = Maybe GParamSpec
type AttrLabel ObjectConstructParamPspecFieldInfo = "pspec"
type AttrOrigin ObjectConstructParamPspecFieldInfo = ObjectConstructParam
attrGet = getObjectConstructParamPspec
attrSet = setObjectConstructParamPspec
attrConstruct = undefined
attrClear = clearObjectConstructParamPspec
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GObject.Structs.ObjectConstructParam.pspec"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gobject-2.0.28/docs/GI-GObject-Structs-ObjectConstructParam.html#g:attr:pspec"
})
objectConstructParam_pspec :: AttrLabelProxy "pspec"
objectConstructParam_pspec = AttrLabelProxy
#endif
getObjectConstructParamValue :: MonadIO m => ObjectConstructParam -> m (Maybe GValue)
getObjectConstructParamValue :: forall (m :: * -> *).
MonadIO m =>
ObjectConstructParam -> m (Maybe GValue)
getObjectConstructParamValue ObjectConstructParam
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ObjectConstructParam
s forall a b. (a -> b) -> a -> b
$ \Ptr ObjectConstructParam
ptr -> do
Ptr GValue
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr ObjectConstructParam
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: IO (Ptr GValue)
Maybe GValue
result <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr GValue
val forall a b. (a -> b) -> a -> b
$ \Ptr GValue
val' -> do
GValue
val'' <- Ptr GValue -> IO GValue
B.GValue.newGValueFromPtr Ptr GValue
val'
forall (m :: * -> *) a. Monad m => a -> m a
return GValue
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GValue
result
setObjectConstructParamValue :: MonadIO m => ObjectConstructParam -> Ptr GValue -> m ()
setObjectConstructParamValue :: forall (m :: * -> *).
MonadIO m =>
ObjectConstructParam -> Ptr GValue -> m ()
setObjectConstructParamValue ObjectConstructParam
s Ptr GValue
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ObjectConstructParam
s forall a b. (a -> b) -> a -> b
$ \Ptr ObjectConstructParam
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ObjectConstructParam
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Ptr GValue
val :: Ptr GValue)
clearObjectConstructParamValue :: MonadIO m => ObjectConstructParam -> m ()
clearObjectConstructParamValue :: forall (m :: * -> *). MonadIO m => ObjectConstructParam -> m ()
clearObjectConstructParamValue ObjectConstructParam
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr ObjectConstructParam
s forall a b. (a -> b) -> a -> b
$ \Ptr ObjectConstructParam
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr ObjectConstructParam
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (forall a. Ptr a
FP.nullPtr :: Ptr GValue)
#if defined(ENABLE_OVERLOADING)
data ObjectConstructParamValueFieldInfo
instance AttrInfo ObjectConstructParamValueFieldInfo where
type AttrBaseTypeConstraint ObjectConstructParamValueFieldInfo = (~) ObjectConstructParam
type AttrAllowedOps ObjectConstructParamValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint ObjectConstructParamValueFieldInfo = (~) (Ptr GValue)
type AttrTransferTypeConstraint ObjectConstructParamValueFieldInfo = (~)(Ptr GValue)
type AttrTransferType ObjectConstructParamValueFieldInfo = (Ptr GValue)
type AttrGetType ObjectConstructParamValueFieldInfo = Maybe GValue
type AttrLabel ObjectConstructParamValueFieldInfo = "value"
type AttrOrigin ObjectConstructParamValueFieldInfo = ObjectConstructParam
attrGet = getObjectConstructParamValue
attrSet = setObjectConstructParamValue
attrConstruct = undefined
attrClear = clearObjectConstructParamValue
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GObject.Structs.ObjectConstructParam.value"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gobject-2.0.28/docs/GI-GObject-Structs-ObjectConstructParam.html#g:attr:value"
})
objectConstructParam_value :: AttrLabelProxy "value"
objectConstructParam_value = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ObjectConstructParam
type instance O.AttributeList ObjectConstructParam = ObjectConstructParamAttributeList
type ObjectConstructParamAttributeList = ('[ '("pspec", ObjectConstructParamPspecFieldInfo), '("value", ObjectConstructParamValueFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveObjectConstructParamMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveObjectConstructParamMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveObjectConstructParamMethod t ObjectConstructParam, O.OverloadedMethod info ObjectConstructParam p) => OL.IsLabel t (ObjectConstructParam -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveObjectConstructParamMethod t ObjectConstructParam, O.OverloadedMethod info ObjectConstructParam p, R.HasField t ObjectConstructParam p) => R.HasField t ObjectConstructParam p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveObjectConstructParamMethod t ObjectConstructParam, O.OverloadedMethodInfo info ObjectConstructParam) => OL.IsLabel t (O.MethodProxy info ObjectConstructParam) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif