Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Add unboxed Vector instances for Rectangle #303

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Add unboxed Vector instances for Rectangle #303

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
39 changes: 39 additions & 0 deletions src/SDL/Video/Renderer.hs
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -7,6 +7,7 @@
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE TypeFamilies #-}

-- | "SDL.Video.Renderer" provides a high-level interface to SDL's accelerated 2D rendering library.

Expand Down Expand Up @@ -159,8 +160,11 @@ import SDL.Internal.Types
import qualified Data.ByteString as BS
import qualified Data.ByteString.Internal as BSI
import qualified Data.Text.Encoding as Text
import qualified Data.Vector.Generic.Base as GV
import qualified Data.Vector.Generic.Mutable.Base as GMV
import qualified Data.Vector.Storable as SV
import qualified Data.Vector.Storable.Mutable as MSV
import qualified Data.Vector.Unboxed.Base as UV
import qualified SDL.Raw as Raw

#if !MIN_VERSION_base(4,8,0)
Expand Down Expand Up @@ -603,6 +607,41 @@ instance Storable a => Storable (Rectangle a) where
poke (castPtr ptr) o
poke (castPtr (ptr `plusPtr` sizeOf o)) s

newtype instance MVector s (Rectangle a) = MV_Rectangle (MVector s (Point V2 a, V2 a))
newtype instance Vector (Rectangle a) = V_Rectangle (Vector (Point V2 a, V2 a))

instance UV.Unbox a => GMV.MVector MVector (Rectangle a) where
{-# INLINE basicLength #-}
{-# INLINE basicUnsafeSlice #-}
{-# INLINE basicOverlaps #-}
{-# INLINE basicUnsafeNew #-}
{-# INLINE basicUnsafeRead #-}
{-# INLINE basicUnsafeWrite #-}
basicLength (MV_Rectangle v) = GMV.basicLength v
basicUnsafeSlice m n (MV_Rectangle v) = MV_Rectangle (GMV.basicUnsafeSlice m n v)
basicOverlaps (MV_Rectangle v) (MV_Rectangle u) = GMV.basicOverlaps v u
basicUnsafeNew n = MV_Rectangle <$> GMV.basicUnsafeNew n
basicUnsafeRead (MV_Rectangle v) i = uncurry Rectangle <$> GMV.basicUnsafeRead v i
basicUnsafeWrite (MV_Rectangle v) i (Rectangle p e) = GMV.basicUnsafeWrite v i (p, e)
#if MIN_VERSION_vector(0,11,0)
{-# INLINE basicInitialize #-}
basicInitialize (MV_Rectangle v) = GMV.basicInitialize v
#endif

instance UV.Unbox a => GV.Vector Vector (Rectangle a) where
{-# INLINE basicUnsafeFreeze #-}
{-# INLINE basicUnsafeThaw #-}
{-# INLINE basicLength #-}
{-# INLINE basicUnsafeSlice #-}
{-# INLINE basicUnsafeIndexM #-}
basicUnsafeFreeze (MV_Rectangle v) = V_Rectangle <$> GV.basicUnsafeFreeze v
basicUnsafeThaw (V_Rectangle v) = MV_Rectangle <$> GV.basicUnsafeThaw v
basicLength (V_Rectangle v) = GV.basicLength v
basicUnsafeSlice m n (V_Rectangle v) = V_Rectangle (GV.basicUnsafeSlice m n v)
basicUnsafeIndexM (V_Rectangle v) i = uncurry Rectangle <$> GV.basicUnsafeIndexM v i

instance UV.Unbox a => UV.Unbox (Rectangle a)

data Surface = Surface (Ptr Raw.Surface) (Maybe (MSV.IOVector Word8))
deriving (Typeable)

Expand Down
Loading