Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add better chain support |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8afee7be220d3db441c750d2a23e802b |
| User & Date: | bernd 2019-07-05 15:01:25 |
Context
|
2019-07-05
| ||
| 20:42 | Show message about nobody is online check-in: 29c25f391e user: bernd tags: trunk | |
| 15:01 | Add better chain support check-in: 8afee7be22 user: bernd tags: trunk | |
| 14:51 | Add better chain support check-in: 985b47981c user: bernd tags: trunk | |
Changes
Changes to msg.fs.
1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 |
\ ." signal: '" 85type ''' forth:emit forth:cr
$, msg-signal
;] rectype-name
THEN
ELSE 2drop rectype-null THEN ;
: chain-rec ( addr u -- )
over c@ '!' = IF
2dup 1 /string dup 0= IF 2drop rectype-null EXIT THEN
snumber?
case
0 of endof
-1 of
msg-group-o .msg:log[] $[]#
over abs over u< IF over 0< IF + ELSE drop THEN
>r over ?flush-text + to last->in r>
|
| |
1542 1543 1544 1545 1546 1547 1548 1549 1550 1551 1552 1553 1554 1555 1556 |
\ ." signal: '" 85type ''' forth:emit forth:cr
$, msg-signal
;] rectype-name
THEN
ELSE 2drop rectype-null THEN ;
: chain-rec ( addr u -- )
over c@ '!' = IF
2dup 1 /string dup 0= IF 2drop 2drop rectype-null EXIT THEN
snumber?
case
0 of endof
-1 of
msg-group-o .msg:log[] $[]#
over abs over u< IF over 0< IF + ELSE drop THEN
>r over ?flush-text + to last->in r>
|