- usocket-cvs@common-lisp.net - mailman3.common-lisp.net

[usocket-cvs] r128 - trivial-usocket/trunk
by ehuelsmann＠common-lisp.net 18 Dec '06

18 Dec '06

Author: ehuelsmann Date: Mon Dec 18 17:20:13 2006 New Revision: 128 Modified: trivial-usocket/trunk/trivial-usocket.asd Log: Correct trivial-usocket version number: We don't have releases yet... Modified: trivial-usocket/trunk/trivial-usocket.asd ============================================================================== --- trivial-usocket/trunk/trivial-usocket.asd (original) +++ trivial-usocket/trunk/trivial-usocket.asd Mon Dec 18 17:20:13 2006 @@ -12,7 +12,7 @@ (defsystem trivial-usocket :name "trivial-usocket" :author "Erik Huelsmann" - :version "0.2.0-dev" + :version "0.1.0-dev" :licence "MIT" :description "trivial-sockets compatibility layer for usocket" :depends-on (#:usocket #:trivial-gray-streams)

1 0

[usocket-cvs] r127 - in trivial-usocket: . branches tags trunk trunk/test
by ehuelsmann＠common-lisp.net 18 Dec '06

18 Dec '06

Author: ehuelsmann Date: Mon Dec 18 17:16:57 2006 New Revision: 127 Added: trivial-usocket/ trivial-usocket/branches/ trivial-usocket/tags/ trivial-usocket/trunk/ (props changed) trivial-usocket/trunk/test/ trivial-usocket/trunk/trivial-usocket.asd trivial-usocket/trunk/trivial-usocket.lisp Log: Start independent trivial-usocket project, a trivial-sockets migration path to usocket. Added: trivial-usocket/trunk/trivial-usocket.asd ============================================================================== --- (empty file) +++ trivial-usocket/trunk/trivial-usocket.asd Mon Dec 18 17:16:57 2006 @@ -0,0 +1,19 @@ + +;;;; $Id$ +;;;; $URL$ + +;;;; See the LICENSE file for licensing information. + +(cl:defpackage #:trivial-usocket-system + (:use #:cl #:asdf)) + +(cl:in-package #:trivial-usocket-system) + +(defsystem trivial-usocket + :name "trivial-usocket" + :author "Erik Huelsmann" + :version "0.2.0-dev" + :licence "MIT" + :description "trivial-sockets compatibility layer for usocket" + :depends-on (#:usocket #:trivial-gray-streams) + :components ((:file "trivial-usocket"))) Added: trivial-usocket/trunk/trivial-usocket.lisp ============================================================================== --- (empty file) +++ trivial-usocket/trunk/trivial-usocket.lisp Mon Dec 18 17:16:57 2006 @@ -0,0 +1,170 @@ + +;;;; $Id$ +;;;; $URL$ + +;;;; See the LICENSE file for licensing information. + +(defpackage :trivial-usocket + (:use #:cl + #:trivial-gray-streams + #:usocket) + (:export #:open-stream + #:usocket + #:unsupported)) + +(in-package :trivial-usocket) + +;; Condition raised by operations with unsupported arguments +;; For trivial-sockets compatibility. + +(define-condition unsupported (error) + ((feature :initarg :feature :reader unsupported-feature))) + + +(defclass usocket-mixin (trivial-gray-stream-mixin) + ((socket + :initarg :usocket + :accessor usocket + :documentation "")) + (:documentation "A stream which forwards all calls to the stream +associated with the socket, still allowing the original socket to be +retrieved.")) + +;; retrieval of the socket is something not all implementations allow +;; for the streams they associate with the sockets; that's why we have +;; a special stream which does allow it. + + +;; We need to implement these symbols (for forwarding-stream-mixin): + +(defmethod stream-read-char ((stream usocket-mixin)) + (read-char (socket-stream (usocket stream)) nil :eof)) + +(defmethod stream-unread-char ((stream usocket-mixin) char) + (unread-char char (socket-stream (usocket stream)))) + +(defmethod stream-read-char-no-hang ((stream usocket-mixin)) + (read-char-no-hang (socket-stream (usocket stream)))) + +(defmethod stream-peek-char ((stream usocket-mixin)) + (peek-char nil (socket-stream (usocket stream)) nil :eof)) + +(defmethod stream-listen ((stream usocket-mixin)) + (listen (socket-stream (usocket stream)))) + +(defmethod stream-read-line ((stream usocket-mixin)) + (let ((line (read-line (socket-stream (usocket stream)) nil :eof))) + (if (eq line :eof) + (values "" t) + (values line nil)))) + +(defmethod stream-clear-input ((stream usocket-mixin)) + (clear-input (socket-stream (usocket stream)))) + +(defmethod stream-write-char ((stream usocket-mixin) char) + (write-char char (socket-stream (usocket stream)))) + +(defmethod stream-line-column ((stream usocket-mixin)) + nil) + +(defmethod stream-start-line-p ((stream usocket-mixin)) + nil) + +(defmethod stream-write-string ((stream usocket-mixin) + string &optional start end) + (write-string string (socket-stream (usocket stream)) + :start (or start 0) + :end (or end (length string)))) + +(defmethod stream-terpri ((stream usocket-mixin)) + (terpri (socket-stream (usocket stream)))) + +(defmethod stream-fresh-line ((stream usocket-mixin)) + (fresh-line (socket-stream (usocket stream)))) + +(defmethod stream-finish-output ((stream usocket-mixin)) + (finish-output (socket-stream (usocket stream)))) + +(defmethod stream-force-output ((stream usocket-mixin)) + (force-output (socket-stream (usocket stream)))) + +(defmethod stream-clear-output ((non-stream usocket-mixin)) + (clear-output (socket-stream (usocket non-stream)))) + +(defmethod stream-advance-to-column ((stream usocket-mixin) column) + nil) + +(defmethod close ((stream usocket-mixin) &key abort) + (close (socket-stream (usocket stream)) :abort abort)) + +(defmethod stream-read-byte ((non-stream usocket-mixin)) + (read-byte (socket-stream (usocket non-stream)) nil :eof)) + +(defmethod stream-write-byte ((non-stream usocket-mixin) integer) + (write-byte integer (socket-stream (usocket non-stream)))) + +(defmethod stream-read-sequence ((stream usocket-mixin) seq start end + &key &allow-other-keys) + (read-sequence seq (socket-stream (usocket stream)) + :start (or start 0) + :end (or end (length seq)))) + +(defmethod stream-write-sequence ((stream usocket-mixin) seq start end + &key &allow-other-keys) + (write-sequence seq (socket-stream (usocket stream)) + :start (or start 0) + :end (or end (length seq)))) + + +;; We also need to implement forwarding streams: +;; +;; forwarding-input-stream +;; forwarding-output-stream +;; forwarding-io-stream +;; +;; which are derived from their ancestors (fundamental-*) and +;; the forwarding mixin. + +(defclass usocket-input-stream (fundamental-input-stream usocket-mixin) + ()) + +(defclass usocket-output-stream (fundamental-output-stream usocket-mixin) + ()) + +(defclass usocket-io-stream (fundamental-input-stream + fundamental-output-stream + usocket-mixin) + ()) + +(defun wrap-usocket-stream (usocket &rest rest) + "" + (let* ((ustream (socket-stream usocket)) + (istream-p (input-stream-p ustream)) + (ostream-p (output-stream-p ustream))) + (apply #'make-instance + (cond + ((and istream-p ostream-p) + 'usocket-io-stream) + (istream-p 'usocket-input-stream) + (ostream-p 'usocket-output-stream) + (t (error "Unsupported stream type"))) + :usocket usocket + rest))) + +(defun open-stream (peer-host peer-port + &key (local-host :any) + (local-port 0) + (external-format :default) + (element-type 'character) + (protocol :tcp)) + (unless (eq protocol :tcp) + (error 'unsupported :feature `(:protocol ,protocol))) + (unless (and (eql local-host :any) (eql local-port 0)) + (error 'unsupported :feature :bind)) + (unless (eql external-format :default) + (error 'unsupported :feature :external-format)) + (unless (eql element-type 'character) + (error 'unsupported :feature :element-type)) + (let ((socket (socket-connect peer-host peer-port))) + (wrap-usocket-stream socket))) +

1 0

[usocket-cvs] r126 - public_html
by ehuelsmann＠common-lisp.net 18 Dec '06

18 Dec '06

Author: ehuelsmann Date: Mon Dec 18 16:29:02 2006 New Revision: 126 Modified: public_html/index.shtml Log: Update reference to newest version. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Mon Dec 18 16:29:02 2006 @@ -290,20 +290,19 @@ <h3>Current release</h3> <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> + directory. You can find short descriptions in the table below:</p> <table> <caption>Release history</caption> -<tr><th>Release</th><th>Summary</th></tr> -<tr><td>0.2.0</td><td>Add support for +<tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Dec 18, 2006</td> + <td>0.2.0</td><td>Add support for <a href="http://www.scieneer.com/scl/index.html">Scieneer Common Lisp</a>, fix <a href="http://trac.common-lisp.net/usocket/ticket/6">issue #6</a> and API preparation for server side sockets (not in this release)</td></tr> -<tr><td>0.1.0</td><td>Initial release</td></tr> +<tr><td>Feb 13, 2006</td> +<td>0.1.0</td><td>Initial release</td></tr> </table>

1 0

[usocket-cvs] r125 - public_html public_html/releases usocket/tags/0.2.0 usocket/trunk
by ehuelsmann＠common-lisp.net 18 Dec '06

18 Dec '06

Author: ehuelsmann Date: Mon Dec 18 16:20:56 2006 New Revision: 125 Added: public_html/releases/usocket-0.2.0.tar.gz (contents, props changed) public_html/releases/usocket-0.2.0.tar.gz.asc usocket/tags/0.2.0/ - copied from r124, usocket/trunk/ Modified: public_html/index.shtml usocket/tags/0.2.0/usocket.asd usocket/trunk/usocket.asd Log: Release version 0.2.0, bump trunk version to 0.3.0-dev. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Mon Dec 18 16:20:56 2006 @@ -288,12 +288,26 @@ <h2>Releases</h2> +<h3>Current release</h3> <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> +<table> +<caption>Release history</caption> +<tr><th>Release</th><th>Summary</th></tr> +<tr><td>0.2.0</td><td>Add support for + <a href="http://www.scieneer.com/scl/index.html">Scieneer + Common Lisp</a>, fix <a + href="http://trac.common-lisp.net/usocket/ticket/6">issue #6</a> and + API preparation for server side sockets (not in this release)</td></tr> +<tr><td>0.1.0</td><td>Initial release</td></tr> +</table> + + + <h2>Project history</h2> Added: public_html/releases/usocket-0.2.0.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.2.0.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.2.0.tar.gz.asc Mon Dec 18 16:20:56 2006 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.1 (GNU/Linux) + +iD8DBQBFhwW3i5O0Epaz9TkRArerAJ4zeTOFprwWoWvoEJSA+TN8CLHM5gCfeIEx +hOvwkye/bqTXE0sEHFO9zFs= +=rHoU +-----END PGP SIGNATURE----- Modified: usocket/tags/0.2.0/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/tags/0.2.0/usocket.asd Mon Dec 18 16:20:56 2006 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.2.0-dev" + :version "0.2.0" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/trunk/usocket.asd Mon Dec 18 16:20:56 2006 @@ -14,7 +14,7 @@ (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann" - :version "0.2.0-dev" + :version "0.3.0-dev" :licence "MIT" :description "Universal socket library for Common Lisp" :depends-on (:split-sequence

1 0

[usocket-cvs] r124 - public_html
by ehuelsmann＠common-lisp.net 18 Dec '06

18 Dec '06

Author: ehuelsmann Date: Mon Dec 18 15:50:27 2006 New Revision: 124 Modified: public_html/index.shtml Log: Update website with my latest ideas about interface guarantees. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Mon Dec 18 15:50:27 2006 @@ -20,6 +20,12 @@ possible, while keeping the abstraction and portability layer as thin as possible. </p> +<p>Because <a href="http://cliki.net/trivial-sockets">trivial-sockets</a> +has been declared dead and its author has said he will declare usocket +its successor if there is a zero effort path of migration, I'm <b>also working +on <em>trivial-usocket</em></b> which is supposed to be a sub-optimal, but zero +effort migration from trivial-sockets.</p> + <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> @@ -40,11 +46,12 @@ <h2>Community</h2> - <p>This project has recently started. There isn't much of a community - yet, except me (Erik Huelsmann). So, you're invited to join the mailing - list, announce yourself and maybe even join the effort. + <p>This project has started Januari 2006. There isn't much of a community + yet, though I'd like there to be one. So, you're invited to join + the mailing list, announce yourself and even join the effort! </p> + <p>Development discussion takes place on <a href="mailto:usocket-devel@common-lisp.net">usocket-devel(a)common-lisp.net</a>. </p> @@ -272,6 +279,13 @@ </table> </div> +<h2>Interface guarantees</h2> + +<p>The interfaces currently published in the :export part of the +package definition are guaranteed to stay compatible for the +entire 0.x lifecycle. Extention in a backward compatible way is +ofcourse valid, as is the addition of new interface functions.</p> + <h2>Releases</h2> <p>Releases are uploaded to the <a href="releases/">releases/</a>

1 0

[usocket-cvs] r123 - in usocket/trunk: . backend
by ehuelsmann＠common-lisp.net 25 Oct '06

25 Oct '06

Author: ehuelsmann Date: Wed Oct 25 15:28:16 2006 New Revision: 123 Modified: 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/backend/scl.lisp usocket/trunk/usocket.lisp Log: Prepare for server-side sockets support. Note: The new socket classes are not used (yet). Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Wed Oct 25 15:28:16 2006 @@ -42,7 +42,7 @@ (with-mapped-conditions (socket) (socket:make-socket :remote-host (host-to-hostname host) :remote-port port))) - (make-socket :socket socket :stream socket))) + (make-stream-socket :socket socket :stream socket))) (defmethod socket-close ((usocket usocket)) "Close socket." Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Wed Oct 25 15:28:16 2006 @@ -16,8 +16,8 @@ (with-mapped-conditions (usock) (let ((sock (ext:make-socket (host-to-hostname host) port))) (setf usock - (make-socket :socket sock - :stream (ext:get-socket-stream sock))))))) + (make-stream-socket :socket sock + :stream (ext:get-socket-stream sock))))))) (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Wed Oct 25 15:28:16 2006 @@ -46,8 +46,8 @@ (socket:socket-connect port hostname :element-type 'character :buffered t))) - (make-socket :socket socket - :stream socket))) ;; the socket is a stream too + (make-stream-socket :socket socket + :stream socket))) ;; the socket is a stream too ;; :host host ;; :port port)) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Wed Oct 25 15:28:16 2006 @@ -63,8 +63,8 @@ :element-type 'character :buffering :full)) ;;###FIXME the above line probably needs an :external-format - (usocket (make-socket :socket socket - :stream stream))) + (usocket (make-stream-socket :socket socket + :stream stream))) usocket) (let ((err (unix:unix-errno))) (when err (cmucl-map-socket-error err)))))) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Wed Oct 25 15:28:16 2006 @@ -54,8 +54,8 @@ (with-mapped-conditions () (comm:open-tcp-stream hostname port))) (if stream - (make-socket :socket (comm:socket-stream-socket stream) - :stream stream) + (make-stream-socket :socket (comm:socket-stream-socket stream) + :stream stream) (error 'unknown-error)))) ;; :host host ;; :port port)) Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Wed Oct 25 15:28:16 2006 @@ -46,7 +46,7 @@ (host-to-hostname host) :remote-port port))) (openmcl-socket:socket-connect mcl-sock) - (make-socket :stream mcl-sock :socket mcl-sock)))) + (make-stream-socket :stream mcl-sock :socket mcl-sock)))) (defmethod socket-close ((usocket usocket)) (with-mapped-conditions (usocket) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Wed Oct 25 15:28:16 2006 @@ -68,7 +68,7 @@ :buffering :full :element-type 'character)) ;;###FIXME: The above line probably needs an :external-format - (usocket (make-instance 'usocket :stream stream :socket socket)) + (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) (with-mapped-conditions (usocket) (sb-bsd-sockets:socket-connect socket ip port)) Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Wed Oct 25 15:28:16 2006 @@ -41,7 +41,7 @@ :element-type 'character :buffering :full))) ;;###FIXME the above line probably needs an :external-format - (make-socket :socket socket :stream stream))) + (make-stream-socket :socket socket :stream stream))) (defmethod socket-close ((usocket usocket)) "Close socket." Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Wed Oct 25 15:28:16 2006 @@ -11,19 +11,46 @@ ((socket :initarg :socket :accessor socket - :documentation "Implementation specific socket object instance.") - (stream + :documentation "Implementation specific socket object instance.")) + (:documentation +"The main socket class.")) + +(defclass stream-usocket (usocket) + ((stream :initarg :stream :accessor socket-stream - :documentation "Implementation specific socket stream instance."))) + :documentation "Stream instance associated with the socket. -(defun make-socket (&key socket stream) +Iff an external-format was passed to `socket-connect' or `socket-listen' +the stream is a flexi-stream. Otherwise the stream is implementation +specific.")) + (:documentation "")) + +(defclass stream-server-usocket (usocket) + () + (:documentation "")) + +;;Not in use yet: +;;(defclass datagram-usocket (usocket) +;; () +;; (:documentation "")) + +(defun make-socket (&key socket) + "Create a usocket socket type from implementation specific socket." + (make-stream-socket :socket socket)) + +(defun make-stream-socket (&key socket stream) "Create a usocket socket type from implementation specific socket and stream objects." - (make-instance 'usocket + (make-instance 'stream-usocket :socket socket :stream stream)) +(defun make-stream-server-socket (socket) + "Create a usocket-server socket type from an implementation-specific socket +object." + (make-instance 'stream-server-usocket :socket socket)) + (defun open-stream (peer-host peer-port &key (local-host :any) (local-port 0)

1 0

[usocket-cvs] r122 - usocket/trunk/doc
by ehuelsmann＠common-lisp.net 22 Oct '06

22 Oct '06

Author: ehuelsmann Date: Sun Oct 22 04:42:00 2006 New Revision: 122 Modified: usocket/trunk/doc/design.txt Log: Some design comments sent to the mailing list. Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Sun Oct 22 04:42:00 2006 @@ -13,7 +13,7 @@ * Motivation * Design goal * Functional requirements - + * Class structure @@ -119,3 +119,18 @@ int *__h_errno_location(void) points to thread local h_errno on threaded glibc2 systems. + +Class structure +=============== + + usocket + | + +- datagram-usocket + +- stream-usocket + \- stream-server-usocket + +The usocket class will have methods to query local properties, such +as: + + - get-local-name: to query to which interface the socket is bound + - <other socket and protocol options such as SO_REUSEADDRESS>

1 0

[usocket-cvs] r121 - in usocket/trunk: doc notes
by ehuelsmann＠common-lisp.net 18 Oct '06

18 Oct '06

Author: ehuelsmann Date: Wed Oct 18 12:46:42 2006 New Revision: 121 Removed: usocket/trunk/notes/accept-apis.txt Modified: usocket/trunk/doc/design.txt Log: Remove cruft accidentally added in r119. This wasn't part of the contribution. Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Wed Oct 18 12:46:42 2006 @@ -13,7 +13,7 @@ * Motivation * Design goal * Functional requirements - * Comments on the functional requirements + @@ -83,33 +83,6 @@ - OpenMCL -The lifetime of a socket can be described with these steps: - - 1. Socket creation (socket() function) - 2. Socket initializaiton (setsockopt(), bind() and listen()/connect() funcs) - 3. Socket use (accept() / recv[from], send[to]) - 4. Socket termination (shutdown()) - 5. Socket destruction (close()) - -While for most applications steps 1-3 can be condensed into 1 (which most -implementations do), if the library wants to be extensible into other -domains than IP, a means should be provided to do socket initialization -without knowing what parameters to accept beforehand: other protocols -require parameters for setsockopt we will not know about in advance. - -There are several possibilities to address this issue: - - a. Force the 3 steps apart [hard to get done with the current status - for some implementations, as they are currently integrated in the - public interface]. - b. Find a mechanism to pass options which we want setsockopt to - be called with. Problem: what to do with implementations which - don't support setting of all options *before* the bind() call? - Does it matter that some options may be set after the bind() - call? What if they're not set before connect() [buffer size changes - have to be set before connect()]? - c. ... ? - Comments on the design above ============================

1 0

[usocket-cvs] r120 - public_html
by ehuelsmann＠common-lisp.net 18 Oct '06

18 Oct '06

Author: ehuelsmann Date: Wed Oct 18 03:03:55 2006 New Revision: 120 Modified: public_html/index.shtml Log: Note added Scieneer support. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Wed Oct 18 03:03:55 2006 @@ -35,6 +35,7 @@ <li>Allegro</li> <li>LispWorks</li> <li>OpenMCL</li> + <li>Scieneer</li> </ul> <h2>Community</h2> @@ -104,6 +105,7 @@ <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>Scieneer</th> </tr> </thead> <tbody> @@ -121,6 +123,7 @@ <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  </tr> <tr> @@ -132,6 +135,7 @@ <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> + <td class="DONE" title="Implemented">DONE</td> </tr> <tr> <td>Implement active socket support.</td> @@ -142,6 +146,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implement remapping of implementation defined errors.</td> @@ -152,6 +157,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -162,6 +168,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="3">Add functions to retrieve socket properties:<br /> @@ -175,6 +182,7 @@ <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> @@ -185,6 +193,7 @@ <td class="DONE">DONE</td> <td class="DONE">DONE</td> <td class="DONE">DONE</td> + <td class="DONE">DONE</td> </tr> <tr> <td>Implementation test-suite status</td> @@ -195,6 +204,7 @@ <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> + <td class="PASS">PASS</td> </tr> <tr> <td rowspan="2">Add support for passive (connection-accepting/server) @@ -207,6 +217,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>Implement api calls get- and setsockopt.</td> @@ -217,6 +228,7 @@ <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 @@ -230,6 +242,7 @@ <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> @@ -240,6 +253,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> <tr> <td>Implement udp socket support.</td> @@ -252,6 +266,7 @@ <td class="TODO">TODO</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> + <td class="TODO">TODO</td> </tr> </tbody> </table>

1 0

[usocket-cvs] r119 - in usocket/trunk: . backend doc notes
by ehuelsmann＠common-lisp.net 18 Oct '06

18 Oct '06

Author: ehuelsmann Date: Wed Oct 18 02:56:33 2006 New Revision: 119 Added: usocket/trunk/backend/scl.lisp usocket/trunk/notes/accept-apis.txt Modified: usocket/trunk/condition.lisp usocket/trunk/doc/design.txt usocket/trunk/usocket.asd usocket/trunk/usocket.lisp Log: Add Scieneer support. Donated by Douglas Crosher <dtc at scieneer dot com>. Added: usocket/trunk/backend/scl.lisp ============================================================================== --- (empty file) +++ usocket/trunk/backend/scl.lisp Wed Oct 18 02:56:33 2006 @@ -0,0 +1,101 @@ +;;;; $Id: scl.lisp$ +;;;; $URL: svn://common-lisp.net/project/usocket/svn/usocket/trunk/backend/scl.lisp $ + +;;;; See LICENSE for licensing information. + +(in-package :usocket) + +(defparameter +scl-error-map+ + (append +unix-errno-condition-map+ + +unix-errno-error-map+)) + +(defun scl-map-socket-error (err &key condition socket) + (let ((usock-err (cdr (assoc err +scl-error-map+ :test #'member)))) + (cond (usock-err + (if (subtypep usock-err 'error) + (error usock-err :socket socket) + (signal usock-err :socket socket))) + (t + (error 'unknown-error + :socket socket + :real-error condition))))) + +(defun handle-condition (condition &optional (socket nil)) + "Dispatch correct usocket condition." + (etypecase condition + (ext::socket-error + (format t "erron: ~D~%" (ext::socket-errno condition)) + (scl-map-socket-error (ext::socket-errno condition) + :socket socket + :condition condition)) + (error + (error 'unknown-error + :real-condition condition + :socket socket)))) + +(defun socket-connect (host port) + (let* ((socket + (with-mapped-conditions (nil) + (ext:connect-to-inet-socket (host-to-hbo host) port :kind :stream))) + (stream (sys:make-fd-stream socket :input t :output t + :element-type 'character + :buffering :full))) + ;;###FIXME the above line probably needs an :external-format + (make-socket :socket socket :stream stream))) + +(defmethod socket-close ((usocket usocket)) + "Close socket." + (with-mapped-conditions (usocket) + (ext:close-socket (socket usocket)))) + +(defmethod get-local-name ((usocket usocket)) + (multiple-value-bind (address port) + (with-mapped-conditions (usocket) + (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) + (with-mapped-conditions (usocket) + (ext:get-peer-host-and-port (socket usocket))) + (values (hbo-to-vector-quad address) port))) + +(defmethod get-local-address ((usocket usocket)) + (nth-value 0 (get-local-name usocket))) + +(defmethod get-peer-address ((usocket usocket)) + (nth-value 0 (get-peer-name usocket))) + +(defmethod get-local-port ((usocket usocket)) + (nth-value 1 (get-local-name usocket))) + +(defmethod get-peer-port ((usocket usocket)) + (nth-value 1 (get-peer-name usocket))) + + +(defun get-host-by-address (address) + (multiple-value-bind (host errno) + (ext:lookup-host-entry (host-byte-order address)) + (cond (host + (ext:host-entry-name host)) + (t + (let ((condition (cdr (assoc errno +unix-ns-error-map+)))) + (cond (condition + (error condition :host-or-ip address)) + (t + (error 'ns-unknown-error :host-or-ip address + :real-error errno)))))))) + +(defun get-hosts-by-name (name) + (multiple-value-bind (host errno) + (ext:lookup-host-entry name) + (cond (host + (mapcar #'hbo-to-vector-quad + (ext:host-entry-addr-list host))) + (t + (let ((condition (cdr (assoc errno +unix-ns-error-map+)))) + (cond (condition + (error condition :host-or-ip name)) + (t + (error 'ns-unknown-error :host-or-ip name + :real-error errno)))))))) Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Wed Oct 18 02:56:33 2006 @@ -102,8 +102,8 @@ ;; isn't really an error: there's just no data to return. ;; with lisp, we just return NIL (indicating no data) instead of ;; raising an exception... - (ns-host-not-found - ns-no-recovery) + (ns-host-not-found-error + ns-no-recovery-error) (ns-error)) (define-condition ns-unknown-error (ns-error) Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Wed Oct 18 02:56:33 2006 @@ -13,7 +13,7 @@ * Motivation * Design goal * Functional requirements - + * Comments on the functional requirements @@ -83,6 +83,33 @@ - OpenMCL +The lifetime of a socket can be described with these steps: + + 1. Socket creation (socket() function) + 2. Socket initializaiton (setsockopt(), bind() and listen()/connect() funcs) + 3. Socket use (accept() / recv[from], send[to]) + 4. Socket termination (shutdown()) + 5. Socket destruction (close()) + +While for most applications steps 1-3 can be condensed into 1 (which most +implementations do), if the library wants to be extensible into other +domains than IP, a means should be provided to do socket initialization +without knowing what parameters to accept beforehand: other protocols +require parameters for setsockopt we will not know about in advance. + +There are several possibilities to address this issue: + + a. Force the 3 steps apart [hard to get done with the current status + for some implementations, as they are currently integrated in the + public interface]. + b. Find a mechanism to pass options which we want setsockopt to + be called with. Problem: what to do with implementations which + don't support setting of all options *before* the bind() call? + Does it matter that some options may be set after the bind() + call? What if they're not set before connect() [buffer size changes + have to be set before connect()]? + c. ... ? + Comments on the design above ============================ Added: usocket/trunk/notes/accept-apis.txt ============================================================================== --- (empty file) +++ usocket/trunk/notes/accept-apis.txt Wed Oct 18 02:56:33 2006 @@ -0,0 +1,173 @@ + + -*- text -*- + +Part of 'Step 3': Server/passive tcp socket interfaces supplied by +the different implementations in order to provide the same externally. + + +ABCL +==== + + - ext:make-server-socket port + - ext:socket-accept socket + - ext:socket-close socket + +Allegro +======= + + - socket:make-socket :type :stream :connect :passive + :local-port <port> :reuse-address t :backlog <nr> + :local-host <host-ip> + - socket:accept-connection sock &key wait + - close + + +clisp +===== + + - socket:socket-server &optional port &key interface backlog + - socket:socket-server-close sock + - socket:socket-server-host sock + - socket:socket-server-port sock + - socket:socket-accept sock &key element-type external-format buffered timeout + - socket:socket-options sock &rest options + +... and ofcourse, there's the raw-sockets + +CMUCL +===== + + - ext:create-inet-listener port &optional kind + &key reuseaddress backlog interface + - ext:accept-tcp-connection socket + + +LispWorks +========= + + - comm::get-fd-from-socket (socket-os-fd lispworks-socket) + - comm::create-tcp-socket-for-service port + (may use comm::*use_so_reuseaddr* for that socket option) + misses the ability to specify an interface to bind to. + - comm::socket-close + + +OpenMCL +======= + + - openmcl-socket:accept-connection + - openmcl-socket:make-socket :local-host <if> :local-port port + :reuse-address t :type :stream :connect :passive + :backlog <nr> + - close + + +SBCL +==== + + - make-instance 'inet-socket + - sb-bsd-sockets:sockopt-* + - sb-bsd-sockets:socket-bind + - sb-bsd-sockets:socket-listen + - sb-bsd-sockets:socket-accept + + +;; +;; +;; The above APIs are good enough to implement a simple +;; accept interface, but doesn't give access to specifying +;; socket options before the socket is bound to the interface +;; ==> This may only actually be required for SO_REUSEADDRESS?!??? +;; +;; The other option would be to use lots of FFI - where needed - +;; and use the (mostly internal) glue routines from the implementations + + +ABCL +==== + + With ABCL - lacking a good sockets API - it's still possible to implement + whatever we need to get good access... + + +Allegro +======= + + Hmm. The accept function in this implementation does not allow limiting + connections to a given host/ip, but it does allow to create sockets + with mostly the right options. + + Is that enough reason to do this entirely in ffi?! + + Also, doing this in FFI would require to reverse engineer the creation + of socket streams. Maybe Franz tech support could help there though. + + Need to investigate the IPC_* symbols an the sockets package: + there are lots of functions which look like they should be useable. + + +clisp +===== + + This implementation allows access to the full sockets as described + in http://clisp.cons.org/impnotes/rawsock.html. + + +CMUCL +===== + + Provides (in unix package): + + - unix-accept + - unix-bind + - unix-listen + - unix-socket + + Provides (in extentions): + + - inet-sockaddr + - get-socket-option + - set-socket-option + - create-inet-listener port &key host reuse-address backlog + + +LispWorks +========= + + The implementation provides a lot of undocumented functions the library + could tap into: + + - comm::socket + - comm::bind + - comm::accept + - comm::getsockopt + - comm::setsockopt + - comm::initialize-sockaddr_in (helper) + - comm::streams-from-fd (helper) + + +OpenMCL +======= + + - make-socket provides all options which we'll need to set, + it doesn't however provide access to [gs]etsockopt... + + +SBCL +==== + + provides (in sb-bsd-sockets): + socket-bind + socket-accept + sokcet-listen + + provides (in sb-bsd-sockets-internal [sockint]): + getsockopt + setsockopt + + SO-* constants + TCP-* constant(s) + AF-* constants (and, since AF-* == IF-*, we don't need others) + + + Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/trunk/usocket.asd Wed Oct 18 02:56:33 2006 @@ -28,6 +28,8 @@ :depends-on ("condition")) #+cmu (:file "cmucl" :pathname "backend/cmucl" :depends-on ("condition")) + #+scl (:file "scl" :pathname "backend/scl" + :depends-on ("condition")) #+sbcl (:file "sbcl" :pathname "backend/sbcl" :depends-on ("condition")) #+lispworks (:file "lispworks" :pathname "backend/lispworks" Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Wed Oct 18 02:56:33 2006 @@ -164,8 +164,8 @@ (string (let ((ip (ignore-errors (dotted-quad-to-vector-quad host)))) (if (and ip (= 4 (length ip))) - ip - (host-to-hbo (get-host-by-name host))))) + (host-byte-order ip) + (host-to-hbo (get-host-by-name host))))) ((vector t 4) (host-byte-order host)) (integer host)))) @@ -186,9 +186,19 @@ ;; (setf (documentation 'socket-connect 'function) - "Connect to `host' on `port'. `host' is assumed to be a string of + "Connect to `host' on `port'. `host' is assumed to be a string or an IP address represented in vector notation, such as #(192 168 1 1). `port' is assumed to be an integer. Returns a usocket object.") +;; Documentation for the function +;; +;; (defun SOCKET-LISTEN (host port &key local-ip local-port +;; reuseaddress backlog) ..) + + +;; Documentation for the function +;; +;; (defun SOCKET-ACCEPT (socket &key element-type external-format +;; buffered timeout) ..)

1 0