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

Update from bknr repository.

parent 933ed6e3
# $Id$
# $URL$
# $Id: Makefile 80 2006-02-12 10:09:49Z ehuelsmann $
# $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/Makefile $
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
......
-*- text -*-
$Id$
$Id: README 334 2008-04-23 21:24:15Z hhubner $
Content
=======
......
;;;; $Id$
;;;; $URL$
;;;; $Id: allegro.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/allegro.lisp $
;;;; See LICENSE for licensing information.
......@@ -49,7 +49,8 @@
:text
: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
(warn "SOCKET-CONNECT timeout not supported in Allegro CL"))
(let ((socket))
......
;;;; $Id$
;;;; $URL$
;;;; $Id: armedbear.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/armedbear.lisp $
;;;; See LICENSE for licensing information.
......@@ -185,7 +185,8 @@
(typecase 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
(warn "SOCKET-CONNECT timeout not supported in ABCL"))
(let ((usock))
......
;;;; $Id$
;;;; $URL$
;;;; $Id: clisp.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/clisp.lisp $
;;;; See LICENSE for licensing information.
......@@ -55,7 +55,8 @@
(error 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
(warn "SOCKET-CONNECT timeout not supported in CLISP"))
(let ((socket)
......
;;;; $Id$
;;;; $URL$
;;;; $Id: cmucl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/cmucl.lisp $
;;;; See LICENSE for licensing information.
......@@ -50,7 +50,8 @@
:socket socket
: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
(warn "SOCKET-CONNECT timeout not supported in CMUCL"))
(let* ((socket))
......
;;;; $Id$
;;;; $URL$
;;;; $Id: lispworks.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/lispworks.lisp $
;;;; See LICENSE for licensing information.
......@@ -73,7 +73,8 @@
(declare (ignore host port err-msg))
(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
(warn "SOCKET-CONNECT timeout not supported in Lispworks"))
(let ((hostname (host-to-hostname host))
......
;;;; $Id$
;;;; $URL$
;;;; $Id: openmcl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/openmcl.lisp $
;;;; See LICENSE for licensing information.
......@@ -59,6 +59,8 @@
(openmcl-socket:socket-error
(raise-error-from-id (openmcl-socket:socket-error-identifier condition)
socket condition))
(ccl:input-timeout
(error 'timeout-error :socket socket :real-error condition))
(ccl:communication-deadline-expired
(error 'timeout-error :socket socket :real-error condition))
(ccl::socket-creation-error #| ugh! |#
......@@ -70,13 +72,14 @@
:text
: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 ()
(let ((mcl-sock
(openmcl-socket:make-socket :remote-host (host-to-hostname host)
:remote-port port
:format (to-format element-type)
:deadline deadline
:nodelay nodelay
:connect-timeout (and timeout
(* timeout internal-time-units-per-second)))))
(openmcl-socket:socket-connect mcl-sock)
......
;;;; $Id$
;;;; $URL$
;;;; $Id: sbcl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/sbcl.lisp $
;;;; See LICENSE for licensing information.
......@@ -186,7 +186,8 @@
(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))
(when timeout
(warn "SOCKET-CONNECT timeout not supported in SBCL"))
......
;;;; $Id$
;;;; $URL$
;;;; $Id: scl.lisp 335 2008-04-23 21:29:50Z hhubner $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/backend/scl.lisp $
;;;; See LICENSE for licensing information.
......@@ -28,7 +28,8 @@
:socket socket
: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
(warn "SOCKET-CONNECT timeout not supported in SCL"))
(let* ((socket (with-mapped-conditions ()
......
;;;; $Id$
;;;; $URL$
;;;; $Id: condition.lisp 325 2008-04-11 21:12:29Z ehuelsmann $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/condition.lisp $
;;;; See LICENSE for licensing information.
......
-*- text -*-
$Id$
$Id: backends.txt 182 2007-01-19 23:43:12Z ehuelsmann $
A document to describe which APIs a backend should implement.
......
-*- text -*-
$Id$
$Id: design.txt 122 2006-10-22 08:42:00Z ehuelsmann $
usocket: Universal sockets library
......
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
......
$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.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
......
;;;; $Id$
;;;; $URL$
;;;; $Id: package.lisp 326 2008-04-11 21:13:40Z ehuelsmann $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/package.lisp $
;;;; See the LICENSE file for licensing information.
......
;;;; $Id$
;;;; $URL$
;;;; $Id: package.lisp 57 2006-02-07 19:39:46Z ehuelsmann $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/test/package.lisp $
;;;; See the LICENSE file for licensing information.
......
;;;; $Id$
;;;; $URL$
;;;; $Id: test-usocket.lisp 228 2007-04-08 21:56:25Z ehuelsmann $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/test/test-usocket.lisp $
;;;; See LICENSE for licensing information.
......
;;;; $Id$
;;;; $URL$
;;;; $Id: usocket-test.asd 46 2006-02-06 20:50:07Z ehuelsmann $
;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/branches/hans/test/usocket-test.asd $
;;;; 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