Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | More fixes |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1a894f33cb7945ff677ac850a0757f9e |
| User & Date: | bernd 2020-01-31 23:24:54.810 |
Context
|
2020-02-02
| ||
| 16:02 | Fix xlat464 initialization problem check-in: 16ee7bd49e user: bernd tags: trunk | |
|
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 | |
Changes
Changes to keys.fs.
| ︙ | ︙ | |||
138 139 140 141 142 143 144 145 146 147 148 149 150 151 |
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+ $+!
| > | 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
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-sk sec@ dup IF ke-sk sec! ELSE 2drop THEN
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+ $+!
|
| ︙ | ︙ |
Changes to msg.fs.
| ︙ | ︙ | |||
197 198 199 200 201 202 203 |
: display-one-msg { d: msgt -- }
msg-group-o >o
msgt ['] msg:display catch IF ." invalid entry" cr 2drop THEN
o> ;
Forward silent-join
| < | 197 198 199 200 201 202 203 204 205 206 207 208 209 210 |
: display-one-msg { d: msgt -- }
msg-group-o >o
msgt ['] msg:display catch IF ." invalid entry" cr 2drop THEN
o> ;
Forward silent-join
\ !!FIXME!! should use an asynchronous "do-when-connected" thing
: +unique-con ( -- ) o msg-group-o .msg:peers[] +unique$ ;
Forward +chat-control
|
| ︙ | ︙ | |||
1305 1306 1307 1308 1309 1310 1311 | ELSE start off 1 requests +! cookie+request requests @ $10 > IF end-code| 0 to requests ELSE [ also net2o-base ] end-code| THEN THEN ;] #map start IF [ also net2o-base ] cookie+request end-code| THEN msg-group-o .msg:pks# free-obtained-pks | | | 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 |
ELSE
start off 1 requests +! cookie+request
requests @ $10 > IF end-code| 0 to requests
ELSE [ also net2o-base ] end-code| THEN
THEN ;] #map
start IF [ also net2o-base ] cookie+request end-code| THEN
msg-group-o .msg:pks# free-obtained-pks
THEN save-keys ;
: ?fetch-pks
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
|
| ︙ | ︙ |