Overview
| Comment: | Still not working |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-ulex-try-again |
| Files: | files | file ages | folders |
| SHA1: |
5ba946918f7867ae17a2209aca2223e1 |
| User & Date: | matt on 2020-12-06 23:34:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-12-12
| ||
| 20:30 | Pulling netutil, portlogger and telemetry back into the ulex dir for consolidation etc. check-in: 07aff9dfdb user: matt tags: v1.65-ulex-try-again | |
|
2020-12-06
| ||
| 23:34 | Still not working check-in: 5ba946918f user: matt tags: v1.65-ulex-try-again | |
| 23:19 | Working on ulex again check-in: 1db1be496d user: matt tags: v1.65-ulex-try-again | |
Changes
Modified ulex/tests/run.scm from [274d4d1cec] to [72a1de6db8].
| ︙ | ︙ | |||
13 14 15 16 17 18 19 | (use trace) (trace-call-sites #t) (import ulex) ;; (import (prefix ulex ulex:)) (trace | | | 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | (use trace) (trace-call-sites #t) (import ulex) ;; (import (prefix ulex ulex:)) (trace ;; find-or-setup-captain get-all-captain-pkts setup-as-captain get-winning-pkt ping remove-captain-pkt ;; start-server-find-port ;; connect-server |
| ︙ | ︙ |
Modified ulex/ulex.scm from [e4b8345913] to [1a2fbc373d].
| ︙ | ︙ | |||
550 551 552 553 554 555 556 |
(let ((udata (or udata-in (make-udat))))
(if (udat-serv-listener udata) ;; TODO - add check that the listener is alive and ready?
udata
(let ((res (connect-server udata port)))
(or res
(begin
;; (print "Could not connect to " port)
| | | | 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 |
(let ((udata (or udata-in (make-udat))))
(if (udat-serv-listener udata) ;; TODO - add check that the listener is alive and ready?
udata
(let ((res (connect-server udata port)))
(or res
(begin
;; (print "Could not connect to " port)
(if (and (< port 65535)
(< tries 10000)) ;; make this number bigger when things are working
(start-server-find-port udata (+ port 1)(+ tries 1))
#f)))))))
(define (connect-server udata port)
;; (tcp-listener-socket LISTENER)(socket-name so)
;; sockaddr-address, sockaddr-port, sockaddr->string
(let* ((tlsn (handle-exceptions
|
| ︙ | ︙ |