Overview
| Comment: | Read the vars string into an alist |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-adjutant |
| Files: | files | file ages | folders |
| SHA1: |
b4d3984a1c9411107de7644dd16d5fcb |
| User & Date: | matt on 2020-09-22 23:47:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-09-23
| ||
| 00:12 | Preserve the alist until the db call check-in: b356719831 user: matt tags: v1.65-adjutant | |
|
2020-09-22
| ||
| 23:47 | Read the vars string into an alist check-in: b4d3984a1c user: matt tags: v1.65-adjutant | |
| 23:21 | Added call-with-environment-variables check-in: ae141f651e user: matt tags: v1.65-adjutant | |
Changes
Modified megatest.scm from [6a3860b31e] to [dcc9a20e0f].
| ︙ | ︙ | |||
934 935 936 937 938 939 940 |
(print "Running the adjutant!")
(let loop ((wait-count 0))
(if (< wait-count 10) ;; 6 x 10 seconds = one minute
(let* ((dat (rmt:no-sync-take-job host-type)))
(match dat
((id ht vars exekey cmdline state event-time last-update)
(call-with-environment-variables
| | | 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 |
(print "Running the adjutant!")
(let loop ((wait-count 0))
(if (< wait-count 10) ;; 6 x 10 seconds = one minute
(let* ((dat (rmt:no-sync-take-job host-type)))
(match dat
((id ht vars exekey cmdline state event-time last-update)
(call-with-environment-variables
(with-input-from-string vars read)
(lambda ()
(system cmdline)))
(loop 0))
(else
(thread-sleep! 10)
(loop (+ wait-count 1)))))
(print "I'm bored. Exiting.")))
|
| ︙ | ︙ |