Overview
| Comment: | Still not working From: 5ba946918f7867ae17a2209aca2223e131050119 User: matt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-real-ulex |
| Files: | files | file ages | folders |
| SHA1: |
163590624c78f75e257aedd85ac82476 |
| User & Date: | matt on 2021-02-25 23:12:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-02-25
| ||
| 23:12 | Pulling netutil, portlogger and telemetry back into the ulex dir for consolidation etc. From: 07aff9dfdb76799cccd39e08dda8706a92453947 User: matt check-in: 49c01cca51 user: matt tags: v1.65-real-ulex (unpublished) | |
| 23:12 | Still not working From: 5ba946918f7867ae17a2209aca2223e131050119 User: matt check-in: 163590624c user: matt tags: v1.65-real-ulex (unpublished) | |
| 23:12 | Working on ulex again From: 1db1be496dd6a3b45eb72b3be1dd6a921509edfc User: matt check-in: cef3d0f7a8 user: matt tags: v1.65-real-ulex (unpublished) | |
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
|
| ︙ | ︙ |