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.407 |
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 -- ) |
︙ | ︙ |