mirror of https://github.com/voidlizard/hbs2
todo
This commit is contained in:
Dmitry Zuikov
parent
ada3542ec6
commit
234dd8bde0
|
|
@ -138,6 +138,9 @@ main = do
|
|||
-- ]
|
||||
|
||||
|
||||
-- TODO: абстрактные нотификации, т.к это всё типизируется
|
||||
-- по ключу-значению
|
||||
|
||||
data PeerEvents e (m :: Type -> Type) =
|
||||
PeerEvents
|
||||
{ onBlockSize :: TVar (Map (Hash HbSync) [HasBlockEvent HbSync e m])
|
||||
|
|
@ -341,11 +344,34 @@ test1 = do
|
|||
let p0 = 0 :: Peer Fake
|
||||
let p1 = 1 :: Peer Fake
|
||||
|
||||
ev1 <- newPeerEventsIO @_ @(EngineM Fake IO)
|
||||
ev0 <- newPeerEventsIO @_ @(EngineM Fake IO)
|
||||
ev1 <- newPeerEventsIO
|
||||
ev0 <- newPeerEventsIO
|
||||
|
||||
p1Thread <- async $ runFakePeer ev1 p1 fake $ forever $ liftIO yield
|
||||
|
||||
-- TODO: замутить мап/кэш со статистикой по блоку:
|
||||
-- сколько блок там маринуется и т.п.
|
||||
-- Если блок в этом кэше и еще не скачан, то
|
||||
-- ... пробуем качать повторно?
|
||||
-- ... увеличиваем время
|
||||
-- ... если не появилось новых пиров
|
||||
-- ... запоминать, у какого пира уже спрашивали и стараться
|
||||
-- ... спрашивать у других?
|
||||
-- ... для каждого блока - вести список, у кого лучше спрашивать?
|
||||
-- ... и там whilelist, blacklist
|
||||
-- ... не дохрена ли это будет занимать?
|
||||
--
|
||||
-- ... и тут, короче, еще кэш WiP
|
||||
-- ... и еще один поток, который это всё хэндлит, например:
|
||||
-- ... берём статистику блоков, берём wip
|
||||
-- ... если блок не wip и до сих пор в мапе --- то то добавляем
|
||||
-- ... в очередь.
|
||||
--
|
||||
-- ... блоку пишем, у каких пиров уже спрашивали (Set)
|
||||
-- ... блоку пишем, когда стартовал процесс
|
||||
--
|
||||
--
|
||||
|
||||
let ini = [ "5KP4vM6RuEX6RA1ywthBMqZV5UJDLANC17UrF6zuWdRt"
|
||||
, "81JeD7LNR6Q7RYfyWBxfjJn1RsWzvegkUXae6FUNgrMZ"
|
||||
]
|
||||
|
|
@ -358,6 +384,11 @@ test1 = do
|
|||
p0Thread <- async $ runFakePeer ev0 p0 fake $ do
|
||||
|
||||
-- TODO: random shuffle and take X
|
||||
-- подтягиваем новых пиров откуда можем
|
||||
-- для каждого блока решаем, откуда брать:
|
||||
-- shuffle (white-list) <> shuffle (black-list)
|
||||
--
|
||||
--
|
||||
let knownPeers = [p1]
|
||||
|
||||
fix \next -> do
|
||||
|
|
@ -367,9 +398,30 @@ test1 = do
|
|||
-- TODO: check is this block is already here
|
||||
-- maybe emit event to continue -> parse/seek for content
|
||||
|
||||
-- TODO: убивать нотификации, если блок скачан или что-то с ним еще
|
||||
-- приключилось
|
||||
--
|
||||
-- добавляем сюда экшоны на почистить:
|
||||
-- добавили нотификацию --- экшон на
|
||||
-- почистить нотификацию
|
||||
--
|
||||
-- добавили еще какую парашу -- экшон на
|
||||
-- её очистку
|
||||
--
|
||||
-- у каждого экшона - дедлайн
|
||||
-- и там процесс, который берёт тех, у кого дедлайн
|
||||
-- истёк и вызывает их
|
||||
-- ?
|
||||
|
||||
addBlockReadyEventNotify ev0 blkHash $ \h -> do
|
||||
debug $ "DOWNLOADED BLOCK" <+> pretty h <+> "NOW WHAT?"
|
||||
|
||||
-- -- TODO: смотрим, что за блок
|
||||
-- -- если Merkle - то качаем рекурсивно
|
||||
-- -- если ссылка - то смотрим, что за ссылка
|
||||
-- -- проверяем пруфы
|
||||
-- -- качаем рекурсивно
|
||||
|
||||
-- TODO: надо трекать, может блок-то и найден
|
||||
-- либо по всем пирам спросить
|
||||
|
||||
|
|
@ -401,48 +453,6 @@ test1 = do
|
|||
|
||||
let peerz = p0Thread : [p1Thread]
|
||||
|
||||
-- peerz <- mapM (async . uncurry runFakePeer) ee
|
||||
|
||||
--runEngineM e0 $ do
|
||||
|
||||
|
||||
-- -- TODO: #ASAP generate unique cookie!!
|
||||
-- --
|
||||
-- -- FIXME: withAllCrap $ do ...
|
||||
-- let s0 = (fst . head) ee
|
||||
|
||||
-- newCookie <- genCookie @Fake (p1, h) -- <<~~~ FIXME: generate a good session id!
|
||||
|
||||
-- let cKey@(_, cookie) = (p1, newCookie)
|
||||
-- let chsz = defChunkSize
|
||||
|
||||
-- debug $ "new cookie:" <+> pretty cookie
|
||||
|
||||
-- qblk <- liftIO Q.newTQueueIO
|
||||
|
||||
-- let onBlockReady bh = do
|
||||
-- liftIO $ atomically $ Q.writeTQueue qblk bh
|
||||
|
||||
-- let def = newBlockDownload h onBlockReady
|
||||
|
||||
-- -- create sessions before sequesting anything
|
||||
-- updSession s0 def sBlockDownload cKey (set sBlockChunkSize chsz)
|
||||
|
||||
-- request p1 (GetBlockSize @Fake (fromString "81JeD7LNR6Q7RYfyWBxfjJn1RsWzvegkUXae6FUNgrMZ"))
|
||||
-- request p1 (GetBlockSize @Fake (fromString "5KP4vM6RuEX6RA1ywthBMqZV5UJDLANC17UrF6zuWdRt"))
|
||||
|
||||
-- request p0 (GetBlockSize @Fake (fromString "81JeD7LNR6Q7RYfyWBxfjJn1RsWzvegkUXae6FUNgrMZ"))
|
||||
-- request p0 (GetBlockSize @Fake (fromString "5KP4vM6RuEX6RA1ywthBMqZV5UJDLANC17UrF6zuWdRt"))
|
||||
|
||||
-- -- TODO: #ASAP block ready notification
|
||||
|
||||
-- debug $ "REQUEST BLOCK:" <+> pretty h <+> "from" <+> pretty p1
|
||||
|
||||
-- request p1 (BlockChunks @Fake cookie (BlockGetAllChunks h chsz))
|
||||
|
||||
-- blk <- liftIO $ atomically $ Q.readTQueue qblk
|
||||
|
||||
-- debug $ "BLOCK READY:" <+> pretty blk
|
||||
|
||||
-- -- TODO: смотрим, что за блок
|
||||
-- -- если Merkle - то качаем рекурсивно
|
||||
|
|
|
|||
Loading…
Reference in New Issue