syndicate-lang
/
minimart-netstack-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use bit-string-take and bit-string-drop (new in racket-bitsyntax 4.1)

This commit is contained in:
Tony Garnock-Jones 2014-06-17 17:30:20 -04:00
parent 4de4180c67
commit 03a6455594
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tcp.rkt
View File

@ -418,8 +418,7 @@
(limit (seq+ (buffer-seqn b) (bit-string-byte-count (buffer-data b))))
(ackn (if (seq> ackn limit) limit ackn))
(dist (seq- ackn (buffer-seqn b))))
(define-values (discarded-acknowledged-data remaining-data)
(bit-string-split-at (buffer-data b) (* dist 8))) ;; bit offset!
(define remaining-data (bit-string-drop (buffer-data b) (* dist 8))) ;; bit offset!
(struct-copy conn-state s
[outbound (struct-copy buffer b [data remaining-data] [seqn ackn])]
[syn-acked? (or (conn-state-syn-acked? s)
@ -448,10 +447,8 @@
;; ^ can only send SYN until SYN is acked
pending-byte-count))
(define segment-offset (if (conn-state-syn-acked? s) 0 1))
(define-values (chunk0 remaining-data)
(bit-string-split-at (buffer-data b) (* segment-size 8))) ;; bit offset!
(define-values (discarded-dummy-syn-data chunk)
(bit-string-split-at chunk0 (* segment-offset 8))) ;; bit offset!
(define chunk0 (bit-string-take (buffer-data b) (* segment-size 8))) ;; bit offset!
(define chunk (bit-string-drop chunk0 (* segment-offset 8))) ;; bit offset!
(define ackn (next-expected-seqn s))
(define flags (set))
(when ackn