Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More on locked chat |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
604bb8e573cc7122564453ee169f9cb2 |
| User & Date: | bernd 2019-07-09 22:22:14.857 |
Context
|
2019-07-10
| ||
| 23:48 | Work on locked chat check-in: 0e3fe94f9a user: bernd tags: trunk | |
|
2019-07-09
| ||
| 22:22 | More on locked chat check-in: 604bb8e573 user: bernd tags: trunk | |
| 21:32 | More on locked chat check-in: f5b4744608 user: bernd tags: trunk | |
Changes
Changes to msg.fs.
| ︙ | ︙ | |||
710 711 712 713 714 715 716 717 718 719 720 721 722 723 |
2dup + >r 2swap + r> sigpksize# move
2dup + modkey> sigpksize# +
true unloop EXIT THEN THEN
2drop
cell +LOOP
sigpksize# + false ;
\ generate an encryt+sign packet
: >modkey ( dstsk dstpk sk -- )
voutkey keysize c:hash@
sct0 voutkey 32b>sc25519
sct1 sct0 sc25519/
sct0 swap raw>sc25519
| > > > | 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 |
2dup + >r 2swap + r> sigpksize# move
2dup + modkey> sigpksize# +
true unloop EXIT THEN THEN
2drop
cell +LOOP
sigpksize# + false ;
: msg-dec?-sig? ( addr u -- addr' u' flag )
2dup 2 - + c@ $80 and IF msg-dec-sig? ELSE msg-sig? THEN ;
\ generate an encryt+sign packet
: >modkey ( dstsk dstpk sk -- )
voutkey keysize c:hash@
sct0 voutkey 32b>sc25519
sct1 sct0 sc25519/
sct0 swap raw>sc25519
|
| ︙ | ︙ | |||
733 734 735 736 737 738 739 |
[: pktmp keysize forth:type sigdate datesize# forth:type
sig-params 2drop sktmp pktmp ed-sign
2dup + 1- $80 swap orc! forth:type
keysize forth:emit ;] ']sign ;
\ nest-sig for msg/msging classes
| < < < < | | 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 |
[: pktmp keysize forth:type sigdate datesize# forth:type
sig-params 2drop sktmp pktmp ed-sign
2dup + 1- $80 swap orc! forth:type
keysize forth:emit ;] ']sign ;
\ nest-sig for msg/msging classes
' msg-dec?-sig? ' message 2dup
msging-class is start-req
msging-class is nest-sig
msg-class is start-req
msg-class is nest-sig
' context-table is gen-table
|
| ︙ | ︙ | |||
1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 |
[: last# >r o IF 2dup do-msg-nestsig
ELSE 2dup display-one-msg THEN r> to last#
0 .avalanche-msg ;] [group] drop notify- ;
\ chat message, text only
: msg-tdisplay ( addr u -- )
sigpksize# - 2dup + sigpksize# >$ c-state off
nest-cmd-loop msg:end ;
' msg-tdisplay msg-class is msg:display
' msg-tdisplay msg-notify-class is msg:display
: msg-tredisplay ( n -- )
reset-time
msg-group-o .msg:mode dup @ msg:otr# invert and swap
| > | 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 |
[: last# >r o IF 2dup do-msg-nestsig
ELSE 2dup display-one-msg THEN r> to last#
0 .avalanche-msg ;] [group] drop notify- ;
\ chat message, text only
: msg-tdisplay ( addr u -- )
2dup 2 - + c@ $80 and IF net2o-base:msg-dec-sig? drop THEN
sigpksize# - 2dup + sigpksize# >$ c-state off
nest-cmd-loop msg:end ;
' msg-tdisplay msg-class is msg:display
' msg-tdisplay msg-notify-class is msg:display
: msg-tredisplay ( n -- )
reset-time
msg-group-o .msg:mode dup @ msg:otr# invert and swap
|
| ︙ | ︙ |