Loading socks.fs +4 −3 Original line number Original line Diff line number Diff line Loading @@ -136,8 +136,8 @@ $00000000 Value droprate# get-info dup >r info@ sendto get-info dup >r info@ sendto r> freeaddrinfo ?ior ; r> freeaddrinfo ?ior ; 0 Value lastaddr# UValue lastaddr# Variable lastn2oaddr User lastn2oaddr : insert-address ( addr u -- net2o-addr ) ?<ipv6 : insert-address ( addr u -- net2o-addr ) ?<ipv6 address( ." Insert address " 2dup .address cr ) address( ." Insert address " 2dup .address cr ) Loading @@ -146,10 +146,11 @@ Variable lastn2oaddr THEN THEN 2dup routes# #key dup -1 = IF 2dup routes# #key dup -1 = IF drop s" " 2over routes# #! drop s" " 2over routes# #! routes# #key dup lastn2oaddr ! routes# #key ELSE ELSE nip nip nip nip THEN THEN dup lastn2oaddr ! last# to lastaddr# ; last# to lastaddr# ; : dns>string ( addr u port hint -- info net2o-addr u ) : dns>string ( addr u port hint -- info net2o-addr u ) Loading Loading
socks.fs +4 −3 Original line number Original line Diff line number Diff line Loading @@ -136,8 +136,8 @@ $00000000 Value droprate# get-info dup >r info@ sendto get-info dup >r info@ sendto r> freeaddrinfo ?ior ; r> freeaddrinfo ?ior ; 0 Value lastaddr# UValue lastaddr# Variable lastn2oaddr User lastn2oaddr : insert-address ( addr u -- net2o-addr ) ?<ipv6 : insert-address ( addr u -- net2o-addr ) ?<ipv6 address( ." Insert address " 2dup .address cr ) address( ." Insert address " 2dup .address cr ) Loading @@ -146,10 +146,11 @@ Variable lastn2oaddr THEN THEN 2dup routes# #key dup -1 = IF 2dup routes# #key dup -1 = IF drop s" " 2over routes# #! drop s" " 2over routes# #! routes# #key dup lastn2oaddr ! routes# #key ELSE ELSE nip nip nip nip THEN THEN dup lastn2oaddr ! last# to lastaddr# ; last# to lastaddr# ; : dns>string ( addr u port hint -- info net2o-addr u ) : dns>string ( addr u port hint -- info net2o-addr u ) Loading
