[Scsh-checkins] CVS: scsh-0.6/scsh procobj.scm,1.13,1.14 scsh-interfaces.scm,1.25,1.26 scsh-package.scm,1.26,1.27 sighandlers.scm,1.19,1.20 syscalls.scm,1.31,1.32

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv24977/scsh

Modified Files:
        procobj.scm scsh-interfaces.scm scsh-package.scm 
        sighandlers.scm syscalls.scm 
Log Message:
Renamed scsh-events to sigevents.


Index: procobj.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/procobj.scm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** procobj.scm 2001/10/18 08:51:32     1.13
--- procobj.scm 2001/10/18 09:02:52     1.14
***************
*** 115,120 ****
  ;;; this is here until someone (Olin !!!) cleans up the scsh modules
  
! (define next-sigevent (structure-ref scsh-events next-sigevent))
! (define most-recent-sigevent (structure-ref scsh-events most-recent-sigevent))
  
  
--- 115,120 ----
  ;;; this is here until someone (Olin !!!) cleans up the scsh modules
  
! (define next-sigevent (structure-ref sigevents next-sigevent))
! (define most-recent-sigevent (structure-ref sigevents most-recent-sigevent))
  
  

Index: scsh-interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh-interfaces.scm,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** scsh-interfaces.scm 2001/10/03 14:42:46     1.25
--- scsh-interfaces.scm 2001/10/18 09:02:52     1.26
***************
*** 1040,1044 ****
          interrupt/xfsz))
  
! (define-interface scsh-events-interface
    (export most-recent-sigevent
          sigevent?
--- 1040,1044 ----
          interrupt/xfsz))
  
! (define-interface sigevents-interface
    (export most-recent-sigevent
          sigevent?

Index: scsh-package.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/scsh-package.scm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** scsh-package.scm    2001/10/03 14:42:46     1.26
--- scsh-package.scm    2001/10/18 09:02:52     1.27
***************
*** 141,145 ****
  )
    (for-syntax (open scsh-syntax-helpers scheme))
!   (access sigevents scsh-events threads)
    (open enumerated
        defenum-package
--- 141,145 ----
  )
    (for-syntax (open scsh-syntax-helpers scheme))
!   (access rts-sigevents sigevents threads)
    (open enumerated
        defenum-package
***************
*** 285,289 ****
        interrupts
        low-interrupt
!       scsh-events
        primitives
        scheme)
--- 285,289 ----
        interrupts
        low-interrupt
!       sigevents
        primitives
        scheme)
***************
*** 301,305 ****
        fluids
        interfaces
!       scsh-events                     
        low-interrupt
        fluids-internal            ; JMG: get-dynamic-env 
--- 301,305 ----
        fluids
        interfaces
!       sigevents                     
        low-interrupt
        fluids-internal            ; JMG: get-dynamic-env 
***************
*** 413,422 ****
    (files here))
  
! (define-structure scsh-events scsh-events-interface
    (open scsh-level-0
        scheme
        structure-refs
        low-interrupt
!       sigevents)
    (files event))
  
--- 413,422 ----
    (files here))
  
! (define-structure sigevents sigevents-interface
    (open scsh-level-0
        scheme
        structure-refs
        low-interrupt
!       rts-sigevents)
    (files event))
  

Index: sighandlers.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/sighandlers.scm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -r1.19 -r1.20
*** sighandlers.scm     2001/10/03 14:41:01     1.19
--- sighandlers.scm     2001/10/18 09:02:52     1.20
***************
*** 192,199 ****
  
  (define (deliver-interrupts)
!   (let lp ((last ((structure-ref scsh-events most-recent-sigevent))))
!     (let ((event ((structure-ref scsh-events next-sigevent-set)
                  last full-interrupt-set)))
!       (call-interrupt-handler ((structure-ref scsh-events sigevent-type) 
event))
        (lp event))))
      
--- 192,199 ----
  
  (define (deliver-interrupts)
!   (let lp ((last ((structure-ref sigevents most-recent-sigevent))))
!     (let ((event ((structure-ref sigevents next-sigevent-set)
                  last full-interrupt-set)))
!       (call-interrupt-handler ((structure-ref sigevents sigevent-type) event))
        (lp event))))
      

Index: syscalls.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls.scm,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -r1.31 -r1.32
*** syscalls.scm        2001/10/18 08:51:32     1.31
--- syscalls.scm        2001/10/18 09:02:52     1.32
***************
*** 415,419 ****
                signal))
  (define (itimer sec)
!   ((structure-ref scsh-events schedule-timer-interrupt!) (* sec 1000)))
  ;;; SunOS, not POSIX:
  ;;; (define-foreign signal-process-group/errno
--- 415,419 ----
                signal))
  (define (itimer sec)
!   ((structure-ref sigevents schedule-timer-interrupt!) (* sec 1000)))
  ;;; SunOS, not POSIX:
  ;;; (define-foreign signal-process-group/errno