603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
|
(append (list (list "MT_TEST_RUN_DIR" work-area)
(list "MT_TEST_NAME" test-name)
(list "MT_ITEM_INFO" (conc itemdat))
(list "MT_RUNNAME" runname)
(list "MT_TARGET" mt_target)
)
itemdat)))
(launch-results (apply cmd-run-proc-each-line
(if useshell
(string-intersperse fullcmd " ")
(car fullcmd))
print
(if useshell
'()
(cdr fullcmd))))) ;; launcher fullcmd)));; (apply cmd-run-proc-each-line launcher print fullcmd))) ;; (cmd-run->list fullcmd))
(with-output-to-file "mt_launch.log"
(lambda ()
(apply print launch-results)))
(debug:print 2 "Launching completed, updating db")
|
|
|
|
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
|
(append (list (list "MT_TEST_RUN_DIR" work-area)
(list "MT_TEST_NAME" test-name)
(list "MT_ITEM_INFO" (conc itemdat))
(list "MT_RUNNAME" runname)
(list "MT_TARGET" mt_target)
)
itemdat)))
(launch-results (apply cmd-run-with-stderr->list ;; cmd-run-proc-each-line
(if useshell
(string-intersperse fullcmd " ")
(car fullcmd))
;; conc
(if useshell
'()
(cdr fullcmd))))) ;; launcher fullcmd)));; (apply cmd-run-proc-each-line launcher print fullcmd))) ;; (cmd-run->list fullcmd))
(with-output-to-file "mt_launch.log"
(lambda ()
(apply print launch-results)))
(debug:print 2 "Launching completed, updating db")
|