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: |
1597d0801e85b372173f1848eed20633 |
| User & Date: | matt on 2024-09-26 02:10:07 |
| Other Links: | manifest | tags |
Context
|
2024-09-26
| ||
| 02:20 | Added missing dependency Leaf 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 | ;;====================================================================== (declare (unit adjutant)) (module adjutant * | > > > > > | > > > > > > > > > | | | | 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
|
| ︙ | ︙ |