usocket-cvs February 2006

usocket-cvs@common-lisp.net

1 participants
98 discussions

[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

[usocket-cvs] r88 - public_html
by ehuelsmann＠common-lisp.net 12 Feb '06

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 16:12:44 2006 New Revision: 88 Modified: public_html/index.shtml public_html/style.css Log: Update status page. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 12 16:12:44 2006 @@ -118,17 +118,17 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implement remapping of implementation defined errors.</td> - <td class="WIP" title="Work in progress">WIP</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -175,8 +175,30 @@ <td class="TODO">TODO</td> </tr> <tr> - <td>Implement more uncommon api calls such as send and recv + <td>Implement api calls get- and setsockopt.</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + </tr> + <tr> + <td rowspan="2">Implement more uncommon api calls for tcp streams.</td> + <td>send, recv</td> + + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + <td class="TODO">TODO</td> + </tr> + <tr> + <td>shutdown</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> Modified: public_html/style.css ============================================================================== --- public_html/style.css (original) +++ public_html/style.css Sun Feb 12 16:12:44 2006 @@ -85,3 +85,12 @@ color: #fff; text-align: center; font-weight: bold } + +.TOSTART { background-color: #fcc; + color: #000; } + +.RECONSIDER { background-color: #fc3; + color: #000; } + +.CHECKED { background-color: #cfc; + color: #000; }

1 0

[usocket-cvs] r87 - public_html
by ehuelsmann＠common-lisp.net 12 Feb '06

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 15:09:22 2006 New Revision: 87 Modified: public_html/index.shtml Log: Update status page. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Feb 12 15:09:22 2006 @@ -138,7 +138,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td class="FAIL">FAIL</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="2">Add functions to retrieve socket properties:<br />

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 14:58:42 2006 New Revision: 86 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix typo. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sun Feb 12 14:58:42 2006 @@ -35,7 +35,7 @@ (raise-error-from-id (openmcl-socket:socket-error-identifier condition) socket condition)) (ccl::socket-creation-error #| ugh! |# - (raise-error-from-id (ccl::socket-creationg-error-idenitifier condition) + (raise-error-from-id (ccl::socket-creationg-error-identifier condition) socket condition)) (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition))))

1 0

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

12 Feb '06

Author: ehuelsmann Date: Sun Feb 12 14:26:14 2006 New Revision: 85 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix compilation error. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Sun Feb 12 14:26:14 2006 @@ -27,7 +27,7 @@ (let ((usock-err (cdr (assoc condition-id +openmcl-error-map+)))) (if usock-err (error usock-err :socket socket) - (error 'unknown-error :socket socket :real-error real-condition))) + (error 'unknown-error :socket socket :real-error real-condition)))) (defun handle-condition (condition &optional socket) (typecase condition

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs February 2006