Overview
| Comment: | Don't put out empty string on no value found |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
508f94e08b8800b6b619ee4efab87a1f |
| User & Date: | matt on 2014-04-07 18:59:03 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-04-07
| ||
| 21:58 | Bumping version to v1.5517. check-in: ecd1499a3c user: icfadm tags: v1.55, v1.5517 | |
| 18:59 | Don't put out empty string on no value found check-in: 508f94e08b user: matt tags: v1.55 | |
| 18:53 | Fixed silly ; bug in env2file and added -server/-var for lookups in configs check-in: 9b39882f86 user: matt tags: v1.55 | |
Changes
Modified megatest.scm from [572987f97e] to [d8333885a0].
| ︙ | ︙ | |||
481 482 483 484 485 486 487 |
(let ((tl (setup-for-run)))
(push-directory *toppath*)
(let ((data (full-runconfigs-read)))
;; keep this one local
(cond
((and (args:get-arg "-section")
(args:get-arg "-var"))
| | > | > | 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 |
(let ((tl (setup-for-run)))
(push-directory *toppath*)
(let ((data (full-runconfigs-read)))
;; keep this one local
(cond
((and (args:get-arg "-section")
(args:get-arg "-var"))
(let ((val (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
(if val (print val))))
((not (args:get-arg "-dumpmode"))
(pp (hash-table->alist data)))
((string=? (args:get-arg "-dumpmode") "json")
(json-write data))
(else
(debug:print 0 "ERROR: -dumpmode of " (args:get-arg "-dumpmode") " not recognised")))
(set! *didsomething* #t))
(pop-directory)))
(if (args:get-arg "-show-config")
(let ((tl (setup-for-run))
(data *configdat*)) ;; (read-config "megatest.config" #f #t)))
(push-directory *toppath*)
;; keep this one local
(cond
((and (args:get-arg "-section")
(args:get-arg "-var"))
(let ((val (configf:lookup data (args:get-arg "-section")(args:get-arg "-var"))))
(if val (print val))))
((not (args:get-arg "-dumpmode"))
(pp (hash-table->alist data)))
((string=? (args:get-arg "-dumpmode") "json")
(json-write data))
(else
(debug:print 0 "ERROR: -dumpmode of " (args:get-arg "-dumpmode") " not recognised")))
(set! *didsomething* #t)
|
| ︙ | ︙ |