Check-in [6df24aed32]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Bump version number
Timelines: family | ancestors | descendants | both | trunk | 0.9.7-20200521
Files: files | file ages | folders
SHA1: 6df24aed32bef408f24aee34be3d65f3919b2055
User & Date: bernd 2020-05-21 17:29:39
Context
2020-05-25
21:00
Video converence updates check-in: d66b78602b user: bernd tags: trunk
2020-05-21
17:29
Bump version number check-in: 6df24aed32 user: bernd tags: trunk, 0.9.7-20200521
14:34
Bump version number check-in: 13d5969c77 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to msg.fs.

1535
1536
1537
1538
1539
1540
1541



1542

1543
1544
1545
1546
1547
1548
1549
also net2o-base
\ chain messages to one previous message
: chain, ( msgaddr u -- )
    [: 2dup startdate@ 64#0 { 64^ sd } sd le-64!  sd 1 64s forth:type
	c:0key sigonly@ >hash hashtmp hash#128 forth:type ;] $tmp $, msg-chain ;
: ihave, ( -- )
    ihave$ $@ dup IF



	$, mehave$ $@ $, msg-ihave

    ELSE  2drop  THEN ;
: push, ( -- )
    push$ $@ dup IF  $, nestsig  ELSE  2drop  THEN ;

: (send-avalanche) ( xt -- addr u flag )
    [:  0 >o [: <msg msg-start execute msg> ;] gen-cmd$ o>
	+last-signed msg-log, ;] [group] ;







>
>
>
|
>







1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
also net2o-base
\ chain messages to one previous message
: chain, ( msgaddr u -- )
    [: 2dup startdate@ 64#0 { 64^ sd } sd le-64!  sd 1 64s forth:type
	c:0key sigonly@ >hash hashtmp hash#128 forth:type ;] $tmp $, msg-chain ;
: ihave, ( -- )
    ihave$ $@ dup IF
	maxstring dup -1 = 1 rshift and
	over 4 + - mehave$ $@len - min 0 max
	keysize negate and  dup >r
	dup IF  $, mehave$ $@ $, msg-ihave  ELSE  2drop 2drop  THEN
	ihave$ 0 r> $del
    ELSE  2drop  THEN ;
: push, ( -- )
    push$ $@ dup IF  $, nestsig  ELSE  2drop  THEN ;

: (send-avalanche) ( xt -- addr u flag )
    [:  0 >o [: <msg msg-start execute msg> ;] gen-cmd$ o>
	+last-signed msg-log, ;] [group] ;