{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GLib.Structs.PtrArray
(
PtrArray(..) ,
newZeroPtrArray ,
noPtrArray ,
#if defined(ENABLE_OVERLOADING)
ResolvePtrArrayMethod ,
#endif
getPtrArrayLen ,
#if defined(ENABLE_OVERLOADING)
ptrArray_len ,
#endif
setPtrArrayLen ,
clearPtrArrayPdata ,
getPtrArrayPdata ,
#if defined(ENABLE_OVERLOADING)
ptrArray_pdata ,
#endif
setPtrArrayPdata ,
) 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 PtrArray = PtrArray (ManagedPtr PtrArray)
deriving (Eq)
foreign import ccall "g_ptr_array_get_type" c_g_ptr_array_get_type ::
IO GType
instance BoxedObject PtrArray where
boxedType _ = c_g_ptr_array_get_type
instance B.GValue.IsGValue PtrArray where
toGValue o = do
gtype <- c_g_ptr_array_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_boxed)
fromGValue gv = do
ptr <- B.GValue.get_boxed gv :: IO (Ptr PtrArray)
B.ManagedPtr.newBoxed PtrArray ptr
newZeroPtrArray :: MonadIO m => m PtrArray
newZeroPtrArray = liftIO $ callocBoxedBytes 16 >>= wrapBoxed PtrArray
instance tag ~ 'AttrSet => Constructible PtrArray tag where
new _ attrs = do
o <- newZeroPtrArray
GI.Attributes.set o attrs
return o
noPtrArray :: Maybe PtrArray
noPtrArray = Nothing
getPtrArrayPdata :: MonadIO m => PtrArray -> m (Ptr ())
getPtrArrayPdata s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())
return val
setPtrArrayPdata :: MonadIO m => PtrArray -> Ptr () -> m ()
setPtrArrayPdata s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Ptr ())
clearPtrArrayPdata :: MonadIO m => PtrArray -> m ()
clearPtrArrayPdata s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr ())
#if defined(ENABLE_OVERLOADING)
data PtrArrayPdataFieldInfo
instance AttrInfo PtrArrayPdataFieldInfo where
type AttrBaseTypeConstraint PtrArrayPdataFieldInfo = (~) PtrArray
type AttrAllowedOps PtrArrayPdataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint PtrArrayPdataFieldInfo = (~) (Ptr ())
type AttrTransferTypeConstraint PtrArrayPdataFieldInfo = (~)(Ptr ())
type AttrTransferType PtrArrayPdataFieldInfo = (Ptr ())
type AttrGetType PtrArrayPdataFieldInfo = Ptr ()
type AttrLabel PtrArrayPdataFieldInfo = "pdata"
type AttrOrigin PtrArrayPdataFieldInfo = PtrArray
attrGet = getPtrArrayPdata
attrSet = setPtrArrayPdata
attrConstruct = undefined
attrClear = clearPtrArrayPdata
attrTransfer _ v = do
return v
ptrArray_pdata :: AttrLabelProxy "pdata"
ptrArray_pdata = AttrLabelProxy
#endif
getPtrArrayLen :: MonadIO m => PtrArray -> m Word32
getPtrArrayLen s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Word32
return val
setPtrArrayLen :: MonadIO m => PtrArray -> Word32 -> m ()
setPtrArrayLen s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Word32)
#if defined(ENABLE_OVERLOADING)
data PtrArrayLenFieldInfo
instance AttrInfo PtrArrayLenFieldInfo where
type AttrBaseTypeConstraint PtrArrayLenFieldInfo = (~) PtrArray
type AttrAllowedOps PtrArrayLenFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint PtrArrayLenFieldInfo = (~) Word32
type AttrTransferTypeConstraint PtrArrayLenFieldInfo = (~)Word32
type AttrTransferType PtrArrayLenFieldInfo = Word32
type AttrGetType PtrArrayLenFieldInfo = Word32
type AttrLabel PtrArrayLenFieldInfo = "len"
type AttrOrigin PtrArrayLenFieldInfo = PtrArray
attrGet = getPtrArrayLen
attrSet = setPtrArrayLen
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
ptrArray_len :: AttrLabelProxy "len"
ptrArray_len = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PtrArray
type instance O.AttributeList PtrArray = PtrArrayAttributeList
type PtrArrayAttributeList = ('[ '("pdata", PtrArrayPdataFieldInfo), '("len", PtrArrayLenFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolvePtrArrayMethod (t :: Symbol) (o :: *) :: * where
ResolvePtrArrayMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePtrArrayMethod t PtrArray, O.MethodInfo info PtrArray p) => OL.IsLabel t (PtrArray -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif