usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r98 - in public_html: . releases
by ehuelsmann＠common-lisp.net 14 Feb '06

14 Feb '06

Author: ehuelsmann Date: Tue Feb 14 12:29:06 2006 New Revision: 98 Added: public_html/releases/ public_html/releases/usocket-0.1.0.tar.gz (contents, props changed) public_html/releases/usocket-0.1.0.tar.gz.asc Modified: public_html/index.shtml Log: Add releases to the website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue Feb 14 12:29:06 2006 @@ -223,6 +223,15 @@ </table> </div> +<h2>Releases</h2> + +<p>Releases are uploaded to the <a href="releases/">releases/</a> + directory.</p> + +<p>The latest release is version <a + href="releases/usocket-0.1.0.tar.gz">0.1.0</a>.</p> + + <h2>Project history</h2> <p>Long ago the project was conceived and started by Erik Enge in an Added: public_html/releases/usocket-0.1.0.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.1.0.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.1.0.tar.gz.asc Tue Feb 14 12:29:06 2006 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.1 (GNU/Linux) + +iD8DBQBD8PcOi5O0Epaz9TkRAhmZAJ4sfZNXVXuGsn+U7UHHQTy4lSFeYACcCLdZ +tcbSBUaIwyQg+16uapMbUjo= +=2H1Q +-----END PGP SIGNATURE-----

1 0

[usocket-cvs] r97 - usocket/trunk
by ehuelsmann＠common-lisp.net 14 Feb '06

14 Feb '06

Author: ehuelsmann Date: Tue Feb 14 12:28:43 2006 New Revision: 97 Modified: usocket/trunk/TODO usocket/trunk/usocket.asd Log: Add releases to the website. Modified: usocket/trunk/TODO ============================================================================== --- usocket/trunk/TODO (original) +++ usocket/trunk/TODO Tue Feb 14 12:28:43 2006 @@ -5,9 +5,6 @@ - check stream creation arguments such as element-type and external-format for availability in the different lisps. -- Move all function documentation from the backends to - (setf documentation) forms in usocket.lisp. - - Extend ABCL socket support with the 4 java errors in java.net.* so that they can map to our usocket errors instead of mapping all errors to unknown-error. Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/trunk/usocket.asd Tue Feb 14 12:28:43 2006 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.1.0" + :version "0.2.0-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r96 - usocket/tags/0.1.0
by ehuelsmann＠common-lisp.net 13 Feb '06

13 Feb '06

Author: ehuelsmann Date: Mon Feb 13 15:01:59 2006 New Revision: 96 Added: usocket/tags/0.1.0/ - copied from r92, usocket/trunk/ Log: Create first release tag! :-)

1 0

[usocket-cvs] r95 - usocket/trunk/notes
by ehuelsmann＠common-lisp.net 13 Feb '06

13 Feb '06

Author: ehuelsmann Date: Mon Feb 13 14:59:33 2006 New Revision: 95 Modified: usocket/trunk/notes/address-apis.txt Log: Finalize step 2 inventarization document. Modified: usocket/trunk/notes/address-apis.txt ============================================================================== --- usocket/trunk/notes/address-apis.txt (original) +++ usocket/trunk/notes/address-apis.txt Mon Feb 13 14:59:33 2006 @@ -11,6 +11,8 @@ (get-peer-address sock) -> ip (get-local-port sock) -> port (get-peer-port sock) -> port + (get-local-name sock) -> ip, port + (get-peer-name sock) -> ip, port ABCL

1 0

[usocket-cvs] r94 - usocket/trunk/notes
by ehuelsmann＠common-lisp.net 13 Feb '06

13 Feb '06

Author: ehuelsmann Date: Mon Feb 13 14:52:11 2006 New Revision: 94 Added: usocket/trunk/notes/address-apis.txt Log: Start preparation of step 2. Added: usocket/trunk/notes/address-apis.txt ============================================================================== --- (empty file) +++ usocket/trunk/notes/address-apis.txt Mon Feb 13 14:52:11 2006 @@ -0,0 +1,71 @@ + + -*- text -*- + +Step 2 of the master plan: Implementing (get-local-address sock) and +(get-peer-address sock). + + +Step 2 is about implementing: + + (get-local-address sock) -> ip + (get-peer-address sock) -> ip + (get-local-port sock) -> port + (get-peer-port sock) -> port + + +ABCL +==== + + FFI / J-calls to "getLocalAddress"+"getAddress", "getLocalPort" (local) + FFI / J-calls to "getInetAddress"+"getAddress", "getPort" (peer) + + (see SLIME / swank-abcl.lisp for an example on how to do that) + + +Allegro +======= + + (values (socket:remote-host sock) + (socket:remote-port)) -> 32bit ip, port + + (values (socket:local-host sock) + (socket:local-port sock)) -> 32bit ip, port + +CLISP +===== + + (socket:socket-stream-local sock nil) -> address (as dotted quad), port + (socket:socket-stream-peer sock nil) -> address (as dotted quad), port + + +CMUCL +===== + + (ext:get-peer-host-and-port sock-fd) -> 32-bit-addr, port (peer) + (ext:get-socket-host-and-port sock-fd) -> 32-bit-addr, port (local) + + +LispWorks +========= + + (comm:socket-stream-address sock-stream) -> 32-bit-addr, port + or: (comm:get-socket-address sock) -> 32-bit-addr, port + + (comm:socket-stream-peer-address sock-stream) -> 32-bit-addr, port + or: (comm:get-socket-peer-address sock) -> 32-bit-addr, port + + +OpenMCL +======= + + (values (ccl:local-host sock) (ccl:local-port sock)) -> 32-bit ip, port + (values (ccl:remote-host sock) (ccl:remote-port sock)) -> 32-bit ip, port + + +SBCL +==== + + (sb-bsd-sockets:socket-name sock) -> vector-quad, port + (sb-bsd-sockets:socket-peer-name sock) -> vector-quad, port + +

1 0

[usocket-cvs] r93 - in usocket/trunk: . backend doc
by ehuelsmann＠common-lisp.net 13 Feb '06

13 Feb '06

Author: ehuelsmann Date: Mon Feb 13 14:48:39 2006 New Revision: 93 Modified: usocket/trunk/TODO usocket/trunk/backend/armedbear.lisp usocket/trunk/doc/backends.txt Log: Expand TODO. Modified: usocket/trunk/TODO ============================================================================== --- usocket/trunk/TODO (original) +++ usocket/trunk/TODO Mon Feb 13 14:48:39 2006 @@ -2,10 +2,13 @@ - Check consistency of error translation for each of the backends with the design document. +- check stream creation arguments such as element-type and external-format + for availability in the different lisps. + - Move all function documentation from the backends to (setf documentation) forms in usocket.lisp. -- Extend ABCL socket support with the 4 java errors in java.net +- Extend ABCL socket support with the 4 java errors in java.net.* so that they can map to our usocket errors instead of mapping all errors to unknown-error. Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Mon Feb 13 14:48:39 2006 @@ -22,3 +22,33 @@ (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (ext:socket-close (socket usocket)))) + + +#.(if (find-symbol "SOCKET-LOCAL-ADDRESS" :ext) + ;; abcl 0.0.9 compat code + '(progn + (declaim (inline %socket-address %socket-port)) + (defun %socket-address (socket addressName) + (java:jcall "getHostAddress" (java:jcall-raw addressName socket))) + + (defun %socket-port (socket portName) + (java:jcall portName socket)) + + + + (defun socket-local-address (socket) + "Returns the local address of the given socket as a dotted quad string." + (%socket-address socket "getLocalAddress")) + + (defun socket-peer-address (socket) + "Returns the peer address of the given socket as a dotted quad string." + (%socket-address socket "getInetAddress")) + + (defun socket-local-port (socket) + "Returns the local port number of the given socket." + (%socket-port socket "getLocalPort")) + + (defun socket-peer-port (socket) + "Returns the peer port number of the given socket." + (%socket-port socket "getPort"))) + '(progn)) Modified: usocket/trunk/doc/backends.txt ============================================================================== --- usocket/trunk/doc/backends.txt (original) +++ usocket/trunk/doc/backends.txt Mon Feb 13 14:48:39 2006 @@ -7,16 +7,21 @@ Each backend should implement: -Sockets functions: +Functions: + - handle-condition - socket-connect + - get-hosts-by-name [ optional ] + - get-host-by-address [ optional ] -Sockets methods: +Methods: - socket-close + + An error-handling function, resolving implementation specific errors to this list of errors:

1 0

[usocket-cvs] r92 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 13 Feb '06

13 Feb '06

Author: ehuelsmann Date: Mon Feb 13 14:45:58 2006 New Revision: 92 Modified: usocket/trunk/backend/allegro.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/sbcl.lisp Log: Remove unused TYPE argument to SOCKET-CONNECT. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Mon Feb 13 14:45:58 2006 @@ -5,6 +5,9 @@ (in-package :usocket) +(eval-when (:compile-toplevel :load-toplevel :execute) + (require :sock)) + (defparameter +allegro-identifier-error-map+ '((:address-in-use . address-in-use-error) (:address-not-available . address-not-available-error) @@ -33,8 +36,7 @@ :real-error condition :socket socket)))))) -(defun socket-connect (host port &optional (type :stream)) - (declare (ignore type)) +(defun socket-connect (host port) (let ((socket)) (setf socket (with-mapped-conditions (socket) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Mon Feb 13 14:45:58 2006 @@ -38,8 +38,7 @@ :socket socket :real-error condition)))))) -(defun socket-connect (host port &optional (type :stream)) - (declare (ignore type)) +(defun socket-connect (host port) (let ((socket) (hostname (host-to-hostname host))) (with-mapped-conditions (socket) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Mon Feb 13 14:45:58 2006 @@ -53,7 +53,7 @@ :real-condition condition :socket socket)))) -(defun socket-connect (host port &optional (type :stream)) +(defun socket-connect (host port) (let* ((socket)) (setf socket (with-mapped-conditions (socket) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Mon Feb 13 14:45:58 2006 @@ -47,8 +47,7 @@ ;; :real-condition condition ;; :socket socket)))) -(defun socket-connect (host port &optional (type :stream)) - (declare (ignore type)) +(defun socket-connect (host port) (let ((hostname (host-to-hostname host)) (stream)) (setf stream Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Mon Feb 13 14:45:58 2006 @@ -59,7 +59,7 @@ :real-condition condition)))))) -(defun socket-connect (host port &optional (type :stream)) +(defun socket-connect (host port) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type type :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket

1 0

[usocket-cvs] r91 - in usocket/trunk: doc notes
by ehuelsmann＠common-lisp.net 13 Feb '06

13 Feb '06

Author: ehuelsmann Date: Mon Feb 13 02:01:51 2006 New Revision: 91 Added: usocket/trunk/notes/ usocket/trunk/notes/abcl-socket.txt - copied unchanged from r82, usocket/trunk/doc/abcl-socket.txt usocket/trunk/notes/active-sockets-apis.txt - copied unchanged from r82, usocket/trunk/doc/active-sockets-apis.txt usocket/trunk/notes/allegro-socket.txt - copied unchanged from r82, usocket/trunk/doc/allegro-socket.txt usocket/trunk/notes/clisp-sockets.txt - copied unchanged from r82, usocket/trunk/doc/clisp-sockets.txt usocket/trunk/notes/cmucl-sockets.txt - copied unchanged from r82, usocket/trunk/doc/cmucl-sockets.txt usocket/trunk/notes/errors.txt - copied unchanged from r82, usocket/trunk/doc/errors.txt usocket/trunk/notes/lw-sockets.txt - copied unchanged from r82, usocket/trunk/doc/lw-sockets.txt usocket/trunk/notes/openmcl-sockets.txt - copied unchanged from r82, usocket/trunk/doc/openmcl-sockets.txt usocket/trunk/notes/sb-bsd-sockets.txt - copied unchanged from r82, usocket/trunk/doc/sb-bsd-sockets.txt usocket/trunk/notes/usock-sockets.txt - copied unchanged from r82, usocket/trunk/doc/usock-sockets.txt Removed: usocket/trunk/doc/abcl-socket.txt usocket/trunk/doc/active-sockets-apis.txt usocket/trunk/doc/allegro-socket.txt usocket/trunk/doc/clisp-sockets.txt usocket/trunk/doc/cmucl-sockets.txt usocket/trunk/doc/errors.txt usocket/trunk/doc/lw-sockets.txt usocket/trunk/doc/openmcl-sockets.txt usocket/trunk/doc/sb-bsd-sockets.txt usocket/trunk/doc/usock-sockets.txt Log: Reorganise the tree.

1 0

[usocket-cvs] r90 - usocket/trunk
by ehuelsmann＠common-lisp.net 12 Feb '06

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 16:15:27 2006 New Revision: 90 Modified: usocket/trunk/TODO Log: Extend TODO. Modified: usocket/trunk/TODO ============================================================================== --- usocket/trunk/TODO (original) +++ usocket/trunk/TODO Sun Feb 12 16:15:27 2006 @@ -14,3 +14,7 @@ cl-irc chokes on characters which are non-UTF8 conforming... Probably other clients do too (try that with a binary HTTP stream!) +- change CMUCL implementation to catch name resolution errors: + Don't send host names into connect-to-inet-socket, but use + gethostbyname, binding the return value and the error code. + Raise an error if gethostbyname returns one.

1 0

[usocket-cvs] r89 - usocket/trunk
by ehuelsmann＠common-lisp.net 12 Feb '06

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 16:15:07 2006 New Revision: 89 Modified: usocket/trunk/README Log: Extend README. Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Sun Feb 12 16:15:07 2006 @@ -3,6 +3,31 @@ $Id$ +This is the usocket Common Lisp sockets library: a library to bring +sockets access to the broadest of common lisp implementations as possible. + + +The library currently supports: + + - SBCL + - CMUCL + - ArmedBear + - clisp + - Allegro + - LispWorks + - OpenMCL + - <Your favorite Common Lisp here?> + +If your favorite common lisp misses in the list above, please contact +usocket-devel(a)common-lisp.net and submit a request. Please include +references to available sockets functions in your lisp implementation. + +The library has been ASDF (http://cliki.net/ASDF) enabled, meaning +that you can tar up a checkout and use that to ASDF-INSTALL:INSTALL +the package in your system package site. (Or use your usual ASDF +tricks to use the checkout directly.) + + usocket interface: - usocket (class) @@ -46,14 +71,14 @@ - unkown-condition -TODO: - - socket-create (function) [ to create a passive socket ] - - socket-accept (method) - - socket-local-address (method) - - socket-peer-address (method) KNOWN PROBLEMS - CMUCL error reporting wrt sockets raises only simple-errors meaning there's no way to tell different error conditions apart. All errors are mapped to unknown-error on CMUCL. + +- When running the test suite through the run-usocket-tests.sh shell + script, ArmedBear 0.0.9 will report failure - even when it didn't. + You need a CVS version later than 2006-02-11, or later than 0.0.9 + for the script to work correctly.

1 0

← Newer
1
...
58
59
60
61
62
63
64
...
71
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs