Commit 2254a98c authored by hhubner's avatar hhubner
Browse files

Update from bknr repository.

parent 933ed6e3
# $Id$ # $Id: Makefile 80 2006-02-12 10:09:49Z ehuelsmann $
# $URL$ # $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/Makefile $
clean: clean:
find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" -o -name "*.abcl" | xargs rm find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" -o -name "*.abcl" | xargs rm
......
-*- text -*- -*- text -*-
$Id$ $Id: README 334 2008-04-23 21:24:15Z hhubner $
Content Content
======= =======
......
;;;; $Id$ ;;;; $Id: allegro.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/allegro.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -49,7 +49,8 @@ ...@@ -49,7 +49,8 @@
:text :text
:binary)) :binary))
(defun socket-connect (host port &key (element-type 'character) timeout) (defun socket-connect (host port &key (element-type 'character) timeout nodelay)
(declare (ignore nodelay))
(when timeout (when timeout
(warn "SOCKET-CONNECT timeout not supported in Allegro CL")) (warn "SOCKET-CONNECT timeout not supported in Allegro CL"))
(let ((socket)) (let ((socket))
......
;;;; $Id$ ;;;; $Id: armedbear.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/armedbear.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -185,7 +185,8 @@ ...@@ -185,7 +185,8 @@
(typecase condition (typecase condition
(error (error 'unknown-error :socket socket :real-error condition)))) (error (error 'unknown-error :socket socket :real-error condition))))
(defun socket-connect (host port &key (element-type 'character) timeout) (defun socket-connect (host port &key (element-type 'character) timeout nodelay)
(declare (ignore nodelay))
(when timeout (when timeout
(warn "SOCKET-CONNECT timeout not supported in ABCL")) (warn "SOCKET-CONNECT timeout not supported in ABCL"))
(let ((usock)) (let ((usock))
......
;;;; $Id$ ;;;; $Id: clisp.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/clisp.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -55,7 +55,8 @@ ...@@ -55,7 +55,8 @@
(error usock-err :socket socket) (error usock-err :socket socket)
(signal usock-err :socket socket))))))) (signal usock-err :socket socket)))))))
(defun socket-connect (host port &key (element-type 'character) timeout) (defun socket-connect (host port &key (element-type 'character) timeout nodelay)
(declare (ignore nodelay))
(when timeout (when timeout
(warn "SOCKET-CONNECT timeout not supported in CLISP")) (warn "SOCKET-CONNECT timeout not supported in CLISP"))
(let ((socket) (let ((socket)
......
;;;; $Id$ ;;;; $Id: cmucl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/cmucl.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -50,7 +50,8 @@ ...@@ -50,7 +50,8 @@
:socket socket :socket socket
:condition condition)))) :condition condition))))
(defun socket-connect (host port &key (element-type 'character) timeout) (defun socket-connect (host port &key (element-type 'character) timeout nodelay)
(declare (ignore nodelay))
(when timeout (when timeout
(warn "SOCKET-CONNECT timeout not supported in CMUCL")) (warn "SOCKET-CONNECT timeout not supported in CMUCL"))
(let* ((socket)) (let* ((socket))
......
;;;; $Id$ ;;;; $Id: lispworks.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/lispworks.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -73,7 +73,8 @@ ...@@ -73,7 +73,8 @@
(declare (ignore host port err-msg)) (declare (ignore host port err-msg))
(raise-usock-err errno socket condition))))) (raise-usock-err errno socket condition)))))
(defun socket-connect (host port &key (element-type 'base-char) timeout) (defun socket-connect (host port &key (element-type 'base-char) timeout nodelay)
(declare (ignore nodelay))
(when timeout (when timeout
(warn "SOCKET-CONNECT timeout not supported in Lispworks")) (warn "SOCKET-CONNECT timeout not supported in Lispworks"))
(let ((hostname (host-to-hostname host)) (let ((hostname (host-to-hostname host))
......
;;;; $Id$ ;;;; $Id: openmcl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/openmcl.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -59,6 +59,8 @@ ...@@ -59,6 +59,8 @@
(openmcl-socket:socket-error (openmcl-socket:socket-error
(raise-error-from-id (openmcl-socket:socket-error-identifier condition) (raise-error-from-id (openmcl-socket:socket-error-identifier condition)
socket condition)) socket condition))
(ccl:input-timeout
(error 'timeout-error :socket socket :real-error condition))
(ccl:communication-deadline-expired (ccl:communication-deadline-expired
(error 'timeout-error :socket socket :real-error condition)) (error 'timeout-error :socket socket :real-error condition))
(ccl::socket-creation-error #| ugh! |# (ccl::socket-creation-error #| ugh! |#
...@@ -70,13 +72,14 @@ ...@@ -70,13 +72,14 @@
:text :text
:binary)) :binary))
(defun socket-connect (host port &key (element-type 'character) timeout deadline) (defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay)
(with-mapped-conditions () (with-mapped-conditions ()
(let ((mcl-sock (let ((mcl-sock
(openmcl-socket:make-socket :remote-host (host-to-hostname host) (openmcl-socket:make-socket :remote-host (host-to-hostname host)
:remote-port port :remote-port port
:format (to-format element-type) :format (to-format element-type)
:deadline deadline :deadline deadline
:nodelay nodelay
:connect-timeout (and timeout :connect-timeout (and timeout
(* timeout internal-time-units-per-second))))) (* timeout internal-time-units-per-second)))))
(openmcl-socket:socket-connect mcl-sock) (openmcl-socket:socket-connect mcl-sock)
......
;;;; $Id$ ;;;; $Id: sbcl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/sbcl.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -186,7 +186,8 @@ ...@@ -186,7 +186,8 @@
(signal usock-cond :socket socket)))))) (signal usock-cond :socket socket))))))
(defun socket-connect (host port &key (element-type 'character) timeout deadline) (defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay)
(declare (ignore nodelay))
(declare (ignore deadline)) (declare (ignore deadline))
(when timeout (when timeout
(warn "SOCKET-CONNECT timeout not supported in SBCL")) (warn "SOCKET-CONNECT timeout not supported in SBCL"))
......
;;;; $Id$ ;;;; $Id: scl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/scl.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
...@@ -28,7 +28,8 @@ ...@@ -28,7 +28,8 @@
:socket socket :socket socket
:condition condition)))) :condition condition))))
(defun socket-connect (host port &key (element-type 'character) timeout) (defun socket-connect (host port &key (element-type 'character) timeout nodelay)
(declare (ignore nodelay))
(when timeout (when timeout
(warn "SOCKET-CONNECT timeout not supported in SCL")) (warn "SOCKET-CONNECT timeout not supported in SCL"))
(let* ((socket (with-mapped-conditions () (let* ((socket (with-mapped-conditions ()
......
;;;; $Id$ ;;;; $Id: condition.lisp 325 2008-04-11 21:12:29Z ehuelsmann $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/condition.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
......
-*- text -*- -*- text -*-
$Id$ $Id: backends.txt 182 2007-01-19 23:43:12Z ehuelsmann $
A document to describe which APIs a backend should implement. A document to describe which APIs a backend should implement.
......
-*- text -*- -*- text -*-
$Id$ $Id: design.txt 122 2006-10-22 08:42:00Z ehuelsmann $
usocket: Universal sockets library usocket: Universal sockets library
......
http://cvs2.cons.org/ftp-area/cmucl/doc/cmu-user/internet.html http://cvs2.cons.org/ftp-area/cmucl/doc/cmu-user/internet.html
$Id$ $Id: cmucl-sockets.txt 91 2006-02-13 08:01:51Z ehuelsmann $
extensions:lookup-host-entry host extensions:lookup-host-entry host
......
$Id$ $Id: lw-sockets.txt 91 2006-02-13 08:01:51Z ehuelsmann $
http://www.lispworks.com/reference/lwu41/lwref/LWRM_37.HTM http://www.lispworks.com/reference/lwu41/lwref/LWRM_37.HTM
......
http://www.xach.com/sbcl/sb-bsd-sockets.html http://www.xach.com/sbcl/sb-bsd-sockets.html
$Id$ $Id: sb-bsd-sockets.txt 91 2006-02-13 08:01:51Z ehuelsmann $
package: sb-bsd-sockets package: sb-bsd-sockets
......
;;;; $Id$ ;;;; $Id: package.lisp 326 2008-04-11 21:13:40Z ehuelsmann $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/package.lisp $
;;;; See the LICENSE file for licensing information. ;;;; See the LICENSE file for licensing information.
......
;;;; $Id$ ;;;; $Id: package.lisp 57 2006-02-07 19:39:46Z ehuelsmann $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/test/package.lisp $
;;;; See the LICENSE file for licensing information. ;;;; See the LICENSE file for licensing information.
......
;;;; $Id$ ;;;; $Id: test-usocket.lisp 228 2007-04-08 21:56:25Z ehuelsmann $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/test/test-usocket.lisp $
;;;; See LICENSE for licensing information. ;;;; See LICENSE for licensing information.
......
;;;; $Id$ ;;;; $Id: usocket-test.asd 46 2006-02-06 20:50:07Z ehuelsmann $
;;;; $URL$ ;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/test/usocket-test.asd $
;;;; See the LICENSE file for licensing information. ;;;; See the LICENSE file for licensing information.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment