Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix find-prev-chatline problem |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
3f263660901bf3b6448b71c74cae4975 |
| User & Date: | bernd 2019-05-30 20:51:31.624 |
Context
|
2019-05-30
| ||
| 23:51 | Add correct group to newly added/blocked users check-in: ada3faa9e3 user: bernd tags: trunk | |
| 20:51 | Fix find-prev-chatline problem check-in: 3f26366090 user: bernd tags: trunk | |
| 13:12 | Bump version number check-in: ff3f0507b8 user: bernd tags: trunk, 0.8.9-20190530 | |
Changes
Changes to msg.fs.
| ︙ | ︙ | |||
985 986 987 988 989 990 991 |
2dup + sigsize# - le-64@ line-date 64! ;
: find-prev-chatline { maxlen addr -- max span addr span }
msg-group$ $@ ?msg-log
last# cell+ $[]# 0= IF maxlen 0 addr over EXIT THEN
line-date 64@ date>i'
BEGIN 1- dup 0>= WHILE dup last# cell+ $[]@
dup sigpksize# - /string key| pk@ key| str= UNTIL THEN
| > | | | | > | 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 |
2dup + sigsize# - le-64@ line-date 64! ;
: find-prev-chatline { maxlen addr -- max span addr span }
msg-group$ $@ ?msg-log
last# cell+ $[]# 0= IF maxlen 0 addr over EXIT THEN
line-date 64@ date>i'
BEGIN 1- dup 0>= WHILE dup last# cell+ $[]@
dup sigpksize# - /string key| pk@ key| str= UNTIL THEN
last# cell+ $[]@ dup 0= IF nip
ELSE !date ['] msg:display textmsg-o .$tmp
dup maxlen u> IF dup >r maxlen 0 addr over r> grow-tib
2drop to addr drop to maxlen THEN
tuck addr maxlen smove
THEN
maxlen swap addr over ;
: find-next-chatline { maxlen addr -- max span addr span }
msg-group$ $@ ?msg-log
line-date 64@ date>i
BEGIN 1+ dup last# cell+ $[]# u< WHILE dup last# cell+ $[]@
dup sigpksize# - /string key| pk@ key| str= UNTIL THEN
dup last# cell+ $[]# u>=
|
| ︙ | ︙ |