usocket-cvs May 2007

usocket-cvs@common-lisp.net

1 participants
29 discussions

[usocket-cvs] r237 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 16 May '07

16 May '07

Author: ehuelsmann Date: Wed May 16 02:42:52 2007 New Revision: 237 Modified: usocket/trunk/backend/lispworks.lisp Log: Add cl-smtp 'requirement': get-host-name (Lispworks backend). Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Wed May 16 02:42:52 2007 @@ -9,6 +9,22 @@ (require "comm")) #+win32 +(fli:register-module "ws2_32") + +(fli:define-foreign-function (get-host-name-internal "gethostname" :source) + ((return-string (:reference-return (:ef-mb-string :limit 257))) + (namelen :int)) + :lambda-list (&aux (namelen 256) return-string) + :result-type :int + #+win32 :module #+win32 "ws2_32") + +(defun get-host-name () + (multiple-value-bind (retcode name) + (get-host-name-internal) + (when (= 0 retcode) + name))) + +#+win32 (defun remap-maybe-for-win32 (z) (mapcar #'(lambda (x) (cons (mapcar #'(lambda (y)

1 0

[usocket-cvs] r236 - usocket/trunk
by ehuelsmann＠common-lisp.net 08 May '07

08 May '07

Author: ehuelsmann Date: Tue May 8 18:05:52 2007 New Revision: 236 Modified: usocket/trunk/usocket.lisp Log: Add generic function for socket-accept. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Tue May 8 18:05:52 2007 @@ -89,6 +89,13 @@ :socket socket :element-type element-type)) +(defgeneric socket-accept (socket &key element-type) + (:documentation + "Accepts a connection from `socket', returning a `stream-socket'. + +The stream associated with the socket returned has `element-type' when +explicitly specified, or the element-type passed to `socket-listen' otherwise.")) + (defgeneric socket-close (usocket) (:documentation "Close a previously opened `usocket'.")) @@ -314,11 +321,3 @@ `reuse-address' have been specified, the latter takes precedence. ") -;; Documentation for the function -;; -;; (defun SOCKET-ACCEPT (socket &key element-type) -(setf (documentation 'socket-accept 'function) - "Accepts a connection from `socket', returning a `stream-socket'. - -The stream associated with the socket returned has `element-type' when -explicitly specified, or the element-type passed to `socket-listen' otherwise.")

1 0

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

08 May '07

Author: ehuelsmann Date: Tue May 8 17:58:17 2007 New Revision: 235 Modified: public_html/index.shtml Log: Fix more xhtml compliance. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue May 8 17:58:17 2007 @@ -370,7 +370,7 @@ <tr><td>Feb 26, 2007</td> <td>re-release</td> <td>Re-release of 0.2.3, 0.2.4, 0.2.5 and 0.3.0 tarballs - because the originals included Subversion administration areas.</td><tr> + because the originals included Subversion administration areas.</td></tr> <tr><td>Jan 21, 2007</td> <td><b>0.3.0</b></td><td><b>Server sockets</b></td></tr> <tr><td>Jan 19, 2007</td>

1 0

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

08 May '07

Author: ehuelsmann Date: Tue May 8 17:56:09 2007 New Revision: 234 Modified: public_html/index.shtml Log: Fix xhtml compliance. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue May 8 17:56:09 2007 @@ -372,7 +372,7 @@ <td>Re-release of 0.2.3, 0.2.4, 0.2.5 and 0.3.0 tarballs because the originals included Subversion administration areas.</td><tr> <tr><td>Jan 21, 2007</td> - <td><b>0.3.0<b></td><td><b>Server sockets</b></td></tr> + <td><b>0.3.0</b></td><td><b>Server sockets</b></td></tr> <tr><td>Jan 19, 2007</td> <td>0.2.5</td><td>Allegro compilation fix.</td></tr> <tr><td>Jan 17, 2007</td>

1 0

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

08 May '07

Author: ehuelsmann Date: Tue May 8 17:53:57 2007 New Revision: 233 Modified: public_html/index.shtml Log: Update project homepage with latest project status. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Tue May 8 17:53:57 2007 @@ -32,6 +32,10 @@ <p>See the <a href="feature-comparison.shtml">feature comparison</a> with trivial-sockets in order to find out which one you should use.</p> +<h2>Documentation</h2> + +<p>See the documentation page for the <a href="./api-docs.shtml">API description</a>.</p> + <h2>Supported implementations</h2> <p>Currently these implementations are supported:</p> @@ -39,10 +43,10 @@ <ul> <li>SBCL</li> <li>CMUCL</li> - <li>Armedbear (newer than 0.0.9)</li> + <li>Armedbear (0.0.10 and up)</li> <li>clisp</li> <li>Allegro</li> - <li>LispWorks</li> + <li>LispWorks (5.0 and up)</li> <li>OpenMCL</li> <li>ECL</li> <li>Scieneer</li> @@ -101,9 +105,6 @@ current state of development. </p> - <p><i>Now that common-lisp.net supports Trac, the future part of the - table below may be moved there in the near future.</i></p> - <table rules="all" border="1" cellpadding="3"> <caption style="font-weight:bold;font-size:large">Status for the currently targeted backends</caption> <thead class="roadmap-head"> @@ -223,7 +224,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 class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> @@ -270,10 +271,22 @@ <td class="TODO">TODO</td> </tr> <tr> - <td rowspan="2">Implement more uncommon api calls - for tcp streams.</td> - <td>send, recv</td> + <td rowspan="2">Implement efficient waiting for multiple sockets + in one function call (select() like behaviour).</td> + <td>Investigate interfaces provided</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> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + </tr> + <tr> + <td>Implement wait-for-input api.</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> @@ -285,7 +298,10 @@ <td class="TODO">TODO</td> </tr> <tr> - <td>shutdown</td> + <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> @@ -297,9 +313,7 @@ <td class="TODO">TODO</td> </tr> <tr> - <td>Implement udp socket support.</td> - <td>Investigate API's provided and build on top of that - (or custom ffi).</td> + <td>shutdown</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> @@ -310,6 +324,20 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> </tr> + <tr> + <td>Implement udp socket support.</td> + <td>Investigate API's provided and build on top of that + (or custom ffi).</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> + <td class="WIP">WIP</td> + <td class="WIP">WIP</td> + </tr> </tbody> </table> </div>

1 0

[usocket-cvs] r232 - usocket/trunk
by ehuelsmann＠common-lisp.net 08 May '07

08 May '07

Author: ehuelsmann Date: Tue May 8 16:24:28 2007 New Revision: 232 Modified: usocket/trunk/README Log: Add remarks on licensing. Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Tue May 8 16:24:28 2007 @@ -6,6 +6,7 @@ ======= * Introduction + * Remarks on licensing * Non-support for :external-format * API definition * Test suite @@ -21,7 +22,7 @@ - SBCL - CMUCL - - ArmedBear (post feb 11th, 2006 versions) + - ArmedBear (post feb 11th, 2006 CVS or 0.0.10 and higher) - clisp - Allegro Common Lisp - LispWorks @@ -40,6 +41,16 @@ tricks to use the checkout directly.) +Remarks on licensing +==================== + +Even though the source code has an MIT style license attached to it, +when compiling this code with some of the supported lisp implementations +you may not end up with an MIT style binary version due to the licensing +of the implementations themselves. ECL is such an example and - when +it will become supported - GCL is like that too. + + Non-support of :external-format ===============================

1 0

[usocket-cvs] r231 - usocket/trunk
by ehuelsmann＠common-lisp.net 08 May '07

08 May '07

Author: ehuelsmann Date: Tue May 8 16:20:57 2007 New Revision: 231 Modified: usocket/trunk/usocket.lisp Log: Update docstring for the 'new' :element-type key parameter. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Tue May 8 16:20:57 2007 @@ -279,7 +279,7 @@ ;; Documentation for the function ;; -;; (defun SOCKET-CONNECT (host port) ..) +;; (defun SOCKET-CONNECT (host port &key element-type) ..) ;; (setf (documentation 'socket-connect 'function) @@ -287,6 +287,9 @@ an IP address represented in vector notation, such as #(192 168 1 1). `port' is assumed to be an integer. +`element-type' specifies the element type to use when constructing the +stream associated with the socket. The default is 'character. + Returns a usocket object.") ;; Documentation for the function

1 0

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

08 May '07

Author: ehuelsmann Date: Tue May 8 16:17:49 2007 New Revision: 230 Modified: public_html/implementation-comparison.shtml Log: Add IOLib to the list. Modified: public_html/implementation-comparison.shtml ============================================================================== --- public_html/implementation-comparison.shtml (original) +++ public_html/implementation-comparison.shtml Tue May 8 16:17:49 2007 @@ -23,30 +23,30 @@ <caption>Supported implementations comparison</caption> <thead> <tr><th>Implementation</th><th>trivial-sockets</th><th>ACL-COMPAT</th> - <th>s-sysdeps</th><th>usocket</th><th>kmrcl</th></tr> + <th>s-sysdeps</th><th>usocket</th><th>kmrcl</th><th>IOLib</th></tr> </thead> <tbody> -<tr><th>SBCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr><th>SBCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> </tr> -<tr><th>CMUCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr><th>CMUCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> </tr> -<tr style="background-color:#eef"><th>ArmedBear</th><td>yes</td><td>no</td><td>no</td><td>yes</td><td>no</td> +<tr style="background-color:#eef"><th>ArmedBear</th><td>yes</td><td>no</td><td>no</td><td>yes</td><td>no</td><td>no</td> </tr> -<tr><th>clisp</th><td>yes</td><td>yes</td><td>no</td><td>yes</td><td>yes</td> +<tr><th>clisp</th><td>yes</td><td>yes</td><td>no</td><td>yes</td><td>yes</td><td>yes</td> </tr> -<tr><th>Allegro</th><td>yes</td><td>not relevant</td><td>no</td><td>yes</td><td>yes</td> +<tr><th>Allegro</th><td>yes</td><td>not relevant</td><td>no</td><td>yes</td><td>yes</td><td>no</td> </tr> -<tr style="background-color:#eef"><th>LispWorks</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr style="background-color:#eef"><th>LispWorks</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>no</td> </tr> -<tr><th>OpenMCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td> +<tr><th>OpenMCL</th><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>yes</td><td>no</td> </tr> -<tr><th>ECL</th><td>no</td><td>no</td><td>no</td><td>yes</td><td>no</td> +<tr><th>ECL</th><td>no</td><td>no</td><td>no</td><td>yes</td><td>no</td><td>no</td> </tr> -<tr style="background-color:#eef"><th>Scieneer</th><td>no</td><td>yes</td><td>no</td><td>yes</td><td>no</td> +<tr style="background-color:#eef"><th>Scieneer</th><td>no</td><td>yes</td><td>no</td><td>yes</td><td>no</td><td>no</td> </tr> -<tr><th>GCL</th><td>no</td><td>no</td><td>no</td><td>no (to come)</td><td>no</td> +<tr><th>GCL</th><td>no</td><td>no</td><td>no</td><td>no (to come)</td><td>no</td><td>no</td> </tr> -<tr><th>Corman</th><td>no</td><td>yes</td><td>no</td><td>no (to come)</td><td>no</td> +<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> </tbody>

1 0

[usocket-cvs] r229 - public_html
by ehuelsmann＠common-lisp.net 07 May '07

07 May '07

Author: ehuelsmann Date: Mon May 7 13:50:47 2007 New Revision: 229 Added: public_html/api-docs.shtml (contents, props changed) Log: Add public API documentation (WIP). Added: public_html/api-docs.shtml ============================================================================== --- (empty file) +++ public_html/api-docs.shtml Mon May 7 13:50:47 2007 @@ -0,0 +1,144 @@ +<?xml version="1.0"?> +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" + "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> +<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> +<head> + <title>usocket API documentation</title> + <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 } +.function-name { font-weight: bold } +.class-name { font-weight: bold } +.slot-name { font-weight: bold } +.var-name { font-weight: bold } + </style> +</head> +<body> +<h1>usocket API documentation</h1> + +<p style="font-size:8px">$Id$ <br /> + Work in progress.</p> + +<p><em>Please note that we're committed to the interface described +below for the entire 0.x phase of the library. When 1.0 comes +some of the functionality may be split up in different functions +and guarantees may change because of it.</em></p> + + +<h2>Conventions</h2> + + +<dl> +<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. + </ul> +</dd> +</dl> + +<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> + +<dd> +<p>Creates a tcp (stream) socket to the <em>host</em> and <em>port</em> specified. The return value is +a socket object of class <em><a href="#stream-usocket">stream-usocket</a></em>.</p> + +<p>The <em>element-type</em> argument is used in the +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> +<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 /> + <em>port</em> names a local port, or 0 (zero) to request a random free port.<br /> + <em>reuse-address</em> is a boolean (t, nil) value signalling reuse of the address is requested (or not).<br /> + <em>backlog</em> is the length of the queue containing connections which haven't actually been accepted yet.<br /> + <em>element-type</em> is the default element type used for sockets created by socket-accept. <em>character</em> is + the default when it's not explicitly provided. + </p></dd> + + +<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> + <p><em>element-type</em> is the element type used to construct the associated stream. If it's not specified, + the element-type of <em>socket</em> (as used when it was created by the call to socket-listen) is + used. + </p> +</dd> + +<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> + + + + +</dl> + +<h2>Classes</h2> + +<dl> + <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> + <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> + +<dt class="sym"><span class="class-name"><a name="stream-usocket">stream-usocket</a></span></dt> +<dd>Parent classes: usocket<br /> + Slots: + <dl> + <dt><span class="slot-name">stream</span> :accessor socket-stream</td> + <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> + +<dt class="sym"><span class="class-name"><a name="stream-server-usocket">stream-server-usocket</a></span></dt> +<dd>Parent classes: usocket<br /> + Slots: + <dl> + <dt><span class="slot-name">element-type</span> :reader element-type</td> + <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> +</dl> + +<h2>Variables / constants</h2> + +<dl> +<dt class="sym"><span class="var-name">*wildcard-host*</span></dt> +<dd><p>The host to use with socket-listen to make the socket listen on all available interfaces.</p></dd> +<dt class="sym"><span class="var-name">*auto-port*</span></dt> +<dd><p>The port number to use with socket-listen to make the socket listen on a random available port. The port number assigned can be + retrieved from the returned socket by calling <em><a href="#get-local-port">get-local-port</a></em>.</p></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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs May 2007