usocket-cvs January 2007

usocket-cvs@common-lisp.net

1 participants
65 discussions

[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

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs January 2007