{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GLib.Structs.OptionEntry
(
OptionEntry(..) ,
newZeroOptionEntry ,
noOptionEntry ,
#if defined(ENABLE_OVERLOADING)
ResolveOptionEntryMethod ,
#endif
getOptionEntryArg ,
#if defined(ENABLE_OVERLOADING)
optionEntry_arg ,
#endif
setOptionEntryArg ,
clearOptionEntryArgData ,
getOptionEntryArgData ,
#if defined(ENABLE_OVERLOADING)
optionEntry_argData ,
#endif
setOptionEntryArgData ,
clearOptionEntryArgDescription ,
getOptionEntryArgDescription ,
#if defined(ENABLE_OVERLOADING)
optionEntry_argDescription ,
#endif
setOptionEntryArgDescription ,
clearOptionEntryDescription ,
getOptionEntryDescription ,
#if defined(ENABLE_OVERLOADING)
optionEntry_description ,
#endif
setOptionEntryDescription ,
getOptionEntryFlags ,
#if defined(ENABLE_OVERLOADING)
optionEntry_flags ,
#endif
setOptionEntryFlags ,
clearOptionEntryLongName ,
getOptionEntryLongName ,
#if defined(ENABLE_OVERLOADING)
optionEntry_longName ,
#endif
setOptionEntryLongName ,
getOptionEntryShortName ,
#if defined(ENABLE_OVERLOADING)
optionEntry_shortName ,
#endif
setOptionEntryShortName ,
) 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 {-# SOURCE #-} qualified GI.GLib.Enums as GLib.Enums
newtype OptionEntry = OptionEntry (ManagedPtr OptionEntry)
deriving (Eq)
instance WrappedPtr OptionEntry where
wrappedPtrCalloc = callocBytes 28
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 28 >=> wrapPtr OptionEntry)
wrappedPtrFree = Just ptr_to_g_free
newZeroOptionEntry :: MonadIO m => m OptionEntry
newZeroOptionEntry = liftIO $ wrappedPtrCalloc >>= wrapPtr OptionEntry
instance tag ~ 'AttrSet => Constructible OptionEntry tag where
new _ attrs = do
o <- newZeroOptionEntry
GI.Attributes.set o attrs
return o
noOptionEntry :: Maybe OptionEntry
noOptionEntry = Nothing
getOptionEntryLongName :: MonadIO m => OptionEntry -> m (Maybe T.Text)
getOptionEntryLongName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setOptionEntryLongName :: MonadIO m => OptionEntry -> CString -> m ()
setOptionEntryLongName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: CString)
clearOptionEntryLongName :: MonadIO m => OptionEntry -> m ()
clearOptionEntryLongName s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data OptionEntryLongNameFieldInfo
instance AttrInfo OptionEntryLongNameFieldInfo where
type AttrBaseTypeConstraint OptionEntryLongNameFieldInfo = (~) OptionEntry
type AttrAllowedOps OptionEntryLongNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint OptionEntryLongNameFieldInfo = (~) CString
type AttrTransferTypeConstraint OptionEntryLongNameFieldInfo = (~)CString
type AttrTransferType OptionEntryLongNameFieldInfo = CString
type AttrGetType OptionEntryLongNameFieldInfo = Maybe T.Text
type AttrLabel OptionEntryLongNameFieldInfo = "long_name"
type AttrOrigin OptionEntryLongNameFieldInfo = OptionEntry
attrGet = getOptionEntryLongName
attrSet = setOptionEntryLongName
attrConstruct = undefined
attrClear = clearOptionEntryLongName
attrTransfer _ v = do
return v
optionEntry_longName :: AttrLabelProxy "longName"
optionEntry_longName = AttrLabelProxy
#endif
getOptionEntryShortName :: MonadIO m => OptionEntry -> m Int8
getOptionEntryShortName s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Int8
return val
setOptionEntryShortName :: MonadIO m => OptionEntry -> Int8 -> m ()
setOptionEntryShortName s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: Int8)
#if defined(ENABLE_OVERLOADING)
data OptionEntryShortNameFieldInfo
instance AttrInfo OptionEntryShortNameFieldInfo where
type AttrBaseTypeConstraint OptionEntryShortNameFieldInfo = (~) OptionEntry
type AttrAllowedOps OptionEntryShortNameFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint OptionEntryShortNameFieldInfo = (~) Int8
type AttrTransferTypeConstraint OptionEntryShortNameFieldInfo = (~)Int8
type AttrTransferType OptionEntryShortNameFieldInfo = Int8
type AttrGetType OptionEntryShortNameFieldInfo = Int8
type AttrLabel OptionEntryShortNameFieldInfo = "short_name"
type AttrOrigin OptionEntryShortNameFieldInfo = OptionEntry
attrGet = getOptionEntryShortName
attrSet = setOptionEntryShortName
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
optionEntry_shortName :: AttrLabelProxy "shortName"
optionEntry_shortName = AttrLabelProxy
#endif
getOptionEntryFlags :: MonadIO m => OptionEntry -> m Int32
getOptionEntryFlags s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Int32
return val
setOptionEntryFlags :: MonadIO m => OptionEntry -> Int32 -> m ()
setOptionEntryFlags s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data OptionEntryFlagsFieldInfo
instance AttrInfo OptionEntryFlagsFieldInfo where
type AttrBaseTypeConstraint OptionEntryFlagsFieldInfo = (~) OptionEntry
type AttrAllowedOps OptionEntryFlagsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint OptionEntryFlagsFieldInfo = (~) Int32
type AttrTransferTypeConstraint OptionEntryFlagsFieldInfo = (~)Int32
type AttrTransferType OptionEntryFlagsFieldInfo = Int32
type AttrGetType OptionEntryFlagsFieldInfo = Int32
type AttrLabel OptionEntryFlagsFieldInfo = "flags"
type AttrOrigin OptionEntryFlagsFieldInfo = OptionEntry
attrGet = getOptionEntryFlags
attrSet = setOptionEntryFlags
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
optionEntry_flags :: AttrLabelProxy "flags"
optionEntry_flags = AttrLabelProxy
#endif
getOptionEntryArg :: MonadIO m => OptionEntry -> m GLib.Enums.OptionArg
getOptionEntryArg s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
setOptionEntryArg :: MonadIO m => OptionEntry -> GLib.Enums.OptionArg -> m ()
setOptionEntryArg s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 12) (val' :: CUInt)
#if defined(ENABLE_OVERLOADING)
data OptionEntryArgFieldInfo
instance AttrInfo OptionEntryArgFieldInfo where
type AttrBaseTypeConstraint OptionEntryArgFieldInfo = (~) OptionEntry
type AttrAllowedOps OptionEntryArgFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint OptionEntryArgFieldInfo = (~) GLib.Enums.OptionArg
type AttrTransferTypeConstraint OptionEntryArgFieldInfo = (~)GLib.Enums.OptionArg
type AttrTransferType OptionEntryArgFieldInfo = GLib.Enums.OptionArg
type AttrGetType OptionEntryArgFieldInfo = GLib.Enums.OptionArg
type AttrLabel OptionEntryArgFieldInfo = "arg"
type AttrOrigin OptionEntryArgFieldInfo = OptionEntry
attrGet = getOptionEntryArg
attrSet = setOptionEntryArg
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
optionEntry_arg :: AttrLabelProxy "arg"
optionEntry_arg = AttrLabelProxy
#endif
getOptionEntryArgData :: MonadIO m => OptionEntry -> m (Ptr ())
getOptionEntryArgData s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO (Ptr ())
return val
setOptionEntryArgData :: MonadIO m => OptionEntry -> Ptr () -> m ()
setOptionEntryArgData s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (val :: Ptr ())
clearOptionEntryArgData :: MonadIO m => OptionEntry -> m ()
clearOptionEntryArgData s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 16) (FP.nullPtr :: Ptr ())
#if defined(ENABLE_OVERLOADING)
data OptionEntryArgDataFieldInfo
instance AttrInfo OptionEntryArgDataFieldInfo where
type AttrBaseTypeConstraint OptionEntryArgDataFieldInfo = (~) OptionEntry
type AttrAllowedOps OptionEntryArgDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint OptionEntryArgDataFieldInfo = (~) (Ptr ())
type AttrTransferTypeConstraint OptionEntryArgDataFieldInfo = (~)(Ptr ())
type AttrTransferType OptionEntryArgDataFieldInfo = (Ptr ())
type AttrGetType OptionEntryArgDataFieldInfo = Ptr ()
type AttrLabel OptionEntryArgDataFieldInfo = "arg_data"
type AttrOrigin OptionEntryArgDataFieldInfo = OptionEntry
attrGet = getOptionEntryArgData
attrSet = setOptionEntryArgData
attrConstruct = undefined
attrClear = clearOptionEntryArgData
attrTransfer _ v = do
return v
optionEntry_argData :: AttrLabelProxy "argData"
optionEntry_argData = AttrLabelProxy
#endif
getOptionEntryDescription :: MonadIO m => OptionEntry -> m (Maybe T.Text)
getOptionEntryDescription s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setOptionEntryDescription :: MonadIO m => OptionEntry -> CString -> m ()
setOptionEntryDescription s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (val :: CString)
clearOptionEntryDescription :: MonadIO m => OptionEntry -> m ()
clearOptionEntryDescription s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 20) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data OptionEntryDescriptionFieldInfo
instance AttrInfo OptionEntryDescriptionFieldInfo where
type AttrBaseTypeConstraint OptionEntryDescriptionFieldInfo = (~) OptionEntry
type AttrAllowedOps OptionEntryDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint OptionEntryDescriptionFieldInfo = (~) CString
type AttrTransferTypeConstraint OptionEntryDescriptionFieldInfo = (~)CString
type AttrTransferType OptionEntryDescriptionFieldInfo = CString
type AttrGetType OptionEntryDescriptionFieldInfo = Maybe T.Text
type AttrLabel OptionEntryDescriptionFieldInfo = "description"
type AttrOrigin OptionEntryDescriptionFieldInfo = OptionEntry
attrGet = getOptionEntryDescription
attrSet = setOptionEntryDescription
attrConstruct = undefined
attrClear = clearOptionEntryDescription
attrTransfer _ v = do
return v
optionEntry_description :: AttrLabelProxy "description"
optionEntry_description = AttrLabelProxy
#endif
getOptionEntryArgDescription :: MonadIO m => OptionEntry -> m (Maybe T.Text)
getOptionEntryArgDescription s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setOptionEntryArgDescription :: MonadIO m => OptionEntry -> CString -> m ()
setOptionEntryArgDescription s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (val :: CString)
clearOptionEntryArgDescription :: MonadIO m => OptionEntry -> m ()
clearOptionEntryArgDescription s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 24) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data OptionEntryArgDescriptionFieldInfo
instance AttrInfo OptionEntryArgDescriptionFieldInfo where
type AttrBaseTypeConstraint OptionEntryArgDescriptionFieldInfo = (~) OptionEntry
type AttrAllowedOps OptionEntryArgDescriptionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint OptionEntryArgDescriptionFieldInfo = (~) CString
type AttrTransferTypeConstraint OptionEntryArgDescriptionFieldInfo = (~)CString
type AttrTransferType OptionEntryArgDescriptionFieldInfo = CString
type AttrGetType OptionEntryArgDescriptionFieldInfo = Maybe T.Text
type AttrLabel OptionEntryArgDescriptionFieldInfo = "arg_description"
type AttrOrigin OptionEntryArgDescriptionFieldInfo = OptionEntry
attrGet = getOptionEntryArgDescription
attrSet = setOptionEntryArgDescription
attrConstruct = undefined
attrClear = clearOptionEntryArgDescription
attrTransfer _ v = do
return v
optionEntry_argDescription :: AttrLabelProxy "argDescription"
optionEntry_argDescription = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList OptionEntry
type instance O.AttributeList OptionEntry = OptionEntryAttributeList
type OptionEntryAttributeList = ('[ '("longName", OptionEntryLongNameFieldInfo), '("shortName", OptionEntryShortNameFieldInfo), '("flags", OptionEntryFlagsFieldInfo), '("arg", OptionEntryArgFieldInfo), '("argData", OptionEntryArgDataFieldInfo), '("description", OptionEntryDescriptionFieldInfo), '("argDescription", OptionEntryArgDescriptionFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveOptionEntryMethod (t :: Symbol) (o :: *) :: * where
ResolveOptionEntryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveOptionEntryMethod t OptionEntry, O.MethodInfo info OptionEntry p) => OL.IsLabel t (OptionEntry -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif