Check-in [fe0413d449]
Not logged in

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: fe0413d44963ec6376af09c4940f4be95cd8a912
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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 -- )