Changeset 13094

Timestamp:

Oct 23, 2009, 4:54:12 AM (15 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/source/level-1/l1-streams.lisp (modified) (1 diff)

trunk/source/level-1/l1-streams.lisp

@@ -5430 +5430 @@
                (values (process-wait-with-timeout "input-wait" milliseconds #'data-available-on-pipe-p fd) 0)
                (values nil 0))))
-    ;(:character-special (windows-tty-input-available-p fd milliseconds))
+    (:file (let* ((curpos (fd-tell fd))
+                  (eofpos (%stack-block ((peofpos 8))
+                            (#_GetFileSizeEx (%int-to-ptr fd) peofpos)
+                            (%%get-unsigned-longlong peofpos 0))))
+             (values (< curpos eofpos) 0)))
+    ;;(:character-special (windows-tty-input-available-p fd milliseconds))
+
     (t (values nil 0)))
   #-windows-target