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 |
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
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
|