module Graphics.XHB.Gen.ScreenSaver.Types (deserializeError, deserializeEvent, Kind(..), Event(..), State(..), QueryVersion(..), QueryVersionReply(..), QueryInfo(..), QueryInfoReply(..), SelectInput(..), SetAttributes(..), UnsetAttributes(..), Suspend(..), Notify(..)) 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 import Graphics.XHB.Gen.Xproto.Types hiding (deserializeError, deserializeEvent) import qualified Graphics.XHB.Gen.Xproto.Types deserializeError :: Word8 -> Maybe (Get SomeError) deserializeError _ = Nothing deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent 0 = return (liftM toEvent (deserialize :: Get Notify)) deserializeEvent _ = Nothing data Kind = KindBlanked | KindInternal | KindExternal instance SimpleEnum Kind where toValue KindBlanked{} = 0 toValue KindInternal{} = 1 toValue KindExternal{} = 2 fromValue 0 = KindBlanked fromValue 1 = KindInternal fromValue 2 = KindExternal data Event = EventNotifyMask | EventCycleMask instance BitEnum Event where toBit EventNotifyMask{} = 0 toBit EventCycleMask{} = 1 fromBit 0 = EventNotifyMask fromBit 1 = EventCycleMask data State = StateOff | StateOn | StateCycle | StateDisabled instance SimpleEnum State where toValue StateOff{} = 0 toValue StateOn{} = 1 toValue StateCycle{} = 2 toValue StateDisabled{} = 3 fromValue 0 = StateOff fromValue 1 = StateOn fromValue 2 = StateCycle fromValue 3 = StateDisabled data QueryVersion = MkQueryVersion{client_major_version_QueryVersion :: CARD8, client_minor_version_QueryVersion :: CARD8} deriving (Show, Typeable) instance ExtensionRequest QueryVersion where extensionId _ = "MIT-SCREEN-SAVER" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 0 let size__ = 4 + size (client_major_version_QueryVersion x) + size (client_minor_version_QueryVersion x) + 2 serialize (convertBytesToRequestSize size__ :: INT16) serialize (client_major_version_QueryVersion x) serialize (client_minor_version_QueryVersion x) putSkip 2 putSkip (requiredPadding size__) data QueryVersionReply = MkQueryVersionReply{server_major_version_QueryVersionReply :: CARD16, server_minor_version_QueryVersionReply :: CARD16} deriving (Show, Typeable) instance Deserialize QueryVersionReply where deserialize = do skip 1 skip 1 skip 2 length <- deserialize server_major_version <- deserialize server_minor_version <- deserialize skip 20 let _ = isCard32 length return (MkQueryVersionReply server_major_version server_minor_version) data QueryInfo = MkQueryInfo{drawable_QueryInfo :: DRAWABLE} deriving (Show, Typeable) instance ExtensionRequest QueryInfo where extensionId _ = "MIT-SCREEN-SAVER" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 1 let size__ = 4 + size (drawable_QueryInfo x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (drawable_QueryInfo x) putSkip (requiredPadding size__) data QueryInfoReply = MkQueryInfoReply{state_QueryInfoReply :: CARD8, saver_window_QueryInfoReply :: WINDOW, ms_until_server_QueryInfoReply :: CARD32, ms_since_user_input_QueryInfoReply :: CARD32, event_mask_QueryInfoReply :: CARD32, kind_QueryInfoReply :: BYTE} deriving (Show, Typeable) instance Deserialize QueryInfoReply where deserialize = do skip 1 state <- deserialize skip 2 length <- deserialize saver_window <- deserialize ms_until_server <- deserialize ms_since_user_input <- deserialize event_mask <- deserialize kind <- deserialize skip 7 let _ = isCard32 length return (MkQueryInfoReply state saver_window ms_until_server ms_since_user_input event_mask kind) data SelectInput = MkSelectInput{drawable_SelectInput :: DRAWABLE, event_mask_SelectInput :: CARD32} deriving (Show, Typeable) instance ExtensionRequest SelectInput where extensionId _ = "MIT-SCREEN-SAVER" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 2 let size__ = 4 + size (drawable_SelectInput x) + size (event_mask_SelectInput x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (drawable_SelectInput x) serialize (event_mask_SelectInput x) putSkip (requiredPadding size__) data SetAttributes = MkSetAttributes{drawable_SetAttributes :: DRAWABLE, x_SetAttributes :: INT16, y_SetAttributes :: INT16, width_SetAttributes :: CARD16, height_SetAttributes :: CARD16, border_width_SetAttributes :: CARD16, class_SetAttributes :: BYTE, depth_SetAttributes :: CARD8, visual_SetAttributes :: VISUALID, value_SetAttributes :: ValueParam CARD32} deriving (Show, Typeable) instance ExtensionRequest SetAttributes where extensionId _ = "MIT-SCREEN-SAVER" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 3 let size__ = 4 + size (drawable_SetAttributes x) + size (x_SetAttributes x) + size (y_SetAttributes x) + size (width_SetAttributes x) + size (height_SetAttributes x) + size (border_width_SetAttributes x) + size (class_SetAttributes x) + size (depth_SetAttributes x) + size (visual_SetAttributes x) + size (value_SetAttributes x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (drawable_SetAttributes x) serialize (x_SetAttributes x) serialize (y_SetAttributes x) serialize (width_SetAttributes x) serialize (height_SetAttributes x) serialize (border_width_SetAttributes x) serialize (class_SetAttributes x) serialize (depth_SetAttributes x) serialize (visual_SetAttributes x) serialize (value_SetAttributes x) putSkip (requiredPadding size__) data UnsetAttributes = MkUnsetAttributes{drawable_UnsetAttributes :: DRAWABLE} deriving (Show, Typeable) instance ExtensionRequest UnsetAttributes where extensionId _ = "MIT-SCREEN-SAVER" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 4 let size__ = 4 + size (drawable_UnsetAttributes x) serialize (convertBytesToRequestSize size__ :: INT16) serialize (drawable_UnsetAttributes x) putSkip (requiredPadding size__) data Suspend = MkSuspend{suspend_Suspend :: BOOL} deriving (Show, Typeable) instance ExtensionRequest Suspend where extensionId _ = "MIT-SCREEN-SAVER" serializeRequest x extOpCode = do putWord8 extOpCode putWord8 5 let size__ = 4 + size (suspend_Suspend x) + 3 serialize (convertBytesToRequestSize size__ :: INT16) serialize (suspend_Suspend x) putSkip 3 putSkip (requiredPadding size__) data Notify = MkNotify{code_Notify :: CARD8, state_Notify :: BYTE, sequence_number_Notify :: CARD16, time_Notify :: TIMESTAMP, root_Notify :: WINDOW, window_Notify :: WINDOW, kind_Notify :: BYTE, forced_Notify :: BOOL} deriving (Show, Typeable) instance Graphics.XHB.Shared.Event Notify instance Deserialize Notify where deserialize = do skip 1 code <- deserialize skip 2 state <- deserialize skip 1 sequence_number <- deserialize time <- deserialize root <- deserialize window <- deserialize kind <- deserialize forced <- deserialize skip 14 return (MkNotify code state sequence_number time root window kind forced)