module Data.Vector.Unboxed.Mutable (
MVector(..), IOVector, STVector, Unbox,
length, overlaps, slice, new, newWith, read, write, swap,
clear, set, copy, grow,
zip, zip3, zip4, zip5, zip6,
unzip, unzip3, unzip4, unzip5, unzip6,
unsafeSlice, unsafeNew, unsafeNewWith, unsafeRead, unsafeWrite, unsafeSwap,
unsafeCopy, unsafeGrow
) where
import Data.Vector.Unboxed.Base
import qualified Data.Vector.Generic.Mutable as G
import Control.Monad.Primitive
import Prelude hiding ( zip, zip3, unzip, unzip3, length, read )
#include "vector.h"
unsafeSlice :: Unbox a => Int
-> Int
-> MVector s a
-> MVector s a
unsafeSlice = G.unsafeSlice
unsafeNew :: (PrimMonad m, Unbox a) => Int -> m (MVector (PrimState m) a)
unsafeNew = G.unsafeNew
unsafeNewWith :: (PrimMonad m, Unbox a)
=> Int -> a -> m (MVector (PrimState m) a)
unsafeNewWith = G.unsafeNewWith
unsafeRead :: (PrimMonad m, Unbox a) => MVector (PrimState m) a -> Int -> m a
unsafeRead = G.unsafeRead
unsafeWrite :: (PrimMonad m, Unbox a)
=> MVector (PrimState m) a -> Int -> a -> m ()
unsafeWrite = G.unsafeWrite
unsafeSwap :: (PrimMonad m, Unbox a)
=> MVector (PrimState m) a -> Int -> Int -> m ()
unsafeSwap = G.unsafeSwap
unsafeCopy :: (PrimMonad m, Unbox a) => MVector (PrimState m) a
-> MVector (PrimState m) a
-> m ()
unsafeCopy = G.unsafeCopy
unsafeGrow :: (PrimMonad m, Unbox a)
=> MVector (PrimState m) a -> Int -> m (MVector (PrimState m) a)
unsafeGrow = G.unsafeGrow
length :: Unbox a => MVector s a -> Int
length = G.length
overlaps :: Unbox a => MVector s a -> MVector s a -> Bool
overlaps = G.overlaps
slice :: Unbox a => Int -> Int -> MVector s a -> MVector s a
slice = G.slice
new :: (PrimMonad m, Unbox a) => Int -> m (MVector (PrimState m) a)
new = G.new
newWith :: (PrimMonad m, Unbox a) => Int -> a -> m (MVector (PrimState m) a)
newWith = G.newWith
read :: (PrimMonad m, Unbox a) => MVector (PrimState m) a -> Int -> m a
read = G.read
write :: (PrimMonad m, Unbox a) => MVector (PrimState m) a -> Int -> a -> m ()
write = G.write
swap :: (PrimMonad m, Unbox a)
=> MVector (PrimState m) a -> Int -> Int -> m ()
swap = G.swap
clear :: (PrimMonad m, Unbox a) => MVector (PrimState m) a -> m ()
clear = G.clear
set :: (PrimMonad m, Unbox a) => MVector (PrimState m) a -> a -> m ()
set = G.set
copy :: (PrimMonad m, Unbox a)
=> MVector (PrimState m) a -> MVector (PrimState m) a -> m ()
copy = G.copy
grow :: (PrimMonad m, Unbox a)
=> MVector (PrimState m) a -> Int -> m (MVector (PrimState m) a)
grow = G.grow
#define DEFINE_MUTABLE
#include "unbox-tuple-instances"