Overview
| Comment: | Missing param |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 | v1.64-defunct |
| Files: | files | file ages | folders |
| SHA1: |
11f9127253972273a9b03c164d494184 |
| User & Date: | mrwellan on 2017-02-21 21:31:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-21
| ||
| 22:55 | Added more flexibiltiy to sense syntax, still super simple but just enough to allow multiple var/vals per line Closed-Leaf check-in: 9fc62f8d17 user: matt tags: v1.64, v1.64-defunct | |
| 21:31 | Missing param check-in: 11f9127253 user: mrwellan tags: v1.64, v1.64-defunct | |
|
2017-02-20
| ||
| 23:59 | Typo check-in: 8a616355a0 user: matt tags: v1.64, v1.64-defunct | |
Changes
Modified mtut.scm from [50e439c840] to [836619b7ba].
| ︙ | ︙ | |||
78 79 80 81 82 83 84 |
overwritten by values set in config files.
-log logfile : send stdout and stderr to logfile
-repl : start a repl (useful for extending megatest)
-load file.scm : load and run file.scm
-debug N|N,M,O... : enable debug messages 0-N or N and M and O ...
Utility
| | | 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 |
overwritten by values set in config files.
-log logfile : send stdout and stderr to logfile
-repl : start a repl (useful for extending megatest)
-load file.scm : load and run file.scm
-debug N|N,M,O... : enable debug messages 0-N or N and M and O ...
Utility
db pgschema : emit postgresql schema; do \"mtutil db pgschema | psql -d mydb\"
Examples:
# Start a megatest run in the area \"mytests\"
mtutil -area mytests -action run -target v1.63/aa3e -mode-patt MYPATT -tag-expr quick
# Start a contour
|
| ︙ | ︙ | |||
510 511 512 513 514 515 516 | (adjargs (hash-table-copy args:arg-hash))) ;; (for-each ;; (lambda (key) ;; (if (not (member key *legal-params*)) ;; (hash-table-delete! adjargs key))) ;; we need to delete any params intended for mtutil ;; (hash-table-keys adjargs)) (let-values (((uuid pkt) | | | 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 |
(adjargs (hash-table-copy args:arg-hash)))
;; (for-each
;; (lambda (key)
;; (if (not (member key *legal-params*))
;; (hash-table-delete! adjargs key))) ;; we need to delete any params intended for mtutil
;; (hash-table-keys adjargs))
(let-values (((uuid pkt)
(command-line->pkt *action* adjargs #f)))
(write-pkt pktsdir uuid pkt))))
((dispatch import rungen process)
(let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
(mtconf (car mtconfdat))
(toppath (configf:lookup mtconf "dyndat" "toppath")))
(case (string->symbol *action*)
((process) (begin
|
| ︙ | ︙ |