Megatest

Check-in [d403b4bf87]
Login
Overview
Comment:Added skeleton for resurected waivers mechanism
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: d403b4bf87a2b8faa9d955f5150ab59cda35125d
User & Date: matt on 2017-02-22 21:44:39
Other Links: branch diff | manifest | tags
Context
2017-02-23
15:33
Added check for ruletype check-in: cf2e7841b3 user: mrwellan tags: v1.64
2017-02-22
21:44
Added skeleton for resurected waivers mechanism check-in: d403b4bf87 user: matt tags: v1.64
21:26
removed some noisy output and added some runconfigs.config example settings check-in: 6d51100961 user: matt tags: v1.64
Changes

Modified launch.scm from [9afb31bd04] to [5c024732b4].

516
517
518
519
520
521
522
523


524
525
526
527
528
529
530
516
517
518
519
520
521
522

523
524
525
526
527
528
529
530
531







-
+
+







		(exit 1)))
	  (change-directory *toppath*) 

	  ;; NOTE: Current order is to process runconfigs *before* setting the MT_ vars. This 
	  ;;       seems non-ideal but could well break stuff
	  ;;    BUG? BUG? BUG?
	  
	  (let ((rconfig (full-runconfigs-read))) ;; (read-config (conc  *toppath* "/runconfigs.config") #f #t sections: (list "default" target))))
	  (let ((rconfig (full-runconfigs-read)) ;; (read-config (conc  *toppath* "/runconfigs.config") #f #t sections: (list "default" target))))
		(wconfig (read-config "waivers.config" #f #t sections: `( "default" ,target )))) ;; read the waivers config if it exists
	    ;; (setup-env-defaults (conc *toppath* "/runconfigs.config") run-id (make-hash-table) keyvals target)
	    ;; (set-run-config-vars run-id keyvals target) ;; (db:get-target db run-id))
	    ;; Now have runconfigs data loaded, set environment vars
	    (for-each (lambda (section)
			(for-each (lambda (varval)
				    (let ((var (car varval))
					  (val (cadr varval)))