Check-in [be8d624e7a]
Not logged in

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: be8d624e7a812c129f4a8c6dd401fead77b137f7
User & Date: bernd 2016-08-18 22:12:22.413
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
Unified Diff Ignore Whitespace Patch
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>