src/streams/gray/fd-mixin.lisp

   1 ;;;; -*- Mode: Lisp; indent-tabs-mode: nil -*-
   2 ;;;
   3 ;;; --- FD mixin definitions
   4 ;;;
   5
   6 (in-package :iolib/streams)
   7
   8 (defmethod shared-initialize :around ((stream dual-channel-fd-mixin) slot-names &key)
   9   (declare (ignore slot-names))
  10   (call-next-method)
  11   (setf (isys:fd-nonblock-p (fd-of stream)) t))
  12
  13 ;;;; CLOSE
  14
  15 (defmethod close :before ((fd-mixin dual-channel-fd-mixin) &key abort)
  16   (declare (ignore abort))
  17   (when (fd-of fd-mixin)
  18     (isys:close (fd-of fd-mixin))
  19     (setf (fd-of fd-mixin) nil)))
  20
  21 ;;;; Get and Set O_NONBLOCK
  22
  23 (defmethod fd-non-blocking ((fd-mixin dual-channel-fd-mixin))
  24   (isys:fd-nonblock-p (fd-of fd-mixin)))
  25 (defobsolete fd-non-blocking "stream FDs are now always non-blocking.")
  26
  27 (defmethod (setf fd-non-blocking) (mode (fd-mixin dual-channel-fd-mixin))
  28   (check-type mode boolean "a boolean value")
  29   (setf (isys:fd-nonblock-p (fd-of fd-mixin)) mode))
  30 (defobsolete (setf fd-non-blocking) "stream FDs are now always non-blocking.")