Overview
Comment: | Give useful hint in weird situation where /etc/hosts is misconfigured. Added placeholder for api:tcp-dispatch-request-make-handler do over |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80-revolution |
Files: | files | file ages | folders |
SHA1: |
43be641704c53fe15443d3ce26a9f61c |
User & Date: | matt on 2024-01-27 17:30:51 |
Other Links: | branch diff | manifest | tags |
Context
2024-01-27
| ||
18:57 | Added bit more to api:tcp-dispatch stuff check-in: 3aeaa622a5 user: matt tags: v1.80-revolution | |
17:30 | Give useful hint in weird situation where /etc/hosts is misconfigured. Added placeholder for api:tcp-dispatch-request-make-handler do over check-in: 43be641704 user: matt tags: v1.80-revolution | |
17:28 | Fixed dependency issue in Makefile. check-in: 2725650ca5 user: matt tags: v1.80-revolution | |
Changes
Modified api.scm from [b08fe263c7] to [cb9119f196].
︙ | |||
183 184 185 186 187 188 189 190 191 192 193 194 195 | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 | + + + + + + + + + + - + | (begin (rmt:print-db-stats) (set! *api:last-stats-print* (current-seconds)))) (mutex-unlock! *api-print-db-stats-mutex*) (thread-sleep! 5) (loop))) (define (api:tcp-dispatch-request-make-handler-new dbstruct) ;; cmd run-id params) ;; put proc into in-queue ;; poll out-queue for result evey 25ms ;; time out with big message #f ) (define api:tcp-dispatch-request-make-handler api:tcp-dispatch-request-make-handler-old) ;; indat is (cmd run-id params meta) ;; ;; WARNING: Do not print anything in the lambda of this function as it ;; reads/writes to current in/out port ;; |
︙ | |||
240 241 242 243 244 245 246 | 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 | - + | ((loaded) (conc "Server loaded, "numthreads" threads in flight")) (else #f))) (result (case status ((busy) (if (eq? cmd 'ping) (normal-proc cmd run-id params) ;; numthreads must be greater than 5 for busy |
︙ |
Modified tcp-transportmod.scm from [0cd20b4ff2] to [7f90bd66bf].
︙ | |||
633 634 635 636 637 638 639 | 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 | + + + - + | #f (caar servers))) (my-index (list-index (lambda (x) (equal? (list-ref x 6) (tt-servinf-file ttdat))) servers)) (ok (cond ((not (number? my-index)) (debug:print 0 *default-log-port* "ERROR: bad server data in "servers", might be due to host misconfiguration such as bad IP address in /etc/hosts.") #f) |
︙ |