Check-in [52a229cf9c]
Not logged in

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

Overview
Comment:Fix old my-addr$ problem
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 52a229cf9cb6f6833741f39f6a27188d66f07d56
User & Date: bernd 2019-11-27 21:43:35
Context
2019-11-27
22:36
Image recognizer check-in: e88060e605 user: bernd tags: trunk
21:43
Fix old my-addr$ problem check-in: 52a229cf9c user: bernd tags: trunk
21:26
Chat images started, delivery of dht with obsolete date prevented check-in: aa10c71e44 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to addr.fs.

168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
    my-addr[] [: .net2o:dispose-addr ;] $[]o-map
    my-addr[] $free
    my-addr$ $[]free
    pub-addr$ $[]free
    priv-addr$ $[]free ;

: !my-addr$ ( -- )
    my-key-default 0= ?EXIT
    now>never  my-addr[] [:
	nat( ." insert into my-addr$: " dup .addr forth:cr )
	dup .host:ekey-to 64@ 64dup 64-0= n>64 64+
	sigdate 64'+ le-64!
	o>addr gen-host my-addr$ $ins[]sig drop ;] $[]o-map ;

: .my-addrs ( -- )







|







168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
    my-addr[] [: .net2o:dispose-addr ;] $[]o-map
    my-addr[] $free
    my-addr$ $[]free
    pub-addr$ $[]free
    priv-addr$ $[]free ;

: !my-addr$ ( -- )
    my-key-default 0= ?EXIT  my-addr$ $[]free
    now>never  my-addr[] [:
	nat( ." insert into my-addr$: " dup .addr forth:cr )
	dup .host:ekey-to 64@ 64dup 64-0= n>64 64+
	sigdate 64'+ le-64!
	o>addr gen-host my-addr$ $ins[]sig drop ;] $[]o-map ;

: .my-addrs ( -- )

Changes to helper.fs.

163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
    dht-connect online? IF
	replace-me -other  announced!  THEN ;

: announce? ( -- )
    announced 64@ 64-0= ?EXIT
    announced? 0= IF
	init-my0key init-myekey
	my-addr[] [: .+my-0key ;] $[]o-map
	announce-me  THEN ;

: renat-all ( -- ) beacon( ." remove all beacons" cr )
    [IFDEF] renat-complete [: [THEN]
	0 .!my-addr dht-disconnect \ old DHT may be stale
	beacons# #frees
	announce-me \ if we succeed here, we can try the rest







|







163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
    dht-connect online? IF
	replace-me -other  announced!  THEN ;

: announce? ( -- )
    announced 64@ 64-0= ?EXIT
    announced? 0= IF
	init-my0key init-myekey
	my-addr[] [: .+my-0key ;] $[]o-map !my-addr$
	announce-me  THEN ;

: renat-all ( -- ) beacon( ." remove all beacons" cr )
    [IFDEF] renat-complete [: [THEN]
	0 .!my-addr dht-disconnect \ old DHT may be stale
	beacons# #frees
	announce-me \ if we succeed here, we can try the rest