Overview
| Comment: | Turn on portlogger |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
5cf2865c15212e43f8c771f71b1732c1 |
| User & Date: | matt on 2023-04-06 06:35:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-04-06
| ||
| 08:01 | Fixed MTLOWEST load check-in: 71f876d389 user: matt tags: v1.80 | |
| 06:35 | Turn on portlogger check-in: 5cf2865c15 user: matt tags: v1.80 | |
| 06:25 | Return to using portlogger for getting candidate port numbers. Got dependencies fixed so make -j now works check-in: c8631e33de user: matt tags: v1.80 | |
Changes
Modified tcp-transportmod.scm from [0351f1bbdd] to [4f9e2ba569].
| ︙ | ︙ | |||
628 629 630 631 632 633 634 | ;;====================================================================== ;; find a port and start tcp-server. This only starts the tcp portion of ;; the server, look at (tt:start-server ...) above for the entry point ;; for the entire server system ;; (define (tt:start-tcp-server ttdat) | | | 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 |
;;======================================================================
;; find a port and start tcp-server. This only starts the tcp portion of
;; the server, look at (tt:start-server ...) above for the entry point
;; for the entire server system
;;
(define (tt:start-tcp-server ttdat)
(setup-listener-portlogger ttdat)
(let* ((socket (tt-socket ttdat))
(handler (tt-handler ttdat)))
((make-tcp-server socket handler)
#f ;; yes, send error messages to std-err
)))
;; create a tcp listener and return a populated udat struct with
|
| ︙ | ︙ | |||
662 663 664 665 666 667 668 |
(assert (tt? uconn) "FATAL: setup-listener called with wrong struct "uconn)
(handle-exceptions
exn
(if (< port 65535)
(begin
(portlogger:open-run-close portlogger:set-failed port)
(thread-sleep! 0.25)
| | | 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 |
(assert (tt? uconn) "FATAL: setup-listener called with wrong struct "uconn)
(handle-exceptions
exn
(if (< port 65535)
(begin
(portlogger:open-run-close portlogger:set-failed port)
(thread-sleep! 0.25)
(setup-listener-portlogger uconn))
#f)
(connect-listener uconn port))))
(define (connect-listener uconn port)
;; (tcp-listener-socket LISTENER)(socket-name so)
;; sockaddr-address, sockaddr-port, sockaddr->string
(let* ((tlsn (tcp-listen port 1000 #f)) ;; (tcp-listen TCPPORT [BACKLOG [HOST]])
|
| ︙ | ︙ |