Check-in [429120512d]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix your-0key problem
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 429120512d2af2e61e163b9c964371b51bce3c96
User & Date: bernd 2019-07-13 11:03:24.153
Context
2019-07-14
21:15
Lock/unlock of chat looks good now check-in: ff117dd91d user: bernd tags: trunk
2019-07-13
11:03
Fix your-0key problem check-in: 429120512d user: bernd tags: trunk
11:02
Fix your-0key problem check-in: e332493556 user: bernd tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Changes to helper.fs.
296
297
298
299
300
301
302
303

304
305
306
307
308
309
310
296
297
298
299
300
301
302

303
304
305
306
307
308
309
310







-
+








in net2o : pklookup? ( pkaddr u -- flag )
    2dup keysize2 safe/string hostc$ $! key2| 2dup pkc over str= to ?myself
    2dup >d#id { id }
    id .dht-host $[]# 0= IF  2dup pk-lookup  2dup >d#id to id  THEN
    2dup make-context
    false id dup .dht-host ['] insert-host? $[]map drop nip nip
    lastaddr# IF  lastaddr# cell+ $@ dest-0key $!  THEN ;
    lastaddr# IF  lastaddr# cell+ $@ dest-0key sec!  THEN ;
in net2o : pklookup ( pkaddr u -- )
    net2o:pklookup? 0= !!no-address!! ;

: ?nat-done ( n -- )
    nat( ." req done, issue nat request" forth:cr )
    connect-rest +flow-control +resend ?nat ;
: no-nat-done ( n -- )