SDL-mpeg (empty) → 0.0.1

raw patch · 7 files changed

+257/−0 lines, 7 filesdep +SDLdep +basesetup-changed

Dependencies added: SDL, base

Files

Graphics/UI/SDL/MPEG.hs +72/−0
Graphics/UI/SDL/MPEG/General.hs +101/−0
Graphics/UI/SDL/MPEG/Types.hs +32/−0
LICENSE +18/−0
README +11/−0
SDL-mpeg.cabal +18/−0
Setup.lhs +5/−0

+ Graphics/UI/SDL/MPEG.hs view

@@ -0,0 +1,72 @@+module Graphics.UI.SDL.MPEG (+    module Graphics.UI.SDL.MPEG,+    module Graphics.UI.SDL.MPEG.Types,+    module Graphics.UI.SDL.MPEG.General+) where+import Foreign+import Foreign.C.String+import Graphics.UI.SDL+import Graphics.UI.SDL.MPEG.Types+import Graphics.UI.SDL.MPEG.General++-- | Create a new MPEG object from an MPEG file.+load :: FilePath -> IO MPEG+load fn = do+    mpeg <- withCString fn $ \cstr -> _SMPEG_new cstr nullPtr 0+    mkFinalizedMPEG mpeg++-- | Create a new MPEG object from a file descriptor.+loadFd :: Int -> IO MPEG+loadFd fd = do+    mpeg <- _SMPEG_new_descr fd nullPtr 0+    mkFinalizedMPEG mpeg++-- | Create a new MPEG object from a byte string.+loadData :: CStringLen -> IO MPEG+loadData (cstr, len) = do+    mpeg <- _SMPEG_new_data (castPtr cstr) len nullPtr 0+    mkFinalizedMPEG mpeg++-- | Create a new MPEG object from a RWops structure.+loadRWops :: RWops -> IO MPEG+loadRWops rwops = withForeignPtr rwops $ \rptr -> do+    mpeg <- _SMPEG_new_rwops rptr nullPtr 0+    mkFinalizedMPEG mpeg++-- | Set the SDL surface and the position the MPEG object is to be painted on.+setSurface :: MPEG -> Surface -> Int -> Int -> IO ()+setSurface mpeg surface x y = withForeignPtr mpeg $ \mptr -> do+    withForeignPtr surface $ \sptr -> _SMPEG_setdisplay mptr sptr nullPtr nullFunPtr+    _SMPEG_move mptr x y++-- | Set the region of the video to be shown.+setDisplayRegion :: MPEG -> Rect -> IO ()+setDisplayRegion mpeg (Rect x y w h) = withForeignPtr mpeg $ \mptr -> do+    _SMPEG_setdisplayregion mptr x y w h++-- | Render a particular frame in the MPEG video+renderFrame :: MPEG -> Int -> IO ()+renderFrame mpeg i = withForeignPtr mpeg $ \mptr -> do+    _SMPEG_renderFrame mptr i++setScale :: MPEG -> Int -> IO ()+setScale mpeg scale = withForeignPtr mpeg $ \mptr -> do+    _SMPEG_scale mptr scale++setScaleXY :: MPEG -> Int -> Int -> IO ()+setScaleXY mpeg x y = withForeignPtr mpeg $ \mptr -> do+    _SMPEG_scaleXY mptr x y++enableAudio, enableVideo, enableLoop :: MPEG -> Bool -> IO ()+enableAudio mpeg bool = withForeignPtr mpeg $ \mptr -> do+    _SMPEG_enableaudio mptr (fromEnum bool)+enableVideo mpeg bool = withForeignPtr mpeg $ \mptr -> do+    _SMPEG_enablevideo mptr (fromEnum bool)+enableLoop mpeg bool = withForeignPtr mpeg $ \mptr -> do+    _SMPEG_loop mptr (fromEnum bool)++play, pause, stop, rewind :: MPEG -> IO ()+play   = (`withForeignPtr` _SMPEG_play)+pause  = (`withForeignPtr` _SMPEG_pause)+stop   = (`withForeignPtr` _SMPEG_stop)+rewind = (`withForeignPtr` _SMPEG_rewind)

+ Graphics/UI/SDL/MPEG/General.hs view

@@ -0,0 +1,101 @@+module Graphics.UI.SDL.MPEG.General where+import Foreign+import Foreign.C.String+import Graphics.UI.SDL+import Graphics.UI.SDL.MPEG.Types++mkFinalizedMPEG :: Ptr MPEGStruct -> IO MPEG+mkFinalizedMPEG = newForeignPtr _SMPEG_delete++foreign import ccall unsafe "&SMPEG_delete" _SMPEG_delete+    :: FunPtr (Ptr MPEGStruct -> IO ())++foreign import ccall unsafe "SMPEG_new" _SMPEG_new+    :: CString -> (Ptr InfoStruct) -> Int -> IO (Ptr MPEGStruct)++foreign import ccall unsafe "SMPEG_new_descr" _SMPEG_new_descr+    :: Int -> (Ptr InfoStruct) -> Int -> IO (Ptr MPEGStruct)++foreign import ccall unsafe "SMPEG_new_data" _SMPEG_new_data+    :: Ptr () -> Int -> (Ptr InfoStruct) -> Int -> IO (Ptr MPEGStruct)++foreign import ccall unsafe "SMPEG_new_rwops" _SMPEG_new_rwops+    :: Ptr RWopsStruct -> (Ptr InfoStruct) -> Int -> IO (Ptr MPEGStruct)++foreign import ccall unsafe "SMPEG_renderFrame" _SMPEG_renderFrame+    :: Ptr MPEGStruct -> Int -> IO ()++foreign import ccall unsafe "SMPEG_play" _SMPEG_play+    :: Ptr MPEGStruct -> IO ()++foreign import ccall unsafe "SMPEG_pause" _SMPEG_pause+    :: Ptr MPEGStruct -> IO ()++foreign import ccall unsafe "SMPEG_stop" _SMPEG_stop+    :: Ptr MPEGStruct -> IO ()++foreign import ccall unsafe "SMPEG_rewind" _SMPEG_rewind+    :: Ptr MPEGStruct -> IO ()++foreign import ccall unsafe "SMPEG_setdisplay" _SMPEG_setdisplay+    :: Ptr MPEGStruct -> (Ptr SurfaceStruct) -> (Ptr MutexStruct) -> FunPtr DisplayCallback -> IO ()++foreign import ccall unsafe "SMPEG_setdisplayregion" _SMPEG_setdisplayregion+    :: Ptr MPEGStruct -> Int -> Int -> Int -> Int -> IO ()++foreign import ccall unsafe "SMPEG_move" _SMPEG_move+    :: Ptr MPEGStruct -> Int -> Int -> IO ()++foreign import ccall "wrapper"+    mkDisplayCallback :: DisplayCallback -> IO (FunPtr DisplayCallback)++foreign import ccall unsafe "SMPEG_getinfo" _SMPEG_getinfo+    :: Ptr MPEGStruct -> Ptr InfoStruct -> IO ()++foreign import ccall unsafe "SMPEG_enableaudio" _SMPEG_enableaudio+    :: Ptr MPEGStruct -> Int -> IO ()++foreign import ccall unsafe "SMPEG_enablevideo" _SMPEG_enablevideo+    :: Ptr MPEGStruct -> Int -> IO ()++foreign import ccall unsafe "SMPEG_status" _SMPEG_status+    :: Ptr MPEGStruct -> IO Int++foreign import ccall unsafe "SMPEG_setvolume" _SMPEG_setvolume+    :: Ptr MPEGStruct -> Int -> IO ()++foreign import ccall unsafe "SMPEG_loop" _SMPEG_loop+    :: Ptr MPEGStruct -> Int -> IO ()++foreign import ccall unsafe "SMPEG_scaleXY" _SMPEG_scaleXY+    :: Ptr MPEGStruct -> Int -> Int -> IO ()++foreign import ccall unsafe "SMPEG_scale" _SMPEG_scale+    :: Ptr MPEGStruct -> Int -> IO ()++foreign import ccall unsafe "SMPEG_seek" _SMPEG_seek+    :: Ptr MPEGStruct -> Int -> IO ()++foreign import ccall unsafe "SMPEG_skip" _SMPEG_skip+    :: Ptr MPEGStruct -> Float -> IO ()++foreign import ccall unsafe "SMPEG_renderFinal" _SMPEG_renderFinal+    :: Ptr MPEGStruct -> Ptr SurfaceStruct -> Int -> Int -> IO ()++foreign import ccall unsafe "SMPEG_filter" _SMPEG_filter+    :: Ptr MPEGStruct -> Ptr FilterStruct -> IO (Ptr FilterStruct)++foreign import ccall unsafe "SMPEG_error" _SMPEG_error+    :: Ptr MPEGStruct -> IO CString++foreign import ccall unsafe "SMPEG_playAudio" _SMPEG_playAudio+    :: Ptr MPEGStruct -> CString -> Int -> IO Int++foreign import ccall unsafe "SMPEG_playAudioSDL" _SMPEG_playAudioSDL+    :: Ptr MPEGStruct -> CString -> Int -> IO ()++foreign import ccall unsafe "SMPEG_wantedSpec" _SMPEG_wantedSpec+    :: Ptr MPEGStruct -> Ptr AudioSpecStruct -> IO Int++foreign import ccall unsafe "SMPEG_actualSpec" _SMPEG_actualSpec+    :: Ptr MPEGStruct -> Ptr AudioSpecStruct -> IO ()

+ Graphics/UI/SDL/MPEG/Types.hs view

@@ -0,0 +1,32 @@+module Graphics.UI.SDL.MPEG.Types where+import Foreign+import Graphics.UI.SDL++newtype MutexStruct = MkMutexStruct ()+type Mutex = ForeignPtr MutexStruct++newtype MPEGStruct = MkMPEGStruct ()+type MPEG = ForeignPtr MPEGStruct++newtype InfoStruct = MkInfoStruct ()+type Info = ForeignPtr InfoStruct++newtype FilterStruct = MkFilterStruct ()+type Filter = ForeignPtr FilterStruct++newtype AudioSpecStruct = MkAudioSpecStruct ()+type AudioSpec = ForeignPtr AudioSpecStruct++type DisplayCallback = Ptr SurfaceStruct -> Int -> Int -> Int -> Int -> IO ()++data Status = SMPEG_ERROR | SMPEG_STOPPED | SMPEG_PLAYING+    deriving (Eq, Ord, Bounded)++instance Enum Status where+    toEnum (-1) = SMPEG_ERROR+    toEnum 0    = SMPEG_STOPPED+    toEnum 1    = SMPEG_PLAYING+    toEnum _    = error "Status's enum value should be -1, 0 or 1"+    fromEnum SMPEG_ERROR   = -1+    fromEnum SMPEG_STOPPED = 0+    fromEnum SMPEG_PLAYING = 1

+ LICENSE view

@@ -0,0 +1,18 @@+Copyright 2008 by Audrey Tang++Permission is hereby granted, free of charge, to any person obtaining a copy+of this software and associated documentation files (the "Software"), to+deal in the Software without restriction, including without limitation the+rights to use, copy, modify, merge, publish, distribute, sublicense, and/or+sell copies of the Software, and to permit persons to whom the Software is+furnished to do so, subject to the following conditions:+  +The above copyright notice and this permission notice shall be included in+all copies or substantial portions of the Software.+   +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL+THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

+ README view

@@ -0,0 +1,11 @@+This package contains Haskell bindings to the SMPEG library >= 0.4.4++Global installation:+  runhaskell Setup.lhs configure+  runhaskell Setup.lhs build+  runhaskell Setup.lhs install # as root++Local installation:+  runhaskell Setup.lhs configure --prefix=[HOME]/usr --user+  runhaskell Setup.lhs build+  runhaskell Setup.lhs install --user # not as root

+ SDL-mpeg.cabal view

@@ -0,0 +1,18 @@+Name            : SDL-mpeg+Version         : 0.0.1+Maintainer      : Audrey Tang+Author          : Audrey Tang+Copyright       : 2008, Audrey Tang+License-File    : LICENSE+License         : BSD3+Build-Depends   : base, SDL+Build-Type      : Simple+Category        : Foreign binding+Synopsis        : Binding to the SMPEG library+Description     : Binding to the SMPEG library+Extensions      : ForeignFunctionInterface+Exposed-Modules : Graphics.UI.SDL.MPEG Graphics.UI.SDL.MPEG.Types Graphics.UI.SDL.MPEG.General+Includes        : smpeg.h+Data-Files      : README+GHC-Options     : -Wall+Extra-Libraries : smpeg

+ Setup.lhs view

@@ -0,0 +1,5 @@+#!/usr/bin/env runhaskell+> module Main where+> import Distribution.Simple+> main :: IO ()+> main = defaultMain