module Graphics.XHB.Gen.XF86Dri.Types (deserializeError, deserializeEvent, DrmClipRect(..), QueryVersion(..), QueryVersionReply(..), QueryDirectRenderingCapable(..), QueryDirectRenderingCapableReply(..), OpenConnection(..), OpenConnectionReply(..), CloseConnection(..), GetClientDriverName(..), GetClientDriverNameReply(..), CreateContext(..), CreateContextReply(..), DestroyContext(..), CreateDrawable(..), CreateDrawableReply(..), DestroyDrawable(..), GetDrawableInfo(..), GetDrawableInfoReply(..), GetDeviceInfo(..), GetDeviceInfoReply(..), AuthConnection(..), AuthConnectionReply(..)) where import Data.Word import Foreign.C.Types import Data.Bits import Data.Binary.Put import Data.Binary.Get import Data.Typeable import Control.Monad import Control.Exception import Data.List import Graphics.XHB.Shared hiding (Event, Error) import qualified Graphics.XHB.Shared deserializeError :: Word8 -> Maybe (Get SomeError) deserializeError _ = Nothing deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing data DrmClipRect = MkDrmClipRect{x1_DrmClipRect :: INT16, y1_DrmClipRect :: INT16, x2_DrmClipRect :: INT16, x3_DrmClipRect :: INT16} deriving (Show, Typeable) instance Serialize DrmClipRect where serialize x = do serialize (x1_DrmClipRect x) serialize (y1_DrmClipRect x) serialize (x2_DrmClipRect x) serialize (x3_DrmClipRect x) size x = size (x1_DrmClipRect x) + size (y1_DrmClipRect x) + size (x2_DrmClipRect x) + size (x3_DrmClipRect x) instance Deserialize DrmClipRect where deserialize = do x1 <- deserialize y1 <- deserialize x2 <- deserialize x3 <- deserialize return (MkDrmClipRect x1 y1 x2 x3) data QueryVersion = MkQueryVersion{} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 0 let size__ = 4 serialize (convertBytesToRequestSize size__ :: INT16) putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{dri_major_version_QueryVersionReply :: CARD16, dri_minor_version_QueryVersionReply :: CARD16, dri_minor_patch_QueryVersionReply :: CARD32} deriving (Show, Typeable) instance Deserialize QueryVersionReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize dri_major_version <- deserialize dri_minor_version <- deserialize dri_minor_patch <- deserialize let _ = isCard32 length return (MkQueryVersionReply dri_major_version dri_minor_version dri_minor_patch) data QueryDirectRenderingCapable = MkQueryDirectRenderingCapable{screen_QueryDirectRenderingCapable :: CARD32} deriving (Show, Typeable) instance ExtensionRequest QueryDirectRenderingCapable where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (screen_QueryDirectRenderingCapable x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_QueryDirectRenderingCapable x) putSkip (requiredPadding size__) data QueryDirectRenderingCapableReply = MkQueryDirectRenderingCapableReply{is_capable_QueryDirectRenderingCapableReply :: BOOL} deriving (Show, Typeable) instance Deserialize QueryDirectRenderingCapableReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize is_capable <- deserialize let _ = isCard32 length return (MkQueryDirectRenderingCapableReply is_capable) data OpenConnection = MkOpenConnection{screen_OpenConnection :: CARD32} deriving (Show, Typeable) instance ExtensionRequest OpenConnection where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (screen_OpenConnection x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_OpenConnection x) putSkip (requiredPadding size__) data OpenConnectionReply = MkOpenConnectionReply{drm_client_key_low_OpenConnectionReply :: CARD32, drm_client_key_high_OpenConnectionReply :: CARD32, sarea_handle_low_OpenConnectionReply :: CARD32, sarea_handle_high_OpenConnectionReply :: CARD32, bus_id_len_OpenConnectionReply :: CARD32, bus_id_OpenConnectionReply :: [CChar]} deriving (Show, Typeable) instance Deserialize OpenConnectionReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize drm_client_key_low <- deserialize drm_client_key_high <- deserialize sarea_handle_low <- deserialize sarea_handle_high <- deserialize bus_id_len <- deserialize skip 12 bus_id <- deserializeList (fromIntegral bus_id_len) let _ = isCard32 length return (MkOpenConnectionReply drm_client_key_low drm_client_key_high sarea_handle_low sarea_handle_high bus_id_len bus_id) data CloseConnection = MkCloseConnection{screen_CloseConnection :: CARD32} deriving (Show, Typeable) instance ExtensionRequest CloseConnection where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (screen_CloseConnection x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_CloseConnection x) putSkip (requiredPadding size__) data GetClientDriverName = MkGetClientDriverName{screen_GetClientDriverName :: CARD32} deriving (Show, Typeable) instance ExtensionRequest GetClientDriverName where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (screen_GetClientDriverName x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_GetClientDriverName x) putSkip (requiredPadding size__) data GetClientDriverNameReply = MkGetClientDriverNameReply{client_driver_major_version_GetClientDriverNameReply :: CARD32, client_driver_minor_version_GetClientDriverNameReply :: CARD32, client_driver_patch_version_GetClientDriverNameReply :: CARD32, client_driver_name_len_GetClientDriverNameReply :: CARD32, client_driver_name_GetClientDriverNameReply :: [CChar]} deriving (Show, Typeable) instance Deserialize GetClientDriverNameReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize client_driver_major_version <- deserialize client_driver_minor_version <- deserialize client_driver_patch_version <- deserialize client_driver_name_len <- deserialize skip 8 client_driver_name <- deserializeList (fromIntegral client_driver_name_len) let _ = isCard32 length return (MkGetClientDriverNameReply client_driver_major_version client_driver_minor_version client_driver_patch_version client_driver_name_len client_driver_name) data CreateContext = MkCreateContext{visual_CreateContext :: CARD32, screen_CreateContext :: CARD32, context_CreateContext :: CARD32} deriving (Show, Typeable) instance ExtensionRequest CreateContext where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (visual_CreateContext x) + size (screen_CreateContext x) + size (context_CreateContext x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (visual_CreateContext x) serialize (screen_CreateContext x) serialize (context_CreateContext x) putSkip (requiredPadding size__) data CreateContextReply = MkCreateContextReply{hw_context_CreateContextReply :: CARD32} deriving (Show, Typeable) instance Deserialize CreateContextReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize hw_context <- deserialize let _ = isCard32 length return (MkCreateContextReply hw_context) data DestroyContext = MkDestroyContext{screen_DestroyContext :: CARD32, context_DestroyContext :: CARD32} deriving (Show, Typeable) instance ExtensionRequest DestroyContext where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 6 let size__ = 4 + size (screen_DestroyContext x) + size (context_DestroyContext x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_DestroyContext x) serialize (context_DestroyContext x) putSkip (requiredPadding size__) data CreateDrawable = MkCreateDrawable{screen_CreateDrawable :: CARD32, drawable_CreateDrawable :: CARD32} deriving (Show, Typeable) instance ExtensionRequest CreateDrawable where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 7 let size__ = 4 + size (screen_CreateDrawable x) + size (drawable_CreateDrawable x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_CreateDrawable x) serialize (drawable_CreateDrawable x) putSkip (requiredPadding size__) data CreateDrawableReply = MkCreateDrawableReply{hw_drawable_handle_CreateDrawableReply :: CARD32} deriving (Show, Typeable) instance Deserialize CreateDrawableReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize hw_drawable_handle <- deserialize let _ = isCard32 length return (MkCreateDrawableReply hw_drawable_handle) data DestroyDrawable = MkDestroyDrawable{screen_DestroyDrawable :: CARD32, drawable_DestroyDrawable :: CARD32} deriving (Show, Typeable) instance ExtensionRequest DestroyDrawable where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 8 let size__ = 4 + size (screen_DestroyDrawable x) + size (drawable_DestroyDrawable x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_DestroyDrawable x) serialize (drawable_DestroyDrawable x) putSkip (requiredPadding size__) data GetDrawableInfo = MkGetDrawableInfo{screen_GetDrawableInfo :: CARD32, drawable_GetDrawableInfo :: CARD32} deriving (Show, Typeable) instance ExtensionRequest GetDrawableInfo where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 9 let size__ = 4 + size (screen_GetDrawableInfo x) + size (drawable_GetDrawableInfo x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_GetDrawableInfo x) serialize (drawable_GetDrawableInfo x) putSkip (requiredPadding size__) data GetDrawableInfoReply = MkGetDrawableInfoReply{drawable_table_index_GetDrawableInfoReply :: CARD32, drawable_table_stamp_GetDrawableInfoReply :: CARD32, drawable_origin_X_GetDrawableInfoReply :: INT16, drawable_origin_Y_GetDrawableInfoReply :: INT16, drawable_size_W_GetDrawableInfoReply :: INT16, drawable_size_H_GetDrawableInfoReply :: INT16, num_clip_rects_GetDrawableInfoReply :: CARD32, clip_rects_GetDrawableInfoReply :: [DrmClipRect]} deriving (Show, Typeable) instance Deserialize GetDrawableInfoReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize drawable_table_index <- deserialize drawable_table_stamp <- deserialize drawable_origin_X <- deserialize drawable_origin_Y <- deserialize drawable_size_W <- deserialize drawable_size_H <- deserialize num_clip_rects <- deserialize skip 4 clip_rects <- deserializeList (fromIntegral num_clip_rects) let _ = isCard32 length return (MkGetDrawableInfoReply drawable_table_index drawable_table_stamp drawable_origin_X drawable_origin_Y drawable_size_W drawable_size_H num_clip_rects clip_rects) data GetDeviceInfo = MkGetDeviceInfo{screen_GetDeviceInfo :: CARD32} deriving (Show, Typeable) instance ExtensionRequest GetDeviceInfo where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 10 let size__ = 4 + size (screen_GetDeviceInfo x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_GetDeviceInfo x) putSkip (requiredPadding size__) data GetDeviceInfoReply = MkGetDeviceInfoReply{framebuffer_handle_low_GetDeviceInfoReply :: CARD32, framebuffer_handle_high_GetDeviceInfoReply :: CARD32, framebuffer_origin_offset_GetDeviceInfoReply :: CARD32, framebuffer_size_GetDeviceInfoReply :: CARD32, framebuffer_stride_GetDeviceInfoReply :: CARD32, device_private_size_GetDeviceInfoReply :: CARD32, device_private_GetDeviceInfoReply :: [CARD32]} deriving (Show, Typeable) instance Deserialize GetDeviceInfoReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize framebuffer_handle_low <- deserialize framebuffer_handle_high <- deserialize framebuffer_origin_offset <- deserialize framebuffer_size <- deserialize framebuffer_stride <- deserialize device_private_size <- deserialize device_private <- deserializeList (fromIntegral device_private_size) let _ = isCard32 length return (MkGetDeviceInfoReply framebuffer_handle_low framebuffer_handle_high framebuffer_origin_offset framebuffer_size framebuffer_stride device_private_size device_private) data AuthConnection = MkAuthConnection{screen_AuthConnection :: CARD32, magic_AuthConnection :: CARD32} deriving (Show, Typeable) instance ExtensionRequest AuthConnection where extensionId _ = "XFree86-DRI" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 11 let size__ = 4 + size (screen_AuthConnection x) + size (magic_AuthConnection x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (screen_AuthConnection x) serialize (magic_AuthConnection x) putSkip (requiredPadding size__) data AuthConnectionReply = MkAuthConnectionReply{authenticated_AuthConnectionReply :: CARD32} deriving (Show, Typeable) instance Deserialize AuthConnectionReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize authenticated <- deserialize let _ = isCard32 length return (MkAuthConnectionReply authenticated)