Overview
| Comment: | Added file-and to sense types |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | run-mgr |
| Files: | files | file ages | folders |
| SHA1: |
8f754a1158bd1cfe01fe0d2a0686fd64 |
| User & Date: | matt on 2017-02-15 04:09:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-02-15
| ||
| 15:19 | Moved rungen.config to runconfigs.config check-in: fe62eba160 user: mrwellan tags: run-mgr | |
| 04:09 | Added file-and to sense types check-in: 8f754a1158 user: matt tags: run-mgr | |
|
2017-02-14
| ||
| 21:49 | Added sync of contour field. However sync itself is not working. check-in: 45f0a7be94 user: matt tags: run-mgr | |
Changes
Modified mtut.scm from [acc9d3af14] to [92513c62a6].
| ︙ | ︙ | |||
72 73 74 75 76 77 78 79 80 81 82 83 84 85 | archive : compress and move test data to archive disk kill : stop tests or entire runs Contour actions: import : import pkts dispatch : dispatch queued run jobs from imported pkts rungen : look at input sense list in [rungen] and generate run pkts Selectors -immediate : apply this action immediately, default is to queue up actions -area areapatt1,area2... : apply this action only to the specified areas -target key1/key2/... : run for key1, key2, etc. -test-patt p1/p2,p3/... : % is wildcard -run-name : required, name for this particular test run | > | 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 | archive : compress and move test data to archive disk kill : stop tests or entire runs Contour actions: import : import pkts dispatch : dispatch queued run jobs from imported pkts rungen : look at input sense list in [rungen] and generate run pkts process : runs import, rungen and dispatch Selectors -immediate : apply this action immediately, default is to queue up actions -area areapatt1,area2... : apply this action only to the specified areas -target key1/key2/... : run for key1, key2, etc. -test-patt p1/p2,p3/... : % is wildcard -run-name : required, name for this particular test run |
| ︙ | ︙ | |||
376 377 378 379 380 381 382 | ) ;; look in runstarts for matching runs by target and contour ;; get the timestamp for when that run started and pass it ;; to the rule logic here where "ruletype" will be applied ;; if it comes back "changed" then proceed to register the runs (case (string->symbol ruletype) | | > > > > > > > > > > > > > > > > > > | | 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 |
)
;; look in runstarts for matching runs by target and contour
;; get the timestamp for when that run started and pass it
;; to the rule logic here where "ruletype" will be applied
;; if it comes back "changed" then proceed to register the runs
(case (string->symbol ruletype)
((file file-or) ;; one or more files must be newer than the reference
(let* ((file-globs (cdr valparts))
(youngestdat (common:get-youngest file-globs))
(youngestmod (car youngestdat)))
;; (print "youngestmod: " youngestmod " starttimes: " starttimes)
(if (null? starttimes) ;; this target has never been run
(configf:section-var-set! torun contour runkey `("file:neverrun" ,runname))
(for-each
(lambda (starttime) ;; look at the time the last run was kicked off for this contour
(if (> youngestmod (cdr starttime))
(begin
(print "starttime younger than youngestmod: " starttime " Youngestmod: " youngestmod)
(configf:section-var-set! torun contour runkey `(,(conc ruletype ":" (cadr youngestdat)) ,runname)))))
starttimes))
))
((file-and) ;; all files must be newer than the reference
(let* ((file-globs (cdr valparts))
(youngestdat (common:get-youngest file-globs))
(youngestmod (car youngestdat))
(success #t)) ;; any cases of not true, set flag to #f for AND
;; (print "youngestmod: " youngestmod " starttimes: " starttimes)
(if (null? starttimes) ;; this target has never been run
(configf:section-var-set! torun contour runkey `("file:neverrun" ,runname))
(for-each
(lambda (starttime) ;; look at the time the last run was kicked off for this contour
(if (< youngestmod (cdr starttime))
(set! success #f)))
starttimes))
(if success
(begin
(print "starttime younger than youngestmod: " starttime " Youngestmod: " youngestmod)
(configf:section-var-set! torun contour runkey `(,(conc ruletype ":" (cadr youngestdat)) ,runname))))))
)))
keydats)))
(hash-table-keys rgconf))
;; now have torun populated
(for-each
(lambda (contour)
(let* ((mode-tag (string-split (or (configf:lookup mtconf "contours" contour) "") "/"))
|
| ︙ | ︙ |