Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Start better want protocol |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
fe0413d44963ec6376af09c4940f4be9 |
| User & Date: | bernd 2020-05-15 21:18:58 |
Context
|
2020-05-18
| ||
| 22:15 | Start rewriting fetcher logic check-in: f66c4846a2 user: bernd tags: trunk | |
|
2020-05-15
| ||
| 21:18 | Start better want protocol check-in: fe0413d449 user: bernd tags: trunk | |
|
2020-05-14
| ||
| 17:21 | Flip mic/kb check-in: a0d9aba664 user: bernd tags: trunk | |
Changes
Changes to classes.fs.
575 576 577 578 579 580 581 582 583 584 585 586 587 588 |
cmd-class class{ groups
$value: id$ \ is the pubkey
field: member[]
field: admin \ secret key, only known to the admins
64value: perms#
}class
\\\
Local Variables:
forth-local-words:
(
(("net2o:" "+net2o:") definition-starter (font-lock-keyword-face . 1)
"[ \t\n]" t name (font-lock-function-name-face . 3))
|
> > > > > > > > > |
575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 |
cmd-class class{ groups
$value: id$ \ is the pubkey
field: member[]
field: admin \ secret key, only known to the admins
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:
(
(("net2o:" "+net2o:") definition-starter (font-lock-keyword-face . 1)
"[ \t\n]" t name (font-lock-function-name-face . 3))
|
Changes to msg.fs.
315 316 317 318 319 320 321 322 323 324 325 326 327 328 |
dup 5 sf[]@ fsplit 0 .r '.' emit 100e f* f>s .## ." m"
drop ;
Forward msg:last?
Forward msg:last
Forward msg:want
hash: fetch-finish#
Variable fetch-queue[]
hash: have# \ list of owner ids per hash
hash: have-group# \ list of interested groups per hash
: .@host.id ( pk+host u -- )
|
> > > |
315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 |
dup 5 sf[]@ fsplit 0 .r '.' emit 100e f* f>s .## ." m"
drop ;
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[]
hash: have# \ list of owner ids per hash
hash: have-group# \ list of interested groups per hash
: .@host.id ( pk+host u -- )
|