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.157 |
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 | 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 | > > > | > | 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] ; |
︙ | ︙ |