support for the latest changes: low-interrupt and co, cwd and env per thread

This commit is contained in:
marting 1999-11-04 20:48:47 +00:00
parent 8c4d87dde6
commit 0d871d4784
2 changed files with 64 additions and 16 deletions

View File

@ -315,6 +315,7 @@
pid->proc pid->proc
autoreap-policy autoreap-policy
install-autoreaping
reap-zombies reap-zombies
wait wait
@ -340,10 +341,14 @@
with-umask* with-umask*
(with-umask :syntax) (with-umask :syntax)
process-chdir
process-cwd
chdir chdir
cwd cwd
with-cwd* with-cwd*
(with-cwd :syntax) (with-cwd :syntax)
with-cwd-aligned*
(with-cwd-aligned :syntax)
pid pid
parent-pid parent-pid
@ -401,7 +406,8 @@
(define-interface scsh-environment-interface (define-interface scsh-environment-interface
(export setenv (export install-env
setenv
getenv getenv
env->alist env->alist
alist->env alist->env
@ -1060,8 +1066,7 @@
interrupt-set interrupt-set
interrupt-handlers-vector ; JMG: replaces vm vector interrupt-handlers-vector ; JMG: replaces vm vector
init-scsh-signal %install-scsh-handlers
procobj-handler
(with-enabled-interrupts :syntax) (with-enabled-interrupts :syntax)
with-enabled-interrupts* with-enabled-interrupts*
@ -1074,6 +1079,7 @@
%set-unix-signal-handler %set-unix-signal-handler
%unix-signal-handler %unix-signal-handler
;; reexported from low-interrupt
interrupt/alrm interrupt/alarm interrupt/alrm interrupt/alarm
interrupt/int interrupt/keyboard interrupt/int interrupt/keyboard
; interrupt/memory-shortage ; interrupt/memory-shortage
@ -1111,3 +1117,31 @@
nonblockwait-interrupt-set nonblockwait-interrupt-set
install-event-handlers!)) install-event-handlers!))
(define-interface low-interrupt-interface
(export low-interrupt-register
init-low-interrupt
number-of-interrupts
interrupt/alrm interrupt/alarm
interrupt/int interrupt/keyboard
; interrupt/memory-shortage
interrupt/post-gc
interrupt/i/o-completion
interrupt/chld
interrupt/cont
interrupt/hup
interrupt/quit
interrupt/term
interrupt/tstp
interrupt/usr1
interrupt/usr2
interrupt/info
interrupt/io
interrupt/poll
interrupt/prof
interrupt/pwr
interrupt/urg
interrupt/vtalrm
interrupt/winch
interrupt/xcpu
interrupt/xfsz))

View File

@ -95,11 +95,6 @@
$current-noise-port) $current-noise-port)
(open ports i/o)) (open ports i/o))
(define-structure signal-handler signal-handler-interface
(open scheme
scsh
scsh-level-0)
(files (scsh sighandlers)))
;;; The scsh-level-0 package is for implementation convenience. ;;; The scsh-level-0 package is for implementation convenience.
;;; The scsh startup and top-level modules need access to scsh ;;; The scsh startup and top-level modules need access to scsh
;;; procedures, but they export procedures that are themselves ;;; procedures, but they export procedures that are themselves
@ -146,6 +141,7 @@
; (scsh-regexp-package scsh-regexp-interface) ; (scsh-regexp-package scsh-regexp-interface)
) )
(for-syntax (open scsh-syntax-helpers scheme)) (for-syntax (open scsh-syntax-helpers scheme))
(access events)
(open enumerated (open enumerated
external-calls ;JMG new FFI external-calls ;JMG new FFI
structure-refs structure-refs
@ -180,7 +176,6 @@
let-opt ; optional-arg parsing & defaulting let-opt ; optional-arg parsing & defaulting
architecture ; Was this by JMG ?? architecture ; Was this by JMG ??
interrupts ; signal handler code
re-level-0 re-level-0
rx-syntax rx-syntax
@ -191,20 +186,22 @@
scheme scheme
low-interrupt ; for sighandler and procobj
i/o ; all these seem to be for scsh-0.6 JMG i/o ; all these seem to be for scsh-0.6 JMG
i/o-internal i/o-internal
channels channel-i/o channels channel-i/o
low-channels low-channels
code-vectors byte-vectors
threads threads-internal locks placeholders threads threads-internal locks placeholders
primitives primitives
escapes escapes
command-levels command-levels
features features
general-tables) general-tables
simple-syntax)
(for-syntax (open scsh-syntax-helpers scheme)) (for-syntax (open scsh-syntax-helpers scheme))
(access command-processor (access interrupts
command-processor
escapes escapes
i/o ; S48's force-output i/o ; S48's force-output
formats formats
@ -292,7 +289,8 @@
evaluation evaluation
extended-ports extended-ports
interfaces interfaces
events
low-interrupt
fluids-internal ; JMG: get-dynamic-env fluids-internal ; JMG: get-dynamic-env
handle ; JMG: with-handler handle ; JMG: with-handler
; package-commands ; package-commands
@ -401,9 +399,25 @@
placeholders placeholders
architecture architecture
scheme scheme
interrupts) low-interrupt)
(files event)) (files event))
(define-structure simple-syntax (export define-simple-syntax)
(open scheme)
(begin (define-syntax define-simple-syntax
(syntax-rules ()
((define-simple-syntax (name . pattern) result)
(define-syntax name (syntax-rules () ((name . pattern) result))))))))
(define-structure low-interrupt low-interrupt-interface
(open enumerated
locks
error-package
interrupts ; signal handler code
scheme)
(files low-interrupt))
;(define-structure test-package (export test-proc) ;(define-structure test-package (export test-proc)
; (open scsh-regexp-package scheme) ; (open scsh-regexp-package scheme)
; (begin (define (test-proc p) ; (begin (define (test-proc p)