Ignore:
Timestamp:
Feb 25, 2008, 7:36:34 PM (12 years ago)
Author:
gb
Message:

Stream I/O deadline changes, based on patch from Hans Hubner.

File:
1 edited

Legend:

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

    r8485 r8603  
    605605                    local-filename remote-filename sharing basic
    606606                    external-format (auto-close t)
    607                     connect-timeout)
     607                    connect-timeout input-timeout output-timeout deadline)
    608608  "Create and return a new socket."
    609609  (declare (dynamic-extent keys))
     
    612612                   local-port local-host backlog class out-of-band-inline
    613613                   local-filename remote-filename sharing basic external-format
    614                    auto-close  connect-timeout))
     614                   auto-close connect-timeout input-timeout output-timeout deadline))
    615615  (ecase address-family
    616616    ((:file) (apply #'make-file-socket keys))
     
    698698
    699699
    700 (defun make-tcp-stream (fd &key (format :bivalent) external-format (class 'tcp-stream) sharing (basic t) (auto-close t)  &allow-other-keys)
     700(defun make-tcp-stream (fd
     701                        &key (format :bivalent)
     702                             external-format
     703                             (class 'tcp-stream)
     704                             sharing
     705                             (basic t)
     706                             (auto-close t)
     707                             input-timeout
     708                             output-timeout
     709                             deadline
     710                        &allow-other-keys)
    701711  (let* ((external-format (normalize-external-format :socket external-format)))
    702712    (let ((element-type (ecase format
     
    714724                      :line-termination (external-format-line-termination external-format)
    715725                      :basic basic
    716                       :auto-close auto-close))))
    717 
    718 (defun make-file-socket-stream (fd &key (format :bivalent) external-format (class 'file-socket-stream)  sharing basic (auto-close t) &allow-other-keys)
     726                      :auto-close auto-close
     727                      :input-timeout input-timeout
     728                      :output-timeout output-timeout
     729                      :deadline deadline))))
     730
     731(defun make-file-socket-stream (fd
     732                                &key (format :bivalent)
     733                                external-format
     734                                (class 'file-socket-stream)
     735                                sharing
     736                                basic
     737                                (auto-close t)
     738                                input-timeout
     739                                output-timeout
     740                                deadline
     741                                &allow-other-keys)
    719742  (let* ((external-format (normalize-external-format :socket external-format)))
    720743 
Note: See TracChangeset for help on using the changeset viewer.