usocket-cvs February 2006

usocket-cvs@common-lisp.net

1 participants
98 discussions

[usocket-cvs] r114 - usocket/trunk/doc
by ehuelsmann＠common-lisp.net 21 Feb '06

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 13:35:32 2006 New Revision: 114 Modified: usocket/trunk/doc/backends.txt Log: Update docs. Modified: usocket/trunk/doc/backends.txt ============================================================================== --- usocket/trunk/doc/backends.txt (original) +++ usocket/trunk/doc/backends.txt Tue Feb 21 13:35:32 2006 @@ -18,8 +18,15 @@ Methods: - socket-close + - get-local-name + - get-peer-name + and - for ip sockets - these methods: + - get-local-address + - get-local-port + - get-peer-address + - get-peer-port An error-handling function, resolving implementation specific errors

1 0

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

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 08:17:50 2006 New Revision: 113 Modified: usocket/trunk/TODO Log: Update TODO. Modified: usocket/trunk/TODO ============================================================================== --- usocket/trunk/TODO (original) +++ usocket/trunk/TODO Tue Feb 21 08:17:50 2006 @@ -18,3 +18,5 @@ 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. + +- Add INET6 support.

1 0

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

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 08:16:01 2006 New Revision: 112 Modified: usocket/trunk/notes/abcl-socket.txt Log: Update documentation. Modified: usocket/trunk/notes/abcl-socket.txt ============================================================================== --- usocket/trunk/notes/abcl-socket.txt (original) +++ usocket/trunk/notes/abcl-socket.txt Tue Feb 21 08:16:01 2006 @@ -1,9 +1,10 @@ ABCL provides a callback interface to java objects, next to these calls: - - make-socket - - socket-close - - make-server-socket + - ext:make-socket + - ext:socket-close + - ext:make-server-socket + - ext:socket-accept - ext:get-socket-stream (returning an io-stream) abcl-swank (see SLIME) shows how to call directly into java.

1 0

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

21 Feb '06

Author: ehuelsmann Date: Tue Feb 21 08:02:06 2006 New Revision: 111 Modified: public_html/index.shtml Log: Update website Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue Feb 21 08:02:06 2006 @@ -20,9 +20,23 @@ possible, while keeping the abstraction and portability layer as thin as possible. </p> -<p>If your lisp isn't mentioned in the table below, please feel free to +<p>If your lisp isn't mentioned in the list below, please feel free to submit a request for it at the mailing list mentioned below.</p> +<h2>Supported implementations</h2> + +<p>Currently these implementations are supported:</p> + +<ul> + <li>SBCL</li> + <li>CMUCL</li> + <li>Armedbear (newer than 0.0.9)</li> + <li>clisp</li> + <li>Allegro</li> + <li>LispWorks</li> + <li>OpenMCL</li> +</ul> + <h2>Community</h2> <p>This project has recently started. There isn't much of a community @@ -168,7 +182,7 @@ <td>Implementation test-suite status</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td title="Recent CVS only" class="PASS">PASS</td> + <td title="Recent CVS only" class="PASS">pass</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td>

1 0

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 16:41:10 2006 New Revision: 110 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 17 16:41:10 2006 @@ -162,7 +162,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP">WIP</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -172,7 +172,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td class="UNTESTED">?</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="2">Add support for passive (connection-accepting/server)

1 0

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:53:53 2006 New Revision: 109 Modified: usocket/trunk/package.lisp Log: Export new interfaces. Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Fri Feb 17 14:53:53 2006 @@ -10,23 +10,29 @@ (eval-when (:execute :load-toplevel :compile-toplevel) (defpackage :usocket (:use :cl) - (:export :socket-connect ; socket constructors and methods - :socket-close + (:export #:socket-connect ; socket constructors and methods + #:socket-close + #:get-local-address + #:get-peer-address + #:get-local-port + #:get-peer-port + #:get-local-name + #:get-peer-name - :with-connected-socket ; macros + #:with-connected-socket ; macros - :usocket ; socket object and accessors - :socket - :socket-stream + #:usocket ; socket object and accessors + #:socket + #:socket-stream - :host-byte-order ; IPv4 utility functions - :hbo-to-dotted-quad - :hbo-to-vector-quad - :vector-quad-to-dotted-quad - :dotted-quad-to-vector-quad + #:host-byte-order ; IPv4 utility functions + #:hbo-to-dotted-quad + #:hbo-to-vector-quad + #:vector-quad-to-dotted-quad + #:dotted-quad-to-vector-quad - :socket-condition ; conditions - :socket-error ; errors - :unknown-condition - :unknown-error))) + #:socket-condition ; conditions + #:socket-error ; errors + #:unknown-condition + #:unknown-error)))

1 0

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:51:29 2006 New Revision: 108 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 17 14:51:29 2006 @@ -161,7 +161,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="WIP">WIP</td> + <td class="DONE">DONE</td> <td class="WIP">WIP</td> </tr> <tr> @@ -171,7 +171,7 @@ <td title="Recent CVS only" class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> - <td class="UNTESTED">?</td> + <td class="PASS">PASS</td> <td class="UNTESTED">?</td> </tr> <tr>

1 0

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:37:40 2006 New Revision: 107 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 17 14:37:40 2006 @@ -156,21 +156,21 @@ </tr> <tr> <td>Implement it.</td> - <td class="WIP">WIP</td> - <td class="WIP">WIP</td> - <td class="WIP">WIP</td> - <td class="WIP">WIP</td> - <td class="WIP">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">WIP</td> <td class="WIP">WIP</td> </tr> <tr> <td>Implementation test-suite status</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> - <td class="UNTESTED">?</td> + <td class="PASS">PASS</td> + <td class="PASS">PASS</td> + <td title="Recent CVS only" class="PASS">PASS</td> + <td class="PASS">PASS</td> + <td class="PASS">PASS</td> <td class="UNTESTED">?</td> <td class="UNTESTED">?</td> </tr>

1 0

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:27:51 2006 New Revision: 106 Modified: usocket/trunk/backend/armedbear.lisp Log: Remove non-working 0.0.9 compat code. Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Fri Feb 17 14:27:51 2006 @@ -24,48 +24,18 @@ (ext:socket-close (socket usocket)))) -#.(if (null (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 - (import (:socket-peer-port :socket-peer-address - :socket-local-port :socket-local-address) :ext))) (defmethod get-local-address ((usocket usocket)) - (dotted-quad-to-vector-quad (socket-local-address (socket usocket)))) + (dotted-quad-to-vector-quad (ext:socket-local-address (socket usocket)))) (defmethod get-peer-address ((usocket usocket)) - (dotted-quad-to-vector-quad (socket-peer-address (socket usocket)))) + (dotted-quad-to-vector-quad (ext:socket-peer-address (socket usocket)))) (defmethod get-local-port ((usocket usocket)) - (socket-local-port (socket usocket))) + (ext:socket-local-port (socket usocket))) (defmethod get-peer-port ((usocket usocket)) - (socket-peer-port (socket usocket))) + (ext:socket-peer-port (socket usocket))) (defmethod get-local-name ((usocket usocket)) (values (get-local-address usocket)

1 0

[usocket-cvs] r105 - usocket/trunk/test
by ehuelsmann＠common-lisp.net 17 Feb '06

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 14:26:47 2006 New Revision: 105 Modified: usocket/trunk/test/test-usocket.lisp Log: More tests. Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 17 14:26:47 2006 @@ -136,13 +136,20 @@ (usocket::get-peer-port sock) (usocket:socket-close sock)))) 80) -(deftest socket-name.2 +(deftest socket-name.3 (with-caught-conditions (nil nil) (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) (unwind-protect (usocket::get-peer-name sock) (usocket:socket-close sock)))) #(65 110 12 237) 80) +(deftest socket-name.4 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-local-address sock) + (usocket:socket-close sock)))) + #(10 0 0 252)) (defun run-usocket-tests ()

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs February 2006