scsh-conservatory
/
scsh-make
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

make-jobd now takes an optarg: jobd-vers

This commit is contained in:
jottbee 2005-03-12 08:22:51 +00:00
parent c0ece4c94b
commit cafba717cf
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
jobd.scm
View File

@ -78,14 +78,16 @@
(define jobd-vers "jobd-0.0.1") (define jobd-vers "jobd-0.0.1")
(define (make-jobd) (define (make-jobd . maybe-args)
(let* ((version jobd-vers) (let-optionals maybe-args ((jobd-vers "jobd-0.0.1"))
(job-ch (cml-async-ch/make-async-channel)) (let* ((version jobd-vers)
(sig-m-ch (cml-mcast-ch/make-mcast-channel)) (job-ch (cml-async-ch/make-async-channel))
(start-jobber (lambda (id) (sig-m-ch (cml-mcast-ch/make-mcast-channel))
(jobber id job-ch (cml-mcast-ch/mcast-port sig-m-ch))))) (start-jobber (lambda (id)
(for-each start-jobber (enumerate jobbers)) (let ((new-mport (cml-mcast-ch/mcast-port sig-m-ch)))
(really-make-jobd version job-ch sig-m-ch))) (jobber id job-ch new-mport)))))
(for-each start-jobber (enumerate jobbers))
(really-make-jobd version job-ch sig-m-ch))))
(define (version jobd) (define (version jobd)
(jobd-version-s jobd)) (jobd-version-s jobd))

1
packages.scm
View File

@ -10,6 +10,7 @@
(define-structure jobd jobd-interface (define-structure jobd jobd-interface
(open scheme-with-scsh (open scheme-with-scsh
let-opt
formats formats
srfi-1 srfi-1
(with-prefix srfi-8 srfi-8/) (with-prefix srfi-8 srfi-8/)