{-# LANGUAGE CPP #-}
{-# OPTIONS_GHC -Wno-incomplete-uni-patterns #-}
module GHC.Utils.Fingerprint (
readHexFingerprint,
fingerprintByteString,
Fingerprint(..), fingerprint0,
fingerprintFingerprints,
fingerprintData,
fingerprintString,
getFileHash
) where
#include "HsVersions.h"
import GHC.Prelude
import Foreign
import GHC.IO
import Numeric ( readHex )
import qualified Data.ByteString as BS
import qualified Data.ByteString.Unsafe as BS
import GHC.Fingerprint
readHexFingerprint :: String -> Fingerprint
readHexFingerprint :: String -> Fingerprint
readHexFingerprint String
s = Word64 -> Word64 -> Fingerprint
Fingerprint Word64
w1 Word64
w2
where (String
s1,String
s2) = forall a. Int -> [a] -> ([a], [a])
splitAt Int
16 String
s
[(Word64
w1,String
"")] = forall a. (Eq a, Num a) => ReadS a
readHex String
s1
[(Word64
w2,String
"")] = forall a. (Eq a, Num a) => ReadS a
readHex (forall a. Int -> [a] -> [a]
take Int
16 String
s2)
fingerprintByteString :: BS.ByteString -> Fingerprint
fingerprintByteString :: ByteString -> Fingerprint
fingerprintByteString ByteString
bs = forall a. IO a -> a
unsafeDupablePerformIO forall a b. (a -> b) -> a -> b
$
forall a. ByteString -> (CStringLen -> IO a) -> IO a
BS.unsafeUseAsCStringLen ByteString
bs forall a b. (a -> b) -> a -> b
$ \(Ptr CChar
ptr, Int
len) -> Ptr Word8 -> Int -> IO Fingerprint
fingerprintData (forall a b. Ptr a -> Ptr b
castPtr Ptr CChar
ptr) Int
len