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

[usocket-cvs] r138 - in usocket: branches/0.2.x trunk
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:43:39 2007 New Revision: 138 Modified: usocket/branches/0.2.x/README usocket/trunk/README Log: Update README's with supported implementations. Modified: usocket/branches/0.2.x/README ============================================================================== --- usocket/branches/0.2.x/README (original) +++ usocket/branches/0.2.x/README Wed Jan 3 15:43:39 2007 @@ -16,6 +16,8 @@ - Allegro - LispWorks - OpenMCL + - ECL + - Scieneer Common Lisp - <Your favorite Common Lisp here?> If your favorite common lisp misses in the list above, please contact Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Wed Jan 3 15:43:39 2007 @@ -25,6 +25,7 @@ - Allegro Common Lisp - LispWorks - OpenMCL + - ECL - Scieneer Common Lisp - <Your favorite Common Lisp here?>

1 0

[usocket-cvs] r137 - usocket/branches/0.2.x/backend
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:35:28 2007 New Revision: 137 Modified: usocket/branches/0.2.x/backend/sbcl.lisp Log: Backport r132 SBCL fix. Modified: usocket/branches/0.2.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/sbcl.lisp (original) +++ usocket/branches/0.2.x/backend/sbcl.lisp Wed Jan 3 15:35:28 2007 @@ -63,7 +63,7 @@ usock-cond))) (if usock-cond (signal usock-cond :socket socket) - (signal 'unkown-condition + (signal 'unknown-condition :real-condition condition))))))

1 0

[usocket-cvs] r136 - in usocket/branches/0.2.x: . backend
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:34:46 2007 New Revision: 136 Modified: usocket/branches/0.2.x/backend/sbcl.lisp usocket/branches/0.2.x/usocket.asd Log: Backport ECL support. Modified: usocket/branches/0.2.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/sbcl.lisp (original) +++ usocket/branches/0.2.x/backend/sbcl.lisp Wed Jan 3 15:34:46 2007 @@ -5,6 +5,14 @@ (in-package :usocket) +;; There's no way to preload the sockets library other than by requiring it +;; +;; ECL sockets has been forked off sb-bsd-sockets and implements the +;; same interface. We use the same file for now. +#+ecl +(eval-when (:compile-toplevel :load-toplevel :execute) + (require :sockets)) + (defun map-socket-error (sock-err) (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err))) Modified: usocket/branches/0.2.x/usocket.asd ============================================================================== --- usocket/branches/0.2.x/usocket.asd (original) +++ usocket/branches/0.2.x/usocket.asd Wed Jan 3 15:34:46 2007 @@ -30,8 +30,8 @@ :depends-on ("condition")) #+scl (:file "scl" :pathname "backend/scl" :depends-on ("condition")) - #+sbcl (:file "sbcl" :pathname "backend/sbcl" - :depends-on ("condition")) + #+(or sbcl ecl) (:file "sbcl" :pathname "backend/sbcl" + :depends-on ("condition")) #+lispworks (:file "lispworks" :pathname "backend/lispworks" :depends-on ("condition")) #+openmcl (:file "openmcl" :pathname "backend/openmcl"

1 0

[usocket-cvs] r135 - usocket/branches/0.2.x
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:32:25 2007 New Revision: 135 Added: usocket/branches/0.2.x/ - copied from r130, usocket/tags/0.2.1/ Log: Branch 0.2.x from 0.2.1 tag.

1 0

[usocket-cvs] r134 - usocket/trunk
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:29:34 2007 New Revision: 134 Modified: usocket/trunk/README Log: Update README and explain non-support for external-format. Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Wed Jan 3 15:29:34 2007 @@ -2,7 +2,16 @@ $Id$ +Content +======= + * Introduction + * Non-support for :external-format + * API definition + * Known problems + +Introduction +============ This is the usocket Common Lisp sockets library: a library to bring sockets access to the broadest of common lisp implementations as possible. @@ -13,9 +22,10 @@ - CMUCL - ArmedBear - clisp - - Allegro + - Allegro Common Lisp - LispWorks - OpenMCL + - Scieneer Common Lisp - <Your favorite Common Lisp here?> If your favorite common lisp misses in the list above, please contact @@ -28,11 +38,28 @@ tricks to use the checkout directly.) -usocket interface: +Non-support of :external-format +=============================== + +Because of its definition in the hyperspec, there's no common +external-format between lisp implementations: every vendor has chosen +a different way to solve the problem of newline translation or +character set recoding. + +Because there's no way to avoid platform specific code in the application +when using external-format, the purpose of a portability layer gets +defeated. So, for now, usocket doesn't support external-format. + +The workaround to get reasonably portable external-format support is to +layer a flexi-stream (from flexi-streams) on top of a usocket stream. + + +API definition +============== - usocket (class) - socket-connect (function) [ to create an active/connected socket ] - socket-connect host port + socket-connect host port &key element-type where `host' is a vectorized ip or a string representation of a dotted ip address or a hostname for lookup in the DNS system @@ -73,7 +100,8 @@ -KNOWN PROBLEMS +Known problems +============== - CMUCL error reporting wrt sockets raises only simple-errors meaning there's no way to tell different error conditions apart. All errors are mapped to unknown-error on CMUCL.

1 0

[usocket-cvs] r133 - in usocket/trunk: . backend
by ehuelsmann＠common-lisp.net 03 Jan '07

03 Jan '07

Author: ehuelsmann Date: Wed Jan 3 15:22:12 2007 New Revision: 133 Modified: usocket/trunk/backend/sbcl.lisp usocket/trunk/usocket.asd Log: Add ECL support. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Wed Jan 3 15:22:12 2007 @@ -5,6 +5,14 @@ (in-package :usocket) +;; There's no way to preload the sockets library other than by requiring it +;; +;; ECL sockets has been forked off sb-bsd-sockets and implements the +;; same interface. We use the same file for now. +#+ecl +(eval-when (:compile-toplevel :load-toplevel :execute) + (require :sockets)) + (defun map-socket-error (sock-err) (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err))) Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/trunk/usocket.asd Wed Jan 3 15:22:12 2007 @@ -30,8 +30,8 @@ :depends-on ("condition")) #+scl (:file "scl" :pathname "backend/scl" :depends-on ("condition")) - #+sbcl (:file "sbcl" :pathname "backend/sbcl" - :depends-on ("condition")) + #+(or sbcl ecl) (:file "sbcl" :pathname "backend/sbcl" + :depends-on ("condition")) #+lispworks (:file "lispworks" :pathname "backend/lispworks" :depends-on ("condition")) #+openmcl (:file "openmcl" :pathname "backend/openmcl"

1 0

[usocket-cvs] r132 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 02 Jan '07

02 Jan '07

Author: ehuelsmann Date: Tue Jan 2 18:11:39 2007 New Revision: 132 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix typo found by emarsden. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Tue Jan 2 18:11:39 2007 @@ -55,7 +55,7 @@ usock-cond))) (if usock-cond (signal usock-cond :socket socket) - (signal 'unkown-condition + (signal 'unknown-condition :real-condition condition))))))

1 0

[usocket-cvs] r131 - trivial-usocket/trunk usocket/trunk/backend
by ehuelsmann＠common-lisp.net 21 Dec '06

21 Dec '06

Author: ehuelsmann Date: Thu Dec 21 17:53:28 2006 New Revision: 131 Modified: trivial-usocket/trunk/trivial-usocket.lisp 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 Log: Add support for the 'element-type' stream creation argument. Modified: trivial-usocket/trunk/trivial-usocket.lisp ============================================================================== --- trivial-usocket/trunk/trivial-usocket.lisp (original) +++ trivial-usocket/trunk/trivial-usocket.lisp Thu Dec 21 17:53:28 2006 @@ -163,8 +163,6 @@ (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))) Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Thu Dec 21 17:53:28 2006 @@ -36,12 +36,14 @@ :real-error condition :socket socket)))))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character) (let ((socket)) (setf socket (with-mapped-conditions (socket) (socket:make-socket :remote-host (host-to-hostname host) - :remote-port port))) + :remote-port port + :format (if (subtypep element-type 'character) + :text :binary)))) (make-stream-socket :socket socket :stream socket))) (defmethod socket-close ((usocket usocket)) Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Thu Dec 21 17:53:28 2006 @@ -11,13 +11,15 @@ (typecase condition (error (error 'unknown-error :socket socket :real-error condition)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let ((usock)) (with-mapped-conditions (usock) (let ((sock (ext:make-socket (host-to-hostname host) port))) (setf usock - (make-stream-socket :socket sock - :stream (ext:get-socket-stream sock))))))) + (make-stream-socket + :socket sock + :stream (ext:get-socket-stream sock + :element-type element-type))))))) (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 Thu Dec 21 17:53:28 2006 @@ -38,13 +38,13 @@ :socket socket :real-error condition)))))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let ((socket) (hostname (host-to-hostname host))) (with-mapped-conditions (socket) (setf socket (socket:socket-connect port hostname - :element-type 'character + :element-type element-type :buffered t))) (make-stream-socket :socket socket :stream socket))) ;; the socket is a stream too Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Thu Dec 21 17:53:28 2006 @@ -53,14 +53,14 @@ :real-condition condition :socket socket)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let* ((socket)) (setf socket (with-mapped-conditions (socket) (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 + :element-type element-type :buffering :full)) ;;###FIXME the above line probably needs an :external-format (usocket (make-stream-socket :socket socket Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Thu Dec 21 17:53:28 2006 @@ -47,12 +47,13 @@ ;; :real-condition condition ;; :socket socket)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let ((hostname (host-to-hostname host)) (stream)) (setf stream (with-mapped-conditions () - (comm:open-tcp-stream hostname port))) + (comm:open-tcp-stream hostname port + :element-type element-type))) (if stream (make-stream-socket :socket (comm:socket-stream-socket stream) :stream stream) Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Thu Dec 21 17:53:28 2006 @@ -40,12 +40,15 @@ (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (with-mapped-conditions () (let ((mcl-sock (openmcl-socket:make-socket :remote-host (host-to-hostname host) :remote-port port))) - (openmcl-socket:socket-connect mcl-sock) + (openmcl-socket:socket-connect mcl-sock + :element-type (if (subtypep element-type + 'character) + :text :binary)) (make-stream-socket :stream mcl-sock :socket mcl-sock)))) (defmethod socket-close ((usocket usocket)) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Thu Dec 21 17:53:28 2006 @@ -59,14 +59,14 @@ :real-condition condition)))))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket :input t :output t :buffering :full - :element-type 'character)) + :element-type element-type)) ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Thu Dec 21 17:53:28 2006 @@ -33,12 +33,12 @@ :real-condition condition :socket socket)))) -(defun socket-connect (host port) +(defun socket-connect (host port &key (element-type 'character)) (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 + :element-type element-type :buffering :full))) ;;###FIXME the above line probably needs an :external-format (make-stream-socket :socket socket :stream stream)))

1 0

[usocket-cvs] r130 - public_html public_html/releases usocket/tags/0.2.1
by ehuelsmann＠common-lisp.net 21 Dec '06

21 Dec '06

Author: ehuelsmann Date: Thu Dec 21 17:29:18 2006 New Revision: 130 Added: public_html/releases/usocket-0.2.1.tar.gz (contents, props changed) public_html/releases/usocket-0.2.1.tar.gz.asc usocket/tags/0.2.1/ - copied from r129, usocket/trunk/ Modified: public_html/index.shtml Log: Upload 0.2.1 release, which removes unsupported interface. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Dec 21 17:29:18 2006 @@ -295,6 +295,9 @@ <table> <caption>Release history</caption> <tr><th>Date</th><th>Release</th><th>Summary</th></tr> +<tr><td>Dec 21, 2006</td> + <td>0.2.1</td><td>Remove 'open-stream' interface which is supposed + to be provided by the 'trivial-usocket' package.</td></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 Added: public_html/releases/usocket-0.2.1.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.2.1.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/usocket-0.2.1.tar.gz.asc Thu Dec 21 17:29:18 2006 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.1 (GNU/Linux) + +iD8DBQBFiwpci5O0Epaz9TkRAtUOAJ9RlUgtXGUbDKKtYl0N5egaKoqQFACfQhYn +80dxIfA78Xkl33Zl0EQcfFA= +=PfQH +-----END PGP SIGNATURE-----

1 0

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

21 Dec '06

Author: ehuelsmann Date: Thu Dec 21 17:08:01 2006 New Revision: 129 Modified: usocket/trunk/usocket.lisp Log: Remove interface now provided in trivial-usocket. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Thu Dec 21 17:08:01 2006 @@ -51,26 +51,6 @@ object." (make-instance 'stream-server-usocket :socket socket)) -(defun open-stream (peer-host peer-port - &key (local-host :any) - (local-port 0) - (external-format :default) - (element-type 'character) - (protocol :tcp)) - "trivial-sockets compat function to make usocket a drop-in replacement -apart from the package naming difference." - (unless (and (eql local-host :any) (eql local-port 0)) - (error 'unsupported :feature :bind)) - (unless (eql protocol :tcp) - (error 'unsupported :feature `(:protocol ,protocol))) - (unless (eql external-format :default) - (error 'unsupported :feature :external-format)) - (unless (eql element-type 'character) - (error 'unsupported :feature :element-type)) - (let ((sock (socket-connect peer-host peer-port))) - (when sock - (socket-stream sock)))) - (defgeneric socket-close (usocket) (:documentation "Close a previously opened `usocket'."))

1 0