February 2006 - usocket-cvs@common-lisp.net

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 01:49:57 2006 New Revision: 104 Modified: usocket/trunk/test/test-usocket.lisp Log: Add 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 01:49:57 2006 @@ -122,6 +122,28 @@ #+clisp "HTTP/1.1 200 OK" #-clisp #.(format nil "HTTP/1.1 200 OK~A" #\Return) nil) +(deftest socket-name.1 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-peer-address sock) + (usocket:socket-close sock)))) + #(65 110 12 237)) +(deftest socket-name.2 + (with-caught-conditions (nil nil) + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (usocket::get-peer-port sock) + (usocket:socket-close sock)))) + 80) +(deftest socket-name.2 + (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) + (defun run-usocket-tests () (do-tests))

1 0

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 01:49:40 2006 New Revision: 103 Modified: usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/sbcl.lisp Log: nth-value is zero based ... Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Fri Feb 17 01:49:40 2006 @@ -69,14 +69,14 @@ (values (dotted-quad-to-vector-quad address) port))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Feb 17 01:49:40 2006 @@ -87,16 +87,16 @@ (values (hbo-to-vector-quad address) port))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) (defun get-host-by-address (address) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Fri Feb 17 01:49:40 2006 @@ -77,13 +77,13 @@ (values (hbo-to-vector-quad address) port))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Feb 17 01:49:40 2006 @@ -85,16 +85,16 @@ (sb-bsd-sockets:socket-peername (socket usocket))) (defmethod get-local-address ((usocket usocket)) - (nth-value 1 (get-local-name usocket))) + (nth-value 0 (get-local-name usocket))) (defmethod get-peer-address ((usocket usocket)) - (nth-value 1 (get-peer-name usocket))) + (nth-value 0 (get-peer-name usocket))) (defmethod get-local-port ((usocket usocket)) - (nth-value 2 (get-local-name usocket))) + (nth-value 1 (get-local-name usocket))) (defmethod get-peer-port ((usocket usocket)) - (nth-value 2 (get-peer-name usocket))) + (nth-value 1 (get-peer-name usocket))) (defun get-host-by-address (address)

1 0

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

17 Feb '06

Author: ehuelsmann Date: Fri Feb 17 01:20:41 2006 New Revision: 102 Modified: usocket/trunk/backend/cmucl.lisp Log: Make tests pass again. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Fri Feb 17 01:20:41 2006 @@ -57,7 +57,7 @@ (let* ((socket)) (setf socket (with-mapped-conditions (socket) - (ext:connect-to-inet-socket (host-to-hbo host) port type))) + (ext:connect-to-inet-socket (host-to-hbo host) port :stream))) (if socket (let* ((stream (sys:make-fd-stream socket :input t :output t :element-type 'character

1 0

[usocket-cvs] r101 - public_html usocket/trunk usocket/trunk/backend
by ehuelsmann＠common-lisp.net 16 Feb '06

16 Feb '06

Author: ehuelsmann Date: Thu Feb 16 17:36:45 2006 New Revision: 101 Modified: public_html/index.shtml usocket/trunk/backend/allegro.lisp usocket/trunk/backend/armedbear.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/openmcl.lisp usocket/trunk/backend/sbcl.lisp usocket/trunk/usocket.lisp Log: First step at implementing socket addresses. Also update site. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 16 17:36:45 2006 @@ -142,27 +142,37 @@ <td class="PASS">PASS</td> </tr> <tr> - <td rowspan="2">Add functions to retrieve socket properties:<br /> + <td rowspan="3">Add functions to retrieve socket properties:<br /> Local and remote IP address and port.</td> <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" >Investigate interfaces provided</a></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> + <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="DONE">DONE</td>  + <td class="DONE">DONE</td>  </tr> <tr> <td>Implement it.</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> + <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="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="UNTESTED">?</td> + <td class="UNTESTED">?</td> </tr> <tr> <td rowspan="2">Add support for passive (connection-accepting/server) Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Thu Feb 16 17:36:45 2006 @@ -50,6 +50,26 @@ (close (socket usocket)))) +(defmethod get-local-address ((usocket usocket)) + (hbo-to-vector-quad (socket:local-host (socket usocket)))) + +(defmethod get-peer-address ((usocket usocket)) + (hbo-to-vector-quad (socket:remote-host (socket usocket)))) + +(defmethod get-local-port ((usocket usocket)) + (socket:local-port (socket usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (socket:remote-port (socket usocket))) + +(defmethod get-local-name ((usocket usocket)) + (values (get-local-address usocket) + (get-local-port usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (values (get-peer-address usocket) + (get-peer-port usocket))) + (defun get-host-by-address (address) (with-mapped-conditions () Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Thu Feb 16 17:36:45 2006 @@ -24,7 +24,7 @@ (ext:socket-close (socket usocket)))) -#.(if (find-symbol "SOCKET-LOCAL-ADDRESS" :ext) +#.(if (null (find-symbol "SOCKET-LOCAL-ADDRESS" :ext)) ;; abcl 0.0.9 compat code '(progn (declaim (inline %socket-address %socket-port)) @@ -51,4 +51,26 @@ (defun socket-peer-port (socket) "Returns the peer port number of the given socket." (%socket-port socket "getPort"))) - '(progn)) + '(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)))) + +(defmethod get-peer-address ((usocket usocket)) + (dotted-quad-to-vector-quad (socket-peer-address (socket usocket)))) + +(defmethod get-local-port ((usocket usocket)) + (socket-local-port (socket usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (socket-peer-port (socket usocket))) + +(defmethod get-local-name ((usocket usocket)) + (values (get-local-address usocket) + (get-local-port usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (values (get-peer-address usocket) + (get-peer-port usocket))) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Thu Feb 16 17:36:45 2006 @@ -56,3 +56,27 @@ (with-mapped-conditions (usocket) (close (socket usocket)))) +(defmethod get-local-name ((usocket usocket)) + (multiple-value-bind + (address port) + (socket:socket-stream-local (socket usocket) nil) + (values (dotted-quad-to-vector-quad address) port))) + +(defmethod get-peer-name ((usocket usocket)) + (multiple-value-bind + (address port) + (socket:socket-stream-peer (socket usocket) nil) + (values (dotted-quad-to-vector-quad address) port))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) + Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Thu Feb 16 17:36:45 2006 @@ -74,6 +74,29 @@ (with-mapped-conditions (usocket) (ext:close-socket (socket usocket)))) +(defmethod get-local-name ((usocket usocket)) + (multiple-value-bind + (address port) + (ext:get-socket-host-and-port (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-peer-name ((usocket usocket)) + (multiple-value-bind + (address port) + (ext:get-peer-host-and-port (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) (defun get-host-by-address (address) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Thu Feb 16 17:36:45 2006 @@ -64,3 +64,26 @@ "Close socket." (close (socket-stream usocket))) +(defmethod get-local-name ((usocket usocket)) + (multiple-value-bind + (address port) + (comm:get-socket-address (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-peer-name ((usocket usocket)) + (multiple-value-bind + (address port) + (comm:get-socket-peer-address (socket usocket)) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Thu Feb 16 17:36:45 2006 @@ -51,3 +51,23 @@ (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) (close (socket usocket)))) + +(defmethod get-local-address ((usocket usocket)) + (hbo-to-vector-quad (openmcl-socket:local-host (socket usocket)))) + +(defmethod get-peer-address ((usocket usocket)) + (hbo-to-vector-quad (openmcl-socket:remote-host (socket usocket)))) + +(defmethod get-local-port ((usocket usocket)) + (openmcl-socket:local-port (socket usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (openmcl-socket:remote-port (socket usocket))) + +(defmethod get-local-name ((usocket usocket)) + (values (get-local-address usocket) + (get-local-port usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (values (get-peer-address usocket) + (get-peer-port usocket))) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Thu Feb 16 17:36:45 2006 @@ -61,7 +61,7 @@ (defun socket-connect (host port) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket - :type type :protocol :tcp)) + :type :stream :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket :input t :output t @@ -78,6 +78,23 @@ (with-mapped-conditions (usocket) (sb-bsd-sockets:socket-close (socket usocket)))) +(defmethod get-local-name ((usocket usocket)) + (sb-bsd-sockets:socket-name (socket usocket))) + +(defmethod get-peer-name ((usocket usocket)) + (sb-bsd-sockets:socket-peername (socket usocket))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 2 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 2 (get-peer-name usocket))) (defun get-host-by-address (address) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Thu Feb 16 17:36:45 2006 @@ -30,6 +30,27 @@ (defgeneric socket-close (usocket) (:documentation "Close a previously opened `usocket'.")) +(defgeneric get-local-address (socket) + (:documentation "Returns the IP address of the socket.")) + +(defgeneric get-peer-address (socket) + (:documentation + "Returns the IP address of the peer the socket is connected to.")) + +(defgeneric get-local-port (socket) + (:documentation "Returns the IP port of the socket.")) + +(defgeneric get-peer-port (socket) + (:documentation "Returns the IP port of the peer the socket to.")) + +(defgeneric get-local-name (socket) + (:documentation "Returns the IP address and port of the socket as values.")) + +(defgeneric get-peer-name (socket) + (:documentation + "Returns the IP address and port of the peer +the socket is connected to as values.")) + (defmacro with-connected-socket ((var socket) &body body) "Bind `socket' to `var', ensuring socket destruction on exit.

1 0

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

16 Feb '06

Author: ehuelsmann Date: Thu Feb 16 13:47:49 2006 New Revision: 100 Modified: public_html/index.shtml Log: Fix xhtml conformance issue. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 16 13:47:49 2006 @@ -145,7 +145,7 @@ <td rowspan="2">Add functions to retrieve socket properties:<br /> Local and remote IP address and port.</td> <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" - >Investigate interfaces provided</td> + >Investigate interfaces provided</a></td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

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

16 Feb '06

Author: ehuelsmann Date: Thu Feb 16 13:46:01 2006 New Revision: 99 Modified: public_html/index.shtml Log: Update website with changed repository structure. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 16 13:46:01 2006 @@ -75,13 +75,13 @@ <tr> <th></th> <th>Minor steps</th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">SBCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">CMUCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">ABCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">clisp</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">Allegro</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">LispWorks</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">OpenMCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">SBCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">CMUCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">ABCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">clisp</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">Allegro</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">LispWorks</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">OpenMCL</a></th> </tr> </thead> <tbody> @@ -90,7 +90,8 @@ at the same level as provided by <a href="http://cliki.net/trivial-sockets">trivial-sockets</a>.<br /> (Meaning streamed tcp traffic on connected sockets.)</td> - <td>Investigate interfaces provided.</td> + <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" + >Investigate interfaces provided.</a></td> <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  @@ -143,7 +144,8 @@ <tr> <td rowspan="2">Add functions to retrieve socket properties:<br /> Local and remote IP address and port.</td> - <td>Investigate interfaces provided</td> + <td><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…" + >Investigate interfaces provided</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td>

1 0

[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