rhi/bytebuild
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add length to Data.Bytes.Chunks

Browse source
This commit is contained in:
Andrew Martin 2019-12-09 19:35:51 -05:00
parent 3688e024e8
commit 10ed08c77d
2 changed files with 13 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
CHANGELOG.md
View file

@ -7,6 +7,7 @@
* Add `consLength`. * Add `consLength`.
* Add `putManyConsLength`, useful for chunked HTTP encoding. * Add `putManyConsLength`, useful for chunked HTTP encoding.
* Add `runOnto` * Add `runOnto`
* Add `Data.Bytes.Chunks.length`
## 0.3.1.0 -- 2019-11-20 ## 0.3.1.0 -- 2019-11-20

18
src/Data/Bytes/Chunks.hs
View file

@ -1,5 +1,6 @@
{-# language BangPatterns #-} {-# language BangPatterns #-}
{-# language DerivingStrategies #-} {-# language DerivingStrategies #-}
{-# language DuplicateRecordFields #-}
{-# language TypeFamilies #-} {-# language TypeFamilies #-}
{-# language MagicHash #-} {-# language MagicHash #-}
{-# language UnboxedTuples #-} {-# language UnboxedTuples #-}
@ -10,12 +11,13 @@ module Data.Bytes.Chunks
, concat , concat
, reverse , reverse
, reverseOnto , reverseOnto
, length
) where ) where
import Prelude hiding (length,concat,reverse) import Prelude hiding (length,concat,reverse)
import GHC.ST (ST(..)) import GHC.ST (ST(..))
import Data.Bytes.Types (Bytes(..)) import Data.Bytes.Types (Bytes(Bytes))
import Data.Primitive (ByteArray(..),MutableByteArray(..)) import Data.Primitive (ByteArray(..),MutableByteArray(..))
import GHC.Exts (ByteArray#,MutableByteArray#) import GHC.Exts (ByteArray#,MutableByteArray#)
import GHC.Exts (Int#,State#,Int(I#),(+#)) import GHC.Exts (Int#,State#,Int(I#),(+#))
@ -23,6 +25,7 @@ import Control.Monad.ST.Run (runByteArrayST)
import qualified GHC.Exts as Exts import qualified GHC.Exts as Exts
import qualified Data.Primitive as PM import qualified Data.Primitive as PM
import qualified Data.Bytes.Types as B
data Chunks data Chunks
= ChunksCons {-# UNPACK #-} !Bytes !Chunks = ChunksCons {-# UNPACK #-} !Bytes !Chunks
@ -61,10 +64,13 @@ concat# (ChunksCons (Bytes{array=c,offset=coff,length=szc}) cs) = case cs of
_ <- copy dst szboth ds _ <- copy dst szboth ds
PM.unsafeFreezeByteArray dst PM.unsafeFreezeByteArray dst
length :: Chunks -> Int
length = chunksLengthGo 0
chunksLengthGo :: Int -> Chunks -> Int chunksLengthGo :: Int -> Chunks -> Int
chunksLengthGo !n ChunksNil = n chunksLengthGo !n ChunksNil = n
chunksLengthGo !n (ChunksCons (Bytes{length}) cs) = chunksLengthGo !n (ChunksCons (Bytes{B.length=len}) cs) =
chunksLengthGo (n + length) cs chunksLengthGo (n + len) cs
-- | Copy the contents of the chunks into a mutable array. -- | Copy the contents of the chunks into a mutable array.
-- Precondition: The destination must have enough space to -- Precondition: The destination must have enough space to
@ -82,9 +88,9 @@ copy (MutableByteArray dst) (I# off) cs = ST
copy# :: MutableByteArray# s -> Int# -> Chunks -> State# s -> (# State# s, Int# #) copy# :: MutableByteArray# s -> Int# -> Chunks -> State# s -> (# State# s, Int# #)
copy# _ off ChunksNil s0 = (# s0, off #) copy# _ off ChunksNil s0 = (# s0, off #)
copy# marr off (ChunksCons (Bytes{array,offset,length}) cs) s0 = copy# marr off (ChunksCons (Bytes{B.array,B.offset,B.length=len}) cs) s0 =
case Exts.copyByteArray# (unBa array) (unI offset) marr off (unI length) s0 of case Exts.copyByteArray# (unBa array) (unI offset) marr off (unI len) s0 of
s1 -> copy# marr (off +# unI length) cs s1 s1 -> copy# marr (off +# unI len) cs s1
-- | Reverse chunks but not the bytes within each chunk. -- | Reverse chunks but not the bytes within each chunk.