Overview
| Comment: | Added backgrounding for launch. Works well with launchwait no |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63-stackdumpfix |
| Files: | files | file ages | folders |
| SHA1: |
7eba8a2fb82d21557f6a64d81c23b61a |
| User & Date: | matt on 2017-01-08 01:39:47 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-01-08
| ||
| 12:20 | Moved all sqlite3: calls under db:with-db to enforce using mutex when many parallel api calls check-in: 184e37cdf1 user: matt tags: v1.63-stackdumpfix | |
| 01:39 | Added backgrounding for launch. Works well with launchwait no check-in: 7eba8a2fb8 user: matt tags: v1.63-stackdumpfix | |
|
2017-01-07
| ||
| 23:37 | Turned on delay if busy in sync back check-in: 03693d434a user: matt tags: v1.63-stackdumpfix | |
Changes
Modified launch.scm from [d8a0c34d3e] to [d6cf433044].
| ︙ | ︙ | |||
1232 1233 1234 1235 1236 1237 1238 | (launch-results (apply (if launchwait process:cmd-run-with-stderr->list process-run) (if useshell (let ((cmdstr (string-intersperse fullcmd " "))) (if launchwait cmdstr | | | 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 |
(launch-results (apply (if launchwait
process:cmd-run-with-stderr->list
process-run)
(if useshell
(let ((cmdstr (string-intersperse fullcmd " ")))
(if launchwait
cmdstr
(conc cmdstr " >> mt_launch.log 2>&1 &")))
(car fullcmd))
(if useshell
'()
(cdr fullcmd)))))
(mutex-unlock! *launch-setup-mutex*) ;; yes, really should mutex all the way to here. Need to put this entire process into a fork.
(if (not launchwait) ;; give the OS a little time to allow the process to start
(thread-sleep! 0.01))
|
| ︙ | ︙ |