usocket-cvs June 2007

usocket-cvs@common-lisp.net

1 participants
17 discussions

[usocket-cvs] r274 - usocket/trunk
by ehuelsmann＠common-lisp.net 24 Jun '07

24 Jun '07

Author: ehuelsmann Date: Sun Jun 24 14:52:30 2007 New Revision: 274 Modified: usocket/trunk/package.lisp Log: Add missing symbols to the export list. Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Sun Jun 24 14:52:30 2007 @@ -43,7 +43,11 @@ #:ip/= #:socket-condition ; conditions + #:ns-condition #:socket-error ; errors + #:ns-error #:unknown-condition - #:unknown-error))) + #:ns-unknown-condition + #:unknown-error + #:ns-unknown-error)))

1 0

[usocket-cvs] r273 - public_html
by ehuelsmann＠common-lisp.net 14 Jun '07

14 Jun '07

Author: ehuelsmann Date: Thu Jun 14 02:34:19 2007 New Revision: 273 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Jun 14 02:34:19 2007 @@ -316,7 +316,7 @@ <td class="WIP" title="missing on Win32">WIP</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> - <td class="TODO">TODO</td> + <td class="DONE">DONE</td> </tr> <tr> <td rowspan="2">Implement more uncommon api calls

1 0

[usocket-cvs] r272 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 13 Jun '07

13 Jun '07

Author: ehuelsmann Date: Wed Jun 13 14:35:26 2007 New Revision: 272 Modified: usocket/trunk/backend/scl.lisp Log: SCL implementation of wait-for-input-internal, submitted by Douglas Crosher. Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Wed Jun 13 14:35:26 2007 @@ -132,3 +132,37 @@ (defun get-host-name () (unix:unix-gethostname)) + +(defun wait-for-input-internal (sockets &key timeout) + (let* ((pollfd-size (alien:alien-size (alien:struct unix::pollfd) :bytes)) + (nfds (length sockets)) + (bytes (* nfds pollfd-size))) + (alien:with-bytes (fds-sap bytes) + (do ((sockets sockets (rest sockets)) + (base 0 (+ base 8))) + ((endp sockets)) + (let ((fd (socket (first sockets)))) + (setf (sys:sap-ref-32 fds-sap base) fd) + (setf (sys:sap-ref-16 fds-sap (+ base 4)) unix::pollin))) + (multiple-value-bind (result errno) + (let ((thread:*thread-whostate* "Poll wait") + (timeout (if timeout + (truncate (* timeout 1000)) + -1))) + (declare (inline unix:unix-poll)) + (unix:unix-poll (alien:sap-alien fds-sap + (* (alien:struct unix::pollfd))) + nfds timeout)) + (cond ((not result) + (error "~@<Polling error: ~A~:@>" + (unix:get-unix-error-msg errno))) + (t + (do ((sockets sockets (rest sockets)) + (base 0 (+ base 8)) + (ready nil)) + ((endp sockets) + (nreverse ready)) + (let ((flags (sys:sap-ref-16 fds-sap (+ base 6)))) + (unless (zerop (logand flags unix::pollin)) + (push (first sockets) ready)))))))))) +

1 0

[usocket-cvs] r271 - public_html
by ehuelsmann＠common-lisp.net 08 Jun '07

08 Jun '07

Author: ehuelsmann Date: Fri Jun 8 17:36:59 2007 New Revision: 271 Modified: public_html/feature-comparison.shtml Log: xhtml compliance. another pass. Modified: public_html/feature-comparison.shtml ============================================================================== --- public_html/feature-comparison.shtml (original) +++ public_html/feature-comparison.shtml Fri Jun 8 17:36:59 2007 @@ -66,7 +66,7 @@ <td>Yes</td> <td>No</td> <td>No</td> - +</tr> <tr><th rowspan="5">Server socket creation</th> <th>Binding specific local port</th> <td colspan="9">Yes</td> @@ -82,7 +82,6 @@ <td>Yes</td> <td>No</td> <td>Yes</td> - </tr> <tr><th>Selectable backlog length</th> <td>No</td> @@ -94,7 +93,7 @@ <td>Yes</td> <td>No</td> <td>Yes</td> - +</tr> <tr><th>reuse-address</th> <td>Yes</td> <td>Yes</td> @@ -105,11 +104,11 @@ <td>Yes</td> <td>No*</td> <td>Yes*</td> - +</tr> <tr><th>:element-type for created connections</th> <td colspan="8">No</td> <td>Yes</td> - +</tr> <tr><th rowspan="5">Accepting connections</th> <th>:element-type for created stream</th> <td>Yes</td> @@ -121,7 +120,7 @@ <td>Yes</td> <td>Yes</td> <td>Yes*</td> - +</tr> <tr><th>:external-format for created stream</th> <td>No</td> <td>No</td>

1 0

[usocket-cvs] r270 - public_html
by ehuelsmann＠common-lisp.net 08 Jun '07

08 Jun '07

Author: ehuelsmann Date: Fri Jun 8 17:35:33 2007 New Revision: 270 Modified: public_html/feature-comparison.shtml Log: xhtml compliance. another pass. Modified: public_html/feature-comparison.shtml ============================================================================== --- public_html/feature-comparison.shtml (original) +++ public_html/feature-comparison.shtml Fri Jun 8 17:35:33 2007 @@ -21,6 +21,7 @@ <div style="border:3px solid black;padding: 2px; margin: 0px"> <table style="border:1px solid black;" border="1" cellspacing="1"> +<tbody> <tr><th colspan="2">Feature</th> <th colspan="8">In trivial-sockets?</th><th rowspan="2">In usocket?</th></tr> <tr><th colspan="2"></th><th title="ArmedBear">ABCL</th> @@ -133,6 +134,7 @@ <td>No</td> </tr> +</tbody> </table> </div>

1 0

[usocket-cvs] r269 - public_html
by ehuelsmann＠common-lisp.net 08 Jun '07

08 Jun '07

Author: ehuelsmann Date: Fri Jun 8 17:34:38 2007 New Revision: 269 Modified: public_html/feature-comparison.shtml Log: xhtml compliance. Thanks to attila_lendvai. Modified: public_html/feature-comparison.shtml ============================================================================== --- public_html/feature-comparison.shtml (original) +++ public_html/feature-comparison.shtml Fri Jun 8 17:34:38 2007 @@ -20,7 +20,7 @@ the former supplies consistent functionality for all backends.</p> <div style="border:3px solid black;padding: 2px; margin: 0px"> -<table style="border:1px solid black;" border=1 cellspacing=1> +<table style="border:1px solid black;" border="1" cellspacing="1"> <tr><th colspan="2">Feature</th> <th colspan="8">In trivial-sockets?</th><th rowspan="2">In usocket?</th></tr> <tr><th colspan="2"></th><th title="ArmedBear">ABCL</th>

1 0

[usocket-cvs] r268 - public_html
by ehuelsmann＠common-lisp.net 06 Jun '07

06 Jun '07

Author: ehuelsmann Date: Wed Jun 6 13:46:15 2007 New Revision: 268 Modified: public_html/api-docs.shtml Log: DTD compliance. Modified: public_html/api-docs.shtml ============================================================================== --- public_html/api-docs.shtml (original) +++ public_html/api-docs.shtml Wed Jun 6 13:46:15 2007 @@ -55,9 +55,9 @@ <dt>Specification of a <em>host</em> parameter</dt> <dd>A <em>host</em> parameter may be any one of <ul> - <li>32-bit positive integer, - <li>a string containing an IP addres in dotted notation, or - <li> a host name to be resolved through DNS lookup. + <li>32-bit positive integer,</li> + <li>a string containing an IP addres in dotted notation, or</li> + <li> a host name to be resolved through DNS lookup.</li> </ul> </dd> </dl> @@ -65,7 +65,7 @@ <h2>Functions for socket creation and manipulation</h2> <dl> -<dt class="sym"><span class=function-name>socket-connect</span> host port &key element-type => socket</dt> +<dt class="sym"><span class="function-name">socket-connect</span> host port &key element-type => socket</dt> <dd> <p>Creates a tcp (stream) socket to the <em>host</em> and <em>port</em> specified. The return value is @@ -75,7 +75,7 @@ construction of the associated stream.</p></dd> <dt class="sym"> -<span class=function-name>socket-listen</span> host port &key reuse-address backlog element-type => socket</dt> +<span class="function-name">socket-listen</span> host port &key reuse-address backlog element-type => socket</dt> <dd><p>Creates and returns a passive ("server") socket associated with <em>host</em> and <em>port</em>. The object returned is of subtype <a href="#stream-server-usocket">stream-server-usocket</a>.</p> <p><em>host</em> names a local interface.<br /> @@ -87,7 +87,7 @@ </p></dd> -<dt class="sym"><span class=function-name><a name="socket-accept">socket-accept</a></span> socket &key element-type => new-socket</dt> +<dt class="sym"><span class="function-name"><a name="socket-accept">socket-accept</a></span> socket &key element-type => new-socket</dt> <dd><p>Creates and returns an active ("connected") stream socket <em>new-socket</em> from the <em>socket</em> passed. The return value is a socket object of class <em><a href="#stream-usocket">stream-usocket</a></em>.</p> @@ -97,7 +97,7 @@ </p> </dd> -<dt class="sym"><span class=function-name>socket-close</span> socket</dt> +<dt class="sym"><span class="function-name">socket-close</span> socket</dt> <dd><p>Flushes the stream associated with the socket and closes the socket connection.</p></dd> @@ -122,7 +122,7 @@ <dt class="sym"><span class="class-name"><a name="usocket">usocket</a></span></dt> <dd>Slots: <dl> - <dt><span class="slot-name">socket</span> :accessor socket</td> + <dt><span class="slot-name">socket</span> :accessor socket</dt> <dd><p>Used to store sockets as used by the current implementation - may be any of socket handles, socket objects and stream objects</p></dd></dl> </dd> @@ -130,7 +130,7 @@ <dd>Parent classes: usocket<br /> Slots: <dl> - <dt><span class="slot-name">stream</span> :accessor socket-stream</td> + <dt><span class="slot-name">stream</span> :accessor socket-stream</dt> <dd><p>Used to store the stream associated with the tcp socket connection.<br /> When you want to write to the socket stream, use this function.</p></dd></dl> </dd> @@ -139,7 +139,7 @@ <dd>Parent classes: usocket<br /> Slots: <dl> - <dt><span class="slot-name">element-type</span> :reader element-type</td> + <dt><span class="slot-name">element-type</span> :reader element-type</dt> <dd><p>Indicates the default element-type to be used when constructing streams off this socket when no element type is specified in the call to <em><a href="#socket-accept">socket-accept</a></em>.</p></dd></dl> </dd>

1 0

[usocket-cvs] r267 - public_html
by ehuelsmann＠common-lisp.net 06 Jun '07

06 Jun '07

Author: ehuelsmann Date: Wed Jun 6 13:42:44 2007 New Revision: 267 Modified: public_html/api-docs.shtml Log: Some layout improvements. And extra FAQ info. Modified: public_html/api-docs.shtml ============================================================================== --- public_html/api-docs.shtml (original) +++ public_html/api-docs.shtml Wed Jun 6 13:42:44 2007 @@ -7,11 +7,27 @@ <link rel="stylesheet" type="text/css" href="style.css"/> <meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"/> <style type="text/css"> -dt.sym { font-weight: normal; width: 100%; background-color: #8ca } +dt.sym { + font-weight: normal; + background-color: #8ca; + border-bottom: 1px solid gray; + border-left: 1px solid #bbb; + padding-left: 1ex; +} .function-name { font-weight: bold } .class-name { font-weight: bold } .slot-name { font-weight: bold } .var-name { font-weight: bold } +dl.faq dt { + margin-top: 1em; + font-weight: bold; + font-size: larger; +} +pre { + background-color: #ace; + padding: 1ex; + border: 1px solid black; +} </style> </head> <body> @@ -142,7 +158,7 @@ <h1><a name="faqs">How do I ...</a></h1> -<dl> +<dl class="faq"> <dt>... check whether the other end has closed my socket stream? </dt> <dd>Reading from a stream which has been closed at the remote end @@ -154,7 +170,11 @@ <dd>When you want to check <b>one</b> stream for readiness of input, call the <a href="http://www.lisp.org/HyperSpec/Body/fun_listen.html">listen</a> - function on the stream object associated with the socket. + function on the stream object associated with the socket.<br /> + Example: +<pre>(listen (usocket:socket-stream your-socket)) + ==> NIL (if no input is available) +</pre> </dd> <dt>... wait for input to become available on (at least) one stream (of a set) </dt> @@ -163,7 +183,53 @@ for all platforms (except SBCL and LispWorks; both Win32) it's already available in trunk (svn://common-lisp.net/project/usocket/svn/usocket/trunk). <br /> - If you want to use this code you're most welcome and feedback is appreciated. + If you want to use this code you're most welcome and feedback is appreciated.<br /> + Example to be used with trunk: +<pre>(usocket:wait-for-input (list socket1 socket2 socket3) :timeout <your optional timeout value>) + ==> list-of-sockets-to-read-from</pre> +</dd> +<dt>... convert my existing trivial-sockets based application to usocket? +</dt> +<dd>There are actually 3 answers to that question. + <ol> + <li>Rewrite your code to keep a usocket object instead of the stream + object returned by trivial-sockets.</li> + <li>The quick conversion with the good performance characteristics + (use only when you don't want to use the socket object):<br /> + Replace all your invocations of +<pre> + (trivial-sockets:open-socket-stream ....) + +with + (usocket:socket-stream (usocket:socket-connect ...)) +</pre> + +And replace all invocations of +<pre> + (trivial-sockets:socket-accept ...) + +with + (usocket:socket-stream (usocket:socket-accept ...)) +</pre> + +And replace all invocations of +<pre> + (trivial-sockets:open-server ...) + +with + (usocket:socket-listen ...) +</pre></li> + <li>And the last option which provides a compatible + (but slower, because it uses Gray streams) interface is to use + trivial-usocket.<br /> + The trivial-usocket package provides a 1-1 mapped interface to + trivial-sockets, but uses Gray streams; that way, it's later possible + to retrieve the socket object from the stream returned and to use that + socket for other usocket operations. Use this approach as a migration + path where you're not rewriting your application at once, but in + small steps. + </li> + </ol> </dd> </dl>

1 0

[usocket-cvs] r266 - public_html
by ehuelsmann＠common-lisp.net 06 Jun '07

06 Jun '07

Author: ehuelsmann Date: Wed Jun 6 03:11:22 2007 New Revision: 266 Modified: public_html/api-docs.shtml Log: Start a FAQ. Modified: public_html/api-docs.shtml ============================================================================== --- public_html/api-docs.shtml (original) +++ public_html/api-docs.shtml Wed Jun 6 03:11:22 2007 @@ -15,7 +15,13 @@ </style> </head> <body> -<h1>usocket API documentation</h1> + +<ul> +<li><a href="#docs">API documentation</a></li> +<li><a href="#faqs">How do I ... (FAQ)</a></li> +</ul> + +<h1><a name="docs">usocket API documentation</a></h1> <p style="font-size:8px">$Id$ <br /> Work in progress.</p> @@ -133,12 +139,41 @@ retrieved from the returned socket by calling <em><a href="#get-local-port">get-local-port</a></em>.</p></dd> </dl> + +<h1><a name="faqs">How do I ...</a></h1> + +<dl> +<dt>... check whether the other end has closed my socket stream? +</dt> +<dd>Reading from a stream which has been closed at the remote end + signals an END-OF-FILE condition, meaning that reading from the stream + and detecting that condition is the way to do it. +</dd> +<dt>... check whether reading from a socket stream will block? +</dt> +<dd>When you want to check <b>one</b> stream for readiness of input, + call the + <a href="http://www.lisp.org/HyperSpec/Body/fun_listen.html">listen</a> + function on the stream object associated with the socket. +</dd> +<dt>... wait for input to become available on (at least) one stream (of a set) +</dt> +<dd>Currently, that's hard to do efficiently if you want to use releases. + The next minor release (0.4.0) will include this functionality and + for all platforms (except SBCL and LispWorks; both Win32) it's already + available in trunk (svn://common-lisp.net/project/usocket/svn/usocket/trunk). + <br /> + If you want to use this code you're most welcome and feedback is appreciated. +</dd> + +</dl> + + <div style="float:left;font-size:x-small;font-weight:bold"> Back to <a href="http://common-lisp.net/">Common-lisp.net</a>. </div> <div class="check" style="float:right"> <a href="http://validator.w3.org/check/referer">Valid XHTML 1.0 Strict</a> </div> - </body> </html>

1 0

[usocket-cvs] r265 - public_html
by ehuelsmann＠common-lisp.net 05 Jun '07

05 Jun '07

Author: ehuelsmann Date: Tue Jun 5 17:20:43 2007 New Revision: 265 Modified: public_html/feature-comparison.shtml public_html/implementation-comparison.shtml public_html/index.shtml Log: Update webpages. Modified: public_html/feature-comparison.shtml ============================================================================== --- public_html/feature-comparison.shtml (original) +++ public_html/feature-comparison.shtml Tue Jun 5 17:20:43 2007 @@ -19,7 +19,8 @@ The latter implements different feature-sets for different backends while the former supplies consistent functionality for all backends.</p> -<table style="border:3px solid black"> +<div style="border:3px solid black;padding: 2px; margin: 0px"> +<table style="border:1px solid black;" border=1 cellspacing=1> <tr><th colspan="2">Feature</th> <th colspan="8">In trivial-sockets?</th><th rowspan="2">In usocket?</th></tr> <tr><th colspan="2"></th><th title="ArmedBear">ABCL</th> @@ -29,7 +30,7 @@ <th>LispWorks</th> <th>OpenMCL</th> <th>SBCL</th> - <th>(all)</th> + <th>overall</th> </tr> <tr><th rowspan="3">Client side tcp streams</th><th>:element-type</th> <td>Yes</td>  @@ -67,7 +68,7 @@ <tr><th rowspan="5">Server socket creation</th> <th>Binding specific local port</th> - <td colspan="8">Yes</td> + <td colspan="9">Yes</td> </tr> <tr><th>Binding specific local interface</th> @@ -105,7 +106,7 @@ <td>Yes*</td> <tr><th>:element-type for created connections</th> - <td colspan="7">No</td> + <td colspan="8">No</td> <td>Yes</td> <tr><th rowspan="5">Accepting connections</th> @@ -133,11 +134,20 @@ </tr> </table> +</div> <p>In summary: there are only a very limited number of features you can depend on to work on all platforms supported by trivial-sockets. While usocket doesn't support all features, you can depend on the features to be available. </p> +<hr /> + +<div style="float:left;font-size:x-small;font-weight:bold"> +Back to <a href="http://common-lisp.net/">Common-lisp.net</a>. +</div> + <div class="check" style="float:right"> + <a href="http://validator.w3.org/check/referer">Valid XHTML 1.0 Strict</a> + </div> </body> </html> Modified: public_html/implementation-comparison.shtml ============================================================================== --- public_html/implementation-comparison.shtml (original) +++ public_html/implementation-comparison.shtml Tue Jun 5 17:20:43 2007 @@ -48,6 +48,8 @@ </tr> <tr><th>Corman</th><td>no</td><td>yes</td><td>no</td><td>no (to come)</td><td>no</td><td>no</td> </tr> +<tr style="background-color:#efe"><th>Total #</th><td>8</td><td>7(+1)</td><td>4</td><td>9</td><td>6</td><td>3</td> +</tr> </tbody> Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue Jun 5 17:20:43 2007 @@ -40,9 +40,23 @@ <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> -<p>See the <a href="feature-comparison.shtml">feature comparison</a> with +<h3>Comparison to other socket libraries</h3> + +<p>Since usocket is effectively the succesor to trivial-sockets, see the + <a href="feature-comparison.shtml">feature comparison</a> with trivial-sockets in order to find out which one you should use.</p> +<p>After starting the project, many others turned out to have worked on + something alike, many times as part of a broader project or library. + Some of them were known at the start of this project, others have + been conceived after the usocket project already started. Not all of + them have exactly the same portability goal.</p> + +<p>See the <a href="implementation-comparison.shtml">Implementation + comparison</a> page for a comparison of the portability of other + libaries and how that relates to usocket.</p> + + <h2><a name="documentation">Documentation</a></h2> <p>See the documentation page for the <a href="./api-docs.shtml">API description</a>.</p> @@ -63,11 +77,6 @@ <li>Scieneer</li> </ul> -<p>To see how this list relates to the supported implementations in other -socket libraries, see the -<a href="implementation-comparison.shtml">Implementation comparison</a> -page.</p> - <h2><a name="community">Community</a></h2> <p>This project has started Januari 2006. There isn't much of a community

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs June 2007