Overview
| Comment: | Made changes to only create and process 4 packets per mtutil process run |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
4b37eea7d09d818497b7fdaca5f139d6 |
| User & Date: | jmoon18 on 2019-03-14 10:39:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-03-18
| ||
| 17:32 | Updates to mtutil to limit packet creation - configurable check-in: 16e5e51d77 user: jmoon18 tags: v1.65 | |
| 10:57 | catch up with v1.65 Closed-Leaf check-in: fe83540f6a user: pjhatwal tags: v1.65-end-of-run | |
|
2019-03-14
| ||
| 18:28 | wip check-in: 89d013c708 user: bjbarcla tags: v1.65-tweak-bfsync | |
| 11:59 | Create new branch named "mtutil" Closed-Leaf check-in: a062a8feaa user: ritikaag tags: mtutil | |
| 10:39 | Made changes to only create and process 4 packets per mtutil process run check-in: 4b37eea7d0 user: jmoon18 tags: v1.65 | |
|
2019-03-12
| ||
| 22:33 | Added automatic suppression of waiting for all tests to gracefully die when -remove-keep is called with actions kill-runs,remove-runs check-in: 002d037cb3 user: matt tags: v1.65 | |
Changes
Modified mtut.scm from [de386c14ee] to [268a395b75].
| ︙ | ︙ | |||
821 822 823 824 825 826 827 | ;; (use trace)(trace create-run-pkt) (define (contains list x) (cond ((null? list) #f) ((eq? (car list) x) #t) (else (contains (cdr list) x)))) ;; collect all needed data and create run pkts for contours with changed inputs ;; (define (generate-run-pkts mtconf toppath) | | > | 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 |
;; (use trace)(trace create-run-pkt)
(define (contains list x) (cond ((null? list) #f) ((eq? (car list) x) #t) (else (contains (cdr list) x))))
;; collect all needed data and create run pkts for contours with changed inputs
;;
(define (generate-run-pkts mtconf toppath)
(let ((std-runname (conc "sched" (time->string (seconds->local-time (current-seconds)) "%M%H%d")))
(packets-generated 0))
(common:with-queue-db
mtconf
(lambda (pktsdirs pktsdir pdb)
(let* ((rgconfdat (find-and-read-config (conc toppath "/runconfigs.config")))
(rgconf (car rgconfdat))
(all-areas (map car (configf:get-section mtconf "areas")))
(contours (configf:get-section mtconf "contours"))
|
| ︙ | ︙ | |||
1004 1005 1006 1007 1008 1009 1010 |
(lambda (cmd)
;;(print "cmd: " cmd)
;;(print "Areas: " all-areas)
(for-each
(lambda (area)
;Add code to check whether area is valid
(if
| > | | | 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 |
(lambda (cmd)
;;(print "cmd: " cmd)
;;(print "Areas: " all-areas)
(for-each
(lambda (area)
;Add code to check whether area is valid
(if
;; This code checks whether the target has been passed in via argument, and only runs the specified target
(and (< packets-generated 4) (if (args:get-arg "-target")
(if (string= (args:get-arg "-target") runkey) (area-allowed? area "area-needs-to-be-run" runkey contour #f) #f)
(area-allowed? area "area-needs-to-be-run" runkey contour #f)))
(let* ((script (car cmd))
(params (cdr cmd))
(cmd (conc script " " contour " " area " " runkey " " std-runname " " action " " params))
(res (handle-exceptions
exn
#f
|
| ︙ | ︙ | |||
1089 1090 1091 1092 1093 1094 1095 |
;;(target . ,(list new-target)) ;; overriding with result from runing the script
))
(aval (or (configf:lookup mtconf "areas" area) ""))
(aval-alist (common:val->alist aval))
(targets (map-targets mtconf aval-alist runkey area contour)))
(pp targets)
| > | | > > | 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 |
;;(target . ,(list new-target)) ;; overriding with result from runing the script
))
(aval (or (configf:lookup mtconf "areas" area) ""))
(aval-alist (common:val->alist aval))
(targets (map-targets mtconf aval-alist runkey area contour)))
(pp targets)
(for-each (lambda (target)
(create-run-pkt mtconf action area runkey target new-runname mode-patt
tag-expr pktsdir reason contour sched dbdest append
runtrans)
(set! packets-generated (+ packets-generated 1))
) targets)
;; Add filter for targets
;;(create-run-pkt mtconf action area runkey target runname
;; pktsdir reason contour dbdest append
;; runtrans)
(print "key-msg: " key-msg)
;;(push-run-spec torun contour
|
| ︙ | ︙ |