Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Factoring out >fetch-queue |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
86856020fd00bc8b32b6032832f60dad |
| User & Date: | bernd 2020-03-05 14:42:07 |
Context
|
2020-03-05
| ||
| 15:59 | Bump version number check-in: d24e67b97a user: bernd tags: trunk, 0.9.7-20200305 | |
| 14:42 | Factoring out >fetch-queue check-in: 86856020fd user: bernd tags: trunk | |
|
2020-03-04
| ||
| 22:44 | Forward state what you have check-in: 45aec71ad2 user: bernd tags: trunk | |
Changes
Changes to msg.fs.
650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 |
: >have-group ( addr u -- )
msg-group-o { w^ grp }
2dup have-group# #@ nip IF
grp last# cell+ +unique$
ELSE
grp cell 2swap have-group# #!
THEN ;
: ?fetch ( addr u -- )
key| 2dup >have-group
2dup need-hashed? IF
fetch-queue[] ['] $ins[] resize-sema c-section drop
ELSE 2drop THEN ;
: .posting ( addr u -- )
2dup keysize /string
2dup printable? IF '[' emit type '@' emit
ELSE ." #[" 85type ." /@" THEN
key| .key-id? ;
|
| < > > |
650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 |
: >have-group ( addr u -- )
msg-group-o { w^ grp }
2dup have-group# #@ nip IF
grp last# cell+ +unique$
ELSE
grp cell 2swap have-group# #!
THEN ;
: >fetch-queue ( addr u -- )
2dup need-hashed? IF
fetch-queue[] ['] $ins[] resize-sema c-section drop
ELSE 2drop THEN ;
: ?fetch ( addr u -- )
key| 2dup >have-group >fetch-queue ;
: .posting ( addr u -- )
2dup keysize /string
2dup printable? IF '[' emit type '@' emit
ELSE ." #[" 85type ." /@" THEN
key| .key-id? ;
|