Overview
| Comment: | Fixes for mtutil |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
9b2ae064385b295c6c36a5c22b48ff78 |
| User & Date: | matt on 2023-05-31 05:08:58 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-31
| ||
| 05:20 | Bump the debug print level to 4 for skipping sync message check-in: 5651f9dd0e user: matt tags: v1.80 | |
| 05:08 | Fixes for mtutil check-in: 9b2ae06438 user: matt tags: v1.80 | |
|
2023-05-30
| ||
| 16:53 | silenced a message, changed version to 1.8014 check-in: 67c2bb32ec user: mmgraham tags: v1.80 | |
Changes
Modified mtut.scm from [4eca70de9f] to [f72fba1c90].
| ︙ | ︙ | |||
15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ; (declare (uses common)) (declare (uses mtargs)) (declare (uses debugprint)) (declare (uses configf)) ;; (declare (uses rmt)) (declare (uses commonmod)) (declare (uses commonmod.import)) (import debugprint) ; (include "common.scm") | > | 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | ;; You should have received a copy of the GNU General Public License ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; ; (declare (uses common)) (declare (uses mtargs)) (declare (uses debugprint)) (declare (uses debugprint.import)) (declare (uses configf)) ;; (declare (uses rmt)) (declare (uses commonmod)) (declare (uses commonmod.import)) (import debugprint) ; (include "common.scm") |
| ︙ | ︙ | |||
487 488 489 490 491 492 493 |
(args:get-arg "-envcap")
(args:get-arg "-envdelta")
(member *action* '("db" "tsend" "tlisten")) ;; very loose checks on db and tsend/listen
(equal? *action* "show") ;; just keep going if list
)))
(debug:print-error 0 *default-log-port* "Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv)) " ")))
| | | 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 |
(args:get-arg "-envcap")
(args:get-arg "-envdelta")
(member *action* '("db" "tsend" "tlisten")) ;; very loose checks on db and tsend/listen
(equal? *action* "show") ;; just keep going if list
)))
(debug:print-error 0 *default-log-port* "Unrecognised arguments: " (string-intersperse (if (list? remargs) remargs (argv)) " ")))
(if (or (args:any-defined? "-h" "help" "-help" "--help")
(member *action* '("-h" "-help" "--help" "help")))
(begin
(print help)
(exit 1)))
;;======================================================================
;; Nanomsg transport
|
| ︙ | ︙ |