Overview
| Comment: | Removed debug statement |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
aea23d28f1ad35f17a4d0b478c74dd3a |
| User & Date: | mrwellan on 2012-03-28 20:16:40 |
| Other Links: | manifest | tags |
Context
|
2012-03-30
| ||
| 00:07 | Fixed reading of runconfigs; chdir to location of .config before reading sub-files; added pattern matching on sections to target; added tests, removed some redundant db accesses check-in: c65398ee68 user: matt tags: trunk | |
|
2012-03-28
| ||
| 20:16 | Removed debug statement check-in: aea23d28f1 user: mrwellan tags: trunk | |
| 15:46 | Changed the #{ ... } mechanism to be highly specific and improved options check-in: 50de060113 user: mrwellan tags: trunk | |
Changes
Modified configf.scm from [7930e89899] to [879a86d233].
| ︙ | ︙ | |||
75 76 77 78 79 80 81 | ((get) (let* ((parts (string-split cmd)) (sect (car parts)) (var (cadr parts))) (conc "(lambda (ht)(config-lookup ht \"" sect "\" \"" var "\"))"))) ((runconfigs-get) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))")) (else "(lambda (ht)(print \"ERROR\") \"ERROR\")")))) | | | 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | ((get) (let* ((parts (string-split cmd)) (sect (car parts)) (var (cadr parts))) (conc "(lambda (ht)(config-lookup ht \"" sect "\" \"" var "\"))"))) ((runconfigs-get) (conc "(lambda (ht)(runconfigs-get ht \"" cmd "\"))")) (else "(lambda (ht)(print \"ERROR\") \"ERROR\")")))) ;; (print "fullcmd=" fullcmd) (with-input-from-string fullcmd (lambda () (set! result ((eval (read)) ht)))) (loop (conc prestr result poststr))) res)) res))) |
| ︙ | ︙ |
Modified megatest-version.scm from [7e3ec1b570] to [72436f2582].
1 2 3 4 5 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 1 2 3 4 5 6 7 | ;; Always use two digit decimal ;; 1.01, 1.02...1.10,1.11 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.41) |
Modified tests/runconfigs.config from [69d5edf82e] to [1d6f530c0f].
1 2 3 4 5 6 |
[include common_runconfigs.config]
WACKYVAR0 #{get ubuntu/nfs/none CURRENT}
WACKYVAR1 #{scheme (args:get-arg "-target")}
WACKYVAR2 #{runconfigs-get CURRENT}
| > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
[include common_runconfigs.config]
# Can do:
# get section var
# scheme expr
# shell cmd
# system cmd
# getenv var
# runconfigs-get var
WACKYVAR0 #{get ubuntu/nfs/none CURRENT}
WACKYVAR1 #{scheme (args:get-arg "-target")}
WACKYVAR2 #{runconfigs-get CURRENT}
|