Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add debugging switch to fetch pks |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bf383917f7656019c705cb49d05232c4 |
| User & Date: | bernd 2020-02-13 17:47:13 |
Context
|
2020-02-13
| ||
| 17:48 | Bump version number check-in: 7020254092 user: bernd tags: trunk, 0.9.7-20200213 | |
| 17:47 | Add debugging switch to fetch pks check-in: bf383917f7 user: bernd tags: trunk | |
|
2020-02-12
| ||
| 22:44 | Add pen to edit name check-in: bf93e8b4ed user: bernd tags: trunk | |
Changes
Changes to debugging.fs.
82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
debug: slurp( \ debug slurp&spit debug: wallet( \ debug wallet stuff debug: qr( \ qr code stuff debug: deprecated( \ deprecated stuff debug: unhandled( \ unhandled commands debug: syncfile( \ synchronous file operations debug: newvault( \ new style vault keys -db profile( \ don't profile by default ) +db ipv6( \ ipv6 should be on by default ) +db ipv4( \ ipv4 should be on by default ) -db ipv64( \ ipv6 over 4 -db xlat464( \ no xlat 464 by default -db newvault( \ new vault disabled for now ) |
> |
82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 |
debug: slurp( \ debug slurp&spit
debug: wallet( \ debug wallet stuff
debug: qr( \ qr code stuff
debug: deprecated( \ deprecated stuff
debug: unhandled( \ unhandled commands
debug: syncfile( \ synchronous file operations
debug: newvault( \ new style vault keys
debug: pks( \ fetch pks
-db profile( \ don't profile by default )
+db ipv6( \ ipv6 should be on by default )
+db ipv4( \ ipv4 should be on by default )
-db ipv64( \ ipv6 over 4
-db xlat464( \ no xlat 464 by default
-db newvault( \ new vault disabled for now )
|
Changes to msg.fs.
1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 |
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
|
| |
1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 |
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' }
pks( 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
|