Check-in [604bb8e573]
Not logged in

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:604bb8e573cc7122564453ee169f9cb2f5beeacc
User & Date: bernd 2019-07-09 22:22:14
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to msg.fs.

   710    710   		2dup + >r 2swap + r> sigpksize# move
   711    711   		2dup + modkey>  sigpksize# +
   712    712   		true unloop  EXIT  THEN  THEN
   713    713   	2drop
   714    714       cell +LOOP
   715    715       sigpksize# +  false ;
   716    716   
          717  +: msg-dec?-sig? ( addr u -- addr' u' flag )
          718  +    2dup 2 - + c@ $80 and IF  msg-dec-sig?  ELSE  msg-sig?  THEN ;
          719  +
   717    720   \ generate an encryt+sign packet
   718    721   
   719    722   : >modkey ( dstsk dstpk sk -- )
   720    723       voutkey keysize c:hash@
   721    724       sct0 voutkey 32b>sc25519
   722    725       sct1 sct0 sc25519/
   723    726       sct0 swap raw>sc25519
................................................................................
   733    736       [:  pktmp keysize forth:type  sigdate datesize# forth:type
   734    737   	sig-params 2drop sktmp pktmp ed-sign
   735    738   	2dup + 1- $80 swap orc! forth:type
   736    739   	keysize forth:emit ;] ']sign ;
   737    740   
   738    741   \ nest-sig for msg/msging classes
   739    742   
   740         -:noname ( addr u -- )
   741         -    2dup + 2 - c@ $F0 and
   742         -    case $80 of msg-dec-sig? endof
   743         -	drop  msg-sig?
   744         -	0 endcase ; ' message  2dup
          743  +' msg-dec?-sig? ' message  2dup
   745    744   msging-class is start-req
   746    745   msging-class is nest-sig
   747    746   msg-class is start-req
   748    747   msg-class is nest-sig
   749    748   
   750    749   ' context-table is gen-table
   751    750   
................................................................................
  1021   1020       [: last# >r o IF  2dup do-msg-nestsig
  1022   1021         ELSE  2dup display-one-msg  THEN  r> to last#
  1023   1022         0 .avalanche-msg ;] [group] drop notify- ;
  1024   1023   
  1025   1024   \ chat message, text only
  1026   1025   
  1027   1026   : msg-tdisplay ( addr u -- )
         1027  +    2dup 2 - + c@ $80 and IF  net2o-base:msg-dec-sig? drop  THEN
  1028   1028       sigpksize# - 2dup + sigpksize# >$  c-state off
  1029   1029       nest-cmd-loop msg:end ;
  1030   1030   ' msg-tdisplay msg-class is msg:display
  1031   1031   ' msg-tdisplay msg-notify-class is msg:display
  1032   1032   : msg-tredisplay ( n -- )
  1033   1033       reset-time
  1034   1034       msg-group-o .msg:mode dup @ msg:otr# invert and swap