171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
|
(thread-start! th1)
(udat-cmd-thread-set! uconn th1)
(print "cmd loop started")
uconn)
(assert #f "ERROR: run-listener called without proper setup."))))
(define (wait-and-close uconn)
(thread-join! (udat-cmd-thread uconn))
(tcp-close (udat-socket uconn)))
;;======================================================================
;; peers and connections
;;======================================================================
(define *send-mutex* (make-mutex))
|
>
>
>
>
>
|
|
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
|
(thread-start! th1)
(udat-cmd-thread-set! uconn th1)
(print "cmd loop started")
uconn)
(assert #f "ERROR: run-listener called without proper setup."))))
(define (wait-and-close uconn)
(let loop ()
(if (not (udat-cmd-thread uconn))
(begin
(thread-sleep! 1)
(loop))))
(thread-join! (udat-cmd-thread uconn))
#;(tcp-close (udat-socket uconn)))
;;======================================================================
;; peers and connections
;;======================================================================
(define *send-mutex* (make-mutex))
|