Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.80-revolution-remodularization |
Files: | files | file ages | folders |
SHA1: |
6771ae5be3a582a61409ae71b66c1bfd |
User & Date: | matt on 2024-02-03 21:48:18 |
Other Links: | branch diff | manifest | tags |
Context
2024-02-04
| ||
09:00 | Bug hidden in db_records ... check-in: cd9be98ea8 user: matt tags: v1.80-revolution-remodularization | |
2024-02-03
| ||
21:48 | wip check-in: 6771ae5be3 user: matt tags: v1.80-revolution-remodularization | |
20:40 | Dashboard and test control panel work check-in: c4f43bb65c user: matt tags: v1.80-revolution-remodularization | |
Changes
Modified launch.scm from [89f90416db] to [7ceaa30a8a].
︙ | ︙ | |||
30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | (declare (uses configfmod)) (declare (uses configf)) (declare (uses db)) (declare (uses rmtmod)) (declare (uses ezsteps)) ;; (declare (uses dbmod)) (declare (uses dbfile)) (declare (uses mtargs)) (declare (uses mtmod)) (declare (uses megatestmod)) (use regex regex-case base64 sqlite3 srfi-18 directory-utils posix posix-extras z3 call-with-environment-variables csv hostinfo typed-records pathname-expand matchable) (import (prefix base64 base64:) (prefix sqlite3 sqlite3:) (prefix mtargs args:) ) (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "megatest-fossil-hash.scm") (import commonmod processmod configfmod rmtmod debugprint | > > | > | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | (declare (uses configfmod)) (declare (uses configf)) (declare (uses db)) (declare (uses rmtmod)) (declare (uses ezsteps)) ;; (declare (uses dbmod)) (declare (uses dbfile)) (declare (uses dbmod)) (declare (uses mtargs)) (declare (uses mtmod)) (declare (uses megatestmod)) (declare (uses tasksmod)) (use regex regex-case base64 sqlite3 srfi-18 directory-utils posix posix-extras z3 call-with-environment-variables csv hostinfo typed-records pathname-expand matchable) (import (prefix base64 base64:) (prefix sqlite3 sqlite3:) (prefix mtargs args:) ) (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "megatest-fossil-hash.scm") (import commonmod processmod configfmod rmtmod debugprint dbmod dbfile mtmod megatestmod tasksmod ) ;;====================================================================== ;; ezsteps ;;====================================================================== ;; ezsteps were going to be coded as |
︙ | ︙ |
Modified rmtmod.scm from [21ad49452d] to [43bee36f88].
︙ | ︙ | |||
940 941 942 943 944 945 946 | ro-mode)))))) ;;====================================================================== ;; S U P P O R T F U N C T I O N S ;;====================================================================== | | > > | | | | | | > | 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 | ro-mode)))))) ;;====================================================================== ;; S U P P O R T F U N C T I O N S ;;====================================================================== (define (rmt:on-homehost? #!optional (runremote-in #f)) (let* ((runremote (or runremote-in *runremote*))) (if runremote (let* ((hh-dat (remote-hh-dat runremote))) (if (pair? hh-dat) (cdr hh-dat) (begin (debug:print-info 0 *default-log-port* "hh-dat="hh-dat) #f))) #f))) ;; not true strickly speaking, might be runremote was not yet initialized. (define (make-and-init-remote areapath) (case (rmt:transport-mode) ((http)(make-remote)) ((tcp) (tt:make-remote areapath)) (else #f))) |
︙ | ︙ |
Modified runs.scm from [f4571037f1] to [1eb8ab2373].
︙ | ︙ | |||
21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | (declare (uses debugprint)) (declare (uses commonmod)) (declare (uses processmod)) (declare (uses configfmod)) (declare (uses mtargs)) (declare (uses rmtmod)) (declare (uses dbfile)) (declare (uses megatestmod)) (declare (uses db)) (declare (uses common)) (declare (uses items)) (declare (uses runconfig)) (declare (uses tests)) (declare (uses server)) | > > > > | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | (declare (uses debugprint)) (declare (uses commonmod)) (declare (uses processmod)) (declare (uses configfmod)) (declare (uses mtargs)) (declare (uses rmtmod)) (declare (uses dbfile)) (declare (uses dbmod)) (declare (uses megatestmod)) (declare (uses mtmod)) (declare (uses tasksmod)) (declare (uses servermod)) (declare (uses db)) (declare (uses common)) (declare (uses items)) (declare (uses runconfig)) (declare (uses tests)) (declare (uses server)) |
︙ | ︙ | |||
52 53 54 55 56 57 58 59 | (import commonmod processmod configfmod debugprint rmtmod dbfile megatestmod | > | > > > > | 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 | (import commonmod processmod configfmod debugprint rmtmod dbfile dbmod megatestmod (prefix mtargs args:) mtmod tasksmod servermod ) ;; use this struct to facilitate refactoring ;; (defstruct runs:dat reglen regfull runname max-concurrent-jobs run-id |
︙ | ︙ |
Modified utils/plot-uses.scm from [39edbe170d] to [fc6b8a9e1d].
︙ | ︙ | |||
79 80 81 82 83 84 85 | (for-each (lambda (fname) (print "// Filename: "fname) (process-file ignores fname)) files) (print "}"))) (else | | | 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | (for-each (lambda (fname) (print "// Filename: "fname) (process-file ignores fname)) files) (print "}"))) (else (print-err "Usage: plot-uses todot u1,u2... file1.scm ...") (print-err " where u1,u2... are units to ignore and file1.scm... are the files to process.")))) (main) ) ;; ;; ;; Gather the usages |
︙ | ︙ |