42 lines
1.3 KiB
Scheme
42 lines
1.3 KiB
Scheme
; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
|
|
|
|
; System entry and exit
|
|
|
|
; Entry point from OS executive. Procedures returned by USUAL-RESUMER
|
|
; are suitable for use as the second argument to WRITE-IMAGE.
|
|
;
|
|
; The placement of INITIALIZE-RECORDS! is questionable. Important parts
|
|
; of the system are not in place when it is run.
|
|
|
|
(define (usual-resumer entry-point)
|
|
(lambda (resume-arg in out error records)
|
|
(initialize-rts in out error
|
|
(lambda ()
|
|
(initialize-records! records)
|
|
(with-sigevents
|
|
(lambda ()
|
|
(entry-point (vector->list resume-arg))))))))
|
|
|
|
(define (initialize-rts in out error thunk)
|
|
(initialize-session-data!)
|
|
(initialize-dynamic-state!)
|
|
(initialize-output-port-list!)
|
|
(initialize-exceptions! current-error-port write-string
|
|
(lambda ()
|
|
(initialize-interrupts!
|
|
spawn-on-root
|
|
(lambda ()
|
|
(initialize-i/o (input-channel->port in)
|
|
(output-channel->port out)
|
|
(output-channel->port error 0) ; zero-length buffer
|
|
(lambda ()
|
|
(with-threads
|
|
(lambda ()
|
|
(root-scheduler thunk
|
|
200 ; thread quantum, in msec
|
|
300)))))))))) ; port-flushing quantum
|
|
|
|
; Add the full/empty buffer handlers.
|
|
|
|
(initialize-i/o-handlers! define-exception-handler signal-exception)
|