module GI.Gio.Structs.SettingsSchemaKey
(
SettingsSchemaKey(..) ,
noSettingsSchemaKey ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyGetDefaultValueMethodInfo,
#endif
settingsSchemaKeyGetDefaultValue ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyGetDescriptionMethodInfo,
#endif
settingsSchemaKeyGetDescription ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyGetNameMethodInfo ,
#endif
settingsSchemaKeyGetName ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyGetRangeMethodInfo ,
#endif
settingsSchemaKeyGetRange ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyGetSummaryMethodInfo ,
#endif
settingsSchemaKeyGetSummary ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyGetValueTypeMethodInfo ,
#endif
settingsSchemaKeyGetValueType ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyRangeCheckMethodInfo ,
#endif
settingsSchemaKeyRangeCheck ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SettingsSchemaKeyRefMethodInfo ,
#endif
settingsSchemaKeyRef ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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.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 _ = c_g_settings_schema_key_get_type
noSettingsSchemaKey :: Maybe SettingsSchemaKey
noSettingsSchemaKey = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
result <- g_settings_schema_key_get_default_value key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetDefaultValue" result
result' <- wrapGVariantPtr result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
result <- g_settings_schema_key_get_description key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetDescription" result
result' <- cstringToText result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
result <- g_settings_schema_key_get_name key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetName" result
result' <- cstringToText result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
result <- g_settings_schema_key_get_range key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetRange" result
result' <- wrapGVariantPtr result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
result <- g_settings_schema_key_get_summary key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetSummary" result
result' <- cstringToText result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
result <- g_settings_schema_key_get_value_type key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetValueType" result
result' <- (newBoxed GLib.VariantType.VariantType) result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key value = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
value' <- unsafeManagedPtrGetPtr value
result <- g_settings_schema_key_range_check key' value'
let result' = (/= 0) result
touchManagedPtr key
touchManagedPtr value
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
result <- g_settings_schema_key_ref key'
checkUnexpectedReturnNULL "settingsSchemaKeyRef" result
result' <- (wrapBoxed SettingsSchemaKey) result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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 key = liftIO $ do
key' <- unsafeManagedPtrGetPtr key
g_settings_schema_key_unref key'
touchManagedPtr key
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SettingsSchemaKeyUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo SettingsSchemaKeyUnrefMethodInfo SettingsSchemaKey signature where
overloadedMethod _ = settingsSchemaKeyUnref
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
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