Changeset 13094 for trunk/source/level-1


Ignore:
Timestamp:
Oct 23, 2009, 11:54:12 AM (10 years ago)
Author:
gb
Message:

Handle the :file case in #+windows-target FD-INPUT-AVAILABLE-P.
Fixes ticket:614 .

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r13067 r13094  
    54305430               (values (process-wait-with-timeout "input-wait" milliseconds #'data-available-on-pipe-p fd) 0)
    54315431               (values nil 0))))
    5432     ;(:character-special (windows-tty-input-available-p fd milliseconds))
     5432    (:file (let* ((curpos (fd-tell fd))
     5433                  (eofpos (%stack-block ((peofpos 8))
     5434                            (#_GetFileSizeEx (%int-to-ptr fd) peofpos)
     5435                            (%%get-unsigned-longlong peofpos 0))))
     5436             (values (< curpos eofpos) 0)))
     5437    ;;(:character-special (windows-tty-input-available-p fd milliseconds))
     5438
    54335439    (t (values nil 0)))
    54345440  #-windows-target
Note: See TracChangeset for help on using the changeset viewer.