Megatest

Check-in [1597d0801e]
Login
Overview
Comment:Ported adjutant.scm to chicken 5
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1597d0801e85b372173f1848eed206331fa3161d
User & Date: matt on 2024-09-26 02:10:07
Other Links: manifest | tags
Context
2024-09-26
02:20
Added missing dependency check-in: 2b965c1a05 user: matt tags: trunk
02:11
Porting mutils.scm to chicken 5, wip Leaf check-in: 21bfa4f239 user: matt tags: chicken-5
02:10
Ported adjutant.scm to chicken 5 check-in: 1597d0801e user: matt tags: trunk
2024-09-25
19:58
Added process registration stubs to api.scm check-in: 88fa1bd8c0 user: matt tags: trunk
Changes

Modified adjutant.scm from [d6c67b1549] to [f95d858d61].

18
19
20
21
22
23
24





25









26
27
28
29
30
31
32
33
34
35

;;======================================================================

(declare (unit adjutant))

(module adjutant *






(import scheme chicken data-structures extras files)









(import (prefix sqlite3 sqlite3:) posix typed-records srfi-18 srfi-69
	md5 message-digest matchable
	regex srfi-1)

(define (adjutant-run host-type rmt:no-sync-take-job)
  (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







>
>
>
>
>
|
>
>
>
>
>
>
>
>
>
|
|
|







18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

;;======================================================================

(declare (unit adjutant))

(module adjutant *

(import scheme)

(cond-expand
 (chicken-4

  (import chicken data-structures extras files
	  posix
	  ))

 (chicken-5
  (import chicken.base
	  chicken.process
	  )
  ))

(import (prefix sqlite3 sqlite3:) typed-records srfi-18 srfi-69
	  md5 message-digest matchable
	  regex srfi-1)

(define (adjutant-run host-type rmt:no-sync-take-job)
  (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