71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(begin
(remove-captain-pkt udata captn)
(setup))))
(setup-as-captain udata)) ;; this saves the thread to captain-thread and starts the thread
))
;; connect to a specific dbfile
(define (connect udata dbfname)
udata)
(define (ping udata host-port)
(let ((cookie (make-cookie udata)))
(send udata host-port 'ping "just pinging" (current-seconds))
;; (mailbox-rec
))
|
|
|
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
(begin
(remove-captain-pkt udata captn)
(setup))))
(setup-as-captain udata)) ;; this saves the thread to captain-thread and starts the thread
))
;; connect to a specific dbfile
(define (connect udata dbfname dbtype)
udata)
(define (ping udata host-port)
(let ((cookie (make-cookie udata)))
(send udata host-port 'ping "just pinging" (current-seconds))
;; (mailbox-rec
))
|