Overview
| Comment: | Added a bit of expanation to areas handling |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
aeabc7304c582c9a58e6098443430cbd |
| User & Date: | mrwellan on 2017-06-09 13:09:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-15
| ||
| 16:39 | Adding nanomsg to mtut.scm check-in: da26ce8d3c user: mrwellan tags: v1.65 | |
|
2017-06-09
| ||
| 13:09 | Added a bit of expanation to areas handling check-in: aeabc7304c user: mrwellan tags: v1.65 | |
| 11:10 | Fixed gendot and merged in changes from v1.64 check-in: 6efedc27d5 user: mrwellan tags: v1.65 | |
Changes
Modified megatest.config from [524db789d0] to [78a0dc8a42].
| ︙ | ︙ | |||
19 20 21 22 23 24 25 | # targtrans is name of scheme proc stored in .mtutil.scm, which lives in PWD where mtutil is run # the target translator can return: a/target OR (list/of targets/to apply/run) OR #f i.e. run nothing # ext-tests path=ext-tests; targtrans=prefix-contour; ext-tests path=ext-tests [contours] # mode-patt/tag-expr | | > | | 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 | # targtrans is name of scheme proc stored in .mtutil.scm, which lives in PWD where mtutil is run # the target translator can return: a/target OR (list/of targets/to apply/run) OR #f i.e. run nothing # ext-tests path=ext-tests; targtrans=prefix-contour; ext-tests path=ext-tests [contours] # mode-patt/tag-expr quick areas=ext-tests; selector=/QUICKPATT quick2 areafn=check-area; selector=/QUICKPATT # quick areas=fullrun,ext-tests; selector=QUICKPATT/quick # full areas=fullrun,ext-tests; selector=MAXPATT/ # short areas=fullrun,ext-tests; selector=MAXPATT/ # all areas=fullrun,ext-tests # snazy selector=QUICKPATT/ [nopurpose] |
Modified mtut.scm from [5b3e7dcbb4] to [a4d53c5fe5].
| ︙ | ︙ | |||
525 526 527 528 529 530 531 532 533 534 535 536 537 538 |
(define (val-alist->areas val-alist)
(let ((areas-string (alist-ref 'areas val-alist))
(areas-procname (alist-ref 'areafn val-alist)))
(if areas-procname ;; areas-procname take precedence
areas-procname
(string-split (or areas-string "") ","))))
(define (area-allowed? area areas runkey contour)
(cond
((not areas) #t) ;; no spec
((string? areas) ;;
(let ((check-fn (hash-table-ref/default *area-checkers* areas #f)))
(if check-fn
(check-fn area runkey contour)
| > > > > > | 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 |
(define (val-alist->areas val-alist)
(let ((areas-string (alist-ref 'areas val-alist))
(areas-procname (alist-ref 'areafn val-alist)))
(if areas-procname ;; areas-procname take precedence
areas-procname
(string-split (or areas-string "") ","))))
;; area - the current area under consideration
;; areas - the list of allowed areas from the contour spec -OR-
;; if it is a string then it is the function to use to
;; lookup in *area-checkers*
;;
(define (area-allowed? area areas runkey contour)
(cond
((not areas) #t) ;; no spec
((string? areas) ;;
(let ((check-fn (hash-table-ref/default *area-checkers* areas #f)))
(if check-fn
(check-fn area runkey contour)
|
| ︙ | ︙ |