Overview
| Comment: | added (mytarget targ) parameter setting when we have a target argument |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v2.0001 |
| Files: | files | file ages | folders |
| SHA1: |
14210eec84d7f0dd6e84ffeecb40076f |
| User & Date: | mmgraham on 2022-02-01 15:28:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-02-02
| ||
| 16:08 | changed to send unquoted cmd to runconfigs-get. When quoted, configf:lookup could not find the entry check-in: 2896749a24 user: mmgraham tags: v2.0001 | |
|
2022-02-01
| ||
| 15:28 | added (mytarget targ) parameter setting when we have a target argument check-in: 14210eec84 user: mmgraham tags: v2.0001 | |
|
2022-01-30
| ||
| 20:12 | Added rmt:get-servers-info, removed remote logging, misc other tweaks. check-in: 52c2bf27f4 user: matt tags: v2.0001 | |
Changes
Modified megatest.scm from [09a47e551f] to [4231ff6ee0].
| ︙ | ︙ | |||
764 765 766 767 768 769 770 |
(begin
(debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
(exit 1))))
;; immediately set MT_TARGET if -reqtarg or -target are available
;;
(let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
| > > | > > > > | 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 |
(begin
(debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
(exit 1))))
;; immediately set MT_TARGET if -reqtarg or -target are available
;;
(let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
(if targ
(begin
(set-environment-variable! "MT_TARGET" targ)
(mytarget targ)
)
)
)
;; The watchdog is to keep an eye on things like db sync etc.
;;
;; (init-watchdog)
;; (define (debug:debug-mode n)
;; (cond
|
| ︙ | ︙ |