Overview
Comment: | Merged mtutil changes into main 1.65 branch |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65 |
Files: | files | file ages | folders |
SHA1: |
058bef15102031f9c04c7887b6497986 |
User & Date: | jmoon18 on 2018-08-10 16:31:19 |
Other Links: | branch diff | manifest | tags |
Context
2018-08-10
| ||
17:13 | removed debug comment check-in: 0a8c497528 user: pjhatwal tags: v1.65 | |
16:31 | Merged mtutil changes into main 1.65 branch check-in: 058bef1510 user: jmoon18 tags: v1.65 | |
11:52 | Trimmed mtutil chattiness Leaf check-in: 7a8dbd3299 user: jmoon18 tags: v1.6512a | |
2018-08-06
| ||
12:34 | cosmatic changes to brackets alingment check-in: e4339a3c50 user: pjhatwal tags: v1.65 | |
Changes
Modified mtut.scm from [e9680bf10f] to [0953539a62].
︙ | |||
786 787 788 789 790 791 792 | 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 | - + | (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")) (torun (make-hash-table)) ;; target => ( ... info ... ) (rgentargs (hash-table-keys rgconf))) ;; these are the targets registered for automatically triggering |
︙ | |||
946 947 948 949 950 951 952 | 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 | - - + + | ;; ((area-script) ;; syntax is a little different here. It is a list of commands to run, "scriptname = extra_parameters;scriptname = ..." ;; where scriptname may be repeated multiple times. The script must return unix-epoch of last change, new-target-name and new-run-name ;; the script is called like this: scriptname contour runkey std-runname action extra_param1 extra_param2 ... (for-each (lambda (cmd) |
︙ | |||
1184 1185 1186 1187 1188 1189 1190 | 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 | - - + + | (dbdest (alist-ref 'dbdest runkeydat)) (append (alist-ref 'append runkeydat)) (targets ;;(or (alist-ref 'target runkeydat) (map-targets mtconf aval-alist runkey area contour))) ;; override with target if forced ;;(targets (or (alist-ref 'target runkeydat) ;; (map-targets mtconf aval-alist runkey area contour)))) ;; override with target if forced ;; NEED TO EXPAND RUNKEY => ALL TARGETS MAPPED AND THEN FOREACH .... |
︙ |