Overview
| Comment: | Updates to mtutil to limit packet creation - configurable |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
16e5e51d776f635f0aeec080a5e4c266 |
| User & Date: | jmoon18 on 2019-03-18 17:32:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-03-18
| ||
| 17:39 | fixed bug to convert string config item to number check-in: 54a615c4aa user: jmoon18 tags: v1.65 | |
| 17:32 | Updates to mtutil to limit packet creation - configurable check-in: 16e5e51d77 user: jmoon18 tags: v1.65 | |
|
2019-03-14
| ||
| 10:39 | Made changes to only create and process 4 packets per mtutil process run check-in: 4b37eea7d0 user: jmoon18 tags: v1.65 | |
Changes
Modified mtut.scm from [268a395b75] to [0bcaf047ae].
| ︙ | ︙ | |||
1006 1007 1008 1009 1010 1011 1012 |
;;(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
| | | 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 |
;;(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 (or (configf:lookup mtconf "setup" "max_packets_per_run") 10000)) (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
|
| ︙ | ︙ | |||
1108 1109 1110 1111 1112 1113 1114 |
;; runtrans)
(print "key-msg: " key-msg)
;;(push-run-spec torun contour
;; (if optional ;; we need to be able to differentiate same contour, different behavior.
;; (conc runkey ":" optional) ;; NOTE: NOT COMPLETELY IMPLEMENTED. DO NOT USE
;; runkey)
;; key-msg)
| | | 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 |
;; runtrans)
(print "key-msg: " key-msg)
;;(push-run-spec torun contour
;; (if optional ;; we need to be able to differentiate same contour, different behavior.
;; (conc runkey ":" optional) ;; NOTE: NOT COMPLETELY IMPLEMENTED. DO NOT USE
;; runkey)
;; key-msg)
))))) (print "Skipping due to target or max_packets_per_run") ) ) (filter (lambda (x) (if (not (args:get-arg "-area")) #t (if (string= x (args:get-arg "-area")) #t #f))) all-areas))
) val-alist)) ;; iterate over the param split by ;\s*
;; fossil scm based triggers
;;
((fossil)
(for-each
(lambda (fspec)
|
| ︙ | ︙ |