/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.49 by dtc, Sat Sep 4 19:44:09 1999 UTC revision 1.50 by dtc, Sat Dec 4 16:02:34 1999 UTC
# Line 651  Line 651 
651      string))      string))
652    
653  #|  #|
 This version waits using server.  I changed to the non-server version because  
 it allows this method to be used by CLX w/o confusing serve-event.  The  
 non-server method is also significantly more efficient for large reads.  
   -- Ram  
   
654  ;;; FD-STREAM-READ-N-BYTES -- internal  ;;; FD-STREAM-READ-N-BYTES -- internal
655  ;;;  ;;;
656    ;;; This version waits using server.  I changed to the non-server version
657    ;;; because it allows this method to be used by CLX w/o confusing serve-event.
658    ;;; The non-server method is also significantly more efficient for large
659    ;;; reads. -- Ram
660    ;;;
661  ;;; The n-bin routine.  ;;; The n-bin routine.
662  ;;;  ;;;
663  (defun fd-stream-read-n-bytes (stream buffer start requested eof-error-p)  (defun fd-stream-read-n-bytes (stream buffer start requested eof-error-p)
664      (declare (type stream stream) (type index start requested))
665    (let* ((sap (fd-stream-ibuf-sap stream))    (let* ((sap (fd-stream-ibuf-sap stream))
666           (elsize (fd-stream-element-size stream))           (elsize (fd-stream-element-size stream))
667           (offset (* elsize start))           (offset (* elsize start))
# Line 695  non-server method is also significantly Line 696  non-server method is also significantly
696    
697  ;;; FD-STREAM-READ-N-BYTES -- internal  ;;; FD-STREAM-READ-N-BYTES -- internal
698  ;;;  ;;;
699  ;;;    The N-Bin method for FD-STREAMs.  This doesn't using SERVER; it blocks  ;;;    The N-Bin method for FD-STREAMs.  This doesn't use the SERVER; it blocks
700  ;;; in UNIX-READ.  This allows the method to be used to implementing reading  ;;; in UNIX-READ.  This allows the method to be used to implementing reading
701  ;;; for CLX.  It is generally used where there is a definite amount of reading  ;;; for CLX.  It is generally used where there is a definite amount of reading
702  ;;; to be done, so blocking isn't too problematical.  ;;; to be done, so blocking isn't too problematical.

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

  ViewVC Help
Powered by ViewVC 1.1.5