Megatest

Check-in [ec43e24ac4]
Login
Overview
Comment:Added log dir output to mtutil run calls
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65 | v1.6528
Files: files | file ages | folders
SHA1: ec43e24ac438d698688e9afdd1a8e5edac65d67d
User & Date: jmoon18 on 2019-04-12 16:55:34
Other Links: branch diff | manifest | tags
Context
2019-05-31
14:17
Added code to do rerun-cleans for subruns, and to check again for the number of cpus on a host when it registers 1 cpu (for ssh failures) check-in: 231a14dc2d user: jmoon18 tags: v1.65, v1.6529
2019-04-12
16:55
Added log dir output to mtutil run calls check-in: ec43e24ac4 user: jmoon18 tags: v1.65, v1.6528
2019-04-04
10:35
junk check-in: 351fd3ff4f user: mrwellan tags: v1.65
Changes

Modified mtut.scm from [652f16f336] to [0941039f2d].

1510
1511
1512
1513
1514
1515
1516

1517
1518
1519
1520
1521
1522
1523
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524







+







	 ;; (for-each
	 ;;  (lambda (key)
	 ;;    (if (not (member key *legal-params*))
	 ;; 	(hash-table-delete! adjargs key))) ;; we need to delete any params intended for mtutil
	 ;;  (hash-table-keys adjargs))
	 (let-values (((uuid pkt)
		       (command-line->pkt *action* adjargs #f area-path: area-path new-ss: new-ss)))
           (print "run log @ " (conc (current-directory) "/" uuid "-" *action* ".log"))
	   (write-pkt pktsdir uuid pkt))))
      ((dispatch import rungen process)
       (let* ((mtconfdat (simple-setup (args:get-arg "-start-dir")))
	      (mtconf    (car mtconfdat))
	      (toppath   (configf:lookup mtconf "scratchdat" "toppath")))
	 (case (string->symbol *action*)
	   ((process)  (begin