#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Atk.Structs.KeyEventStruct
(
KeyEventStruct(..) ,
newZeroKeyEventStruct ,
noKeyEventStruct ,
getKeyEventStructKeycode ,
#if ENABLE_OVERLOADING
keyEventStruct_keycode ,
#endif
setKeyEventStructKeycode ,
getKeyEventStructKeyval ,
#if ENABLE_OVERLOADING
keyEventStruct_keyval ,
#endif
setKeyEventStructKeyval ,
getKeyEventStructLength ,
#if ENABLE_OVERLOADING
keyEventStruct_length ,
#endif
setKeyEventStructLength ,
getKeyEventStructState ,
#if ENABLE_OVERLOADING
keyEventStruct_state ,
#endif
setKeyEventStructState ,
clearKeyEventStructString ,
getKeyEventStructString ,
#if ENABLE_OVERLOADING
keyEventStruct_string ,
#endif
setKeyEventStructString ,
getKeyEventStructTimestamp ,
#if ENABLE_OVERLOADING
keyEventStruct_timestamp ,
#endif
setKeyEventStructTimestamp ,
getKeyEventStructType ,
#if ENABLE_OVERLOADING
keyEventStruct_type ,
#endif
setKeyEventStructType ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
newtype KeyEventStruct = KeyEventStruct (ManagedPtr KeyEventStruct)
instance WrappedPtr KeyEventStruct where
wrappedPtrCalloc :: IO (Ptr KeyEventStruct)
wrappedPtrCalloc = Int -> IO (Ptr KeyEventStruct)
forall a. Int -> IO (Ptr a)
callocBytes 32
wrappedPtrCopy :: KeyEventStruct -> IO KeyEventStruct
wrappedPtrCopy = \p :: KeyEventStruct
p -> KeyEventStruct
-> (Ptr KeyEventStruct -> IO KeyEventStruct) -> IO KeyEventStruct
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
p (Int -> Ptr KeyEventStruct -> IO (Ptr KeyEventStruct)
forall a. WrappedPtr a => Int -> Ptr a -> IO (Ptr a)
copyBytes 32 (Ptr KeyEventStruct -> IO (Ptr KeyEventStruct))
-> (Ptr KeyEventStruct -> IO KeyEventStruct)
-> Ptr KeyEventStruct
-> IO KeyEventStruct
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr KeyEventStruct -> KeyEventStruct)
-> Ptr KeyEventStruct -> IO KeyEventStruct
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr KeyEventStruct -> KeyEventStruct
KeyEventStruct)
wrappedPtrFree :: Maybe (FunPtr (Ptr KeyEventStruct -> IO ()))
wrappedPtrFree = FunPtr (Ptr KeyEventStruct -> IO ())
-> Maybe (FunPtr (Ptr KeyEventStruct -> IO ()))
forall a. a -> Maybe a
Just FunPtr (Ptr KeyEventStruct -> IO ())
forall a. FunPtr (Ptr a -> IO ())
ptr_to_g_free
newZeroKeyEventStruct :: MonadIO m => m KeyEventStruct
newZeroKeyEventStruct :: m KeyEventStruct
newZeroKeyEventStruct = IO KeyEventStruct -> m KeyEventStruct
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO KeyEventStruct -> m KeyEventStruct)
-> IO KeyEventStruct -> m KeyEventStruct
forall a b. (a -> b) -> a -> b
$ IO (Ptr KeyEventStruct)
forall a. WrappedPtr a => IO (Ptr a)
wrappedPtrCalloc IO (Ptr KeyEventStruct)
-> (Ptr KeyEventStruct -> IO KeyEventStruct) -> IO KeyEventStruct
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr KeyEventStruct -> KeyEventStruct)
-> Ptr KeyEventStruct -> IO KeyEventStruct
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr KeyEventStruct -> KeyEventStruct
KeyEventStruct
instance tag ~ 'AttrSet => Constructible KeyEventStruct tag where
new :: (ManagedPtr KeyEventStruct -> KeyEventStruct)
-> [AttrOp KeyEventStruct tag] -> m KeyEventStruct
new _ attrs :: [AttrOp KeyEventStruct tag]
attrs = do
KeyEventStruct
o <- m KeyEventStruct
forall (m :: * -> *). MonadIO m => m KeyEventStruct
newZeroKeyEventStruct
KeyEventStruct -> [AttrOp KeyEventStruct 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set KeyEventStruct
o [AttrOp KeyEventStruct tag]
[AttrOp KeyEventStruct 'AttrSet]
attrs
KeyEventStruct -> m KeyEventStruct
forall (m :: * -> *) a. Monad m => a -> m a
return KeyEventStruct
o
noKeyEventStruct :: Maybe KeyEventStruct
noKeyEventStruct :: Maybe KeyEventStruct
noKeyEventStruct = Maybe KeyEventStruct
forall a. Maybe a
Nothing
getKeyEventStructType :: MonadIO m => KeyEventStruct -> m Int32
getKeyEventStructType :: KeyEventStruct -> m Int32
getKeyEventStructType s :: KeyEventStruct
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO Int32) -> IO Int32)
-> (Ptr KeyEventStruct -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setKeyEventStructType :: MonadIO m => KeyEventStruct -> Int32 -> m ()
setKeyEventStructType :: KeyEventStruct -> Int32 -> m ()
setKeyEventStructType s :: KeyEventStruct
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Int32
val :: Int32)
#if ENABLE_OVERLOADING
data KeyEventStructTypeFieldInfo
instance AttrInfo KeyEventStructTypeFieldInfo where
type AttrAllowedOps KeyEventStructTypeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructTypeFieldInfo = (~) Int32
type AttrBaseTypeConstraint KeyEventStructTypeFieldInfo = (~) KeyEventStruct
type AttrGetType KeyEventStructTypeFieldInfo = Int32
type AttrLabel KeyEventStructTypeFieldInfo = "type"
type AttrOrigin KeyEventStructTypeFieldInfo = KeyEventStruct
attrGet _ = getKeyEventStructType
attrSet _ = setKeyEventStructType
attrConstruct = undefined
attrClear _ = undefined
keyEventStruct_type :: AttrLabelProxy "type"
keyEventStruct_type = AttrLabelProxy
#endif
getKeyEventStructState :: MonadIO m => KeyEventStruct -> m Word32
getKeyEventStructState :: KeyEventStruct -> m Word32
getKeyEventStructState s :: KeyEventStruct
s = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO Word32) -> IO Word32)
-> (Ptr KeyEventStruct -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 4) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setKeyEventStructState :: MonadIO m => KeyEventStruct -> Word32 -> m ()
setKeyEventStructState :: KeyEventStruct -> Word32 -> m ()
setKeyEventStructState s :: KeyEventStruct
s val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 4) (Word32
val :: Word32)
#if ENABLE_OVERLOADING
data KeyEventStructStateFieldInfo
instance AttrInfo KeyEventStructStateFieldInfo where
type AttrAllowedOps KeyEventStructStateFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructStateFieldInfo = (~) Word32
type AttrBaseTypeConstraint KeyEventStructStateFieldInfo = (~) KeyEventStruct
type AttrGetType KeyEventStructStateFieldInfo = Word32
type AttrLabel KeyEventStructStateFieldInfo = "state"
type AttrOrigin KeyEventStructStateFieldInfo = KeyEventStruct
attrGet _ = getKeyEventStructState
attrSet _ = setKeyEventStructState
attrConstruct = undefined
attrClear _ = undefined
keyEventStruct_state :: AttrLabelProxy "state"
keyEventStruct_state = AttrLabelProxy
#endif
getKeyEventStructKeyval :: MonadIO m => KeyEventStruct -> m Word32
getKeyEventStructKeyval :: KeyEventStruct -> m Word32
getKeyEventStructKeyval s :: KeyEventStruct
s = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO Word32) -> IO Word32)
-> (Ptr KeyEventStruct -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setKeyEventStructKeyval :: MonadIO m => KeyEventStruct -> Word32 -> m ()
setKeyEventStructKeyval :: KeyEventStruct -> Word32 -> m ()
setKeyEventStructKeyval s :: KeyEventStruct
s val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (Word32
val :: Word32)
#if ENABLE_OVERLOADING
data KeyEventStructKeyvalFieldInfo
instance AttrInfo KeyEventStructKeyvalFieldInfo where
type AttrAllowedOps KeyEventStructKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructKeyvalFieldInfo = (~) Word32
type AttrBaseTypeConstraint KeyEventStructKeyvalFieldInfo = (~) KeyEventStruct
type AttrGetType KeyEventStructKeyvalFieldInfo = Word32
type AttrLabel KeyEventStructKeyvalFieldInfo = "keyval"
type AttrOrigin KeyEventStructKeyvalFieldInfo = KeyEventStruct
attrGet _ = getKeyEventStructKeyval
attrSet _ = setKeyEventStructKeyval
attrConstruct = undefined
attrClear _ = undefined
keyEventStruct_keyval :: AttrLabelProxy "keyval"
keyEventStruct_keyval = AttrLabelProxy
#endif
getKeyEventStructLength :: MonadIO m => KeyEventStruct -> m Int32
getKeyEventStructLength :: KeyEventStruct -> m Int32
getKeyEventStructLength s :: KeyEventStruct
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO Int32) -> IO Int32)
-> (Ptr KeyEventStruct -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 12) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setKeyEventStructLength :: MonadIO m => KeyEventStruct -> Int32 -> m ()
setKeyEventStructLength :: KeyEventStruct -> Int32 -> m ()
setKeyEventStructLength s :: KeyEventStruct
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 12) (Int32
val :: Int32)
#if ENABLE_OVERLOADING
data KeyEventStructLengthFieldInfo
instance AttrInfo KeyEventStructLengthFieldInfo where
type AttrAllowedOps KeyEventStructLengthFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructLengthFieldInfo = (~) Int32
type AttrBaseTypeConstraint KeyEventStructLengthFieldInfo = (~) KeyEventStruct
type AttrGetType KeyEventStructLengthFieldInfo = Int32
type AttrLabel KeyEventStructLengthFieldInfo = "length"
type AttrOrigin KeyEventStructLengthFieldInfo = KeyEventStruct
attrGet _ = getKeyEventStructLength
attrSet _ = setKeyEventStructLength
attrConstruct = undefined
attrClear _ = undefined
keyEventStruct_length :: AttrLabelProxy "length"
keyEventStruct_length = AttrLabelProxy
#endif
getKeyEventStructString :: MonadIO m => KeyEventStruct -> m (Maybe T.Text)
getKeyEventStructString :: KeyEventStruct -> m (Maybe Text)
getKeyEventStructString s :: KeyEventStruct
s = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ KeyEventStruct
-> (Ptr KeyEventStruct -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr KeyEventStruct -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \val' :: CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setKeyEventStructString :: MonadIO m => KeyEventStruct -> CString -> m ()
setKeyEventStructString :: KeyEventStruct -> CString -> m ()
setKeyEventStructString s :: KeyEventStruct
s val :: CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
val :: CString)
clearKeyEventStructString :: MonadIO m => KeyEventStruct -> m ()
clearKeyEventStructString :: KeyEventStruct -> m ()
clearKeyEventStructString s :: KeyEventStruct
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 16) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data KeyEventStructStringFieldInfo
instance AttrInfo KeyEventStructStringFieldInfo where
type AttrAllowedOps KeyEventStructStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint KeyEventStructStringFieldInfo = (~) CString
type AttrBaseTypeConstraint KeyEventStructStringFieldInfo = (~) KeyEventStruct
type AttrGetType KeyEventStructStringFieldInfo = Maybe T.Text
type AttrLabel KeyEventStructStringFieldInfo = "string"
type AttrOrigin KeyEventStructStringFieldInfo = KeyEventStruct
attrGet _ = getKeyEventStructString
attrSet _ = setKeyEventStructString
attrConstruct = undefined
attrClear _ = clearKeyEventStructString
keyEventStruct_string :: AttrLabelProxy "string"
keyEventStruct_string = AttrLabelProxy
#endif
getKeyEventStructKeycode :: MonadIO m => KeyEventStruct -> m Word16
getKeyEventStructKeycode :: KeyEventStruct -> m Word16
getKeyEventStructKeycode s :: KeyEventStruct
s = IO Word16 -> m Word16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO Word16) -> IO Word16
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO Word16) -> IO Word16)
-> (Ptr KeyEventStruct -> IO Word16) -> IO Word16
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Word16
val <- Ptr Word16 -> IO Word16
forall a. Storable a => Ptr a -> IO a
peek (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word16
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) :: IO Word16
Word16 -> IO Word16
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
val
setKeyEventStructKeycode :: MonadIO m => KeyEventStruct -> Word16 -> m ()
setKeyEventStructKeycode :: KeyEventStruct -> Word16 -> m ()
setKeyEventStructKeycode s :: KeyEventStruct
s val :: Word16
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr Word16 -> Word16 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word16
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 24) (Word16
val :: Word16)
#if ENABLE_OVERLOADING
data KeyEventStructKeycodeFieldInfo
instance AttrInfo KeyEventStructKeycodeFieldInfo where
type AttrAllowedOps KeyEventStructKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructKeycodeFieldInfo = (~) Word16
type AttrBaseTypeConstraint KeyEventStructKeycodeFieldInfo = (~) KeyEventStruct
type AttrGetType KeyEventStructKeycodeFieldInfo = Word16
type AttrLabel KeyEventStructKeycodeFieldInfo = "keycode"
type AttrOrigin KeyEventStructKeycodeFieldInfo = KeyEventStruct
attrGet _ = getKeyEventStructKeycode
attrSet _ = setKeyEventStructKeycode
attrConstruct = undefined
attrClear _ = undefined
keyEventStruct_keycode :: AttrLabelProxy "keycode"
keyEventStruct_keycode = AttrLabelProxy
#endif
getKeyEventStructTimestamp :: MonadIO m => KeyEventStruct -> m Word32
getKeyEventStructTimestamp :: KeyEventStruct -> m Word32
getKeyEventStructTimestamp s :: KeyEventStruct
s = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO Word32) -> IO Word32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO Word32) -> IO Word32)
-> (Ptr KeyEventStruct -> IO Word32) -> IO Word32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Word32
val <- Ptr Word32 -> IO Word32
forall a. Storable a => Ptr a -> IO a
peek (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 28) :: IO Word32
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
val
setKeyEventStructTimestamp :: MonadIO m => KeyEventStruct -> Word32 -> m ()
setKeyEventStructTimestamp :: KeyEventStruct -> Word32 -> m ()
setKeyEventStructTimestamp s :: KeyEventStruct
s val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ KeyEventStruct -> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr KeyEventStruct
s ((Ptr KeyEventStruct -> IO ()) -> IO ())
-> (Ptr KeyEventStruct -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr KeyEventStruct
ptr -> do
Ptr Word32 -> Word32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr KeyEventStruct
ptr Ptr KeyEventStruct -> Int -> Ptr Word32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 28) (Word32
val :: Word32)
#if ENABLE_OVERLOADING
data KeyEventStructTimestampFieldInfo
instance AttrInfo KeyEventStructTimestampFieldInfo where
type AttrAllowedOps KeyEventStructTimestampFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint KeyEventStructTimestampFieldInfo = (~) Word32
type AttrBaseTypeConstraint KeyEventStructTimestampFieldInfo = (~) KeyEventStruct
type AttrGetType KeyEventStructTimestampFieldInfo = Word32
type AttrLabel KeyEventStructTimestampFieldInfo = "timestamp"
type AttrOrigin KeyEventStructTimestampFieldInfo = KeyEventStruct
attrGet _ = getKeyEventStructTimestamp
attrSet _ = setKeyEventStructTimestamp
attrConstruct = undefined
attrClear _ = undefined
keyEventStruct_timestamp :: AttrLabelProxy "timestamp"
keyEventStruct_timestamp = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList KeyEventStruct
type instance O.AttributeList KeyEventStruct = KeyEventStructAttributeList
type KeyEventStructAttributeList = ('[ '("type", KeyEventStructTypeFieldInfo), '("state", KeyEventStructStateFieldInfo), '("keyval", KeyEventStructKeyvalFieldInfo), '("length", KeyEventStructLengthFieldInfo), '("string", KeyEventStructStringFieldInfo), '("keycode", KeyEventStructKeycodeFieldInfo), '("timestamp", KeyEventStructTimestampFieldInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
type family ResolveKeyEventStructMethod (t :: Symbol) (o :: *) :: * where
ResolveKeyEventStructMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveKeyEventStructMethod t KeyEventStruct, O.MethodInfo info KeyEventStruct p) => O.IsLabelProxy t (KeyEventStruct -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveKeyEventStructMethod t KeyEventStruct, O.MethodInfo info KeyEventStruct p) => O.IsLabel t (KeyEventStruct -> 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