Check-in [86856020fd]
Not logged in

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: 86856020fd00bc8b32b6032832f60dad65dda798
User & Date: bernd 2020-03-05 14:42:07.871
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
Unified Diff Ignore Whitespace Patch
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? ;