Overview
| Comment: | ensure logpro stdout in ezsteps does not go to job launcher console |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
be6116e971bb865603ed4a6c8f83bd69 |
| User & Date: | bjbarcla on 2018-08-31 11:46:56 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-10-03
| ||
| 10:35 | fix for contour value sql-null-type check-in: 11a467a8ef user: pjhatwal tags: v1.65, v1.6515 | |
|
2018-09-12
| ||
| 11:30 | Merged changes from 1.65 to trunk check-in: 2de04d314a user: mrwellan tags: trunk | |
|
2018-09-11
| ||
| 16:16 | enabled -m to work in the context of a running test (that is MT_CMDINFO is set) Leaf check-in: fff83466f3 user: bjbarcla tags: v1.65-comment-intest | |
|
2018-08-31
| ||
| 11:46 | ensure logpro stdout in ezsteps does not go to job launcher console check-in: be6116e971 user: bjbarcla tags: v1.65 | |
|
2018-08-27
| ||
| 17:01 | Fix to remove test_dat info check-in: 38764bf86d user: jmoon18 tags: v1.65, v1.6514 | |
Changes
Modified launch.scm from [03b048e0ab] to [5b95a5518e].
| ︙ | ︙ | |||
174 175 176 177 178 179 180 |
(thread-sleep! 2)
(processloop (+ i 1))))
)))))
(debug:print-info 0 *default-log-port* "step " stepname " completed with exit code " (launch:einf-exit-code exit-info)) ;; (vector-ref exit-info 2))
;; now run logpro if needed
(if logpro-used
(let* ((logpro-exe (or (getenv "LOGPRO_EXE") "logpro"))
| | | 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
(thread-sleep! 2)
(processloop (+ i 1))))
)))))
(debug:print-info 0 *default-log-port* "step " stepname " completed with exit code " (launch:einf-exit-code exit-info)) ;; (vector-ref exit-info 2))
;; now run logpro if needed
(if logpro-used
(let* ((logpro-exe (or (getenv "LOGPRO_EXE") "logpro"))
(pid (process-run (conc "/bin/sh -c '"logpro-exe" "logpro-file " " (conc stepname ".html") " < " stepname ".log > /dev/null'"))))
(let processloop ((i 0))
(let-values (((pid-val exit-status exit-code)(process-wait pid #t)))
(mutex-lock! m)
;; (make-launch:einf pid: pid exit-status: exit-status exit-code: exit-code)
(launch:einf-pid-set! exit-info pid) ;; (vector-set! exit-info 0 pid)
(launch:einf-exit-status-set! exit-info exit-status) ;; (vector-set! exit-info 1 exit-status)
(launch:einf-exit-code-set! exit-info exit-code) ;; (vector-set! exit-info 2 exit-code)
|
| ︙ | ︙ |