[Scsh-checkins] CVS: scsh-0.6/scheme interfaces.scm,1.11,1.12 packages.scm,1.2,1.3 rts-packages.scm,1.3,1.4

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

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

Modified Files:
        interfaces.scm packages.scm rts-packages.scm 
Log Message:
Adapted some of Richard's changes for char-ready? and output-port-ready?.


Index: interfaces.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/interfaces.scm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** interfaces.scm      2001/01/09 15:52:41     1.11
--- interfaces.scm      2001/03/23 10:59:07     1.12
***************
*** 162,166 ****
          channel-status
          channel-os-index
!       
          open-channel
          close-channel
--- 162,168 ----
          channel-status
          channel-os-index
!         
!         channel-ready?
!         
          open-channel
          close-channel
***************
*** 448,451 ****
--- 450,457 ----
          $current-error-port
          $current-noise-port
+         make-buffered-input-port-handler
+         make-buffered-output-port-handler
+         make-buffered-input-port
+         make-buffered-output-port
          ;; end of additions. ;;
          char-ready?
***************
*** 463,466 ****
--- 469,473 ----
          current-noise-port
          force-output                  ;xport.scm
+         output-port-ready?
          input-port?
          output-port?
***************
*** 613,628 ****
          (interrupt :syntax)))
  
! (define-interface events-interface
!   (export rts-wait-interrupt
!         rts-maybe-wait-interrupt
!         most-recent-event
!         event?
!         next-event
!         event-type
          schedule-timer-interrupt!))
  
! (define-interface events-internal-interface
!   (export waiting-for-os-event?
!         initialize-events!))
  
  (define-interface writing-interface
--- 620,634 ----
          (interrupt :syntax)))
  
! (define-interface sigevents-interface
!   (export rts-next-sigevent
!         rts-next-sigevent/no-wait
!         most-recent-sigevent
!         sigevent?
!         sigevent-type
          schedule-timer-interrupt!))
  
! (define-interface sigevents-internal-interface
!   (export waiting-for-sigevent?
!         initialize-sigevents!))
  
  (define-interface writing-interface

Index: packages.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scheme/packages.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** packages.scm        2001/01/09 15:52:41     1.2
--- packages.scm        2001/03/23 10:59:07     1.3
***************
*** 292,297 ****
            meta-methods
            interrupts
!           events
!           events-internal
            low-level
            more-types
--- 292,297 ----
            meta-methods
            interrupts
!           sigevents
!           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.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** rts-packages.scm    2001/01/09 15:52:41     1.3
--- rts-packages.scm    2001/03/23 10:59:07     1.4
***************
*** 220,230 ****
    (optimize auto-integrate)) ;mostly for threads package...
  
! (define-structures ((events events-interface)
!                   (events-internal events-internal-interface))
    (open scheme-level-1 define-record-types
        threads threads-internal
        interrupts
        architecture)
!   (files (rts events))
    (optimize auto-integrate))
  
--- 220,230 ----
    (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
        interrupts
        architecture)
!   (files (rts sigevents))
    (optimize auto-integrate))
  
***************
*** 274,278 ****
        wind                    ;call-with-current-continuation
        channel-i/o             ;waiting-for-i/o?
!       events-internal)                 ;waiting-for-os-event?
    (access primitives)         ;unspecific, wait
    (files (rts root-scheduler)))
--- 274,278 ----
        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)))
***************
*** 322,326 ****
        exceptions       ;initialize-exceptions!
        interrupts       ;initialize-interrupts!
!       events-internal  ;initialize-events!
        records-internal ;initialize-records!
        export-the-record-type  ;just what it says
--- 322,326 ----
        exceptions       ;initialize-exceptions!
        interrupts       ;initialize-interrupts!
!       sigevents-internal  ;initialize-sigevents!
        records-internal ;initialize-records!
        export-the-record-type  ;just what it says