Changeset 8849


Ignore:
Timestamp:
Mar 21, 2008, 10:41:34 AM (11 years ago)
Author:
gb
Message:

Conditionalize for windows. Compiles; who knows if it works ?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/l1-streams.lisp

    r8603 r8849  
    32833283
    32843284(defun optimal-buffer-size (fd element-type)
    3285   (let* ((octets (case (%unix-fd-kind fd)
     3285  #+windows-target (declare (ignore fd))
     3286  (let* ((octets
     3287          #+windows-target #$BUFSIZ
     3288          #-windows-target
     3289          (case (%unix-fd-kind fd)
    32863290                   (:pipe (#_fpathconf fd #$_PC_PIPE_BUF))
    32873291                   (:socket (int-getsockopt fd #$SOL_SOCKET #$SO_SNDLOWAT))
     
    32933297      (4 (ash octets -2))
    32943298      (8 (ash octets -3)))))
     3299
     3300
    32953301
    32963302
     
    52265232
    52275233(defun unread-data-available-p (fd)
    5228   #+freebsd-target
     5234  #+(or freebsd-target win64-target)
    52295235  (fd-input-available-p fd 0)
    5230   #-freebsd-target
     5236  #-(or freebsd-target win64-target)
    52315237  (rlet ((arg (* :char) (%null-ptr)))
    52325238    (when (zerop (syscall syscalls::ioctl fd #$FIONREAD arg))
     
    52705276
    52715277(defun process-input-would-block (fd)
     5278  #+windows-target (declare (ignore fd))
     5279  #+windows-target t
     5280  #-windows-target
    52725281  (if (logtest #$O_NONBLOCK (the fixnum (fd-get-flags fd)))
    52735282    (process-input-wait fd)
     
    53025311
    53035312(defun process-output-would-block (fd)
     5313  #+windows-target (declare (ignore fd))
     5314  #+windows-target t
     5315  #-windows-target
    53045316  (if (logtest #$O_NONBLOCK (the fixnum (fd-get-flags fd)))
    53055317    (process-output-wait fd)
     
    53425354
    53435355(defun fd-input-available-p (fd &optional milliseconds)
     5356  #+win64-target (declare (ignore fd milliseconds))
     5357  #+win64-target t
     5358  #-win64-target
    53445359  (rlet ((pollfds (:array (:struct :pollfd) 1)))
    53455360    (setf (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.fd) fd
     
    53515366
    53525367(defun fd-ready-for-output-p (fd &optional milliseconds)
     5368  #+win64-target (declare (ignore fd milliseconds))
     5369  #+win64-target t
     5370  #-win64-target
    53535371  (rlet ((pollfds (:array (:struct :pollfd) 1)))
    53545372    (setf (pref (paref pollfds (:* (:struct :pollfd)) 0) :pollfd.fd) fd
Note: See TracChangeset for help on using the changeset viewer.