usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r48 - public_html
by ehuelsmann＠common-lisp.net 06 Feb '06

06 Feb '06

Author: ehuelsmann Date: Mon Feb 6 15:15:34 2006 New Revision: 48 Modified: public_html/index.shtml public_html/style.css Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Mon Feb 6 15:15:34 2006 @@ -83,41 +83,61 @@ </thead> <tbody> <tr style="border-width:2px;border-color:#000;"> - <td rowspan="3">Minimal active sockets support + <td rowspan="5">Minimal active sockets support at the same level as provided by <a href="http://cliki.net/trivial-sockets">trivial-sockets</a>.<br /> (Meaning streamed tcp traffic on connected sockets.)</td> <td>Investigate interfaces provided.</td> - <td class="WIP" title="Work in progress">WIP</td>  - <td class="WIP" title="Work in progress">WIP</td>  + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  <td class="WIP" title="Work in progress">WIP</td>  - <td class="WIP" title="Work in progress">WIP</td>  - <td class="WIP" title="Work in progress">WIP</td>  - <td class="TODO">TODO</td>  - <td class="TODO">TODO</td>  + <td class="DONE">DONE</td>  + <td class="DONE">DONE</td>  + <td class="WIP" title="Work in progress">WIP</td>  + <td class="DONE">DONE</td>  </tr> <tr> <td>Identify socket errors generated.</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> - <td class="TODO">TODO</td> + <td class="WIP" title="Work in progress">WIP</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> - <td class="TODO">TODO</td> + <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> </tr> <tr> <td>Implement active socket support.</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</td> + <td class="TODO">TODO</td> + <td class="DONE">DONE</td> <td class="WIP" title="Work in progress">WIP</td> <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> + </tr> + <tr> + <td>Implement remapping of implementation defined errors.</td> <td class="WIP" title="Work in progress">WIP</td> <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> + <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE">DONE</td> + <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> </tr> <tr> + <td>Implementation test-suite status</td> + <td class="PASS">PASS</td> + <td class="UNTESTED" title="Untested">?</td> + <td class="UNTESTED" title="Untested">?</td> + <td class="UNTESTED" title="Untested">?</td> + <td class="UNTESTED" title="Untested">?</td> + <td class="UNTESTED" title="Untested">?</td> + <td class="UNTESTED" title="Untested">?</td> + </tr> + <tr> <td rowspan="2">Add functions to retrieve socket properties.<br /> Such as local and remote IP address and port.</td> <td>Investigate interfaces provided</td> Modified: public_html/style.css ============================================================================== --- public_html/style.css (original) +++ public_html/style.css Mon Feb 6 15:15:34 2006 @@ -74,3 +74,14 @@ .DONE { background-color: #080; color: #000; text-align: center; } + +.UNTESTED { text-align: center; } + +.PASS { background-color: #080; + color: #000; + text-align: center; } + +.FAIL { background-color: #b00; + color: #fff; + text-align: center; + font-weight: bold }

1 0

[usocket-cvs] r47 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 06 Feb '06

06 Feb '06

Author: ehuelsmann Date: Mon Feb 6 14:51:50 2006 New Revision: 47 Modified: usocket/trunk/backend/lispworks.lisp Log: Update LispWorks backend. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Mon Feb 6 14:51:50 2006 @@ -5,33 +5,59 @@ (in-package :usocket) + +#+win32 +(defun remap-maybe-for-win32 (z) + (mapcar #'(lambda (x) + (cons (mapcar #'(lambda (y) + (+ 10000 y)) + (car x)) + (cdr x))) + z)) + +(defparameter +lispworks-error-map+ + #+win32 + (append (remap-for-win32 +unix-errno-condition-map+) + (remap-for-win32 +unix-errno-error-map+)) + #-win32 + (append +unix-errno-condition-map+ + +unix-errno-error-map+)) + + + (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." (typecase condition - (condition (error 'usocket-error - :real-condition condition - :socket socket)))) + (simple-error (destructuring-bind (&optional host port err-msg errno) + (simple-condition-format-arguments condition) + (declare (ignore host port err-msg)) + (let* ((usock-err + (cdr (assoc errno +lispworks-error-map+ + :test #'member)))) + (if usock-err + (if (subtypep usock-err 'error) + (error usock-err :socket socket) + (signal usock-err :socket socket)) + (error 'unknown-error + :socket socket + :real-error condition))))))) +;; (condition (error 'usocket-error +;; :real-condition condition +;; :socket socket)))) -(defun open (host port &optional (type :stream)) +(defun socket-connect (host port &optional (type :stream)) (declare (ignore type)) - (make-socket :socket (comm:open-tcp-stream host port) - :host host - :port port)) - -(defmethod close ((socket socket)) - "Close socket." - (cl:close (real-socket socket))) - -(defmethod read-line ((socket socket)) - (cl:read-line (real-socket socket))) + (let ((hostname (host-to-hostname host)) + (stream)) + (setf stream + (with-mapped-conditions () + (comm:open-tcp-stream host port))) + (make-socket :socket (comm:socket-stream-socket stream) + :stream stream))) +;; :host host +;; :port port)) -(defmethod write-sequence ((socket socket) sequence) - (cl:write-sequence sequence (real-socket socket))) - -(defun get-host-by-address (address) - (comm:get-host-entry (vector-quad-to-dotted-quad address) - :fields '(:name))) +(defmethod socket-close ((usocket usocket)) + "Close socket." + (close (stream usocket))) -(defun get-host-by-name (name) - (mapcar #'hbo-to-vector-quad - (comm:get-host-entry name :fields '(:addresses))))

1 0

[usocket-cvs] r46 - in usocket/trunk: . test
by ehuelsmann＠common-lisp.net 06 Feb '06

06 Feb '06

Author: ehuelsmann Date: Mon Feb 6 14:50:07 2006 New Revision: 46 Added: usocket/trunk/run-usocket-tests.sh (contents, props changed) Modified: usocket/trunk/ (props changed) usocket/trunk/package.lisp usocket/trunk/test/package.lisp (contents, props changed) usocket/trunk/test/test-usocket.lisp (contents, props changed) usocket/trunk/test/usocket-test.asd (contents, props changed) Log: Commit test script update. Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Mon Feb 6 14:50:07 2006 @@ -16,6 +16,7 @@ :with-connected-socket ; macros :usocket ; socket object and accessors + :socket :socket-stream :host-byte-order ; IPv4 utility functions Added: usocket/trunk/run-usocket-tests.sh ============================================================================== --- (empty file) +++ usocket/trunk/run-usocket-tests.sh Mon Feb 6 14:50:07 2006 @@ -0,0 +1,23 @@ +#!/bin/sh + +# Test script to be run from the usocket source root +# +# Unfortunately, it currently works only with SBCL +# in my setup... +# +# I need to figure out how to setup ASDF with the other lisps +# I have installed: cmucl, ABCL, clisp, allegro and lispworks + +for my_lisp in sbcl ; do + +echo " +(require 'usocket-test) + +(usocket-test:run-usocket-tests) + +(quit) +" | $my_lisp + +echo "Above test results for $my_lisp." + +done Modified: usocket/trunk/test/package.lisp ============================================================================== --- usocket/trunk/test/package.lisp (original) +++ usocket/trunk/test/package.lisp Mon Feb 6 14:50:07 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See the LICENSE file for licensing information. @@ -9,5 +9,5 @@ (defpackage :usocket-test (:use :cl :rt) (:nicknames :usoct) - (:export :do-tests))) + (:export :do-tests :run-usocket-tests))) Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Mon Feb 6 14:50:07 2006 @@ -1,17 +1,82 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information. (in-package :usocket-test) -(defvar *soc1* (usoc:make-socket :socket :stream - :host #(1 2 3 4) - :port 80 - :stream :my-stream)) - -(deftest make-socket.1 (usoc::real-socket usoct::*soc1*) :my-socket) -(deftest make-socket.2 (usoc::real-stream usoct::*soc1*) :my-stream) -(deftest make-socket.3 (usoc:host usoct::*soc1*) #(1 2 3 4)) -(deftest make-socket.4 (usoc:host usoct::*soc1*) 80) +(defparameter *soc1* (usocket::make-socket :socket :my-socket + :stream :my-stream)) +(deftest make-socket.1 (usocket:socket *soc1*) :my-socket) +(deftest make-socket.2 (usocket:socket-stream *soc1*) :my-stream) + +(deftest socket-no-connect.1 + (catch 'caught-error + (handler-bind ((usocket:usocket-error + #'(lambda (c) (throw 'caught-error nil)))) + (usocket:socket-connect "127.0.0.0" 80) + t)) + nil) +(deftest socket-no-connect.2 + (catch 'caught-error + (handler-bind ((usocket:usocket-error + #'(lambda (c) (throw 'caught-error nil)))) + (usocket:socket-connect #(127 0 0 0) 80) + t)) + nil) +(deftest socket-no-connect.3 + (catch 'caught-error + (handler-bind ((usocket:usocket-error + #'(lambda (c) (throw 'caught-error nil)))) + (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) + t)) + nil) + +(deftest socket-failure.1 + (catch 'caught-error + (handler-bind ((usocket:network-unreachable-error + #'(lambda (c) (throw 'caught-error nil))) + (condition + #'(lambda (c) (throw 'caught-error t)))) + (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) + t)) + nil) + +;; let's hope c-l.net doesn't move soon, or that people start to +;; test usocket like crazy.. +(deftest socket-connect.1 + (let ((sock (usocket:socket-connect "common-lisp.net" 80))) + (unwind-protect + (typep sock 'usocket:usocket) + (usocket:socket-close sock))) + t) +(deftest socket-connect.2 + (let ((sock (usocket:socket-connect #(65 110 12 237) 80))) + (unwind-protect + (typep sock 'usocket:usocket) + (usocket:socket-close sock))) + t) +(deftest socket-connect.3 + (let ((sock (usocket:socket-connect 1097731309 80))) + (unwind-protect + (typep sock 'usocket:usocket) + (usocket:socket-close sock))) + t) + +;; let's hope c-l.net doesn't change its software any time soon +(deftest socket-stream.1 + (let ((sock (usocket:socket-connect "common-lisp.net" 80))) + (unwind-protect + (progn + (format (usocket:socket-stream sock) + "GET / HTTP/1.0~A~A~A~A" + #\Return #\Newline #\Return #\Newline) + (force-output (usocket:socket-stream sock)) + (read-line (usocket:socket-stream sock))) + (usocket:socket-close sock))) + #.(format nil "HTTP/1.1 200 OK~A" #\Return) nil) + + +(defun run-usocket-tests () + (do-tests)) Modified: usocket/trunk/test/usocket-test.asd ============================================================================== --- usocket/trunk/test/usocket-test.asd (original) +++ usocket/trunk/test/usocket-test.asd Mon Feb 6 14:50:07 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See the LICENSE file for licensing information.

1 0

[usocket-cvs] r45 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 05 Feb '06

05 Feb '06

Author: ehuelsmann Date: Sun Feb 5 15:50:41 2006 New Revision: 45 Modified: usocket/trunk/backend/cmucl.lisp Log: Introduce error handling for cmucl 19b and later. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sun Feb 5 15:50:41 2006 @@ -6,15 +6,47 @@ (in-package :usocket) +(defun remap-maybe-for-win32 (z) + (mapcar #'(lambda (x) + (cons (mapcar #'(lambda (y) + (+ 10000 y)) + (car x)) + (cdr x))) + z)) + +(defparameter +cmucl-error-map+ + #+win32 + (append (remap-for-win32 +unix-errno-condition-map+) + (remap-for-win32 +unix-errno-error-map+)) + #-win32 + (append +unix-errno-condition-map+ + +unix-errno-error-map+)) + + ;; CMUCL error handling is brain-dead: it doesn't preserve any ;; information other than the OS error string from which the ;; error can be determined. The OS error string isn't good enough ;; given that it may have been localized (l10n). ;; +;; The above applies to versions pre 19b; 19d and newer are expected to +;; contain even better error reporting. +;; +;; ;; Just catch the errors and encapsulate them in an unknown-error (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." (typecase condition + (ext::simple-error + (let ((usock-err + (cdr (assoc (ext::socket-errno c) + +cmucl-error-map+ :test member)))) + (if usock-err + (if (subtypep usock-err 'error) + (error usock-err :socket socket) + (signal usock-err :socket socket)) + (error 'unknown-error + :socket socket + :real-error condition)))) (simple-error (error 'unknown-error :real-condition condition :socket socket)))) @@ -23,7 +55,7 @@ (let* ((socket)) (setf socket (with-mapped-conditions (socket) - (ext:connect-to-inet-socket (host-byte-order host) port type))) + (ext:connect-to-inet-socket (host-to-hbo host) port type))) (let* ((stream (sys:make-fd-stream socket :input t :output t :element-type 'character :buffering :full))

1 0

[usocket-cvs] r44 - usocket/trunk/doc
by ehuelsmann＠common-lisp.net 05 Feb '06

05 Feb '06

Author: ehuelsmann Date: Sun Feb 5 15:46:10 2006 New Revision: 44 Modified: usocket/trunk/doc/design.txt Log: Extend design document. Modified: usocket/trunk/doc/design.txt ============================================================================== --- usocket/trunk/doc/design.txt (original) +++ usocket/trunk/doc/design.txt Sun Feb 5 15:46:10 2006 @@ -66,11 +66,6 @@ to write a DNS client library: (which in the end may work better, because in this respect all implementations are different...) - retrieve IP addresses/ports for both sides of the connection ---- later addition -I don't think it's a good idea to implement name lookup in the -very first of steps: we'll see if this is required to get the -package accepted; not all implementations support it. ---- later addition; end Several relevant support functionalities will have to be provided too: - long <-> quad-vector operators @@ -86,3 +81,40 @@ - Allegro - LispWorks - OpenMCL + + +Comments on the design above +============================ + +I don't think it's a good idea to implement name lookup in the +very first of steps: we'll see if this is required to get the +package accepted; not all implementations support it. + +Name resolution errors ... +Since there is no name resolution library (yet), nor standardized +hooks into the standard C library to do it the same way on +all platforms, name resolution errors can manifest themselves +in a lot of different ways. How to marshall these to the +library users? + +Several solutions come to mind: + +1) Map them to 'unknown-error +2) Give them their own errors and map to those +3) ... + +Given that the library doesn't now, but may in the future, +include name resolution officially, I tend to think (1) is the +right answer: it leaves it all undecided. + +These errors can be raised by the nameresolution service +(netdb.h) as values for 'int h_errno': + +- HOST_NOT_FOUND (1) +- TRY_AGAIN (2) /* Server fail or non-authoritive Host not found */ +- NO_RECOVERY (3) /* Failed permanently */ +- NO_DATA (4) /* Valid address, no data for requested record */ + +int *__h_errno_location(void) points to thread local h_errno on +threaded glibc2 systems. +

1 0

[usocket-cvs] r43 - usocket/trunk
by ehuelsmann＠common-lisp.net 05 Feb '06

05 Feb '06

Author: ehuelsmann Date: Sun Feb 5 15:45:33 2006 New Revision: 43 Modified: usocket/trunk/usocket.asd Log: Add required lispworks module. Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/trunk/usocket.asd Sun Feb 5 15:45:33 2006 @@ -19,7 +19,8 @@ :description "Universal socket library for Common Lisp" :depends-on (:split-sequence #+allegro :socket - #+sbcl :sb-bsd-sockets) + #+sbcl :sb-bsd-sockets + #+lispworks "comm") :components ((:file "package") (:file "usocket" :depends-on ("package"))

1 0

[usocket-cvs] r42 - usocket/trunk
by ehuelsmann＠common-lisp.net 05 Feb '06

05 Feb '06

Author: ehuelsmann Date: Sun Feb 5 15:44:22 2006 New Revision: 42 Modified: usocket/trunk/usocket.lisp Log: Fix host transformation routines. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sun Feb 5 15:44:22 2006 @@ -111,16 +111,26 @@ (defun host-to-vector-quad (host) "Translate a host specification (vector quad, dotted quad or domain name) to a vector quad." - (if (vectorp host) - host - (let* ((ip (ignore-errors - (dotted-quad-to-vector-quad host)))) - (if (and ip (= 4 (length ip))) - ip - (get-random-host-by-name host))))) + (etypecase host + (string (let* ((ip (ignore-errors + (dotted-quad-to-vector-quad host)))) + (if (and ip (= 4 (length ip))) + ;; valid IP dotted quad? + ip + (get-random-host-by-name host)))) + ((vector t 4) host) + (integer (hbo-to-vector-quad host)))) (defun host-to-hostname (host) "Translate a string or vector quad to a stringified hostname." - (if (stringp host) - host - (vector-quad-to-dotted-quad host))) + (etypecase host + (string host) + ((vector t 4) (vector-quad-to-dotted-quad host)) + (integer (hbo-to-dotted-quad host)))) + + +(defun host-to-hbo (host) + (etypecase host + (string (host-to-hbo (get-host-by-name host))) + ((vector t 4) (host-byte-order host)) + (integer host)))

1 0

[usocket-cvs] r41 - in usocket/trunk: . backend
by ehuelsmann＠common-lisp.net 04 Feb '06

04 Feb '06

Author: ehuelsmann Date: Sat Feb 4 15:43:49 2006 New Revision: 41 Modified: usocket/trunk/backend/allegro.lisp usocket/trunk/usocket.asd Log: Fix loading errors for Allegro CL. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Sat Feb 4 15:43:49 2006 @@ -6,18 +6,18 @@ (in-package :usocket) (defparameter +allegro-identifier-error-map+ - '((:address-in-use . usocket-address-in-use-error) - (:address-not-available . usocket-address-not-available-error) - (:network-down . usocket-network-down-error) - (:network-reset . usocket-network-reset-error) - (:connection-aborted . usocket-connection-aborted-error) - (:connection-reset . usocket-connection-reset-error) - (:no-buffer-space . usocket-no-buffers-error) - (:shutdown . usocket-shutdown-error) - (:connection-timed-out . usocket-timeout-error) - (:connection-refused . usocket-connection-refused-error) - (:host-down . usocket-host-down-error) - (:host-unreachable . usocket-host-unreachable-error))) + '((:address-in-use . address-in-use-error) + (:address-not-available . address-not-available-error) + (:network-down . network-down-error) + (:network-reset . network-reset-error) + (:connection-aborted . connection-aborted-error) + (:connection-reset . connection-reset-error) + (:no-buffer-space . no-buffers-error) + (:shutdown . shutdown-error) + (:connection-timed-out . timeout-error) + (:connection-refused . connection-refused-error) + (:host-down . host-down-error) + (:host-unreachable . host-unreachable-error))) (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." @@ -27,7 +27,7 @@ +allegro-identifier-error-map+)))) (if usock-err (error usock-err :socket socket) - (error 'usocket-unknown-error + (error 'unknown-error :real-condition condition :socket socket)))))) @@ -36,24 +36,24 @@ (let ((socket)) (setf socket (with-mapped-conditions (socket) - (sock:make-socket :remote-host (host-to-hostname host) - :remote-port port))) + (socket:make-socket :remote-host (host-to-hostname host) + :remote-port port))) (make-socket :socket socket :stream socket))) -(defmethod close ((usocket usocket)) +(defmethod socket-close ((usocket usocket)) "Close socket." (with-mapped-conditions (usocket) - (sock:close (socket usocket)))) + (close (socket usocket)))) (defun get-host-by-address (address) (with-mapped-conditions () - (sock:ipaddr-to-hostname address))) + (socket:ipaddr-to-hostname address))) (defun get-hosts-by-name (name) ;;###FIXME: ACL has the acldns module which returns all A records ;; only problem: it doesn't fall back to tcp (from udp) if the returned ;; structure is too long. (with-mapped-conditions () - (list (hbo-to-vector-quad (sock:lookup-hostname name))))) + (list (hbo-to-vector-quad (socket:lookup-hostname name))))) Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd (original) +++ usocket/trunk/usocket.asd Sat Feb 4 15:43:49 2006 @@ -17,7 +17,9 @@ :version "0.1.0" :licence "MIT" :description "Universal socket library for Common Lisp" - :depends-on (#+sbcl :sb-bsd-sockets :split-sequence) + :depends-on (:split-sequence + #+allegro :socket + #+sbcl :sb-bsd-sockets) :components ((:file "package") (:file "usocket" :depends-on ("package"))

1 0

[usocket-cvs] r40 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 04 Feb '06

04 Feb '06

Author: ehuelsmann Date: Sat Feb 4 15:41:49 2006 New Revision: 40 Modified: usocket/trunk/backend/cmucl.lisp Log: Fix condition mapping for CMUCL. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sat Feb 4 15:41:49 2006 @@ -20,18 +20,22 @@ :socket socket)))) (defun socket-connect (host port &optional (type :stream)) - (let* ((socket (ext:connect-to-inet-socket (host-byte-order host) port type)) - (stream (sys:make-fd-stream socket :input t :output t - :element-type 'character - :buffering :full)) - ;;###FIXME the above line probably needs an :external-format - (usocket (make-socket :socket socket - :host host :port port :stream stream))) - usocket)) + (let* ((socket)) + (setf socket + (with-mapped-conditions (socket) + (ext:connect-to-inet-socket (host-byte-order host) port type))) + (let* ((stream (sys:make-fd-stream socket :input t :output t + :element-type 'character + :buffering :full)) + ;;###FIXME the above line probably needs an :external-format + (usocket (make-socket :socket socket + :host host :port port :stream stream))) + usocket))) (defmethod socket-close ((usocket usocket)) "Close socket." - (ext:close-socket (socket usocket))) + (with-mapped-conditions (usocket) + (ext:close-socket (socket usocket))))

1 0

[usocket-cvs] r39 - usocket/trunk
by ehuelsmann＠common-lisp.net 04 Feb '06

04 Feb '06

Author: ehuelsmann Date: Sat Feb 4 08:16:42 2006 New Revision: 39 Modified: usocket/trunk/README Log: Update README with a 'known problems' section. Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Sat Feb 4 08:16:42 2006 @@ -24,8 +24,8 @@ - address-not-available-error - bad-file-descriptor-error - connection-refused-error - - connection-aborted-error * TODO - - connection-reset-error * TODO + - connection-aborted-error + - connection-reset-error - invalid-argument-error - no-buffers-error - operation-not-supported-error @@ -51,3 +51,9 @@ - socket-accept (method) - socket-local-address (method) - socket-peer-address (method) + + +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

← Newer
1
...
63
64
65
66
67
68
69
70
71
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs