[usocket-cvs] r334 - usocket/branches/hans

[hhubner at common-lisp.net]

Author: hhubner
Date: Wed Apr 23 17:24:15 2008
New Revision: 334

Modified:
   usocket/branches/hans/README
   usocket/branches/hans/usocket.lisp
Log:
Add set-socket-timeouts stub and documentation.


Modified: usocket/branches/hans/README
==============================================================================
--- usocket/branches/hans/README	(original)
+++ usocket/branches/hans/README	Wed Apr 23 17:24:15 2008
@@ -95,8 +95,6 @@
       the return value of which satisfies the normal stream interface
 
 
-
-
 Errors:
  - address-in-use-error
  - address-not-available-error

Modified: usocket/branches/hans/usocket.lisp
==============================================================================
--- usocket/branches/hans/usocket.lisp	(original)
+++ usocket/branches/hans/usocket.lisp	Wed Apr 23 17:24:15 2008
@@ -159,6 +159,13 @@
    "Returns the IP address and port of the peer
 the socket is connected to as values."))
 
+(defgeneric set-socket-timeouts (socket read-timeout write-timeout)
+  (:documentation "Set the SO_RCVTIMEO and SO_SNDTIMEO socket options
+for the SOCKET.  Both READ-TIMEOUT and WRITE-TIMEOUT are speficied in
+\(fractional) seconds.")
+  (:method ((usocket usocket) read-timeout write-timeout)
+    (set-socket-timeouts (socket usocket) read-timeout write-timeout)))
+
 (defmacro with-connected-socket ((var socket) &body body)
   "Bind `socket' to `var', ensuring socket destruction on exit.