Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix key import through chat |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
8f5ba435cf67f9d4be8cca5b55d94a28 |
| User & Date: | bernd 2020-01-31 21:58:14.466 |
Context
|
2020-01-31
| ||
| 23:24 | More fixes check-in: 1a894f33cb user: bernd tags: trunk | |
| 21:58 | Fix key import through chat check-in: 8f5ba435cf user: bernd tags: trunk | |
| 19:35 | Get keys from peers check-in: 38e2425029 user: bernd tags: trunk | |
Changes
Changes to keys.fs.
| ︙ | ︙ | |||
134 135 136 137 138 139 140 141 142 143 144 145 146 147 |
Variable sim-nick!
: nick! ( -- ) sim-nick! @ ?EXIT o { w^ optr }
ke-nick $@ nick# #@ d0= IF
optr cell ke-nick $@ nick# #! 0
ELSE
last# cell+ $@len cell/
optr cell last# cell+ $+!
THEN ke-nick# ! ;
: #.nick ( hash -- )
dup $@ type '#' emit cell+ $@len cell/ . ;
| > > > > > > > > > | 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 |
Variable sim-nick!
: nick! ( -- ) sim-nick! @ ?EXIT o { w^ optr }
ke-nick $@ nick# #@ d0= IF
optr cell ke-nick $@ nick# #! 0
ELSE
last# cell+ $@ bounds DO
ke-pk $@ I @ .ke-pk $@ str= IF
I @ .ke-nick# @ ke-nick# !
I @ .ke-offset 64@ ke-offset 64!
I @ .ke-selfsig $@ drop 64@ ke-selfsig $@ drop 64@ 64u<
IF optr @ I ! THEN
UNLOOP EXIT
THEN
cell +LOOP
last# cell+ $@len cell/
optr cell last# cell+ $+!
THEN ke-nick# ! ;
: #.nick ( hash -- )
dup $@ type '#' emit cell+ $@len cell/ . ;
|
| ︙ | ︙ | |||
157 158 159 160 161 162 163 |
THEN ke-pets[] $[]# 1- ke-pets# $[] ! ;
: key:new ( addr u -- o )
\G create new key, addr u is the public key
sample-key >o ke-sk ke-end over - erase
key-entry-table @ token-table !
>storekey @ ke-storekey !
| > | > > > | 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 |
THEN ke-pets[] $[]# 1- ke-pets# $[] ! ;
: key:new ( addr u -- o )
\G create new key, addr u is the public key
sample-key >o ke-sk ke-end over - erase
key-entry-table @ token-table !
>storekey @ ke-storekey !
2dup key| key# #@ d0= IF
key-read-offset
ELSE
last# cell+ $@ drop cell+ .ke-offset
THEN 64@ ke-offset 64!
1 import-type @ lshift [ 1 import#new lshift ]L or ke-imports !
keypack-all# n>64 key-read-offset 64+!
o cell- ke-end over - 2over key| key# #!
o>
current-key ;
0 Value last-key
|
| ︙ | ︙ |
Changes to msg.fs.
| ︙ | ︙ | |||
1314 1315 1316 1317 1318 1319 1320 |
msg-group-o >o msg:peers[] $[]# 0 ?DO
I msg:peers[] $[] @ .fetch-pks
LOOP o> ;
: msg-tredisplay ( n -- )
reset-time
msg-group-o >o msg:?otr msg:-otr o> >r
[: cells >r msg-log@ { log u } u r> - 0 max { u' }
| | | 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 |
msg-group-o >o msg:peers[] $[]# 0 ?DO
I msg:peers[] $[] @ .fetch-pks
LOOP o> ;
: msg-tredisplay ( n -- )
reset-time
msg-group-o >o msg:?otr msg:-otr o> >r
[: cells >r msg-log@ { log u } u r> - 0 max { u' }
log u ?scan-pks ?fetch-pks
log u' ?search-lock
log u u' /string bounds ?DO
I log - cell/ to log#
I $@ { d: msgt }
msgt ['] msg:display catch IF ." invalid entry" cr
2drop THEN
cell +LOOP
|
| ︙ | ︙ |