Closer to correct patterns etc for outbound connections
This commit is contained in:
parent
034a96bcc9
commit
9f9431cb29
7
tcp.rkt
7
tcp.rkt
|
@ -99,7 +99,12 @@
|
||||||
;; the port number selects a substate therein. That's not
|
;; the port number selects a substate therein. That's not
|
||||||
;; how TCP is defined however so we can't do that.
|
;; how TCP is defined however so we can't do that.
|
||||||
(define appropriate-ip (set-first local-ips))
|
(define appropriate-ip (set-first local-ips))
|
||||||
((spawn-relay local-addr) remote-addr (tcp-channel appropriate-ip port))))))
|
(define appropriate-host (ip-address->hostname appropriate-ip))
|
||||||
|
(match-define (tcp-address remote-host remote-port) remote-addr)
|
||||||
|
(define remote-ip (ip-string->ip-address remote-host))
|
||||||
|
(list
|
||||||
|
((spawn-relay local-addr) remote-addr (tcp-address appropriate-host port))
|
||||||
|
(spawn-state-vector remote-ip remote-port appropriate-ip port))))))
|
||||||
|
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; Relay between kernel-level and user-level
|
;; Relay between kernel-level and user-level
|
||||||
|
|
Loading…
Reference in New Issue