Start better want protocol

parent 6cc2c9b7
......@@ -580,6 +580,15 @@ cmd-class class{ groups
64value: perms#
}class
\ object fetch class
object class{ fetcher
value: state
method fetch ( -- )
method fetching ( size total -- )
method got-it ( -- )
}class
\\\
Local Variables:
forth-local-words:
......
......@@ -319,6 +319,9 @@ Forward msg:last?
Forward msg:last
Forward msg:want
hash: want# \ list of wanted hashs, followed by state+xts
\ state: want, fetching, got it
\ methods: want->fetch, fetching-progress, fetch->got it
hash: fetch-finish#
Variable fetch-queue[]
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment