Overview
| Comment: | Added better feedback when #{get ...} is misused. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
99e278145e3f48aa41d9eec257ed0e96 |
| User & Date: | matt on 2020-02-23 20:50:58 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-02-24
| ||
| 20:48 | Replace install of loadrunner (useless) with mtrunner (useful). check-in: 4021551b19 user: matt tags: v1.65 | |
|
2020-02-23
| ||
| 20:50 | Added better feedback when #{get ...} is misused. check-in: 99e278145e user: matt tags: v1.65 | |
| 12:44 | Fixed few setup issues when user does not use wizard to create the Megatest area (disks table not added, link tree not specified) check-in: a0e6c2fdcb user: matt tags: v1.65 | |
Changes
Modified configf.scm from [7ddf02a0ed] to [dfa800e4cf].
| ︙ | ︙ | |||
18 19 20 21 22 23 24 | ;;====================================================================== ;;====================================================================== ;; Config file handling ;;====================================================================== | | | 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | ;;====================================================================== ;;====================================================================== ;; Config file handling ;;====================================================================== (use regex regex-case matchable) ;; directory-utils) (declare (unit configf)) (declare (uses process)) (declare (uses env)) (declare (uses keys)) (include "common_records.scm") |
| ︙ | ︙ | |||
116 117 118 119 120 121 122 |
((getenv gv) (conc "(lambda (ht)(get-environment-variable \"" cmd "\"))"))
((mtrah) (conc "(lambda (ht)"
" (let ((extra \"" cmd "\"))"
" (conc (or *toppath* (get-environment-variable \"MT_RUN_AREA_HOME\"))"
" (if (string-null? extra) \"\" \"/\")"
" extra)))"))
((get g)
| | < < | > > > | 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 |
((getenv gv) (conc "(lambda (ht)(get-environment-variable \"" cmd "\"))"))
((mtrah) (conc "(lambda (ht)"
" (let ((extra \"" cmd "\"))"
" (conc (or *toppath* (get-environment-variable \"MT_RUN_AREA_HOME\"))"
" (if (string-null? extra) \"\" \"/\")"
" extra)))"))
((get g)
(match (string-split cmd)
((sect var)(conc "(lambda (ht)(configf:lookup ht \"" sect "\" \"" var "\"))"))
(else
(debug:print-error 0 *default-log-port* "#{get ...} used with only one parameter, \"" cmd "\", two needed.")
"(lambda (ht) #f)")))
((runconfigs-get rget) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
;; ((rget) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))"))
(else "(lambda (ht)(print \"ERROR\") \"ERROR\")"))))
;; (print "fullcmd=" fullcmd)
(handle-exceptions
exn
(begin
|
| ︙ | ︙ |