Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix problem with empty chat group sync |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
be8d624e7a812c129f4a8c6dd401fead |
| User & Date: | bernd 2016-08-18 22:12:22 |
Context
|
2016-08-19
| ||
| 23:37 | Add padding command check-in: f1010b7dc2 user: bernd tags: trunk | |
|
2016-08-18
| ||
| 22:12 | Fix problem with empty chat group sync check-in: be8d624e7a user: bernd tags: trunk | |
| 13:48 | Bump version number check-in: 1b704982af user: bernd tags: trunk, 0.1.7-20160818 | |
Changes
Changes to net2o-msg.fs.
400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
: last-msgs@ ( startdate enddate n -- addr u n' )
\G print n intervals for messages from startdate to enddate
\G The intervals contain the same size of messages except the
\G last one, which may contain less (rounding down).
\G Each interval contains a 64 bit hash of the last 64 bit of
\G each message within the interval
last# >r >r last# $@ ?msg-log
last cell+ $[]#
IF
date>i >r date>i r> swap
2dup - r> over >r 1- 1 max / 0 max 1+ -rot
[: over >r U+DO I i.date
dup I + 1+ I' umin I l.hashs forth:type
dup +LOOP r> i.date
drop ;] $tmp r>
|
| |
400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
: last-msgs@ ( startdate enddate n -- addr u n' )
\G print n intervals for messages from startdate to enddate
\G The intervals contain the same size of messages except the
\G last one, which may contain less (rounding down).
\G Each interval contains a 64 bit hash of the last 64 bit of
\G each message within the interval
last# >r >r last# $@ ?msg-log
last# cell+ $[]#
IF
date>i >r date>i r> swap
2dup - r> over >r 1- 1 max / 0 max 1+ -rot
[: over >r U+DO I i.date
dup I + 1+ I' umin I l.hashs forth:type
dup +LOOP r> i.date
drop ;] $tmp r>
|