#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Gio.Structs.SettingsSchemaKey
(
SettingsSchemaKey(..) ,
noSettingsSchemaKey ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyGetDefaultValueMethodInfo,
#endif
settingsSchemaKeyGetDefaultValue ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyGetDescriptionMethodInfo,
#endif
settingsSchemaKeyGetDescription ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyGetNameMethodInfo ,
#endif
settingsSchemaKeyGetName ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyGetRangeMethodInfo ,
#endif
settingsSchemaKeyGetRange ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyGetSummaryMethodInfo ,
#endif
settingsSchemaKeyGetSummary ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyGetValueTypeMethodInfo ,
#endif
settingsSchemaKeyGetValueType ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyRangeCheckMethodInfo ,
#endif
settingsSchemaKeyRangeCheck ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyRefMethodInfo ,
#endif
settingsSchemaKeyRef ,
#if ENABLE_OVERLOADING
SettingsSchemaKeyUnrefMethodInfo ,
#endif
settingsSchemaKeyUnref ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
newtype SettingsSchemaKey = SettingsSchemaKey (ManagedPtr SettingsSchemaKey)
foreign import ccall "g_settings_schema_key_get_type" c_g_settings_schema_key_get_type ::
IO GType
instance BoxedObject SettingsSchemaKey where
boxedType :: SettingsSchemaKey -> IO GType
boxedType _ = IO GType
c_g_settings_schema_key_get_type
noSettingsSchemaKey :: Maybe SettingsSchemaKey
noSettingsSchemaKey :: Maybe SettingsSchemaKey
noSettingsSchemaKey = Maybe SettingsSchemaKey
forall a. Maybe a
Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList SettingsSchemaKey
type instance O.AttributeList SettingsSchemaKey = SettingsSchemaKeyAttributeList
type SettingsSchemaKeyAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "g_settings_schema_key_get_default_value" g_settings_schema_key_get_default_value ::
Ptr SettingsSchemaKey ->
IO (Ptr GVariant)
settingsSchemaKeyGetDefaultValue ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m GVariant
settingsSchemaKeyGetDefaultValue :: SettingsSchemaKey -> m GVariant
settingsSchemaKeyGetDefaultValue key :: SettingsSchemaKey
key = IO GVariant -> m GVariant
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr GVariant
result <- Ptr SettingsSchemaKey -> IO (Ptr GVariant)
g_settings_schema_key_get_default_value Ptr SettingsSchemaKey
key'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsSchemaKeyGetDefaultValue" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
GVariant -> IO GVariant
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyGetDefaultValueMethodInfo
instance (signature ~ (m GVariant), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetDefaultValueMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyGetDefaultValue
#endif
foreign import ccall "g_settings_schema_key_get_description" g_settings_schema_key_get_description ::
Ptr SettingsSchemaKey ->
IO CString
settingsSchemaKeyGetDescription ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m T.Text
settingsSchemaKeyGetDescription :: SettingsSchemaKey -> m Text
settingsSchemaKeyGetDescription key :: SettingsSchemaKey
key = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
CString
result <- Ptr SettingsSchemaKey -> IO CString
g_settings_schema_key_get_description Ptr SettingsSchemaKey
key'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsSchemaKeyGetDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetDescriptionMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyGetDescription
#endif
foreign import ccall "g_settings_schema_key_get_name" g_settings_schema_key_get_name ::
Ptr SettingsSchemaKey ->
IO CString
settingsSchemaKeyGetName ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m T.Text
settingsSchemaKeyGetName :: SettingsSchemaKey -> m Text
settingsSchemaKeyGetName key :: SettingsSchemaKey
key = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
CString
result <- Ptr SettingsSchemaKey -> IO CString
g_settings_schema_key_get_name Ptr SettingsSchemaKey
key'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsSchemaKeyGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetNameMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyGetName
#endif
foreign import ccall "g_settings_schema_key_get_range" g_settings_schema_key_get_range ::
Ptr SettingsSchemaKey ->
IO (Ptr GVariant)
settingsSchemaKeyGetRange ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m GVariant
settingsSchemaKeyGetRange :: SettingsSchemaKey -> m GVariant
settingsSchemaKeyGetRange key :: SettingsSchemaKey
key = IO GVariant -> m GVariant
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr GVariant
result <- Ptr SettingsSchemaKey -> IO (Ptr GVariant)
g_settings_schema_key_get_range Ptr SettingsSchemaKey
key'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsSchemaKeyGetRange" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
GVariant -> IO GVariant
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyGetRangeMethodInfo
instance (signature ~ (m GVariant), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetRangeMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyGetRange
#endif
foreign import ccall "g_settings_schema_key_get_summary" g_settings_schema_key_get_summary ::
Ptr SettingsSchemaKey ->
IO CString
settingsSchemaKeyGetSummary ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m T.Text
settingsSchemaKeyGetSummary :: SettingsSchemaKey -> m Text
settingsSchemaKeyGetSummary key :: SettingsSchemaKey
key = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
CString
result <- Ptr SettingsSchemaKey -> IO CString
g_settings_schema_key_get_summary Ptr SettingsSchemaKey
key'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsSchemaKeyGetSummary" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyGetSummaryMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetSummaryMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyGetSummary
#endif
foreign import ccall "g_settings_schema_key_get_value_type" g_settings_schema_key_get_value_type ::
Ptr SettingsSchemaKey ->
IO (Ptr GLib.VariantType.VariantType)
settingsSchemaKeyGetValueType ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m GLib.VariantType.VariantType
settingsSchemaKeyGetValueType :: SettingsSchemaKey -> m VariantType
settingsSchemaKeyGetValueType key :: SettingsSchemaKey
key = IO VariantType -> m VariantType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VariantType -> m VariantType)
-> IO VariantType -> m VariantType
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr VariantType
result <- Ptr SettingsSchemaKey -> IO (Ptr VariantType)
g_settings_schema_key_get_value_type Ptr SettingsSchemaKey
key'
Text -> Ptr VariantType -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsSchemaKeyGetValueType" Ptr VariantType
result
VariantType
result' <- ((ManagedPtr VariantType -> VariantType)
-> Ptr VariantType -> IO VariantType
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr VariantType -> VariantType
GLib.VariantType.VariantType) Ptr VariantType
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
VariantType -> IO VariantType
forall (m :: * -> *) a. Monad m => a -> m a
return VariantType
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyGetValueTypeMethodInfo
instance (signature ~ (m GLib.VariantType.VariantType), MonadIO m) => O.MethodInfo SettingsSchemaKeyGetValueTypeMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyGetValueType
#endif
foreign import ccall "g_settings_schema_key_range_check" g_settings_schema_key_range_check ::
Ptr SettingsSchemaKey ->
Ptr GVariant ->
IO CInt
settingsSchemaKeyRangeCheck ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> GVariant
-> m Bool
settingsSchemaKeyRangeCheck :: SettingsSchemaKey -> GVariant -> m Bool
settingsSchemaKeyRangeCheck key :: SettingsSchemaKey
key value :: GVariant
value = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr GVariant
value' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
value
CInt
result <- Ptr SettingsSchemaKey -> Ptr GVariant -> IO CInt
g_settings_schema_key_range_check Ptr SettingsSchemaKey
key' Ptr GVariant
value'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
value
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyRangeCheckMethodInfo
instance (signature ~ (GVariant -> m Bool), MonadIO m) => O.MethodInfo SettingsSchemaKeyRangeCheckMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyRangeCheck
#endif
foreign import ccall "g_settings_schema_key_ref" g_settings_schema_key_ref ::
Ptr SettingsSchemaKey ->
IO (Ptr SettingsSchemaKey)
settingsSchemaKeyRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m SettingsSchemaKey
settingsSchemaKeyRef :: SettingsSchemaKey -> m SettingsSchemaKey
settingsSchemaKeyRef key :: SettingsSchemaKey
key = IO SettingsSchemaKey -> m SettingsSchemaKey
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingsSchemaKey -> m SettingsSchemaKey)
-> IO SettingsSchemaKey -> m SettingsSchemaKey
forall a b. (a -> b) -> a -> b
$ do
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr SettingsSchemaKey
result <- Ptr SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
g_settings_schema_key_ref Ptr SettingsSchemaKey
key'
Text -> Ptr SettingsSchemaKey -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "settingsSchemaKeyRef" Ptr SettingsSchemaKey
result
SettingsSchemaKey
result' <- ((ManagedPtr SettingsSchemaKey -> SettingsSchemaKey)
-> Ptr SettingsSchemaKey -> IO SettingsSchemaKey
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SettingsSchemaKey -> SettingsSchemaKey
SettingsSchemaKey) Ptr SettingsSchemaKey
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
SettingsSchemaKey -> IO SettingsSchemaKey
forall (m :: * -> *) a. Monad m => a -> m a
return SettingsSchemaKey
result'
#if ENABLE_OVERLOADING
data SettingsSchemaKeyRefMethodInfo
instance (signature ~ (m SettingsSchemaKey), MonadIO m) => O.MethodInfo SettingsSchemaKeyRefMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyRef
#endif
foreign import ccall "g_settings_schema_key_unref" g_settings_schema_key_unref ::
Ptr SettingsSchemaKey ->
IO ()
settingsSchemaKeyUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m ()
settingsSchemaKeyUnref :: SettingsSchemaKey -> m ()
settingsSchemaKeyUnref key :: SettingsSchemaKey
key = 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 SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr SettingsSchemaKey -> IO ()
g_settings_schema_key_unref Ptr SettingsSchemaKey
key'
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if ENABLE_OVERLOADING
data SettingsSchemaKeyUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo SettingsSchemaKeyUnrefMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveSettingsSchemaKeyMethod (t :: Symbol) (o :: *) :: * where
ResolveSettingsSchemaKeyMethod "rangeCheck" o = SettingsSchemaKeyRangeCheckMethodInfo
ResolveSettingsSchemaKeyMethod "ref" o = SettingsSchemaKeyRefMethodInfo
ResolveSettingsSchemaKeyMethod "unref" o = SettingsSchemaKeyUnrefMethodInfo
ResolveSettingsSchemaKeyMethod "getDefaultValue" o = SettingsSchemaKeyGetDefaultValueMethodInfo
ResolveSettingsSchemaKeyMethod "getDescription" o = SettingsSchemaKeyGetDescriptionMethodInfo
ResolveSettingsSchemaKeyMethod "getName" o = SettingsSchemaKeyGetNameMethodInfo
ResolveSettingsSchemaKeyMethod "getRange" o = SettingsSchemaKeyGetRangeMethodInfo
ResolveSettingsSchemaKeyMethod "getSummary" o = SettingsSchemaKeyGetSummaryMethodInfo
ResolveSettingsSchemaKeyMethod "getValueType" o = SettingsSchemaKeyGetValueTypeMethodInfo
ResolveSettingsSchemaKeyMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, O.MethodInfo info SettingsSchemaKey p) => O.IsLabelProxy t (SettingsSchemaKey -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, O.MethodInfo info SettingsSchemaKey p) => O.IsLabel t (SettingsSchemaKey -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif