Megatest

Check-in [508f94e08b]
Login
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: 508f94e08b8800b6b619ee4efab87a1f0222b837
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
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
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"))
	  (print (configf:lookup data (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"))
	(print (configf:lookup data (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)