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
		(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))))

	    ;; (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)))







|
>







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))))
		(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)))