sdl2 1.0.0 → 1.0.1

raw patch · 3 files changed

+27/−5 lines, 3 files

Files

• Graphics/UI/SDL/Basic.hs +3/−3
• Graphics/UI/SDL/Types.hsc +23/−1
• sdl2.cabal +1/−1

@@ -61,9 +61,9 @@ foreign import ccall "SDL.h SDL_SetMainReady" setMainReady :: IO () foreign import ccall "SDL.h SDL_WasInit" wasInit :: Word32 -> IO Word32 -foreign import ccall "SDL.h SDL_AddHintCallback" addHintCallback :: CString -> FunPtr (Ptr () -> CString -> CString -> CString -> IO ()) -> Ptr () -> IO ()+foreign import ccall "SDL.h SDL_AddHintCallback" addHintCallback :: CString -> HintCallback -> Ptr () -> IO () foreign import ccall "SDL.h SDL_ClearHints" clearHints :: IO ()-foreign import ccall "SDL.h SDL_DelHintCallback" delHintCallback :: CString -> FunPtr (Ptr () -> CString -> CString -> CString -> IO ()) -> Ptr () -> IO ()+foreign import ccall "SDL.h SDL_DelHintCallback" delHintCallback :: CString -> HintCallback -> Ptr () -> IO () foreign import ccall "SDL.h SDL_GetHint" getHint :: CString -> IO CString foreign import ccall "SDL.h SDL_SetHint" setHint :: CString -> CString -> IO Bool foreign import ccall "SDL.h SDL_SetHintWithPriority" setHintWithPriority :: CString -> CString -> HintPriority -> IO Bool@@ -80,4 +80,4 @@  foreign import ccall "SDL.h SDL_GetRevision" getRevision :: IO CString foreign import ccall "SDL.h SDL_GetRevisionNumber" getRevisionNumber :: IO CInt-foreign import ccall "SDL.h SDL_GetVersion" getVersion :: Ptr () -> IO ()+foreign import ccall "SDL.h SDL_GetVersion" getVersion :: Ptr Version -> IO ()

@@ -10,6 +10,7 @@ 	GestureID, 	GLContext, 	Haptic,+	HintCallback, 	Joystick, 	JoystickID, 	Keycode,@@ -44,7 +45,8 @@ 	Rect(..), 	RendererInfo(..), 	RWops(..),-	Surface(..)+	Surface(..),+	Version(..) ) where  #include "SDL.h"@@ -68,6 +70,7 @@ type GestureID = Int64 type GLContext = Ptr () type Haptic = Ptr ()+type HintCallback = FunPtr (Ptr () -> CString -> CString -> CString -> IO ()) type Joystick = Ptr () type JoystickID = Int32 type Keycode = Int32@@ -1301,3 +1304,22 @@ 		(#poke SDL_Surface, userdata) ptr userdata 		(#poke SDL_Surface, clip_rect) ptr cliprect 		(#poke SDL_Surface, refcount) ptr refcount++data Version = Version {+               versionMajor :: Word8+             , versionMinor :: Word8+             , versionPatch :: Word8+             } deriving (Eq, Show)++instance Storable Version where+	sizeOf _ = (#size SDL_version)+	alignment = sizeOf+	peek ptr = do+		major <- (#peek SDL_version, major) ptr+		minor <- (#peek SDL_version, minor) ptr+		patch <- (#peek SDL_version, patch) ptr+		return $! Version major minor patch+	poke ptr (Version major minor patch) = do+		(#poke SDL_version, major) ptr major+		(#poke SDL_version, minor) ptr minor+		(#poke SDL_version, patch) ptr patch

@@ -1,5 +1,5 @@ name:                sdl2-version:             1.0.0+version:             1.0.1 synopsis:            Bindings to SDL2 description:         Bindings to the SDL2 library, version 2.0.1. license:             BSD3