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: |
5f3731e82016a4e88c83843f1d5e91aa |
User & Date: | bernd 2020-07-31 21:26:35.569 |
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
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 | \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) | | | 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 | \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 |
︙ | ︙ | |||
469 470 471 472 473 474 475 476 477 478 479 480 481 482 | 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 | > > > > > > > > > > > > > | 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 | 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 |
︙ | ︙ |