{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GObject.Structs.FlagsValue
(
FlagsValue(..) ,
newZeroFlagsValue ,
noFlagsValue ,
#if defined(ENABLE_OVERLOADING)
ResolveFlagsValueMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
flagsValue_value ,
#endif
getFlagsValueValue ,
setFlagsValueValue ,
clearFlagsValueValueName ,
#if defined(ENABLE_OVERLOADING)
flagsValue_valueName ,
#endif
getFlagsValueValueName ,
setFlagsValueValueName ,
clearFlagsValueValueNick ,
#if defined(ENABLE_OVERLOADING)
flagsValue_valueNick ,
#endif
getFlagsValueValueNick ,
setFlagsValueValueNick ,
) 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
newtype FlagsValue = FlagsValue (ManagedPtr FlagsValue)
deriving (Eq)
instance WrappedPtr FlagsValue where
wrappedPtrCalloc = callocBytes 24
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 24 >=> wrapPtr FlagsValue)
wrappedPtrFree = Just ptr_to_g_free
newZeroFlagsValue :: MonadIO m => m FlagsValue
newZeroFlagsValue = liftIO $ wrappedPtrCalloc >>= wrapPtr FlagsValue
instance tag ~ 'AttrSet => Constructible FlagsValue tag where
new _ attrs = do
o <- newZeroFlagsValue
GI.Attributes.set o attrs
return o
noFlagsValue :: Maybe FlagsValue
noFlagsValue = Nothing
getFlagsValueValue :: MonadIO m => FlagsValue -> m Word32
getFlagsValueValue s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Word32
return val
setFlagsValueValue :: MonadIO m => FlagsValue -> Word32 -> m ()
setFlagsValueValue s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data FlagsValueValueFieldInfo
instance AttrInfo FlagsValueValueFieldInfo where
type AttrBaseTypeConstraint FlagsValueValueFieldInfo = (~) FlagsValue
type AttrAllowedOps FlagsValueValueFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint FlagsValueValueFieldInfo = (~) Word32
type AttrTransferTypeConstraint FlagsValueValueFieldInfo = (~)Word32
type AttrTransferType FlagsValueValueFieldInfo = Word32
type AttrGetType FlagsValueValueFieldInfo = Word32
type AttrLabel FlagsValueValueFieldInfo = "value"
type AttrOrigin FlagsValueValueFieldInfo = FlagsValue
attrGet = getFlagsValueValue
attrSet = setFlagsValueValue
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
flagsValue_value :: AttrLabelProxy "value"
flagsValue_value = AttrLabelProxy
#endif
getFlagsValueValueName :: MonadIO m => FlagsValue -> m (Maybe T.Text)
getFlagsValueValueName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setFlagsValueValueName :: MonadIO m => FlagsValue -> CString -> m ()
setFlagsValueValueName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: CString)
clearFlagsValueValueName :: MonadIO m => FlagsValue -> m ()
clearFlagsValueValueName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data FlagsValueValueNameFieldInfo
instance AttrInfo FlagsValueValueNameFieldInfo where
type AttrBaseTypeConstraint FlagsValueValueNameFieldInfo = (~) FlagsValue
type AttrAllowedOps FlagsValueValueNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FlagsValueValueNameFieldInfo = (~) CString
type AttrTransferTypeConstraint FlagsValueValueNameFieldInfo = (~)CString
type AttrTransferType FlagsValueValueNameFieldInfo = CString
type AttrGetType FlagsValueValueNameFieldInfo = Maybe T.Text
type AttrLabel FlagsValueValueNameFieldInfo = "value_name"
type AttrOrigin FlagsValueValueNameFieldInfo = FlagsValue
attrGet = getFlagsValueValueName
attrSet = setFlagsValueValueName
attrConstruct = undefined
attrClear = clearFlagsValueValueName
attrTransfer _ v = do
return v
flagsValue_valueName :: AttrLabelProxy "valueName"
flagsValue_valueName = AttrLabelProxy
#endif
getFlagsValueValueNick :: MonadIO m => FlagsValue -> m (Maybe T.Text)
getFlagsValueValueNick s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setFlagsValueValueNick :: MonadIO m => FlagsValue -> CString -> m ()
setFlagsValueValueNick s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: CString)
clearFlagsValueValueNick :: MonadIO m => FlagsValue -> m ()
clearFlagsValueValueNick s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data FlagsValueValueNickFieldInfo
instance AttrInfo FlagsValueValueNickFieldInfo where
type AttrBaseTypeConstraint FlagsValueValueNickFieldInfo = (~) FlagsValue
type AttrAllowedOps FlagsValueValueNickFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint FlagsValueValueNickFieldInfo = (~) CString
type AttrTransferTypeConstraint FlagsValueValueNickFieldInfo = (~)CString
type AttrTransferType FlagsValueValueNickFieldInfo = CString
type AttrGetType FlagsValueValueNickFieldInfo = Maybe T.Text
type AttrLabel FlagsValueValueNickFieldInfo = "value_nick"
type AttrOrigin FlagsValueValueNickFieldInfo = FlagsValue
attrGet = getFlagsValueValueNick
attrSet = setFlagsValueValueNick
attrConstruct = undefined
attrClear = clearFlagsValueValueNick
attrTransfer _ v = do
return v
flagsValue_valueNick :: AttrLabelProxy "valueNick"
flagsValue_valueNick = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FlagsValue
type instance O.AttributeList FlagsValue = FlagsValueAttributeList
type FlagsValueAttributeList = ('[ '("value", FlagsValueValueFieldInfo), '("valueName", FlagsValueValueNameFieldInfo), '("valueNick", FlagsValueValueNickFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveFlagsValueMethod (t :: Symbol) (o :: *) :: * where
ResolveFlagsValueMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFlagsValueMethod t FlagsValue, O.MethodInfo info FlagsValue p) => OL.IsLabel t (FlagsValue -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif