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
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
Hide Diffs Unified Diffs 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? ;