usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

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

03 Feb '06

Author: ehuelsmann Date: Fri Feb 3 15:24:31 2006 New Revision: 28 Modified: usocket/trunk/backend/sbcl.lisp usocket/trunk/usocket.lisp Log: Fix error where hostnames were erroneously not translated to vector quads. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Feb 3 15:24:31 2006 @@ -41,7 +41,9 @@ usock-error))) (if usock-error (error usock-error :socket socket) - (error 'usocket-unknown-error :real-error condition)))) + (error 'usocket-unknown-error + :socket socket + :real-error condition)))) (condition (let* ((usock-cond (cdr (assoc (type-of condition) +sbcl-condition-map+))) (usock-cond (if (functionp usock-cond) @@ -67,9 +69,10 @@ :buffering :full :element-type 'character)) ;;###FIXME: The above line probably needs an :external-format - (usocket (make-instance 'usocket :stream stream :socket socket))) + (usocket (make-instance 'usocket :stream stream :socket socket)) + (ip (host-to-vector-quad host))) (with-mapped-conditions (usocket) - (sb-bsd-sockets:socket-connect socket host port)) + (sb-bsd-sockets:socket-connect socket ip port)) usocket)) (defmethod socket-close ((usocket usocket)) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Fri Feb 3 15:24:31 2006 @@ -97,11 +97,30 @@ ;; DNS helper functions ;; +#-clisp (defun get-host-by-name (name) (let ((hosts (get-hosts-by-name name))) (car hosts))) +#-clisp (defun get-random-host-by-name (name) (let ((hosts (get-hosts-by-name name))) (elt hosts (random (length hosts))))) +#-clisp +(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))))) + +(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)))

1 0

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

03 Feb '06

Author: ehuelsmann Date: Fri Feb 3 15:19:43 2006 New Revision: 27 Modified: usocket/trunk/README Log: Update interface documentation. Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Fri Feb 3 15:19:43 2006 @@ -2,37 +2,50 @@ $Id$ -;; the backends must implement -;; -;; - handle-condition -;; - open -;; - close -;; - listen -;; - accept -;; - read-line -;; - write-sequence -;; - get-host-by-address -;; - get-host-by-name -;; -;; the backend must wrap all calls to its socket functions in a -;; handler-case/bind to make sure handle-condition is called. -;; open should take either the hostname or an vectorized ip - -usocket socket interface: +usocket interface: - usocket (class) - - socket-create (function) [ to create a passive socket ] - socket-connect (function) [ to create an active/connected socket ] + socket-connect host port + where `host' is a vectorized ip + or a string representation of a dotted ip address + or a hostname for lookup in the DNS system - socket-close (method) - - socket-accept (method) - - socket-local-address (method) - - socket-peer-address (method) + socket-close socket + where socket a previously returned socket - socket-stream (usocket slot accessor), - the value of which satisfies the normal stream interface + socket-stream socket + the return value of which satisfies the normal stream interface -usocket name resolution interface: - - get-host-by-address - - get-host-by-name +Errors: + - usocket-address-in-use-error + - usocket-address-not-available-error + - usocket-bad-file-descriptor-error + - usocket-connection-refused-error + - usocket-invalid-argument-error + - usocket-no-buffers-error + - usocket-operation-not-supported-error + - usocket-operation-not-permitted-error + - usocket-protocol-not-supported-error + - usocket-socket-type-not-supported-error + - usocket-network-unreachable-error + - usocket-network-down-error + - usocket-network-reset-error + - usocket-host-down-error + - usocket-host-unreachable-error + - usocket-shutdown-error + - usocket-timeout-error + - usocket-unkown-error + +Non-fatal conditions: + - usocket-interrupted-condition + - usocket-unkown-condition + +TODO: + - socket-create (function) [ to create a passive socket ] + - socket-accept (method) + - socket-local-address (method) + - socket-peer-address (method)

1 0

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

03 Feb '06

Author: ehuelsmann Date: Fri Feb 3 14:20:59 2006 New Revision: 26 Modified: usocket/trunk/package.lisp usocket/trunk/usocket.lisp Log: Remove/add interfaces to be implemented at this stage. Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Fri Feb 3 14:20:59 2006 @@ -13,6 +13,8 @@ (:export :socket-connect ; socket constructors and methods :socket-close + :with-connected-socket ; macros + :usocket ; socket object and accessors :socket-stream Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Fri Feb 3 14:20:59 2006 @@ -14,12 +14,13 @@ (stream :initarg :stream :accessor socket-stream) - (local-address ;; possibly need to eliminate - :initarg :local-address - :accessor local-address) - (local-port ;; possibly need to eliminate - :initarg :local-port - :accessor local-port))) +;; (local-address ;; possibly need to eliminate +;; :initarg :local-address +;; :accessor local-address) +;; (local-port ;; possibly need to eliminate +;; :initarg :local-port +;; :accessor local-port) + )) (defun make-socket (&key socket stream) (make-instance 'usocket

1 0

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

03 Feb '06

Author: ehuelsmann Date: Fri Feb 3 13:09:09 2006 New Revision: 25 Modified: usocket/trunk/backend/sbcl.lisp usocket/trunk/condition.lisp Log: Error translation for SBCL (non-Win32). Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri Feb 3 13:09:09 2006 @@ -5,12 +5,53 @@ (in-package :usocket) +(defun map-socket-error (sock-err) + (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err))) + +(defparameter +sbcl-condition-map+ + '((interrupted-error . usocket-interrupted-condition))) + +(defparameter +sbcl-error-map+ + `((sb-bsd-sockets:address-in-use-error . usocket-address-in-use-error) + (sb-bsd-sockets::no-address-error . usocket-address-not-available-error) + (sb-bsd-sockets:bad-file-descriptor-error . usocket-bad-file-descriptor-error) + (sb-bsd-sockets:connection-refused-error . usocket-connection-refused-error) + (sb-bsd-sockets:invalid-argument-error . usocket-invalid-argument-error) + (no-buffers-error . usocket-no-buffers-error) + (operation-not-supported-error . usocket-operation-not-supported-error) + (operation-not-permitted-error . usocket-operation-not-permitted-error) + (protocol-not-supported-error . usocket-protocol-not-supported-error) + (socket-type-not-supported-error . usocket-socket-type-not-supported-error) + (network-unreachable-error . usocket-network-unreachable-error) + ;; (... . usocket-network-down-error) + (no-recovery-error . usocket-network-reset-error) + ;; (... . usocket-host-down-error) + ;; (... . usocket-host-unreachable-error) + ;; (... . usocket-shutdown-error) + (operation-timeout-error . usocket-timeout-error) + (sb-bsd-sockets:socket-error . ,#'map-socket-error))) + (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." (typecase condition - (condition (error 'usocket-error - :real-condition condition - :socket socket)))) + (error (let* ((usock-error (cdr (assoc (type-of condition) + +sbcl-error-map+))) + (usock-error (if (functionp usock-error) + (funcall usock-error condition) + usock-error))) + (if usock-error + (error usock-error :socket socket) + (error 'usocket-unknown-error :real-error condition)))) + (condition (let* ((usock-cond (cdr (assoc (type-of condition) + +sbcl-condition-map+))) + (usock-cond (if (functionp usock-cond) + (funcall usock-cond condition) + usock-cond))) + (if usock-cond + (signal usock-cond :socket socket) + (signal 'usocket-unkown-condition + :real-condition condition)))))) + (defun socket-connect (host port &optional (type :stream)) "Connect to `host' on `port'. `host' is assumed to be a string of @@ -27,24 +68,24 @@ :element-type 'character)) ;;###FIXME: The above line probably needs an :external-format (usocket (make-instance 'usocket :stream stream :socket socket))) - (handler-case (sb-bsd-sockets:socket-connect socket host port) - (condition (condition) (handle-condition condition usocket))) + (with-mapped-conditions (usocket) + (sb-bsd-sockets:socket-connect socket host port)) usocket)) (defmethod socket-close ((usocket usocket)) "Close socket." - (handler-case (sb-bsd-sockets:socket-close (socket usocket)) - (condition (condition) (handle-condition condition usocket)))) + (with-mapped-conditions (usocket) + (sb-bsd-sockets:socket-close (socket usocket)))) (defun get-host-by-address (address) - (handler-case (sb-bsd-sockets::host-ent-name - (sb-bsd-sockets:get-host-by-address address)) - (condition (condition) (handle-condition condition)))) + (with-mapped-conditions () + (sb-bsd-sockets::host-ent-name + (sb-bsd-sockets:get-host-by-address address)))) (defun get-hosts-by-name (name) - (handler-case (sb-bsd-sockets::host-ent-addresses - (sb-bsd-sockets:get-host-by-name name)) - (condition (condition) (handle-condition condition)))) + (with-mapped-conditions () + (sb-bsd-sockets::host-ent-addresses + (sb-bsd-sockets:get-host-by-name name)))) Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Fri Feb 3 13:09:09 2006 @@ -44,7 +44,8 @@ (usocket-condition)) (define-condition usocket-unknown-condition (usocket-condition) - ((real-condition)) + ((real-condition :initarg :real-condition + :accessor usocket-real-condition)) (:documentation "")) @@ -70,5 +71,54 @@ (usocket-error)) (define-condition usocket-unknown-error (usocket-error) - ((real-error)) + ((real-error :initarg :real-error + :accessor usocket-real-error)) (:documentation "")) + + +(defmacro with-mapped-conditions ((&optional socket) &body body) + `(handler-case + (progn ,@body) + (condition (condition) (handle-condition condition ,socket)))) + +(defparameter +unix-errno-condition-map+ + `((11 . usocket-retry-condition) ;; EAGAIN + (35 . usocket-retry-condition) ;; EDEADLCK + (4 . usocket-interrupted-condition))) ;; EINTR + +(defparameter +unix-errno-error-map+ + ;;### the first column is for non-(linux or srv4) systems + ;; the second for linux + ;; the third for srv4 + ;;###FIXME: How do I determine on which Unix we're running + ;; (at least in clisp and sbcl; I know about cmucl...) + ;; The table below works under the assumption we'll *only* see + ;; socket associated errors... + `(((48 98) . usocket-address-in-use-error) + ((49 99) . usocket-address-not-available-error) + ((9) . usocket-bad-file-descriptor-error) + ((61 111) . usocket-connection-refused-error) + ((22) . usocket-invalid-argument-error) + ((55 105) . usocket-no-buffers-error) + ((12) . usocket-out-of-memory-error) + ((45 95) . usocket-operation-not-supported-error) + ((1) . usocket-operation-not-permitted-error) + ((43 92) . usocket-protocol-not-supported-error) + ((44 93) . usocket-socket-type-not-supported-error) + ((51 102) . usocket-network-unreachable-error) + ((50 100) . usocket-network-down-error) + ((52 102) . usocket-network-reset-error) + ((58 108) . usocket-already-shutdown-error) + ((60 110) . usocket-connection-timeout-error) + ((64 112) . usocket-host-down-error) + ((65 113) . usocket-host-unreachable-error))) + + + + +(defun map-errno-condition (errno) + (cdr (assoc errno +unix-errno-error-map+))) + + +(defun map-errno-error (errno) + (cdr (assoc errno +unix-errno-error-map+ :test #'member)))

1 0

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

03 Feb '06

Author: ehuelsmann Date: Fri Feb 3 12:47:57 2006 New Revision: 24 Modified: usocket/trunk/usocket.lisp Log: Add comments and documentation. Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Fri Feb 3 12:47:57 2006 @@ -14,10 +14,10 @@ (stream :initarg :stream :accessor socket-stream) - (local-address + (local-address ;; possibly need to eliminate :initarg :local-address :accessor local-address) - (local-port + (local-port ;; possibly need to eliminate :initarg :local-port :accessor local-port))) @@ -27,9 +27,12 @@ :stream stream)) (defgeneric socket-close (usocket) - (:documentation "Close a previously opened USOCKET.")) + (:documentation "Close a previously opened `usocket'.")) (defmacro with-connected-socket ((var socket) &body body) + "Bind `socket' to `var', ensuring socket destruction on exit. + +The `body' is an implied progn form." `(let ((,var ,socket)) (unwind-protect (progn @@ -100,3 +103,4 @@ (defun get-random-host-by-name (name) (let ((hosts (get-hosts-by-name name))) (elt hosts (random (length hosts))))) +

1 0

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

02 Feb '06

Author: ehuelsmann Date: Thu Feb 2 14:00:08 2006 New Revision: 23 Modified: usocket/trunk/backend/allegro.lisp (contents, props changed) usocket/trunk/backend/clisp.lisp (contents, props changed) usocket/trunk/backend/cmucl.lisp (contents, props changed) usocket/trunk/backend/lispworks.lisp (contents, props changed) usocket/trunk/backend/sbcl.lisp (contents, props changed) Log: Set keywords. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Thu Feb 2 14:00:08 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information. Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Thu Feb 2 14:00:08 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information. Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Thu Feb 2 14:00:08 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Thu Feb 2 14:00:08 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Thu Feb 2 14:00:08 2006 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See LICENSE for licensing information.

1 0

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

02 Feb '06

Author: ehuelsmann Date: Thu Feb 2 13:53:34 2006 New Revision: 22 Modified: public_html/index.shtml Log: Fix XHTML 1.1 conformance. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 2 13:53:34 2006 @@ -53,13 +53,13 @@ <tr> <th></th> <th>Minor steps</th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">SBCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">CMUCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">ABCL</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">clisp</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">Allegro</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">LispWorks</a></th> - <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fusock…">OpenMCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">SBCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">CMUCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">ABCL</a></th> + <th><a href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">clisp</a></th> + <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> </tr> </thead> <tbody>

1 0

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

02 Feb '06

Author: ehuelsmann Date: Thu Feb 2 13:50:42 2006 New Revision: 21 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Thu Feb 2 13:50:42 2006 @@ -13,28 +13,38 @@ <h1></h1> </div> +<h2>Goal</h2> + +<p>The project wants to provide a portable TCP/IP (and later on maybe +UDP) socket interface for as many Common Lisp implementations as +possible, while keeping the abstraction and portability layer as thin +as possible. </p> + <h2>Community</h2> - <p>This project has recently started. See <a -href="http://common-lisp.net/websvn/filedetails.php?repname=usocket&path=%2Fu…">the design -document</a> for more information.</p> + <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> <p>Development discussion takes place on <a href="mailto:usocket-devel@common-lisp.net">usocket-devel(a)common-lisp.net</a>. - Please feel free to join and chip in! (This currently being a single man project, please announce yourself.) </p> <div class="roadmap"> <h2>Development roadmap</h2> -<p>Development will at least follow the steps outlined below. - Yet to be determined is whether the currently mentioned steps will - be enough to release version 1.0. Possibly, UDP sockets remain to be - addressed before doing 1.0; that will depend on your reactions :-) -</p> + <p>Development will at least follow the steps outlined below. + Yet to be determined is whether the currently mentioned steps will + be enough to release version 1.0. Possibly, UDP sockets remain to be + addressed before doing 1.0; that will depend on your reactions :-) + </p> + <p>The targeted implementations listed in the status table below are not + a final list: others can be added if/when the need or interest arrises. + </p> <table rules="all" border="1" cellpadding="3"> - <caption>Roadmap</caption> + <caption>Status for the currently targeted backends</caption> <thead class="roadmap-head"> <tr> <th colspan="2">Major steps</th>

1 0

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

01 Feb '06

Author: ehuelsmann Date: Wed Feb 1 16:05:52 2006 New Revision: 20 Modified: public_html/index.shtml Log: Update website. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Wed Feb 1 16:05:52 2006 @@ -27,6 +27,12 @@ <div class="roadmap"> <h2>Development roadmap</h2> +<p>Development will at least follow the steps outlined below. + Yet to be determined is whether the currently mentioned steps will + be enough to release version 1.0. Possibly, UDP sockets remain to be + addressed before doing 1.0; that will depend on your reactions :-) +</p> + <table rules="all" border="1" cellpadding="3"> <caption>Roadmap</caption> <thead class="roadmap-head"> @@ -68,16 +74,16 @@ <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="TODO">TODO</td> + <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> </tr> <tr> <td>Implement active socket support.</td> <td class="WIP" title="Work in progress">WIP</td> - <td class="WIP">WIP</td> + <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> - <td class="WIP">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>

1 0

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

01 Feb '06

Author: ehuelsmann Date: Wed Feb 1 16:02:27 2006 New Revision: 19 Modified: usocket/trunk/doc/active-sockets-apis.txt usocket/trunk/doc/clisp-sockets.txt usocket/trunk/doc/sb-bsd-sockets.txt Log: Update with latest code+docs research. Modified: usocket/trunk/doc/active-sockets-apis.txt ============================================================================== --- usocket/trunk/doc/active-sockets-apis.txt (original) +++ usocket/trunk/doc/active-sockets-apis.txt Wed Feb 1 16:02:27 2006 @@ -19,7 +19,7 @@ - socket-bind - make-instance 'inet-socket - socket-make-stream - - socket-connect + - socket-connect (ip vector-quad) port - socket-close DNS name resolution: @@ -33,7 +33,7 @@ ===== sockets: - - ext:connect-to-inet-socket + - ext:connect-to-inet-socket (ip integer) port - sys:make-fd-stream - ext:close-socket @@ -43,3 +43,33 @@ - ext:host-entry-addr-list - ext:lookup-host-entry + +ABCL +==== + + sockets + - ext:socket-connect (hostname string) port + - ext:get-socket-stream + - ext:socket-close + + +clisp +===== + + sockets + - socket-connect port (hostname string) + - close (socket) + + +Allegro +======= + + sockets + - make-socket + - socket-connect + - close + + DNS resolution + - lookup-hostname + - ipaddr-to-hostname + Modified: usocket/trunk/doc/clisp-sockets.txt ============================================================================== --- usocket/trunk/doc/clisp-sockets.txt (original) +++ usocket/trunk/doc/clisp-sockets.txt Wed Feb 1 16:02:27 2006 @@ -24,3 +24,15 @@ aliases - LIST of aliases addr-list - LIST of IPs as dotted quads (IPv4) or coloned octets (IPv6) addrtype - INTEGER address type IPv4 or IPv6 + + +Errors are of type + +SYSTEM::SIMPLE-OS-ERROR + with a 1 element (integer) SYSTEM::$FORMAT-ARGUMENTS list + +This integer stores the OS error reported; meaning WSA* codes on Win32 +and E* codes on *nix, only: unix.lisp in CMUCL shows +BSD, Linux and SRV4 have different number assignments for the same +E* constant names :-( + Modified: usocket/trunk/doc/sb-bsd-sockets.txt ============================================================================== --- usocket/trunk/doc/sb-bsd-sockets.txt (original) +++ usocket/trunk/doc/sb-bsd-sockets.txt Wed Feb 1 16:02:27 2006 @@ -89,24 +89,20 @@ Exported errors: * (apropos "ERROR" :sb-bsd-sockets) - + SB-BSD-SOCKETS:INTERRUPTED-ERROR SB-BSD-SOCKETS:TRY-AGAIN-ERROR -SB-BSD-SOCKETS:NO-RECOVERY-ERROR +* SB-BSD-SOCKETS:NO-RECOVERY-ERROR (EFAIL?) SB-BSD-SOCKETS:CONNECTION-REFUSED-ERROR SB-BSD-SOCKETS:INVALID-ARGUMENT-ERROR -SB-BSD-SOCKETS:HOST-NOT-FOUND-ERROR +* SB-BSD-SOCKETS:HOST-NOT-FOUND-ERROR SB-BSD-SOCKETS:OPERATION-NOT-PERMITTED-ERROR -SB-BSD-SOCKETS:SOCKET-ERROR (fbound) <-- geen condition -SB-BSD-SOCKETS:NAME-SERVICE-ERROR (fbound) <-- geen condition -? --> SB-BSD-SOCKETS:NETDB-INTERNAL-ERROR SB-BSD-SOCKETS:OPERATION-NOT-SUPPORTED-ERROR SB-BSD-SOCKETS:PROTOCOL-NOT-SUPPORTED-ERROR SB-BSD-SOCKETS:OPERATION-TIMEOUT-ERROR SB-BSD-SOCKETS:SOCKET-TYPE-NOT-SUPPORTED-ERROR SB-BSD-SOCKETS:NO-BUFFERS-ERROR SB-BSD-SOCKETS:NETWORK-UNREACHABLE-ERROR -? --> SB-BSD-SOCKETS:NETDB-SUCCESS-ERROR SB-BSD-SOCKETS:BAD-FILE-DESCRIPTOR-ERROR SB-BSD-SOCKETS:ADDRESS-IN-USE-ERROR SB-BSD-SOCKETS:OUT-OF-MEMORY-ERROR @@ -114,3 +110,5 @@ And 1 non-exported error: SB-BSD-SOCKETS::NO-ADDRESS-ERROR + +*-ed errors aren't yet addressed in the errorlist supported by usocket

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs