suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: make public udp-bound? and udp-connected? safe

Browse Source
This commit is contained in:
Matthew Flatt 2018-12-20 21:31:43 -07:00
parent d14238ae31
commit 2fc594fcc4
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/io/network/udp-send.rkt
View File

@ -137,7 +137,7 @@
"socket" u)))]
[else
;; if the socket is not bound already, send[to] binds it
(set-udp-bound?! u #t)
(set-udp-is-bound?! u #t)
(define r (rktio_udp_sendto_in rktio (udp-s u) addr bstr start end))
(cond
[(rktio-error? r)

24
racket/src/io/network/udp-socket.rkt
View File

@ -22,10 +22,10 @@
udp-default-family
udp-s
set-udp-bound?!
set-udp-connected?!)
set-udp-is-bound?!
set-udp-is-connected?!)
(struct udp (s bound? connected?)
(struct udp (s is-bound? is-connected?)
#:mutable
#:authentic)
@ -61,6 +61,10 @@
;; ----------------------------------------
(define/who (udp-bound? u)
(check who udp? u)
(udp-is-bound? u))
(define/who (udp-bind! u hostname port-no [reuse? #f])
(check who udp? u)
(check who string? #:or-false hostname)
@ -74,7 +78,7 @@
#:passive? #t
(lambda (addr)
(check-udp-closed who u)
(when (udp-bound? u)
(when (udp-is-bound? u)
(end-atomic)
(raise-arguments-error who "udp socket is already bound"
"socket" u))
@ -85,7 +89,11 @@
(string-append "can't bind" (if reuse? " as reusable" "")
"\n address: " (or hostname "<unspec>")
"\n port number: " (number->string port-no))))
(set-udp-bound?! u #t)))))
(set-udp-is-bound?! u #t)))))
(define/who (udp-connected? u)
(check who udp? u)
(udp-is-connected? u))
(define/who (udp-connect! u hostname port-no)
(check who udp? u)
@ -101,12 +109,12 @@
(cond
[(not hostname)
(check-udp-closed who u)
(when (udp-connected? u)
(when (udp-is-connected? u)
(define d (rktio_udp_disconnect rktio (udp-s u)))
(when (rktio-error? d)
(end-atomic)
(raise-network-error who d "can't disconnect"))
(set-udp-connected?! u #f))]
(set-udp-is-connected?! u #f))]
[else
(call-with-resolved-address
#:who who
@ -121,7 +129,7 @@
(string-append "can't connect"
"\n address: " hostname
"\n port number: " (number->string port-no))))
(set-udp-connected?! u #t)))])))
(set-udp-is-connected?! u #t)))])))
;; ----------------------------------------