module Bindings.DirectFB.IDirectFBInputDevice where
import Prelude (IO,Num,return,(.),($),Eq,Show,take)
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.DirectFB.Types
import Bindings.DirectFB.IDirectFBEventBuffer
data C'IDirectFBInputDevice = C'IDirectFBInputDevice{
c'IDirectFBInputDevice'GetID :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr C'DFBInputDeviceID -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetDescription :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr C'DFBInputDeviceDescription -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetKeymapEntry :: FunPtr (Ptr C'IDirectFBInputDevice -> CInt -> Ptr C'DFBInputDeviceKeymapEntry -> IO C'DFBResult)
,
c'IDirectFBInputDevice'CreateEventBuffer :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr (Ptr C'IDirectFBEventBuffer) -> IO C'DFBResult)
,
c'IDirectFBInputDevice'AttachEventBuffer :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr C'IDirectFBEventBuffer -> IO C'DFBResult)
,
c'IDirectFBInputDevice'DetachEventBuffer :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr C'IDirectFBEventBuffer -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetKeyState :: FunPtr (Ptr C'IDirectFBInputDevice -> C'DFBInputDeviceKeyIdentifier -> Ptr C'DFBInputDeviceKeyState -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetModifiers :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr C'DFBInputDeviceModifierMask -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetLockState :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr C'DFBInputDeviceLockState -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetButtons :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr C'DFBInputDeviceButtonMask -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetButtonState :: FunPtr (Ptr C'IDirectFBInputDevice -> C'DFBInputDeviceButtonIdentifier -> Ptr C'DFBInputDeviceButtonState -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetAxis :: FunPtr (Ptr C'IDirectFBInputDevice -> C'DFBInputDeviceAxisIdentifier -> Ptr CInt -> IO C'DFBResult)
,
c'IDirectFBInputDevice'GetXY :: FunPtr (Ptr C'IDirectFBInputDevice -> Ptr CInt -> Ptr CInt -> IO C'DFBResult)
} deriving (Eq,Show)
instance Storable C'IDirectFBInputDevice where
sizeOf _ = 68
alignment = sizeOf
peek p = do
v0 <- peekByteOff p 16
v1 <- peekByteOff p 20
v2 <- peekByteOff p 24
v3 <- peekByteOff p 28
v4 <- peekByteOff p 32
v5 <- peekByteOff p 36
v6 <- peekByteOff p 40
v7 <- peekByteOff p 44
v8 <- peekByteOff p 48
v9 <- peekByteOff p 52
v10 <- peekByteOff p 56
v11 <- peekByteOff p 60
v12 <- peekByteOff p 64
return $ C'IDirectFBInputDevice v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12
poke p (C'IDirectFBInputDevice v0 v1 v2 v3 v4 v5 v6 v7 v8 v9 v10 v11 v12) = do
pokeByteOff p 16 v0
pokeByteOff p 20 v1
pokeByteOff p 24 v2
pokeByteOff p 28 v3
pokeByteOff p 32 v4
pokeByteOff p 36 v5
pokeByteOff p 40 v6
pokeByteOff p 44 v7
pokeByteOff p 48 v8
pokeByteOff p 52 v9
pokeByteOff p 56 v10
pokeByteOff p 60 v11
pokeByteOff p 64 v12
return ()