vector-mmap (empty) → 0.0.1

raw patch · 4 files changed

+92/−0 lines, 4 filesdep +basedep +mmapdep +primitivesetup-changed

Dependencies added: base, mmap, primitive, vector

Files

• Data/Vector/Storable/MMap.hs +38/−0
• LICENSE +29/−0
• Setup.hs +2/−0
• vector-mmap.cabal +23/−0

@@ -0,0 +1,38 @@+{-# LANGUAGE ScopedTypeVariables #-}+module Data.Vector.Storable.MMap (+  System.IO.MMap.Mode(..),+  unsafeMMapMVector,+  unsafeMMapVector+) where++import System.IO.MMap+import Foreign.Storable++import qualified Data.Vector.Storable as I+import qualified Data.Vector.Storable.Mutable as M+import Data.Int++import Control.Monad.Primitive++-- | Map a file into memory as a mutable vector.+unsafeMMapMVector :: forall s a. Storable a => FilePath -- ^ Path of the file to map+                                            -> Mode -- ^ Mapping mode+                                            -> Maybe (Int64, Int) -- ^ 'Nothing' to map entire file into memory, otherwise 'Just (fileOffset, elementCount)'+                                            -> IO (M.MVector (PrimState IO) a)+unsafeMMapMVector path mode range = +  do (foreignPtr, offset, size) <- mmapFileForeignPtr path mode $+        case range of+          Nothing -> Nothing+          Just (start, length) -> Just (start, length * sizeOf (undefined :: a))+     return $ M.unsafeFromForeignPtr foreignPtr offset (size `div` sizeOf (undefined :: a))++-- | Map a file into memory ('ReadOnly' mode) as an immutable vector.+unsafeMMapVector :: forall a. Storable a => FilePath -- ^ Path of the file to map+                                         -> Maybe (Int64, Int) -- ^ 'Nothing' to map entire file into memory, otherwise 'Just (fileOffset, elementCount)'+                                         -> IO (I.Vector a)+unsafeMMapVector path range = +  do (foreignPtr, offset, size) <- mmapFileForeignPtr path ReadOnly $ +        case range of+          Nothing -> Nothing+          Just (start, length) -> Just (start, length * sizeOf (undefined :: a))+     return $ I.unsafeFromForeignPtr foreignPtr offset (size `div` sizeOf (undefined :: a))

@@ -0,0 +1,29 @@+Copyright (c) 2010, Daniel Peebles+All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++- Redistributions of source code must retain the above copyright notice,+this list of conditions and the following disclaimer.+ +- Redistributions in binary form must reproduce the above copyright notice,+this list of conditions and the following disclaimer in the documentation+and/or other materials provided with the distribution.+ +- Neither name of the University nor the names of its contributors may be+used to endorse or promote products derived from this software without+specific prior written permission. ++THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY COURT OF THE UNIVERSITY OF+GLASGOW AND THE CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND+FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE+UNIVERSITY COURT OF THE UNIVERSITY OF GLASGOW OR THE CONTRIBUTORS BE LIABLE+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT+LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY+OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH+DAMAGE.

@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain

@@ -0,0 +1,23 @@+Name:           vector-mmap+Version:        0.0.1+License:        BSD3+License-File:   LICENSE+Author:         Daniel Peebles <pumpkingod@gmail.com>+Maintainer:     Daniel Peebles <pumpkingod@gmail.com>+Copyright:      (c) Daniel Peebles 2010+Homepage:       http://code.haskell.org/vector+Category:       Data, Data Structures+Synopsis:       Memory map immutable and mutable vectors+Description:+        Memory map immutable and mutable vectors.++Cabal-Version:  >= 1.2+Build-Type:     Simple++Library+  Exposed-Modules:+        Data.Vector.Storable.MMap++  Build-Depends: base >= 2 && < 5, mmap >= 0.5.4, vector >= 0.5, primitive >= 0.2.1++  Ghc-Options: -O2