Update of /cvsroot/scsh/scsh-0.6/scheme
In directory usw-pr-cvs1:/tmp/cvs-serv24977/scheme
Modified Files:
interfaces.scm packages.scm rts-packages.scm
Log Message:
Renamed scsh-events to sigevents.
Index: interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/interfaces.scm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** interfaces.scm 2001/10/04 11:16:15 1.15
--- interfaces.scm 2001/10/18 09:02:52 1.16
***************
*** 631,635 ****
(interrupt :syntax)))
! (define-interface sigevents-interface
(export rts-next-sigevent
rts-next-sigevent/no-wait
--- 631,635 ----
(interrupt :syntax)))
! (define-interface rts-sigevents-interface
(export rts-next-sigevent
rts-next-sigevent/no-wait
***************
*** 639,643 ****
schedule-timer-interrupt!))
! (define-interface sigevents-internal-interface
(export waiting-for-sigevent?
initialize-sigevents!))
--- 639,643 ----
schedule-timer-interrupt!))
! (define-interface rts-sigevents-internal-interface
(export waiting-for-sigevent?
initialize-sigevents!))
Index: packages.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/packages.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** packages.scm 2001/05/22 14:58:15 1.4
--- packages.scm 2001/10/18 09:02:52 1.5
***************
*** 293,298 ****
meta-methods
interrupts
! sigevents
! sigevents-internal
low-level
more-types
--- 293,298 ----
meta-methods
interrupts
! rts-sigevents
! rts-sigevents-internal
low-level
more-types
Index: rts-packages.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/rts-packages.scm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** rts-packages.scm 2001/07/09 14:15:05 1.6
--- rts-packages.scm 2001/10/18 09:02:52 1.7
***************
*** 227,232 ****
(optimize auto-integrate)) ;mostly for threads package...
! (define-structures ((sigevents sigevents-interface)
! (sigevents-internal sigevents-internal-interface))
(open scheme-level-1 define-record-types
threads threads-internal
--- 227,232 ----
(optimize auto-integrate)) ;mostly for threads package...
! (define-structures ((rts-sigevents rts-sigevents-interface)
! (rts-sigevents-internal rts-sigevents-internal-interface))
(open scheme-level-1 define-record-types
threads threads-internal
***************
*** 284,288 ****
wind ;call-with-current-continuation
channel-i/o ;waiting-for-i/o?
! sigevents-internal) ;waiting-for-os-sigevent?
(access primitives) ;unspecific, wait
(files (rts root-scheduler)))
--- 284,288 ----
wind ;call-with-current-continuation
channel-i/o ;waiting-for-i/o?
! rts-sigevents-internal) ;waiting-for-os-sigevent?
(access primitives) ;unspecific, wait
(files (rts root-scheduler)))
***************
*** 332,336 ****
exceptions ;initialize-exceptions!
interrupts ;initialize-interrupts!
! sigevents-internal ;initialize-sigevents!
records-internal ;initialize-records!
export-the-record-type ;just what it says
--- 332,336 ----
exceptions ;initialize-exceptions!
interrupts ;initialize-interrupts!
! rts-sigevents-internal ;initialize-sigevents!
records-internal ;initialize-records!
export-the-record-type ;just what it says
|