syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use initial assertions to convey initial TCP packet to new state vector. 

This reduces latency of accepted connections significantly: no longer
do we wait for a SYN timeout-and-retransmit at the other end.
This commit is contained in:
Tony Garnock-Jones 2017-09-25 23:47:38 +01:00
parent 903ed5deaa
commit 4a4f43b2cb
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/netstack/incremental-highlevel/tcp.rkt
View File

@ -192,7 +192,6 @@
(when spawn-needed?
(active-state-vectors (set-add (active-state-vectors) statevec))
(spawn-state-vector src-ip src-port dst-ip dst-port))
;; TODO: get packet to the new state-vector process somehow
(send! packet)))
(else #f))))
(else #f)))
@ -303,6 +302,13 @@
src-port
(ip-address->hostname dst-ip)
dst-port)
;; Spawn with initial assertions so we are guaranteed to be sent
;; the packet that led to our creation (in the case of an accepted
;; server connection), and so that we at the same moment gain
;; knowledge of whether we were created on a listening port:
#:assertions* (patch-added
(patch-seq (sub (tcp-packet #t src-ip src-port dst-ip dst-port ? ? ? ? ? ?))
(sub (observe (advertise (tcp-channel ? (tcp-listener dst-port) ?))))))
(define root-facet (current-facet-id))