Changeset 7971 for branches/1.2-devel/ccl/level-1/l1-streams.lisp
- Timestamp:
- Jan 1, 2008, 1:36:11 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.2-devel/ccl/level-1/l1-streams.lisp
r7733 r7971 4089 4089 (broadcast-method stream-force-output (s)) 4090 4090 (broadcast-method stream-finish-output (s)) 4091 (broadcast-method stream- stream-write-list (s l c))4091 (broadcast-method stream-write-list (s l c)) 4092 4092 (broadcast-method stream-write-vector (s v start end))) 4093 4093 … … 5201 5201 :unsigned-fullword))))) 5202 5202 5203 (defun process-input-would-block (fd) 5204 (if (logtest #$O_NONBLOCK (the fixnum (fd-get-flags fd))) 5205 (process-input-wait fd) 5206 (- #$ETIMEDOUT))) 5207 5203 5208 (defun process-input-wait (fd &optional ticks) 5204 5209 "Wait until input is available on a given file-descriptor." … … 5221 5226 5222 5227 5228 (defun process-output-would-block (fd) 5229 (if (logtest #$O_NONBLOCK (the fixnum (fd-get-flags fd))) 5230 (process-output-wait fd) 5231 (- #$ETIMEDOUT))) 5223 5232 5224 5233 (defun process-output-wait (fd) … … 5348 5357 (io-buffer-count buf) 0 5349 5358 (ioblock-eof ioblock) nil) 5350 (let* ((avail nil)) 5351 (when (or read-p (setq avail (stream-listen s))) 5352 (if (and (ioblock-interactive ioblock) 5353 (not avail)) 5354 (process-input-wait fd)) 5359 (when (or read-p (stream-listen s)) 5355 5360 (let* ((n (with-eagain fd :input 5356 5361 (fd-read fd bufptr size)))) … … 5362 5367 (ioblock-octets-to-elements ioblock n)) 5363 5368 (progn (setf (ioblock-eof ioblock) t) 5364 nil))))))) )5369 nil))))))) 5365 5370 5366 5371 (defun fd-stream-eofp (s ioblock)
Note: See TracChangeset
for help on using the changeset viewer.