Overview
| Comment: | Merged fork |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-tcp-inmem |
| Files: | files | file ages | folders |
| SHA1: |
f756aa00cd438d7627bd1b4ffb09599e |
| User & Date: | matt on 2023-02-17 06:02:14 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-02-18
| ||
| 20:32 | server registation and timeout working check-in: 743e63bc9e user: matt tags: v1.80-tcp-inmem | |
|
2023-02-17
| ||
| 16:27 | Fixed megatest -list-servers. Handled the changes in the server info list returned by choose-server check-in: c9e2a1cd70 user: mmgraham tags: v1.80-tcp-inmem | |
| 06:02 | Merged fork check-in: f756aa00cd user: matt tags: v1.80-tcp-inmem | |
|
2023-02-16
| ||
| 22:05 | wip check-in: 2c448364b3 user: matt tags: v1.80-tcp-inmem | |
| 19:53 | Removed last 2 args from definition of http-transport-handler check-in: 4193a11be6 user: mmgraham tags: v1.80-tcp-inmem | |
Changes
Modified megatest.scm from [06320fbe28] to [a71b7bf85e].
| ︙ | ︙ | |||
21 22 23 24 25 26 27 28 29 30 31 32 33 34 | ;; fake out readline usage of toplevel-command (define (toplevel-command . a) #f) (declare (uses common)) ;; (declare (uses megatest-version)) (declare (uses margs)) (declare (uses commonmod)) (declare (uses commonmod.import)) (declare (uses mtargs)) (declare (uses mtargs.import)) (declare (uses debugprint)) (declare (uses debugprint.import)) (declare (uses runs)) | > > | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | ;; fake out readline usage of toplevel-command (define (toplevel-command . a) #f) (declare (uses common)) ;; (declare (uses megatest-version)) (declare (uses margs)) (declare (uses mtargs)) (declare (uses mtargs.import)) (declare (uses commonmod)) (declare (uses commonmod.import)) (declare (uses mtargs)) (declare (uses mtargs.import)) (declare (uses debugprint)) (declare (uses debugprint.import)) (declare (uses runs)) |
| ︙ | ︙ | |||
57 58 59 60 61 62 63 | (declare (uses tcp-transportmod.import)) ;; (declare (uses debugprint)) ;; (declare (uses debugprint.import)) ;; (declare (uses ftail)) ;; (import ftail) | | > | > | 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
(declare (uses tcp-transportmod.import))
;; (declare (uses debugprint))
;; (declare (uses debugprint.import))
;; (declare (uses ftail))
;; (import ftail)
(import mtargs
debugprint
dbmod
commonmod
dbfile
tcp-transportmod
)
(define *db* #f) ;; this is only for the repl, do not use in general!!!!
(include "common_records.scm")
(include "key_records.scm")
(include "db_records.scm")
(include "run_records.scm")
|
| ︙ | ︙ |
Modified rmt.scm from [8d3c2d9888] to [52cc52478a].
| ︙ | ︙ | |||
126 127 128 129 130 131 132 |
(if (not runremote)
(let* ((newremote (make-and-init-remote areapath)))
(set! *runremote* newremote)
(set! runremote newremote)))
(let* ((dbfname (conc (dbfile:run-id->dbnum rid)".db"))) ;;(dbfile:run-id->path areapath run-id)))
(tt:handler runremote cmd rid params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)))
| | | 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 |
(if (not runremote)
(let* ((newremote (make-and-init-remote areapath)))
(set! *runremote* newremote)
(set! runremote newremote)))
(let* ((dbfname (conc (dbfile:run-id->dbnum rid)".db"))) ;;(dbfile:run-id->path areapath run-id)))
(tt:handler runremote cmd rid params attemptnum area-dat areapath readonly-mode dbfname testsuite mtexe)))
(define (http-transport-handler runremote cmd rid params attemptnum area-dat areapath readonly-mode)
;; do all the prep locked under the rmt-mutex
(mutex-lock! *rmt-mutex*)
;; ensure we have a record for our connection for given area
(if (not runremote) ;; can remove this one. should never get here.
(begin
(set! *runremote* (make-and-init-remote areapath))
|
| ︙ | ︙ |