379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
|
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
|
-
+
|
;; (map ip->string (vector->list
;; (hostinfo-addresses
;; (host-information (current-hostname))))))
)
(import ulex trace big-chicken srfi-18 test matchable)
(import ulex trace big-chicken srfi-18 test matchable system-information)
(trace-call-sites #t)
(trace
;; ulex-handler
;; send
;; add-to-work-queue
)
|
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
|
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
|
+
-
-
-
+
+
+
|
(define uconn (run-listener handler-proc))
(pp-uconn uconn)
;; super basic loop back test
(define res #f)
(define targhost (conc (get-host-name)":"4242))
(define th1 (make-thread (lambda ()
(test #f 10 (send-receive uconn "zeus:4242" 'calc "(+ 5 5)"))
(set! res (send-receive uconn "zeus:4242" 'ping '()))
(test #f 'pong (send-receive uconn "zeus:4242" 'ping '()))
(test #f 10 (send-receive uconn targhost 'calc "(+ 5 5)"))
(set! res (send-receive uconn targhost 'ping '()))
(test #f 'pong (send-receive uconn targhost 'ping '()))
)))
(thread-start! th1)
(thread-join! th1)
(print "All done")
(print "Received "res)
|