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

Default sighandler for SIG/INT depends on whether we run interactive or not.

This commit is contained in:
mainzelm 2000-09-17 15:10:42 +00:00
parent 145ddac9cb
commit b3447ad964
3 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
scsh/sighandlers.scm
View File

@ -332,7 +332,7 @@
(define-foreign %%get-int-handlers (get_int_handlers) desc) (define-foreign %%get-int-handlers (get_int_handlers) desc)
(define (%install-scsh-handlers) (define (%install-scsh-handlers interactive?)
(do ((int 0 (+ int 1))) (do ((int 0 (+ int 1)))
((= int number-of-interrupts)) ((= int number-of-interrupts))
(set-interrupt-handler (set-interrupt-handler
@ -342,7 +342,7 @@
((< sig 0)) ((< sig 0))
(let ((i (%signal->interrupt sig))) (let ((i (%signal->interrupt sig)))
(if (not (or (= i -1) (if (not (or (= i -1)
(= sig signal/int) ; Leave ^c and ; (= sig signal/int) ; Leave ^c and
(= sig signal/alrm))) ; alarm handlers alone. (= sig signal/alrm))) ; alarm handlers alone.
(set-interrupt-handler (set-interrupt-handler
i i
@ -352,15 +352,18 @@
'scheduler-initial-thread)) 'scheduler-initial-thread))
(error "sighandler did not find scheduler-initial-thread, but" (error "sighandler did not find scheduler-initial-thread, but"
scheduler-initial-thread)) scheduler-initial-thread))
(set-interrupt-handler interrupt/keyboard ;; Note: this will prevent any other system to work, since it pushes
(lambda stuff ;; a new command level !
((structure-ref threads-internal schedule-event) (if interactive?
scheduler-initial-thread (set-interrupt-handler interrupt/keyboard
(enum (lambda stuff
(structure-ref threads-internal event-type) ((structure-ref threads-internal schedule-event)
interrupt) scheduler-initial-thread
(enum interrupt keyboard)))))) (enum
(structure-ref threads-internal event-type)
interrupt)
(enum interrupt keyboard)))))))
;;; I am ashamed to say the 33 below is completely bogus. ;;; I am ashamed to say the 33 below is completely bogus.
;;; What we want is a value that is 1 + max interrupt value. ;;; What we want is a value that is 1 + max interrupt value.

4
scsh/startup.scm
View File

@ -46,7 +46,9 @@
(really-dump-scsh-program (lambda (args) (really-dump-scsh-program (lambda (args)
(init-low-interrupt) (init-low-interrupt)
(install-event-handlers!) (install-event-handlers!)
(install-env) (install-env)
(%install-scsh-handlers #f)
(install-autoreaping)
(init-scsh-vars #f) ; Do it quietly. (init-scsh-vars #f) ; Do it quietly.
(start args)) (start args))
filename)) filename))

2
scsh/top.scm
View File

@ -240,7 +240,7 @@
(spawn forever-sleeping-thread) (spawn forever-sleeping-thread)
(init-low-interrupt) (init-low-interrupt)
(install-event-handlers!) (install-event-handlers!)
(%install-scsh-handlers) (%install-scsh-handlers (not term-switch))
(install-autoreaping) (install-autoreaping)
(install-env) (install-env)