Check-in [5f3731e820]
Not logged in

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

Overview
Comment:Add silent tag for messages
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 5f3731e82016a4e88c83843f1d5e91aa0cafbf6d
User & Date: bernd 2020-07-31 21:26:35
Context
2020-08-03
21:53
Working on changing the ihave protocol check-in: 5b081fbab6 user: bernd tags: trunk
2020-07-31
21:26
Add silent tag for messages check-in: 5f3731e820 user: bernd tags: trunk
2020-07-29
20:43
Insert haves+sigs check-in: 30ad4bfacf user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to classes.fs.

180
181
182
183
184
185
186





187
188
189
190
191
192
193
    method url
    method like
    method lock
    method unlock
    method away
    method perms
    method end





    method display   \ display one message
    method redisplay \ display full set
    method .nobody   \ show nobody is online
}class

cmd-class class{ pay
    field: sources[]    \ all the sources stored here, an array







>
>
>
>
>







180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
    method url
    method like
    method lock
    method unlock
    method away
    method perms
    method end

    method silent-start
    method have
    method updates
    
    method display   \ display one message
    method redisplay \ display full set
    method .nobody   \ show nobody is online
}class

cmd-class class{ pay
    field: sources[]    \ all the sources stored here, an array

Changes to msg.fs.

438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
...
469
470
471
472
473
474
475













476
477
478
479
480
481
482
\g 

reply-table $@ inherit-table msg-table

$20 net2o: msg-start ( $:pksig -- ) \g start message
    1 !!>order? $> msg:start ;
+net2o: msg-tag ( $:tag -- ) \g tagging (can be anywhere)
    $> msg:tag ;
+net2o: msg-id ( $:id -- ) \g a hash id
    2 !!>=order? $> msg:id ;
+net2o: msg-chain ( $:dates,sighash -- ) \g chained to message[s]
    ( $10 !!>=order? ) $> msg:chain ;
+net2o: msg-signal ( $:pubkey -- ) \g signal message to one person
    $> msg:signal ;
+net2o: msg-re ( $:hash ) \g relate to some object
................................................................................
    64>n msg:like ;
+net2o: msg-lock ( $:key -- ) \g lock down communciation
    $> msg:lock ;
+net2o: msg-unlock ( -- ) \g unlock communication
    msg:unlock ;
+net2o: msg-perms ( $:pk perm -- ) \g permissions
    $> msg:perms ;













}scope

msg-table $save

' context-table is gen-table

\ Code for displaying messages: logstyle for TUI deferred-based







|







 







>
>
>
>
>
>
>
>
>
>
>
>
>







438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
...
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
\g 

reply-table $@ inherit-table msg-table

$20 net2o: msg-start ( $:pksig -- ) \g start message
    1 !!>order? $> msg:start ;
+net2o: msg-tag ( $:tag -- ) \g tagging (can be anywhere)
    2 !!>=order? $> msg:tag ;
+net2o: msg-id ( $:id -- ) \g a hash id
    2 !!>=order? $> msg:id ;
+net2o: msg-chain ( $:dates,sighash -- ) \g chained to message[s]
    ( $10 !!>=order? ) $> msg:chain ;
+net2o: msg-signal ( $:pubkey -- ) \g signal message to one person
    $> msg:signal ;
+net2o: msg-re ( $:hash ) \g relate to some object
................................................................................
    64>n msg:like ;
+net2o: msg-lock ( $:key -- ) \g lock down communciation
    $> msg:lock ;
+net2o: msg-unlock ( -- ) \g unlock communication
    msg:unlock ;
+net2o: msg-perms ( $:pk perm -- ) \g permissions
    $> msg:perms ;

$60 +net2o: msg-silent-start ( $:pksig -- ) \g silent message tag
    1 !!>order? $40 c-state !  $> msg:silent-start ;
+net2o: msg-hashs+id ( $:hashs $:id -- ) \g ihave within signed message
    $41 !!>order?  $> $> msg:ihave ;
+net2o: msg-otrify2 ( $:date+sig $:newdate+sig -- ) \g turn a past message into OTR, silent version
    $> $> msg:otrify ;
+net2o: msg-updates ( $:fileinfo $:hash -- ) \g Files got an update.
    \g The fileinfo string contains fileno:len tuples in command encoding.
    \g Each additional context is hashed to a 64 byte hash, and all the hashs
    \g are hashed together sequentially in the same order as the fileinfo
    \g describes.
    $> $> msg:updates ;
}scope

msg-table $save

' context-table is gen-table

\ Code for displaying messages: logstyle for TUI deferred-based