Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix ihave, problem |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
136a37fd0f4473f542d7aaa768722839 |
| User & Date: | bernd 2020-01-09 18:52:10.212 |
Context
|
2020-01-12
| ||
| 21:09 | Improve haves check-in: 90b0958714 user: bernd tags: trunk | |
|
2020-01-09
| ||
| 18:52 | Fix ihave, problem check-in: 136a37fd0f user: bernd tags: trunk | |
| 18:31 | Time delta fix for 32 bits check-in: b8a0c242f3 user: bernd tags: trunk | |
Changes
Changes to msg.fs.
| ︙ | ︙ | |||
1373 1374 1375 1376 1377 1378 1379 |
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
| | | 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 |
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 over 4 + - mehave$ $@len - dup 0< IF 2drop EXIT THEN
keysize negate and dup >r
$, mehave$ $@ $, msg-ihave
ihave$ 0 r> $del
ELSE 2drop THEN ;
: push, ( -- )
push$ $@ dup IF $, nestsig ELSE 2drop THEN ;
|
| ︙ | ︙ |