1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
|
(test-vars (hash-table-ref/default tconfig "pre-launch-env-overrides" '()))
(testprevvals (alist->env-vars test-vars))
;; Launchwait defaults to true, must override it to turn off wait
(launchwait (if (equal? (configf:lookup *configdat* "setup" "launchwait") "no") #f #t))
;; BB: TODO: refactor this to examine return code of launcher, if nonzero, set state to launch failed.
(launch-results-prev (if (eq? launcher-mode 'adjutant)
'(0 #t) ;; just some fake data to fool downstream but non-applicable code
(apply (if launchwait
process:cmd-run-with-stderr-and-exitcode->list
process-run)
(if useshell
(let ((cmdstr (string-intersperse fullcmd " ")))
(if launchwait
cmdstr
|
|
|
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
|
(test-vars (hash-table-ref/default tconfig "pre-launch-env-overrides" '()))
(testprevvals (alist->env-vars test-vars))
;; Launchwait defaults to true, must override it to turn off wait
(launchwait (if (equal? (configf:lookup *configdat* "setup" "launchwait") "no") #f #t))
;; BB: TODO: refactor this to examine return code of launcher, if nonzero, set state to launch failed.
(launch-results-prev (if (eq? launcher-mode 'adjutant)
'(#t 0) ;; just some fake data to fool downstream but non-applicable code
(apply (if launchwait
process:cmd-run-with-stderr-and-exitcode->list
process-run)
(if useshell
(let ((cmdstr (string-intersperse fullcmd " ")))
(if launchwait
cmdstr
|