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

Sanity checks for signalling jobs 

part of darcs patch Sat Sep 24 23:10:30 MST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
mainzelm 2005-10-11 15:45:23 +00:00
parent c5ae699585
commit 5dac007070
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scheme/job.scm
View File

@ -90,7 +90,10 @@
(eq? (job-run-status job) 'stopped)) (eq? (job-run-status job) 'stopped))
(define (signal-job signal job) (define (signal-job signal job)
(signal-process-group (job-proc job) signal)) (if (job-ready? job)
(debug-message "refusing to send signal to ready job")
(signal-process-group (job-proc job) signal)))
(define (stop-job job) (define (stop-job job)
(signal-job signal/stop job)) (signal-job signal/stop job))
@ -110,7 +113,8 @@
(resume-console-output (job-console job))) (resume-console-output (job-console job)))
(define (continue-job-in-foreground job) (define (continue-job-in-foreground job)
(if (job-sans-console? job) (if (and (job-sans-console? job)
(not (job-ready? job)))
(begin (begin
(drain-tty (current-output-port)) (drain-tty (current-output-port))
(def-prog-mode) (def-prog-mode)
@ -131,7 +135,8 @@
(release-lock paint-lock)))) (release-lock paint-lock))))
(define (continue-job-in-background job) (define (continue-job-in-background job)
(continue-job job)) (if (not (job-ready? job))
(continue-job job)))
;; channels for communicating with the joblist surveillant ;; channels for communicating with the joblist surveillant