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

signal-handler support

This commit is contained in:
shivers 1996-09-12 04:29:59 +00:00
parent 8adc0d3f5b
commit 0716fc06cd
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/scsh-package.scm
View File

@ -119,7 +119,8 @@
(define-structures (define-structures
((scsh-level-0-internals (export set-command-line-args! ((scsh-level-0-internals (export set-command-line-args!
init-scsh-hindbrain init-scsh-vars)) init-scsh-hindbrain
init-scsh-vars))
(scsh-level-0 (scsh-level-0
(compound-interface posix-fdflags-interface (compound-interface posix-fdflags-interface
posix-errno-interface posix-errno-interface
@ -146,6 +147,7 @@
tty-interface ; new in 0.4 tty-interface ; new in 0.4
scsh-version-interface scsh-version-interface
char-set-interface char-set-interface
signal-handler-interface
;; This stuff would probably be better off kept ;; This stuff would probably be better off kept
;; in separate modules, but we'll toss it in for now. ;; in separate modules, but we'll toss it in for now.
(interface-of ascii) ; char<->ascii (interface-of ascii) ; char<->ascii
@ -183,6 +185,8 @@
scsh-internal-tty-flags ; Not exported scsh-internal-tty-flags ; Not exported
let-opt ; optional-arg parsing & defaulting let-opt ; optional-arg parsing & defaulting
interrupts ; signal handler code
scheme scheme
) )
@ -220,6 +224,7 @@
flock ; New in release 0.4. flock ; New in release 0.4.
tty ; New in release 0.4. tty ; New in release 0.4.
pty ; New in release 0.4. pty ; New in release 0.4.
sighandlers ; New in release 0.5.
scsh scsh
)) ))
@ -228,7 +233,8 @@
(for-syntax (open scheme error-package receiving)) (for-syntax (open scheme error-package receiving))
(files defrec)) (files defrec))
(define-structure defenum-package (export (define-enum-constant :syntax)) (define-structure defenum-package (export (define-enum-constant :syntax)
(define-enum-constants :syntax))
(open scheme) (open scheme)
(files enumconst)) (files enumconst))