Megatest

Check-in [b4d3984a1c]
Login
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: b4d3984a1c9411107de7644dd16d5fcb1fbb0d63
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
941

942
943
944
945
946
947
948
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
		  vars
		  (with-input-from-string vars read)
		  (lambda ()
		    (system cmdline)))
		 (loop 0))
		(else
		 (thread-sleep! 10)
		 (loop (+ wait-count 1)))))
	    (print "I'm bored. Exiting.")))