haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a wrapper to memcpy that does the right things with various versions of memcpy

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-03 07:26:09 +01:00
parent e409172a1c
commit 16d24161e1
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Crypto/Internal/Bytes.hs
View File

@ -12,6 +12,7 @@ module Crypto.Internal.Bytes
( withByteStringPtr ( withByteStringPtr
, tempBufCreate , tempBufCreate
, bufXor , bufXor
, bufCopy
) where ) where
import Control.Applicative ((<$>), (<*>)) import Control.Applicative ((<$>), (<*>))
@ -23,6 +24,7 @@ import Data.ByteString (ByteString)
import Data.Bits (xor) import Data.Bits (xor)
import Data.Word (Word8) import Data.Word (Word8)
import Data.ByteString.Internal (toForeignPtr) import Data.ByteString.Internal (toForeignPtr)
import Data.ByteString.Internal (memcpy)
withByteStringPtr :: ByteString -> (Ptr Word8 -> IO a) -> IO a withByteStringPtr :: ByteString -> (Ptr Word8 -> IO a) -> IO a
withByteStringPtr b f = withByteStringPtr b f =
@ -43,3 +45,6 @@ bufXor _ _ _ 0 = return ()
bufXor d s1 s2 n = do bufXor d s1 s2 n = do
(xor <$> peek s1 <*> peek s2) >>= poke d (xor <$> peek s1 <*> peek s2) >>= poke d
bufXor (d `plusPtr` 1) (s1 `plusPtr` 1) (s2 `plusPtr` 1) (n-1) bufXor (d `plusPtr` 1) (s1 `plusPtr` 1) (s2 `plusPtr` 1) (n-1)
bufCopy :: Ptr Word8 -> Ptr Word8 -> Int -> IO ()
bufCopy dst src n = memcpy dst src (fromIntegral n)