Check-in [35e82dc6d7]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:/sync bug fixed
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 35e82dc6d73aed70764189d06ae5cd080e728353
User & Date: bernd 2019-06-20 19:45:01.040
Context
2019-06-20
22:13
Replace msg-logs by msg:log[] check-in: 2326543d3a user: bernd tags: trunk
19:45
/sync bug fixed check-in: 35e82dc6d7 user: bernd tags: trunk
14:01
Update do check-in: d39bd5597c user: bernd tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Changes to msg.fs.
1429
1430
1431
1432
1433
1434
1435
1436

1437
1438
1439
1440
1441
1442
1443
1429
1430
1431
1432
1433
1434
1435

1436
1437
1438
1439
1440
1441
1442
1443







-
+







    \G n2o: Execute normal n2o command

: /sync ( addr u -- )
    \U sync [+date] [-date] synchronize logs
    \G sync: synchronize chat logs, starting and/or ending at specific
    \G sync: time/date
    msg-group-o .msg:peers[] $@ 0= IF  drop  EXIT  THEN
    @ to connection
    @ >o o to connection
    ." === sync ===" forth:cr
    net2o-code expect-msg [: msg-group last?, ;] [msg,] end-code o> ;

: /version ( addr u -- )
    \U version              version string
    \G version: print version string
    2drop .n2o-version space .gforth-version forth:cr ;