Changes In Branch v1.90-proper-interface-lists Through [bbac9c3682] Excluding Merge-Ins
This is equivalent to a diff from cee15a9d94 to bbac9c3682
2024-02-12
| ||
13:45 | wip check-in: e0be4c40b4 user: mrwellan tags: v1.90-proper-interface-lists | |
2024-02-11
| ||
19:49 | convert to use proper interface lists check-in: bbac9c3682 user: matt tags: v1.90-proper-interface-lists | |
18:19 | Adding uses of .import files back Leaf check-in: cee15a9d94 user: matt tags: v1.90-fix-modes | |
16:41 | Moved remainder of configf into configfmod check-in: c2d750aad9 user: matt tags: v1.90-fix-modes | |
Modified apimod.scm from [c5b4d2905e] to [1230728213].
︙ | ︙ | |||
23 24 25 26 27 28 29 | (declare (uses debugprint)) (declare (uses dbmod)) (declare (uses dbfile)) (declare (uses tcp-transportmod)) (declare (uses megatestmod)) (module apimod | < > | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | (declare (uses debugprint)) (declare (uses dbmod)) (declare (uses dbfile)) (declare (uses tcp-transportmod)) (declare (uses megatestmod)) (module apimod () (import scheme chicken data-structures extras) (import (prefix sqlite3 sqlite3:) posix matchable typed-records srfi-1 srfi-18 srfi-69 ) (import commonmod) (import debugprint) (import dbmod) (import dbfile) |
︙ | ︙ |
Modified archivemod.scm from [ddced4be70] to [84501e50bf].
︙ | ︙ | |||
35 36 37 38 39 40 41 | (declare (uses mtmod)) (declare (uses dbmod)) (declare (uses dbfile)) (use srfi-69) (module archivemod | < > | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | (declare (uses mtmod)) (declare (uses dbmod)) (declare (uses dbfile)) (use srfi-69) (module archivemod () (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ | |||
119 120 121 122 123 124 125 | srfi-13 srfi-18 srfi-69 typed-records z3 ) | | | 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | srfi-13 srfi-18 srfi-69 typed-records z3 ) ;; (include "common_records.scm") ;; (include "db_records.scm") ;;====================================================================== ;; ;;====================================================================== ;; ;; NOT CURRENTLY USED |
︙ | ︙ |
Modified common.scm from [58be7ce4cf] to [ba3517865c].
︙ | ︙ | |||
41 42 43 44 45 46 47 | (import commonmod processmod debugprint configfmod rmtmod (prefix mtargs args:)) | | | 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 | (import commonmod processmod debugprint configfmod rmtmod (prefix mtargs args:)) ;; (include "common_records.scm") ;;====================================================================== ;; (define *common:telemetry-log-state* 'startup) |
︙ | ︙ |
Modified commonmod.scm from [5100c657f0] to [4d77696a14].
︙ | ︙ | |||
48 49 50 51 52 53 54 | typed-records z3) (import stml2 ) (module commonmod | > > > > > > > | > > > > > | > > > > > > > > > > > > > > | 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 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | typed-records z3) (import stml2 ) (module commonmod ( common:get-toppath common:generic-ssh common:file-exists? common:with-env-vars common:nice-path common:get-fields ;; globals *configdat* *db-access-allowed* *db-cache-path* *toppath* keys:target-set-args getenv setenv safe-setenv get-area-path-signature common:simple-file-lock common:low-noise-print common:get-create-writeable-dir common:real-path val->alist ) (import scheme) (cond-expand (chicken-4 (import chicken ports (prefix base64 base64:) |
︙ | ︙ | |||
383 384 385 386 387 388 389 390 391 392 393 394 395 396 | (define *fdb* #f) (define *last-launch* (current-seconds)) ;; use for throttling the launch rate. Would be better to use the db and last time of a test in LAUNCHED state. ;; environment vars handy stuff from common.scm ;; (define getenv get-environment-variable) (define (safe-setenv key val) (if (or (substring-index "!" key) (substring-index ":" key) ;; variables containing : are for internal use and cannot be environment variables. (substring-index "." key)) ;; periods are not allowed in environment variables (debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"") (if (and (string? val) (string? key)) | > | 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 | (define *fdb* #f) (define *last-launch* (current-seconds)) ;; use for throttling the launch rate. Would be better to use the db and last time of a test in LAUNCHED state. ;; environment vars handy stuff from common.scm ;; (define getenv get-environment-variable) (define (safe-setenv key val) (if (or (substring-index "!" key) (substring-index ":" key) ;; variables containing : are for internal use and cannot be environment variables. (substring-index "." key)) ;; periods are not allowed in environment variables (debug:print-error 4 *default-log-port* "skip setting internal use only variables containing \":\" or starting with \"!\"") (if (and (string? val) (string? key)) |
︙ | ︙ | |||
561 562 563 564 565 566 567 | ;; convert string a=1; b=2; c=a silly thing; d= (let ((valstr (lookup cfgdat section var))) (if valstr (val->alist valstr) '()))) ;; should it return empty list or #f to indicate not set? | < < < | 588 589 590 591 592 593 594 595 596 597 598 599 600 601 | ;; convert string a=1; b=2; c=a silly thing; d= (let ((valstr (lookup cfgdat section var))) (if valstr (val->alist valstr) '()))) ;; should it return empty list or #f to indicate not set? (define (common:make-tmpdir-name areapath tmpadj) (let* ((area (pathname-file areapath)) (dname (conc "/tmp/"(current-user-name)"/megatest_localdb/" area "/" (string-translate areapath "/" ".") tmpadj "/.mtdb"))) (unless (directory-exists? dname) (create-directory dname #t)) dname)) |
︙ | ︙ |
Modified configfmod.scm from [8c4c9bcd5b] to [2804d0750e].
︙ | ︙ | |||
23 24 25 26 27 28 29 | (declare (uses commonmod)) (declare (uses processmod)) (declare (uses mtargs)) (use regex regex-case) (module configfmod | < > > > > > > | 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | (declare (uses commonmod)) (declare (uses processmod)) (declare (uses mtargs)) (use regex regex-case) (module configfmod ( lookup configf:lookup get-section configf:get-section ) (import scheme chicken extras files matchable ports |
︙ | ︙ | |||
201 202 203 204 205 206 207 208 209 210 211 212 213 214 | #f (let ((match (assoc var sectdat))) (if match ;; (and match (list? match)(> (length match) 1)) (cadr match) #f)) )) #f)) ;; use to have definitive setting: ;; [foo] ;; var yes ;; ;; (configf:var-is? cfgdat "foo" "var" "yes") => #t ;; | > > | 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 | #f (let ((match (assoc var sectdat))) (if match ;; (and match (list? match)(> (length match) 1)) (cadr match) #f)) )) #f)) (define lookup configf:lookup) ;; use to have definitive setting: ;; [foo] ;; var yes ;; ;; (configf:var-is? cfgdat "foo" "var" "yes") => #t ;; |
︙ | ︙ | |||
232 233 234 235 236 237 238 239 240 241 242 243 244 245 | (let ((sectdat (hash-table-ref/default cfgdat section '()))) (if (null? sectdat) '() (map car sectdat)))) (define (configf:get-section cfgdat section) (hash-table-ref/default cfgdat section '())) (define (configf:set-section-var cfgdat section var val) (let ((sectdat (configf:get-section cfgdat section))) (hash-table-set! cfgdat section (configf:assoc-safe-add sectdat var val)))) ;;====================================================================== | > > | 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 | (let ((sectdat (hash-table-ref/default cfgdat section '()))) (if (null? sectdat) '() (map car sectdat)))) (define (configf:get-section cfgdat section) (hash-table-ref/default cfgdat section '())) (define get-section configf:get-section) (define (configf:set-section-var cfgdat section var val) (let ((sectdat (configf:get-section cfgdat section))) (hash-table-set! cfgdat section (configf:assoc-safe-add sectdat var val)))) ;;====================================================================== |
︙ | ︙ |
Modified cpumod.scm from [33a302895b] to [338168220c].
︙ | ︙ | |||
27 28 29 30 31 32 33 | (declare (unit cpumod)) (declare (uses debugprint)) (declare (uses mtargs)) (use srfi-69) (module cpumod | > | | 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 | (declare (unit cpumod)) (declare (uses debugprint)) (declare (uses mtargs)) (use srfi-69) (module cpumod () (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ |
Modified dashboard-context-menu.scm from [a9287541e5] to [c308418947].
︙ | ︙ | |||
42 43 44 45 46 47 48 | (import (prefix iup iup:)) (use canvas-draw) (use srfi-1 posix regex regex-case srfi-69) (use (prefix sqlite3 sqlite3:)) | | | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | (import (prefix iup iup:)) (use canvas-draw) (use srfi-1 posix regex regex-case srfi-69) (use (prefix sqlite3 sqlite3:)) ;; (include "common_records.scm") ;; (include "db_records.scm") (include "run_records.scm") (import commonmod configfmod rmtmod testsmod |
︙ | ︙ |
Modified dashboard-guimonitor.scm from [14af79287f] to [d7f5af88af].
︙ | ︙ | |||
33 34 35 36 37 38 39 | (declare (unit dashboard-guimonitor)) (declare (uses common)) (declare (uses keys)) (declare (uses commonmod)) (import commonmod) | | | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | (declare (unit dashboard-guimonitor)) (declare (uses common)) (declare (uses keys)) (declare (uses commonmod)) (import commonmod) ;; (include "common_records.scm") ;; (include "db_records.scm") (include "run_records.scm") (include "task_records.scm") (define (control-panel db tdb keys) (let* ((var-params (make-hash-table)) ;; register all the widgets here for querying on run, rollup, remove? (key-params (make-hash-table)) |
︙ | ︙ |
Modified dashboard-tests.scm from [9f47337a67] to [5c975d5a1c].
︙ | ︙ | |||
59 60 61 62 63 64 65 | dbfile tasksmod testsmod runsmod subrunmod ) | | | 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 | dbfile tasksmod testsmod runsmod subrunmod ) ;; (include "common_records.scm") ;; (include "db_records.scm") (include "run_records.scm") ;;====================================================================== ;; C O M M O N ;;====================================================================== |
︙ | ︙ |
Modified dashboard.scm from [0974058261] to [e6df99a16d].
︙ | ︙ | |||
105 106 107 108 109 110 111 | stml2 megatestmod tasksmod runsmod testsmod ) | | | 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | stml2 megatestmod tasksmod runsmod testsmod ) ;; (include "common_records.scm") ;; (include "db_records.scm") (include "run_records.scm") (include "task_records.scm") (include "megatest-version.scm") (include "megatest-fossil-hash.scm") (include "vg_records.scm") |
︙ | ︙ |
Modified dbmod.scm from [6fddda802c] to [fbe6ad1d2c].
︙ | ︙ | |||
24 25 26 27 28 29 30 | (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses debugprint)) (declare (uses mtargs)) (declare (uses mtmod)) (module dbmod | < > | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses debugprint)) (declare (uses mtargs)) (declare (uses mtmod)) (module dbmod () (import scheme) (cond-expand (chicken-4 (import chicken data-structures |
︙ | ︙ | |||
77 78 79 80 81 82 83 | commonmod configfmod dbfile debugprint mtmod ) | | | 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | commonmod configfmod dbfile debugprint mtmod ) ;; (include "common_records.scm") ;; (include "db_records.scm") ;; (include "key_records.scm") (include "run_records.scm") (define *number-of-writes* 0) (define *number-non-write-queries* 0) |
︙ | ︙ |
Modified dcommon.scm from [d0a5600c78] to [bda06bf5b7].
︙ | ︙ | |||
38 39 40 41 42 43 44 | configfmod rmtmod testsmod dbmod debugprint) (include "megatest-version.scm") | | | 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | configfmod rmtmod testsmod dbmod debugprint) (include "megatest-version.scm") ;; (include "common_records.scm") ;; (include "db_records.scm") ;; (include "key_records.scm") (include "run_records.scm") ;; yes, this is non-ideal (define dashboard:update-summary-tab #f) (define dashboard:update-servers-table #f) |
︙ | ︙ |
Modified diff-report.scm from [939aa5e4ab] to [2fd0ddce36].
︙ | ︙ | |||
21 22 23 24 25 26 27 | (declare (uses debugprint)) (declare (uses rmtmod)) (declare (uses commonmod)) (import commonmod rmtmod debugprint) | | | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | (declare (uses debugprint)) (declare (uses rmtmod)) (declare (uses commonmod)) (import commonmod rmtmod debugprint) ;; (include "common_records.scm") (use matchable) (use fmt) (use ducttape-lib) (define css "") (define (diff:tests-mindat->hash tests-mindat) (let* ((res (make-hash-table))) |
︙ | ︙ |
Modified ezstepsmod.scm from [0f672c5b01] to [ff6068567c].
︙ | ︙ | |||
43 44 45 46 47 48 49 | (declare (uses testsmod)) (declare (uses runsmod)) (declare (uses fsmod)) (use srfi-69) (module ezstepsmod | < > | 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | (declare (uses testsmod)) (declare (uses runsmod)) (declare (uses fsmod)) (use srfi-69) (module ezstepsmod () (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ | |||
124 125 126 127 128 129 130 | tasksmod subrunmod testsmod runsmod fsmod ) | | | 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 | tasksmod subrunmod testsmod runsmod fsmod ) ;; (include "common_records.scm") ;; (include "key_records.scm") ;; (include "db_records.scm") (include "run_records.scm") ;;(rmt:get-test-info-by-id run-id test-id) -> testdat |
︙ | ︙ |
Modified fsmod.scm from [57a2c983b3] to [4a6fab4260].
︙ | ︙ | |||
31 32 33 34 35 36 37 | (declare (uses configfmod)) (declare (uses commonmod)) (declare (uses processmod)) (use srfi-69) (module fsmod | < > > | 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | (declare (uses configfmod)) (declare (uses commonmod)) (declare (uses processmod)) (use srfi-69) (module fsmod ( ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ |
Modified launch.scm from [60c51037a0] to [08710a0aca].
︙ | ︙ | |||
44 45 46 47 48 49 50 | typed-records pathname-expand matchable) (import (prefix base64 base64:) (prefix sqlite3 sqlite3:) (prefix mtargs args:) ) | | | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | 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 |
︙ | ︙ |
Modified launchmod.scm from [46f91d6b1b] to [8537366471].
︙ | ︙ | |||
42 43 44 45 46 47 48 | (declare (uses testsmod)) (declare (uses runsmod)) (declare (uses fsmod)) (use srfi-69) (module launchmod | < > > | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | (declare (uses testsmod)) (declare (uses runsmod)) (declare (uses fsmod)) (use srfi-69) (module launchmod ( ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ | |||
124 125 126 127 128 129 130 | tasksmod subrunmod testsmod runsmod fsmod ) | | | 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 | tasksmod subrunmod testsmod runsmod fsmod ) ;; (include "common_records.scm") ;; (include "key_records.scm") ;; (include "db_records.scm") (include "megatest-fossil-hash.scm") ;;====================================================================== ;; ezsteps ;;====================================================================== |
︙ | ︙ |
Modified megatest.scm from [faeb3396e2] to [ed279adec4].
︙ | ︙ | |||
119 120 121 122 123 124 125 | rmtmod launchmod fsmod ) (define *db* #f) ;; this is only for the repl, do not use in general!!!! | | | 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 | rmtmod launchmod fsmod ) (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") (include "megatest-fossil-hash.scm") (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)) (use readline apropos json http-client directory-utils typed-records) |
︙ | ︙ |
Modified megatestmod.scm from [a70a654362] to [6b2a3fefa4].
︙ | ︙ | |||
36 37 38 39 40 41 42 | (declare (uses pkts)) (declare (uses servermod)) (declare (uses fsmod)) (use srfi-69) (module megatestmod | < > > | 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | (declare (uses pkts)) (declare (uses servermod)) (declare (uses fsmod)) (use srfi-69) (module megatestmod ( ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ |
Modified monitor.scm from [11b5fa345e] to [d504b4ec3b].
︙ | ︙ | |||
23 24 25 26 27 28 29 | (declare (unit runs)) (declare (uses common)) (declare (uses runconfig)) (declare (uses commonmod)) (import commonmod) | | | 23 24 25 26 27 28 29 30 31 32 33 34 | (declare (unit runs)) (declare (uses common)) (declare (uses runconfig)) (declare (uses commonmod)) (import commonmod) ;; (include "common_records.scm") ;; (include "key_records.scm") ;; (include "db_records.scm") (include "run_records.scm") |
Modified mt.scm from [f24a9e55ce] to [a034bfff85].
︙ | ︙ | |||
39 40 41 42 43 44 45 | configfmod rmtmod megatestmod) ;; make mt: calls in megatestmod work ;; (read-config-set! read-config) | | | 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | configfmod rmtmod megatestmod) ;; make mt: calls in megatestmod work ;; (read-config-set! read-config) ;; (include "common_records.scm") ;; (include "key_records.scm") ;; (include "db_records.scm") (include "run_records.scm") ;; (include "test_records.scm") ;; This is the Megatest API. All generally "useful" routines will be wrapped or extended ;; here. |
︙ | ︙ |
Modified mtmod.scm from [b742c926fe] to [6035871247].
︙ | ︙ | |||
30 31 32 33 34 35 36 | (declare (uses commonmod)) (declare (uses configfmod)) ;; (declare (uses tcp-transportmod)) ;; we don't want mtmod depending on tcp (use srfi-69) (module mtmod | < > > | 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | (declare (uses commonmod)) (declare (uses configfmod)) ;; (declare (uses tcp-transportmod)) ;; we don't want mtmod depending on tcp (use srfi-69) (module mtmod ( ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ |
Modified odsmod.scm from [9072959ec4] to [65e4e62b3c].
︙ | ︙ | |||
21 22 23 24 25 26 27 | (declare (uses common)) (declare (uses commonmod)) (declare (uses debugprint)) (declare (uses dbfile)) (declare (uses dbmod)) (module odsmod | < > > | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | (declare (uses common)) (declare (uses commonmod)) (declare (uses debugprint)) (declare (uses dbfile)) (declare (uses dbmod)) (module odsmod ( ) (import scheme chicken data-structures extras posix ports |
︙ | ︙ |
Modified processmod.scm from [1cce7c0878] to [75e84b2970].
︙ | ︙ | |||
21 22 23 24 25 26 27 | (declare (unit processmod)) (declare (uses debugprint)) (declare (uses commonmod)) (use srfi-69) (module processmod | > > | > | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | (declare (unit processmod)) (declare (uses debugprint)) (declare (uses commonmod)) (use srfi-69) (module processmod ( process:cmd-run->list ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ |
Modified rmtmod.scm from [f16c2416fe] to [3e961c57f1].
︙ | ︙ | |||
26 27 28 29 30 31 32 | (declare (uses dbmod)) (declare (uses mtmod)) (declare (uses tcp-transportmod)) (declare (uses apimod)) (declare (uses servermod)) (module rmtmod | > > | > | 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | (declare (uses dbmod)) (declare (uses mtmod)) (declare (uses tcp-transportmod)) (declare (uses apimod)) (declare (uses servermod)) (module rmtmod ( rmtmod:send-receive ) (import scheme chicken data-structures regex extras matchable |
︙ | ︙ |
Modified runconfig.scm from [5664220be3] to [4f3ecb1f38].
︙ | ︙ | |||
26 27 28 29 30 31 32 | (declare (uses common)) (declare (uses debugprint)) (declare (uses commonmod)) (import commonmod debugprint) | | | 26 27 28 29 30 31 32 33 34 | (declare (uses common)) (declare (uses debugprint)) (declare (uses commonmod)) (import commonmod debugprint) ;; (include "common_records.scm") |
Modified runs.scm from [647460790c] to [5b967ec7eb].
︙ | ︙ | |||
40 41 42 43 44 45 46 | (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) posix-extras directory-utils pathname-expand typed-records format sxml-serializer sxml-modifications matchable) | | | 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (srfi 18) posix-extras directory-utils pathname-expand typed-records format sxml-serializer sxml-modifications matchable) ;; (include "common_records.scm") ;; (include "key_records.scm") ;; (include "db_records.scm") (include "run_records.scm") ;; (include "test_records.scm") ;; (include "debugger.scm") |
︙ | ︙ |
Modified runsmod.scm from [251bedfaeb] to [135fde13aa].
︙ | ︙ | |||
42 43 44 45 46 47 48 | (declare (uses subrunmod)) (declare (uses archivemod)) (declare (uses fsmod)) (use srfi-69) (module runsmod | < > > | 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | (declare (uses subrunmod)) (declare (uses archivemod)) (declare (uses fsmod)) (use srfi-69) (module runsmod ( ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ | |||
125 126 127 128 129 130 131 | tasksmod testsmod subrunmod archivemod fsmod ) | | | 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 | tasksmod testsmod subrunmod archivemod fsmod ) ;; (include "common_records.scm") ;; (include "key_records.scm") ;; (include "db_records.scm") (include "run_records.scm") ;; (include "test_records.scm") ;; use this struct to facilitate refactoring ;; |
︙ | ︙ |
Modified server.scm from [3cd1085ec7] to [6c3c9bb98f].
︙ | ︙ | |||
32 33 34 35 36 37 38 | (use spiffy uri-common intarweb http-client spiffy-request-vars) (import commonmod configfmod debugprint (prefix mtargs args:)) | | | 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | (use spiffy uri-common intarweb http-client spiffy-request-vars) (import commonmod configfmod debugprint (prefix mtargs args:)) ;; (include "common_records.scm") ;; (include "db_records.scm") (define (db:kill-servers) (let* ((tl (launch:setup)) ;; need this to initialize *toppath* (servdir (conc *toppath* "/.servinfo")) (servfiles (glob (conc servdir "/*:*.db"))) (fmtstr "~10a~22a~10a~25a~25a~8a\n") |
︙ | ︙ |
Modified servermod.scm from [5384b281b4] to [645e9767b0].
︙ | ︙ | |||
21 22 23 24 25 26 27 | (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses mtmod)) (declare (uses debugprint)) (declare (uses mtargs)) (module servermod | < > > | 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 | (declare (uses commonmod)) (declare (uses configfmod)) (declare (uses mtmod)) (declare (uses debugprint)) (declare (uses mtargs)) (module servermod ( ) (import scheme chicken) (use (srfi 18) extras s11n) (use srfi-1 posix regex regex-case srfi-69 hostinfo md5 message-digest) (use directory-utils posix-extras matchable utils) |
︙ | ︙ | |||
44 45 46 47 48 49 50 | commonmod configfmod debugprint (prefix mtargs args:) mtmod ) | | | 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | commonmod configfmod debugprint (prefix mtargs args:) mtmod ) ;; (include "common_records.scm") ;; (include "db_records.scm") (define (server:make-server-url hostport) (if (not hostport) #f (conc "http://" (car hostport) ":" (cadr hostport)))) |
︙ | ︙ |
Modified subrunmod.scm from [ddf54f1377] to [f9fbf4371e].
︙ | ︙ | |||
38 39 40 41 42 43 44 | (declare (uses mtmod)) (declare (uses megatestmod)) (declare (uses tasksmod)) (use srfi-69) (module subrunmod | < > > | 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | (declare (uses mtmod)) (declare (uses megatestmod)) (declare (uses tasksmod)) (use srfi-69) (module subrunmod ( ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ |
Modified tasksmod.scm from [381a26e6c2] to [434f7131ba].
︙ | ︙ | |||
37 38 39 40 41 42 43 | (declare (uses pgdb)) (declare (uses mtmod)) (declare (uses megatestmod)) (use srfi-69) (module tasksmod | < > > | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | (declare (uses pgdb)) (declare (uses mtmod)) (declare (uses megatestmod)) (use srfi-69) (module tasksmod ( ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ |
Modified tcp-transportmod.scm from [1a862ecee9] to [d7197f9de1].
︙ | ︙ | |||
25 26 27 28 29 30 31 | (declare (uses dbmod)) (declare (uses portlogger)) (declare (uses mtmod)) (use address-info tcp) (module tcp-transportmod | < > > | 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | (declare (uses dbmod)) (declare (uses portlogger)) (declare (uses mtmod)) (use address-info tcp) (module tcp-transportmod ( ) (import scheme) (cond-expand (chicken-4 (import (prefix sqlite3 sqlite3:) chicken |
︙ | ︙ |
Modified tdb.scm from [e7e7aee13a] to [536924ea4c].
︙ | ︙ | |||
37 38 39 40 41 42 43 | (import (prefix base64 base64:)) (import commonmod debugprint rmtmod (prefix mtargs args:)) | | | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 | (import (prefix base64 base64:)) (import commonmod debugprint rmtmod (prefix mtargs args:)) ;; (include "common_records.scm") ;; (include "db_records.scm") ;; (include "key_records.scm") (include "run_records.scm") ;;====================================================================== ;; ;; T E S T D A T A B A S E S |
︙ | ︙ |
Modified testsmod.scm from [342c5ad45d] to [15ae1fecd5].
︙ | ︙ | |||
37 38 39 40 41 42 43 | (declare (uses mtmod)) (declare (uses servermod)) (declare (uses fsmod)) (use srfi-69) (module testsmod | < > > > | 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | (declare (uses mtmod)) (declare (uses servermod)) (declare (uses fsmod)) (use srfi-69) (module testsmod ( tests:summarize-items ) (import scheme) (cond-expand (chicken-4 (import chicken ports |
︙ | ︙ | |||
123 124 125 126 127 128 129 | rmtmod stml2 mtmod servermod fsmod ) | | | 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 | rmtmod stml2 mtmod servermod fsmod ) ;; (include "common_records.scm") ;; (include "key_records.scm") ;; (include "db_records.scm") (include "run_records.scm") ;; (include "test_records.scm") (include "js-path.scm") (define (init-java-script-lib) |
︙ | ︙ |
Modified tree.scm from [5b26f8b9f9] to [c97437439f].
︙ | ︙ | |||
34 35 36 37 38 39 40 | (use sqlite3 srfi-1 posix regex regex-case srfi-69) (import (prefix sqlite3 sqlite3:)) (import (prefix mtargs args:) debugprint) (include "megatest-version.scm") | | | 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 | (use sqlite3 srfi-1 posix regex regex-case srfi-69) (import (prefix sqlite3 sqlite3:)) (import (prefix mtargs args:) debugprint) (include "megatest-version.scm") ;; (include "common_records.scm") ;; (include "db_records.scm") ;; (include "key_records.scm") ;;====================================================================== ;; T R E E S T U F F ;;====================================================================== |
︙ | ︙ |
Added utils/extract-export-list.sh version [d50045d1ff].
> > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 | #!/bin/bash LAST_PARENT=foobar for fn in $(grep 'Warning: refer' typescript |tr '`' ' '|tr "'" " "|awk '{print $7}');do PARENT=$(grep $fn *mod.scm|grep define|cut -d: -f1) if [[ $PARENT != $LAST_PARENT ]];then echo echo $PARENT LAST_PARENT=$PARENT fi echo $fn done |