443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
|
(let* ((my-addr (udat-my-address udata))
(my-port (udat-my-port udata))
(th (make-thread (lambda ()
(ulex-handler-loop udata)) "Captain handler")))
(udat-handler-thread-set! udata th)
(udat-captain-address-set! udata my-addr)
(udat-captain-port-set! udata my-port)
(thread-start! th))
(begin
(print "ERROR: failed to create captain pkt")
#f)))
;; given a pkts dir read
;;
(define (get-all-captain-pkts udata)
|
|
>
|
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
|
(let* ((my-addr (udat-my-address udata))
(my-port (udat-my-port udata))
(th (make-thread (lambda ()
(ulex-handler-loop udata)) "Captain handler")))
(udat-handler-thread-set! udata th)
(udat-captain-address-set! udata my-addr)
(udat-captain-port-set! udata my-port)
(thread-start! th)
(print "Captain setup complete and thread started. Address: " my-addr ", port: " my-port))
(begin
(print "ERROR: failed to create captain pkt")
#f)))
;; given a pkts dir read
;;
(define (get-all-captain-pkts udata)
|