Overview
| Comment: | list to alist for adjutant |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.65-adjutant |
| Files: | files | file ages | folders |
| SHA1: |
0dc9a0f5e649b98f295dfd415b3a0423 |
| User & Date: | matt on 2020-09-25 21:27:09 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-09-25
| ||
| 21:27 | list to alist for adjutant Closed-Leaf check-in: 0dc9a0f5e6 user: matt tags: v1.65-adjutant | |
|
2020-09-23
| ||
| 00:26 | Preserve the alist until the db call, still not right check-in: 4348e8b681 user: matt tags: v1.65-adjutant | |
Changes
Modified megatest.scm from [8846c3b82c] to [2a5ab8df06].
| ︙ | ︙ | |||
921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 |
;;
(if (args:get-arg "-server")
(let ((tl (launch:setup))
(transport-type (string->symbol (or (args:get-arg "-transport") "http"))))
(server:launch 0 transport-type)
(set! *didsomething* #t)))
;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
;; a specific Megatest area. Detail are being hashed out and this may change.
;;
(if (args:get-arg "-adjutant")
(let* ((host-type (args:get-arg "-adjutant")))
(launch:setup) ;; dang it, wish this wasn't needed
(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)
(let ((vars-alist (with-input-from-string vars read)
))
(print "Vars:")
(pp vars-alist)
(call-with-environment-variables
| > > > > > > > > > > > | | 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 |
;;
(if (args:get-arg "-server")
(let ((tl (launch:setup))
(transport-type (string->symbol (or (args:get-arg "-transport") "http"))))
(server:launch 0 transport-type)
(set! *didsomething* #t)))
(define (naylist->alist inlst)
(map (lambda (dat)
(cons (car dat)
(or (if (list? (cdr dat))
(if (null? (cdr dat)) ""
(cadr dat))
(cdr dat))
""))) ;; we need a string for call-with-environment-variables
inlst))
;; The adjutant is a bit different, it does NOT run (launch:setup) as it is not necessarily tied to
;; a specific Megatest area. Detail are being hashed out and this may change.
;;
(if (args:get-arg "-adjutant")
(let* ((host-type (args:get-arg "-adjutant")))
(launch:setup) ;; dang it, wish this wasn't needed
(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)
(let ((vars-alist (with-input-from-string vars read)
))
(print "Vars:")
(pp vars-alist)
(call-with-environment-variables
(naylist->alist vars-alist)
(lambda ()
(system cmdline))))
(loop 0))
(else
(thread-sleep! 10)
(loop (+ wait-count 1)))))
(print "I'm bored. Exiting.")))
|
| ︙ | ︙ |