311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
|
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
|
-
+
+
-
-
-
+
+
+
|
(case (return-method)
((polling)
(send-via-polling uconn host-port cmd data))
((mailbox)
(send-via-mailbox uconn host-port cmd data))
(else
(print "ULEX ERROR: unrecognised return-method "(return-method)".")
#f))))))
#f)))))
(duration (- (current-milliseconds) start-time)))
;; this is ONLY for development and debugging. It will be removed once Ulex is stable.
(if (< 5000 (- (current-milliseconds) start-time))
(print "ULEX WARNING: round-trip took over 5 seconds; "
cmd", host-port="host-port", data="data))
(if (< 5000 duration)
(print "ULEX WARNING: round-trip took "(inexact->exact (round (/ duration 1000)))
" seconds; "cmd", host-port="host-port", data="data))
result))
;;======================================================================
;; responder side
;;======================================================================
|