Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.6584-ck5 |
Files: | files | file ages | folders |
SHA1: |
0b376e3ac3dfecdce95328e366f8e3b3 |
User & Date: | matt on 2021-04-20 06:15:40 |
Other Links: | branch diff | manifest | tags |
Context
2021-04-20
| ||
08:56 | added checks on starting watchdog that it is a not started thread check-in: 31cd96b3b8 user: matt tags: v1.6584-ck5 | |
06:15 | wip check-in: 0b376e3ac3 user: matt tags: v1.6584-ck5 | |
2021-04-19
| ||
23:42 | Ensured that servermod is available from the repl check-in: 80cccdf80e user: matt tags: v1.6584-ck5 | |
Changes
Modified http-transportmod.scm from [7319316419] to [81c29f8e98].
︙ | |||
174 175 176 177 178 179 180 | 174 175 176 177 178 179 180 181 182 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 | - + - + - + - + - + | (set! *db-last-access* (current-seconds)) (mutex-unlock! *heartbeat-mutex*)) ((equal? (uri-path (request-uri (current-request))) '(/ "")) (send-response body: ((http-get-function 'http-transport:main-page)))) ((equal? (uri-path (request-uri (current-request))) '(/ "json_api")) |
︙ |
Modified megatest.scm from [0ef412667c] to [85475b3d3d].
︙ | |||
52 53 54 55 56 57 58 59 60 61 62 63 64 65 | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | + | (declare (uses mtargs.import)) (declare (uses commonmod.import)) (declare (uses configfmod.import)) (declare (uses bigmod.import)) (declare (uses dbmod.import)) (declare (uses rmtmod.import)) (declare (uses servermod.import)) (declare (uses http-transportmod)) ;; (include "call-with-environment-variables/call-with-environment-variables.scm") (module megatest-main * (import scheme |
︙ | |||
524 525 526 527 528 529 530 531 532 533 534 535 536 537 | 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 | + + + + + + + + | Called as " (string-intersperse (argv) " ") " Version " megatest-version ", built from " megatest-fossil-hash )) (define (main) (make-and-init-bigdata) ;; set up the functions in http transport (hash-table-set! *http-functions* 'api:process-request api:process-request) (hash-table-set! *http-functions* 'http-transport:main-page http-transport:main-page) (hash-table-set! *http-functions* 'http-transport:show-jquery http-transport:show-jquery) (hash-table-set! *http-functions* 'http-transport:html-test-log http-transport:html-test-log) (hash-table-set! *http-functions* 'http-transport:html-dboard http-transport:html-dboard) ;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file ;; (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc"))) (if (common:file-exists? debugcontrolf) (load debugcontrolf))) ;; usage logging, careful with this, it is not designed to deal with all real world challenges! |
︙ |