voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

real-test

This commit is contained in:
voidlizard 2025-01-01 11:37:06 +03:00
parent 98be2b056b
commit fddf121371
1 changed files with 23 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
hbs2-git3/app/Main.hs
View File

@ -694,36 +694,37 @@ theDict = do
liftIO $ print $ pretty hash <+> pretty ssize
go (succ n)
entry $ bindMatch "test:git:log:index:flat:search:binary:test" $ nil_ \case
[ StringLike fn ] -> do
entry $ bindMatch "test:reflog:index:search:binary:test" $ nil_ $ const $ lift do
lbs <- liftIO $ LBS.readFile fn
files <- listObjectIndexFiles
hashes <- S.toList_ $ runConsumeLBS lbs $ flip fix 0 \go n -> do
done <- consumed
if done then pure ()
else do
ssize <- readBytesMaybe 4
>>= orThrow SomeReadLogError
<&> fromIntegral . N.word32 . LBS.toStrict
forConcurrently_ files $ \(fn,_) -> do
hash <- readBytesMaybe 20
>>= orThrow SomeReadLogError
<&> GitHash . LBS.toStrict
lbs <- liftIO $ LBS.readFile fn
void $ readBytesMaybe 32
hashes <- S.toList_ $ runConsumeLBS lbs $ flip fix 0 \go n -> do
done <- consumed
if done then pure ()
else do
ssize <- readBytesMaybe 4
>>= orThrow SomeReadLogError
<&> fromIntegral . N.word32 . LBS.toStrict
lift $ S.yield hash
go (succ n)
hash <- readBytesMaybe 20
>>= orThrow SomeReadLogError
<&> GitHash . LBS.toStrict
file <- liftIO $ mmapFileByteString fn Nothing
void $ readBytesMaybe 32
for_ hashes $ \h -> do
-- found <- binSearchBS 24 (BS.take 20 . BS.drop 4) ( show . pretty . GitHash ) (coerce h) file
found <- liftIO $ binarySearchBS 56 (BS.take 20 . BS.drop 4) (coerce h) file
liftIO $ print $ pretty h <+> pretty (isJust found)
lift $ S.yield hash
go (succ n)
_ -> throwIO (BadFormException @C nil)
file <- liftIO $ mmapFileByteString fn Nothing
for_ hashes $ \h -> do
-- found <- binSearchBS 24 (BS.take 20 . BS.drop 4) ( show . pretty . GitHash ) (coerce h) file
found <- liftIO $ binarySearchBS 56 (BS.take 20 . BS.drop 4) (coerce h) file
liftIO $ notice $ pretty h <+> pretty (isJust found)
entry $ bindMatch "reflog:index:search" $ nil_ $ \syn -> lift $ flip runContT pure do