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

wip

This commit is contained in:
voidlizard 2024-12-30 15:27:56 +03:00
parent b9e9d4799f
commit 693e650b93
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1123,17 +1123,36 @@ theDict = do
LBS.hPutStr fh contents LBS.hPutStr fh contents
entry $ bindMatch "test:git:reflog:index:list:fucked" $ nil_ $ \case
[ StringLike f ] -> lift do
bs <- liftIO $ mmapFileByteString f Nothing
let len = BS.length bs
let pnum = 20 + 32 + 4
num <- flip fix (0 :: Int,len,bs) $ \next (n,l,bss) -> do
if l < pnum then pure n
else do
let (_,rest) = BS.splitAt pnum bss
next (n+1,l-pnum,rest)
liftIO $ print $ "okay" <+> pretty num
_ -> throwIO (BadFormException @C nil)
entry $ bindMatch "test:git:reflog:index:list" $ nil_ $ \syn -> lift do entry $ bindMatch "test:git:reflog:index:list" $ nil_ $ \syn -> lift do
let (_, argz) = splitOpts [] syn let (_, argz) = splitOpts [] syn
for_ [ x | StringLike x <- argz ] $ \ifn -> do for_ [ x | StringLike x <- argz ] $ \ifn -> do
lbs <- liftIO $ LBS.readFile ifn lbs <- liftIO $ LBS.readFile ifn
void $ runConsumeLBS lbs $ readSections $ \s ss -> do void $ runConsumeLBS lbs $ readSections $ \s ss -> do
let (sha1, blake) = LBS.splitAt 20 ss let (sha1, blake) = LBS.splitAt 20 ss
& over _1 (coerce @_ @GitHash . LBS.toStrict) & over _1 (coerce @_ @GitHash . LBS.toStrict)
& over _2 (coerce @_ @HashRef . LBS.toStrict) & over _2 (coerce @_ @HashRef . LBS.toStrict)
liftIO $ hPrint stdout $ pretty sha1 <+> pretty blake -- liftIO $ hPrint stdout $ pretty sha1 <+> pretty blake
void $ pure ()
entry $ bindMatch "test:git:reflog:index:sqlite" $ nil_ $ \syn -> lift $ connectedDo do entry $ bindMatch "test:git:reflog:index:sqlite" $ nil_ $ \syn -> lift $ connectedDo do