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: |
6df24aed32bef408f24aee34be3d65f3 |
| 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
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] ;
|