{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.GLib.Structs.IOFuncs
(
IOFuncs(..) ,
newZeroIOFuncs ,
#if defined(ENABLE_OVERLOADING)
ResolveIOFuncsMethod ,
#endif
clearIOFuncsIoClose ,
getIOFuncsIoClose ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioClose ,
#endif
setIOFuncsIoClose ,
clearIOFuncsIoCreateWatch ,
getIOFuncsIoCreateWatch ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioCreateWatch ,
#endif
setIOFuncsIoCreateWatch ,
clearIOFuncsIoFree ,
getIOFuncsIoFree ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioFree ,
#endif
setIOFuncsIoFree ,
clearIOFuncsIoGetFlags ,
getIOFuncsIoGetFlags ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioGetFlags ,
#endif
setIOFuncsIoGetFlags ,
clearIOFuncsIoRead ,
getIOFuncsIoRead ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioRead ,
#endif
setIOFuncsIoRead ,
clearIOFuncsIoSeek ,
getIOFuncsIoSeek ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioSeek ,
#endif
setIOFuncsIoSeek ,
clearIOFuncsIoSetFlags ,
getIOFuncsIoSetFlags ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioSetFlags ,
#endif
setIOFuncsIoSetFlags ,
clearIOFuncsIoWrite ,
getIOFuncsIoWrite ,
#if defined(ENABLE_OVERLOADING)
iOFuncs_ioWrite ,
#endif
setIOFuncsIoWrite ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 qualified GHC.Records as R
import qualified GI.GLib.Callbacks as GLib.Callbacks
newtype IOFuncs = IOFuncs (SP.ManagedPtr IOFuncs)
deriving (IOFuncs -> IOFuncs -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IOFuncs -> IOFuncs -> Bool
$c/= :: IOFuncs -> IOFuncs -> Bool
== :: IOFuncs -> IOFuncs -> Bool
$c== :: IOFuncs -> IOFuncs -> Bool
Eq)
instance SP.ManagedPtrNewtype IOFuncs where
toManagedPtr :: IOFuncs -> ManagedPtr IOFuncs
toManagedPtr (IOFuncs ManagedPtr IOFuncs
p) = ManagedPtr IOFuncs
p
instance BoxedPtr IOFuncs where
boxedPtrCopy :: IOFuncs -> IO IOFuncs
boxedPtrCopy = \IOFuncs
p -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr IOFuncs
p (forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
64 forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr IOFuncs -> IOFuncs
IOFuncs)
boxedPtrFree :: IOFuncs -> IO ()
boxedPtrFree = \IOFuncs
x -> forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr IOFuncs
x forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr IOFuncs where
boxedPtrCalloc :: IO (Ptr IOFuncs)
boxedPtrCalloc = forall a. Int -> IO (Ptr a)
callocBytes Int
64
newZeroIOFuncs :: MonadIO m => m IOFuncs
newZeroIOFuncs :: forall (m :: * -> *). MonadIO m => m IOFuncs
newZeroIOFuncs = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr IOFuncs -> IOFuncs
IOFuncs
instance tag ~ 'AttrSet => Constructible IOFuncs tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr IOFuncs -> IOFuncs)
-> [AttrOp IOFuncs tag] -> m IOFuncs
new ManagedPtr IOFuncs -> IOFuncs
_ [AttrOp IOFuncs tag]
attrs = do
IOFuncs
o <- forall (m :: * -> *). MonadIO m => m IOFuncs
newZeroIOFuncs
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set IOFuncs
o [AttrOp IOFuncs tag]
attrs
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncs
o
getIOFuncsIoRead :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoReadFieldCallback)
getIOFuncsIoRead :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoReadFieldCallback)
getIOFuncsIoRead IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoReadFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoReadFieldCallback)
Maybe IOFuncsIoReadFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoReadFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoReadFieldCallback
val' -> do
let val'' :: IOFuncsIoReadFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoReadFieldCallback
-> IOChannel -> Text -> Word64 -> Word64 -> m IOStatus
GLib.Callbacks.dynamic_IOFuncsIoReadFieldCallback FunPtr C_IOFuncsIoReadFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoReadFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoReadFieldCallback
result
setIOFuncsIoRead :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoReadFieldCallback -> m ()
setIOFuncsIoRead :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoReadFieldCallback -> m ()
setIOFuncsIoRead IOFuncs
s FunPtr C_IOFuncsIoReadFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (FunPtr C_IOFuncsIoReadFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoReadFieldCallback)
clearIOFuncsIoRead :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoRead :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoRead IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoReadFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoReadFieldInfo
instance AttrInfo IOFuncsIoReadFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoReadFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoReadFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoReadFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoReadFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoReadFieldInfo = (~)(FunPtr GLib.Callbacks.C_IOFuncsIoReadFieldCallback)
type AttrTransferType IOFuncsIoReadFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoReadFieldCallback)
type AttrGetType IOFuncsIoReadFieldInfo = Maybe GLib.Callbacks.IOFuncsIoReadFieldCallback
type AttrLabel IOFuncsIoReadFieldInfo = "io_read"
type AttrOrigin IOFuncsIoReadFieldInfo = IOFuncs
attrGet = getIOFuncsIoRead
attrSet = setIOFuncsIoRead
attrConstruct = undefined
attrClear = clearIOFuncsIoRead
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioRead"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioRead"
})
iOFuncs_ioRead :: AttrLabelProxy "ioRead"
iOFuncs_ioRead = AttrLabelProxy
#endif
getIOFuncsIoWrite :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoWriteFieldCallback)
getIOFuncsIoWrite :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoReadFieldCallback)
getIOFuncsIoWrite IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoReadFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoWriteFieldCallback)
Maybe IOFuncsIoReadFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoReadFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoReadFieldCallback
val' -> do
let val'' :: IOFuncsIoReadFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoReadFieldCallback
-> IOChannel -> Text -> Word64 -> Word64 -> m IOStatus
GLib.Callbacks.dynamic_IOFuncsIoWriteFieldCallback FunPtr C_IOFuncsIoReadFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoReadFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoReadFieldCallback
result
setIOFuncsIoWrite :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoWriteFieldCallback -> m ()
setIOFuncsIoWrite :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoReadFieldCallback -> m ()
setIOFuncsIoWrite IOFuncs
s FunPtr C_IOFuncsIoReadFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (FunPtr C_IOFuncsIoReadFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoWriteFieldCallback)
clearIOFuncsIoWrite :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoWrite :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoWrite IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoWriteFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoWriteFieldInfo
instance AttrInfo IOFuncsIoWriteFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoWriteFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoWriteFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoWriteFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoWriteFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoWriteFieldInfo = (~)(FunPtr GLib.Callbacks.C_IOFuncsIoWriteFieldCallback)
type AttrTransferType IOFuncsIoWriteFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoWriteFieldCallback)
type AttrGetType IOFuncsIoWriteFieldInfo = Maybe GLib.Callbacks.IOFuncsIoWriteFieldCallback
type AttrLabel IOFuncsIoWriteFieldInfo = "io_write"
type AttrOrigin IOFuncsIoWriteFieldInfo = IOFuncs
attrGet = getIOFuncsIoWrite
attrSet = setIOFuncsIoWrite
attrConstruct = undefined
attrClear = clearIOFuncsIoWrite
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioWrite"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioWrite"
})
iOFuncs_ioWrite :: AttrLabelProxy "ioWrite"
iOFuncs_ioWrite = AttrLabelProxy
#endif
getIOFuncsIoSeek :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoSeekFieldCallback)
getIOFuncsIoSeek :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoSeekFieldCallback)
getIOFuncsIoSeek IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoSeekFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoSeekFieldCallback)
Maybe IOFuncsIoSeekFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoSeekFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoSeekFieldCallback
val' -> do
let val'' :: IOFuncsIoSeekFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoSeekFieldCallback
-> IOChannel -> Int64 -> SeekType -> m IOStatus
GLib.Callbacks.dynamic_IOFuncsIoSeekFieldCallback FunPtr C_IOFuncsIoSeekFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoSeekFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoSeekFieldCallback
result
setIOFuncsIoSeek :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoSeekFieldCallback -> m ()
setIOFuncsIoSeek :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoSeekFieldCallback -> m ()
setIOFuncsIoSeek IOFuncs
s FunPtr C_IOFuncsIoSeekFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (FunPtr C_IOFuncsIoSeekFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoSeekFieldCallback)
clearIOFuncsIoSeek :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoSeek :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoSeek IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoSeekFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoSeekFieldInfo
instance AttrInfo IOFuncsIoSeekFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoSeekFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoSeekFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoSeekFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoSeekFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoSeekFieldInfo = (~)(FunPtr GLib.Callbacks.C_IOFuncsIoSeekFieldCallback)
type AttrTransferType IOFuncsIoSeekFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoSeekFieldCallback)
type AttrGetType IOFuncsIoSeekFieldInfo = Maybe GLib.Callbacks.IOFuncsIoSeekFieldCallback
type AttrLabel IOFuncsIoSeekFieldInfo = "io_seek"
type AttrOrigin IOFuncsIoSeekFieldInfo = IOFuncs
attrGet = getIOFuncsIoSeek
attrSet = setIOFuncsIoSeek
attrConstruct = undefined
attrClear = clearIOFuncsIoSeek
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioSeek"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioSeek"
})
iOFuncs_ioSeek :: AttrLabelProxy "ioSeek"
iOFuncs_ioSeek = AttrLabelProxy
#endif
getIOFuncsIoClose :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoCloseFieldCallback)
getIOFuncsIoClose :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoCloseFieldCallback)
getIOFuncsIoClose IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoCloseFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoCloseFieldCallback)
Maybe IOFuncsIoCloseFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoCloseFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoCloseFieldCallback
val' -> do
let val'' :: IOFuncsIoCloseFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoCloseFieldCallback -> IOChannel -> m IOStatus
GLib.Callbacks.dynamic_IOFuncsIoCloseFieldCallback FunPtr C_IOFuncsIoCloseFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoCloseFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoCloseFieldCallback
result
setIOFuncsIoClose :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoCloseFieldCallback -> m ()
setIOFuncsIoClose :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoCloseFieldCallback -> m ()
setIOFuncsIoClose IOFuncs
s FunPtr C_IOFuncsIoCloseFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (FunPtr C_IOFuncsIoCloseFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoCloseFieldCallback)
clearIOFuncsIoClose :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoClose :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoClose IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoCloseFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoCloseFieldInfo
instance AttrInfo IOFuncsIoCloseFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoCloseFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoCloseFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoCloseFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoCloseFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoCloseFieldInfo = (~)(FunPtr GLib.Callbacks.C_IOFuncsIoCloseFieldCallback)
type AttrTransferType IOFuncsIoCloseFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoCloseFieldCallback)
type AttrGetType IOFuncsIoCloseFieldInfo = Maybe GLib.Callbacks.IOFuncsIoCloseFieldCallback
type AttrLabel IOFuncsIoCloseFieldInfo = "io_close"
type AttrOrigin IOFuncsIoCloseFieldInfo = IOFuncs
attrGet = getIOFuncsIoClose
attrSet = setIOFuncsIoClose
attrConstruct = undefined
attrClear = clearIOFuncsIoClose
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioClose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioClose"
})
iOFuncs_ioClose :: AttrLabelProxy "ioClose"
iOFuncs_ioClose = AttrLabelProxy
#endif
getIOFuncsIoCreateWatch :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoCreateWatchFieldCallback)
getIOFuncsIoCreateWatch :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoCreateWatchFieldCallback)
getIOFuncsIoCreateWatch IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoCreateWatchFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoCreateWatchFieldCallback)
Maybe IOFuncsIoCreateWatchFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoCreateWatchFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoCreateWatchFieldCallback
val' -> do
let val'' :: IOFuncsIoCreateWatchFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoCreateWatchFieldCallback
-> IOChannel -> [IOCondition] -> m Source
GLib.Callbacks.dynamic_IOFuncsIoCreateWatchFieldCallback FunPtr C_IOFuncsIoCreateWatchFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoCreateWatchFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoCreateWatchFieldCallback
result
setIOFuncsIoCreateWatch :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoCreateWatchFieldCallback -> m ()
setIOFuncsIoCreateWatch :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoCreateWatchFieldCallback -> m ()
setIOFuncsIoCreateWatch IOFuncs
s FunPtr C_IOFuncsIoCreateWatchFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (FunPtr C_IOFuncsIoCreateWatchFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoCreateWatchFieldCallback)
clearIOFuncsIoCreateWatch :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoCreateWatch :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoCreateWatch IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoCreateWatchFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoCreateWatchFieldInfo
instance AttrInfo IOFuncsIoCreateWatchFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoCreateWatchFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoCreateWatchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoCreateWatchFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoCreateWatchFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoCreateWatchFieldInfo = (~)GLib.Callbacks.IOFuncsIoCreateWatchFieldCallback
type AttrTransferType IOFuncsIoCreateWatchFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoCreateWatchFieldCallback)
type AttrGetType IOFuncsIoCreateWatchFieldInfo = Maybe GLib.Callbacks.IOFuncsIoCreateWatchFieldCallback
type AttrLabel IOFuncsIoCreateWatchFieldInfo = "io_create_watch"
type AttrOrigin IOFuncsIoCreateWatchFieldInfo = IOFuncs
attrGet = getIOFuncsIoCreateWatch
attrSet = setIOFuncsIoCreateWatch
attrConstruct = undefined
attrClear = clearIOFuncsIoCreateWatch
attrTransfer _ v = do
GLib.Callbacks.mk_IOFuncsIoCreateWatchFieldCallback (GLib.Callbacks.wrap_IOFuncsIoCreateWatchFieldCallback Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioCreateWatch"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioCreateWatch"
})
iOFuncs_ioCreateWatch :: AttrLabelProxy "ioCreateWatch"
iOFuncs_ioCreateWatch = AttrLabelProxy
#endif
getIOFuncsIoFree :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoFreeFieldCallback)
getIOFuncsIoFree :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoFreeFieldCallback)
getIOFuncsIoFree IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoFreeFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoFreeFieldCallback)
Maybe IOFuncsIoFreeFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoFreeFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoFreeFieldCallback
val' -> do
let val'' :: IOFuncsIoFreeFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoFreeFieldCallback -> IOChannel -> m ()
GLib.Callbacks.dynamic_IOFuncsIoFreeFieldCallback FunPtr C_IOFuncsIoFreeFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoFreeFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoFreeFieldCallback
result
setIOFuncsIoFree :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoFreeFieldCallback -> m ()
setIOFuncsIoFree :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoFreeFieldCallback -> m ()
setIOFuncsIoFree IOFuncs
s FunPtr C_IOFuncsIoFreeFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (FunPtr C_IOFuncsIoFreeFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoFreeFieldCallback)
clearIOFuncsIoFree :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoFree :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoFree IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoFreeFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoFreeFieldInfo
instance AttrInfo IOFuncsIoFreeFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoFreeFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoFreeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoFreeFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoFreeFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoFreeFieldInfo = (~)GLib.Callbacks.IOFuncsIoFreeFieldCallback
type AttrTransferType IOFuncsIoFreeFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoFreeFieldCallback)
type AttrGetType IOFuncsIoFreeFieldInfo = Maybe GLib.Callbacks.IOFuncsIoFreeFieldCallback
type AttrLabel IOFuncsIoFreeFieldInfo = "io_free"
type AttrOrigin IOFuncsIoFreeFieldInfo = IOFuncs
attrGet = getIOFuncsIoFree
attrSet = setIOFuncsIoFree
attrConstruct = undefined
attrClear = clearIOFuncsIoFree
attrTransfer _ v = do
GLib.Callbacks.mk_IOFuncsIoFreeFieldCallback (GLib.Callbacks.wrap_IOFuncsIoFreeFieldCallback Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioFree"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioFree"
})
iOFuncs_ioFree :: AttrLabelProxy "ioFree"
iOFuncs_ioFree = AttrLabelProxy
#endif
getIOFuncsIoSetFlags :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoSetFlagsFieldCallback)
getIOFuncsIoSetFlags :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoSetFlagsFieldCallback)
getIOFuncsIoSetFlags IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoSetFlagsFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoSetFlagsFieldCallback)
Maybe IOFuncsIoSetFlagsFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoSetFlagsFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoSetFlagsFieldCallback
val' -> do
let val'' :: IOFuncsIoSetFlagsFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoSetFlagsFieldCallback
-> IOChannel -> [IOFlags] -> m IOStatus
GLib.Callbacks.dynamic_IOFuncsIoSetFlagsFieldCallback FunPtr C_IOFuncsIoSetFlagsFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoSetFlagsFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoSetFlagsFieldCallback
result
setIOFuncsIoSetFlags :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoSetFlagsFieldCallback -> m ()
setIOFuncsIoSetFlags :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoSetFlagsFieldCallback -> m ()
setIOFuncsIoSetFlags IOFuncs
s FunPtr C_IOFuncsIoSetFlagsFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (FunPtr C_IOFuncsIoSetFlagsFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoSetFlagsFieldCallback)
clearIOFuncsIoSetFlags :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoSetFlags :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoSetFlags IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoSetFlagsFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoSetFlagsFieldInfo
instance AttrInfo IOFuncsIoSetFlagsFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoSetFlagsFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoSetFlagsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoSetFlagsFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoSetFlagsFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoSetFlagsFieldInfo = (~)(FunPtr GLib.Callbacks.C_IOFuncsIoSetFlagsFieldCallback)
type AttrTransferType IOFuncsIoSetFlagsFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoSetFlagsFieldCallback)
type AttrGetType IOFuncsIoSetFlagsFieldInfo = Maybe GLib.Callbacks.IOFuncsIoSetFlagsFieldCallback
type AttrLabel IOFuncsIoSetFlagsFieldInfo = "io_set_flags"
type AttrOrigin IOFuncsIoSetFlagsFieldInfo = IOFuncs
attrGet = getIOFuncsIoSetFlags
attrSet = setIOFuncsIoSetFlags
attrConstruct = undefined
attrClear = clearIOFuncsIoSetFlags
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioSetFlags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioSetFlags"
})
iOFuncs_ioSetFlags :: AttrLabelProxy "ioSetFlags"
iOFuncs_ioSetFlags = AttrLabelProxy
#endif
getIOFuncsIoGetFlags :: MonadIO m => IOFuncs -> m (Maybe GLib.Callbacks.IOFuncsIoGetFlagsFieldCallback)
getIOFuncsIoGetFlags :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> m (Maybe IOFuncsIoGetFlagsFieldCallback)
getIOFuncsIoGetFlags IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
FunPtr C_IOFuncsIoGetFlagsFieldCallback
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) :: IO (FunPtr GLib.Callbacks.C_IOFuncsIoGetFlagsFieldCallback)
Maybe IOFuncsIoGetFlagsFieldCallback
result <- forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_IOFuncsIoGetFlagsFieldCallback
val forall a b. (a -> b) -> a -> b
$ \FunPtr C_IOFuncsIoGetFlagsFieldCallback
val' -> do
let val'' :: IOFuncsIoGetFlagsFieldCallback
val'' = forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_IOFuncsIoGetFlagsFieldCallback -> IOChannel -> m [IOFlags]
GLib.Callbacks.dynamic_IOFuncsIoGetFlagsFieldCallback FunPtr C_IOFuncsIoGetFlagsFieldCallback
val'
forall (m :: * -> *) a. Monad m => a -> m a
return IOFuncsIoGetFlagsFieldCallback
val''
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IOFuncsIoGetFlagsFieldCallback
result
setIOFuncsIoGetFlags :: MonadIO m => IOFuncs -> FunPtr GLib.Callbacks.C_IOFuncsIoGetFlagsFieldCallback -> m ()
setIOFuncsIoGetFlags :: forall (m :: * -> *).
MonadIO m =>
IOFuncs -> FunPtr C_IOFuncsIoGetFlagsFieldCallback -> m ()
setIOFuncsIoGetFlags IOFuncs
s FunPtr C_IOFuncsIoGetFlagsFieldCallback
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) (FunPtr C_IOFuncsIoGetFlagsFieldCallback
val :: FunPtr GLib.Callbacks.C_IOFuncsIoGetFlagsFieldCallback)
clearIOFuncsIoGetFlags :: MonadIO m => IOFuncs -> m ()
clearIOFuncsIoGetFlags :: forall (m :: * -> *). MonadIO m => IOFuncs -> m ()
clearIOFuncsIoGetFlags IOFuncs
s = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr IOFuncs
s forall a b. (a -> b) -> a -> b
$ \Ptr IOFuncs
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr IOFuncs
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
56) (forall a. FunPtr a
FP.nullFunPtr :: FunPtr GLib.Callbacks.C_IOFuncsIoGetFlagsFieldCallback)
#if defined(ENABLE_OVERLOADING)
data IOFuncsIoGetFlagsFieldInfo
instance AttrInfo IOFuncsIoGetFlagsFieldInfo where
type AttrBaseTypeConstraint IOFuncsIoGetFlagsFieldInfo = (~) IOFuncs
type AttrAllowedOps IOFuncsIoGetFlagsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint IOFuncsIoGetFlagsFieldInfo = (~) (FunPtr GLib.Callbacks.C_IOFuncsIoGetFlagsFieldCallback)
type AttrTransferTypeConstraint IOFuncsIoGetFlagsFieldInfo = (~)GLib.Callbacks.IOFuncsIoGetFlagsFieldCallback
type AttrTransferType IOFuncsIoGetFlagsFieldInfo = (FunPtr GLib.Callbacks.C_IOFuncsIoGetFlagsFieldCallback)
type AttrGetType IOFuncsIoGetFlagsFieldInfo = Maybe GLib.Callbacks.IOFuncsIoGetFlagsFieldCallback
type AttrLabel IOFuncsIoGetFlagsFieldInfo = "io_get_flags"
type AttrOrigin IOFuncsIoGetFlagsFieldInfo = IOFuncs
attrGet = getIOFuncsIoGetFlags
attrSet = setIOFuncsIoGetFlags
attrConstruct = undefined
attrClear = clearIOFuncsIoGetFlags
attrTransfer _ v = do
GLib.Callbacks.mk_IOFuncsIoGetFlagsFieldCallback (GLib.Callbacks.wrap_IOFuncsIoGetFlagsFieldCallback Nothing v)
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.GLib.Structs.IOFuncs.ioGetFlags"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-glib-2.0.27/docs/GI-GLib-Structs-IOFuncs.html#g:attr:ioGetFlags"
})
iOFuncs_ioGetFlags :: AttrLabelProxy "ioGetFlags"
iOFuncs_ioGetFlags = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList IOFuncs
type instance O.AttributeList IOFuncs = IOFuncsAttributeList
type IOFuncsAttributeList = ('[ '("ioRead", IOFuncsIoReadFieldInfo), '("ioWrite", IOFuncsIoWriteFieldInfo), '("ioSeek", IOFuncsIoSeekFieldInfo), '("ioClose", IOFuncsIoCloseFieldInfo), '("ioCreateWatch", IOFuncsIoCreateWatchFieldInfo), '("ioFree", IOFuncsIoFreeFieldInfo), '("ioSetFlags", IOFuncsIoSetFlagsFieldInfo), '("ioGetFlags", IOFuncsIoGetFlagsFieldInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveIOFuncsMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveIOFuncsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIOFuncsMethod t IOFuncs, O.OverloadedMethod info IOFuncs p) => OL.IsLabel t (IOFuncs -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveIOFuncsMethod t IOFuncs, O.OverloadedMethod info IOFuncs p, R.HasField t IOFuncs p) => R.HasField t IOFuncs p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveIOFuncsMethod t IOFuncs, O.OverloadedMethodInfo info IOFuncs) => OL.IsLabel t (O.MethodProxy info IOFuncs) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif