usocket-cvs February 2006

usocket-cvs@common-lisp.net

1 participants
98 discussions

[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

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

04 Feb '06

Author: ehuelsmann Date: Sat Feb 4 08:14:30 2006 New Revision: 38 Modified: public_html/index.shtml usocket/trunk/backend/cmucl.lisp Log: Implement CMUCL error mapping and update status table. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Feb 4 08:14:30 2006 @@ -100,7 +100,7 @@ <tr> <td>Identify socket errors generated.</td> <td class="DONE" title="Implemented">DONE</td> - <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE" title="Implemented">DONE</td> <td class="TODO">TODO</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sat Feb 4 08:14:30 2006 @@ -5,12 +5,19 @@ (in-package :usocket) + +;; 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). +;; +;; Just catch the errors and encapsulate them in an unknown-error (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." (typecase condition - (condition (error 'usocket-error - :real-condition condition - :socket socket)))) + (simple-error (error 'unknown-error + :real-condition condition + :socket socket)))) (defun socket-connect (host port &optional (type :stream)) (let* ((socket (ext:connect-to-inet-socket (host-byte-order host) port type))

1 0

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

04 Feb '06

Author: ehuelsmann Date: Sat Feb 4 06:24:14 2006 New Revision: 37 Modified: usocket/trunk/README usocket/trunk/backend/allegro.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/sbcl.lisp usocket/trunk/condition.lisp usocket/trunk/doc/backends.txt Log: Remove usocket- prefix from (most) errors. Also eliminate clisp error- and condition-map remapping. Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Sat Feb 4 06:24:14 2006 @@ -20,30 +20,30 @@ Errors: - - usocket-address-in-use-error - - usocket-address-not-available-error - - usocket-bad-file-descriptor-error - - usocket-connection-refused-error - - usocket-connection-aborted-error * TODO - - usocket-connection-reset-error * TODO - - 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 + - address-in-use-error + - address-not-available-error + - bad-file-descriptor-error + - connection-refused-error + - connection-aborted-error * TODO + - connection-reset-error * TODO + - invalid-argument-error + - no-buffers-error + - operation-not-supported-error + - operation-not-permitted-error + - protocol-not-supported-error + - socket-type-not-supported-error + - network-unreachable-error + - network-down-error + - network-reset-error + - host-down-error + - host-unreachable-error + - shutdown-error + - timeout-error + - unkown-error Non-fatal conditions: - - usocket-interrupted-condition - - usocket-unkown-condition + - interrupted-condition + - unkown-condition TODO: Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Sat Feb 4 06:24:14 2006 @@ -10,8 +10,8 @@ (:address-not-available . usocket-address-not-available-error) (:network-down . usocket-network-down-error) (:network-reset . usocket-network-reset-error) -;; (:connection-aborted . ) FIXME: take these 2 errors in the supported list -;; (:connection-reset . ) + (: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) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Sat Feb 4 06:24:14 2006 @@ -5,33 +5,36 @@ (in-package :usocket) -(defun remap-maybe-for-win32 (z &optional errorp) + +#+win32 +(defun remap-maybe-for-win32 (z) (mapcar #'(lambda (x) - (list #-win32 (car x) - #+win32 (mapcar #'(lambda (y) - (+ 10000 y)) - (car x)) - (cdr x) - errorp)) + (cons (mapcar #'(lambda (y) + (+ 10000 y)) + (car x)) + (cdr x))) z)) (defparameter +clisp-error-map+ - (append (remap-maybe-for-win32 +unix-errno-condition-map+) - (remap-maybe-for-win32 +unix-errno-error-map+ t))) + #+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 (system::simple-os-error - (destructuring-bind - (&optional usock-err errorp) - (cdr (assoc (car (simple-condition-format-arguments condition)) - +clisp-error-map+ :test #'member)) + (let ((usock-err + (cdr (assoc (car (simple-condition-format-arguments condition)) + +clisp-error-map+ :test member)))) (if usock-err - (if errorp + (if (subtypep usock-err 'error) (error usock-err :socket socket) (signal usock-err :socket socket)) - (error 'usocket-unknown-error + (error 'unknown-error :socket socket :real-error condition)))))) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Sat Feb 4 06:24:14 2006 @@ -9,27 +9,34 @@ (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err))) (defparameter +sbcl-condition-map+ - '((interrupted-error . usocket-interrupted-condition))) + '((interrupted-error . 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))) + ;;### FIXME: sb-bsd-sockets also has a name-service-error + ;; which is signalled when a hostname can't be resolved... + ;; what to do with that? + `((sb-bsd-sockets:address-in-use-error . address-in-use-error) + (sb-bsd-sockets::no-address-error . address-not-available-error) + (sb-bsd-sockets:bad-file-descriptor-error . bad-file-descriptor-error) + (sb-bsd-sockets:connection-refused-error . connection-refused-error) + (sb-bsd-sockets:invalid-argument-error . invalid-argument-error) + (sb-bsd-sockets:no-buffers-error . no-buffers-error) + (sb-bsd-sockets:operation-not-supported-error . operation-not-supported-error) + (sb-bsd-sockets:operation-not-permitted-error . operation-not-permitted-error) + (sb-bsd-sockets:protocol-not-supported-error . protocol-not-supported-error) + (sb-bsd-sockets:socket-type-not-supported-error . socket-type-not-supported-error) + (sb-bsd-sockets:network-unreachable-error . network-unreachable-error) + ;; (... . network-down-error) + ;; (... . host-down-error) + ;; (... . host-unreachable-error) + ;; (... . shutdown-error) + (sb-bsd-sockets:operation-timeout-error . timeout-error) + (sb-bsd-sockets:socket-error . ,#'map-socket-error) + ;; Nameservice errors + (sb-bsd-sockets:no-recovery-error . network-reset-error) +;; (sb-bsd-sockets:try-again-condition ...) +;; (sb-bsd-sockets:host-not-found ...) + )) (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." @@ -41,7 +48,7 @@ usock-error))) (if usock-error (error usock-error :socket socket) - (error 'usocket-unknown-error + (error 'unknown-error :socket socket :real-error condition)))) (condition (let* ((usock-cond (cdr (assoc (type-of condition) @@ -51,7 +58,7 @@ usock-cond))) (if usock-cond (signal usock-cond :socket socket) - (signal 'usocket-unkown-condition + (signal 'unkown-condition :real-condition condition)))))) Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Sat Feb 4 06:24:14 2006 @@ -42,10 +42,10 @@ ;; Mass define and export our conditions (define-usocket-condition-classes - (usocket-interrupted-condition) + (interrupted-condition) (usocket-condition)) -(define-condition usocket-unknown-condition (usocket-condition) +(define-condition unknown-condition (usocket-condition) ((real-condition :initarg :real-condition :accessor usocket-real-condition)) (:documentation "")) @@ -53,26 +53,28 @@ ;; Mass define and export our errors (define-usocket-condition-classes - (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) + (address-in-use-error + address-not-available-error + bad-file-descriptor-error + connection-refused-error + connection-aborted-error + connection-reset-error + invalid-argument-error + no-buffers-error + operation-not-supported-error + operation-not-permitted-error + protocol-not-supported-error + socket-type-not-supported-error + network-unreachable-error + network-down-error + network-reset-error + host-down-error + host-unreachable-error + shutdown-error + timeout-error) (usocket-error)) -(define-condition usocket-unknown-error (usocket-error) +(define-condition unknown-error (usocket-error) ((real-error :initarg :real-error :accessor usocket-real-error)) (:documentation "")) @@ -84,9 +86,9 @@ (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 + `(((11) . retry-condition) ;; EAGAIN + ((35) . retry-condition) ;; EDEADLCK + ((4) . interrupted-condition))) ;; EINTR (defparameter +unix-errno-error-map+ ;;### the first column is for non-(linux or srv4) systems @@ -96,24 +98,26 @@ ;; (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))) + `(((48 98) . address-in-use-error) + ((49 99) . address-not-available-error) + ((9) . bad-file-descriptor-error) + ((61 111) . connection-refused-error) + ((64 131) . connection-reset-error) + ((130) . connection-aborted-error) + ((22) . invalid-argument-error) + ((55 105) . no-buffers-error) + ((12) . out-of-memory-error) + ((45 95) . operation-not-supported-error) + ((1) . operation-not-permitted-error) + ((43 92) . protocol-not-supported-error) + ((44 93) . socket-type-not-supported-error) + ((51 102) . network-unreachable-error) + ((50 100) . network-down-error) + ((52 102) . network-reset-error) + ((58 108) . already-shutdown-error) + ((60 110) . connection-timeout-error) + ((64 112) . host-down-error) + ((65 113) . host-unreachable-error))) Modified: usocket/trunk/doc/backends.txt ============================================================================== --- usocket/trunk/doc/backends.txt (original) +++ usocket/trunk/doc/backends.txt Sat Feb 4 06:24:14 2006 @@ -20,26 +20,26 @@ An error-handling function, resolving implementation specific errors to this list of 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 + - address-in-use-error + - address-not-available-error + - bad-file-descriptor-error + - connection-refused-error + - invalid-argument-error + - no-buffers-error + - operation-not-supported-error + - operation-not-permitted-error + - protocol-not-supported-error + - socket-type-not-supported-error + - network-unreachable-error + - network-down-error + - network-reset-error + - host-down-error + - host-unreachable-error + - shutdown-error + - timeout-error + - unkown-error and these conditions: - - usocket-interrupted-condition - - usocket-unkown-condition + - interrupted-condition + - unkown-condition

1 0

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

04 Feb '06

Author: ehuelsmann Date: Sat Feb 4 02:54:29 2006 New Revision: 36 Modified: public_html/index.shtml Log: Add more project documentation. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sat Feb 4 02:54:29 2006 @@ -32,7 +32,7 @@ </p> <div class="roadmap"> - <h2>Development roadmap</h2> + <h2>Development</h2> <p>Development will at least follow the steps outlined below. Yet to be determined is whether the currently mentioned steps will @@ -42,9 +42,28 @@ <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> + <p><a href="http://common-lisp.net/websvn/log.php?repname=usocket&path=%2Fusocket%2…" + >Active development</a> is taking place in the + <a href="http://subversion.tigris.org/">Subversion</a> repository. + To be kept up to date, please + <a href="http://common-lisp.net/cgi-bin/mailman/listinfo/usocket-devel" + >subscribe to the commit message mailing list</a>. To use the latest + development version, make sure you have <a + href="http://subversion.tigris.org/">Subversion</a> installed and + execute this command: + </p> + + <pre> + $ svn checkout svn://common-lisp.net/project/usocket/svn/usocket/trunk usocket-svn + </pre> + + <p>Please send patches, bug reports and suggestions to the development + mailing list address given above. The table below indicates the + current state of development. + </p> <table rules="all" border="1" cellpadding="3"> - <caption>Status for the currently targeted backends</caption> + <caption style="font-weight:bold;font-size:large">Status for the currently targeted backends</caption> <thead class="roadmap-head"> <tr> <th colspan="2">Major steps</th> @@ -153,8 +172,10 @@ <a href="/project/cl-irc">cl-irc</a>. This 'long ago' must have been way before 2003 when I entered the cl-irc project.</p> -<p>In januari 2006, Erik Huelsmann found Erik Enge willing to donate -the code he had still laying around to restart the project.</p> +<p>In january 2006, Erik Huelsmann found Erik Enge willing to donate +the code he had still laying around to restart the project. The restart +took place at the 27th of january when the old code was imported into the +public repository.</p> <hr />

1 0

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

04 Feb '06

Author: ehuelsmann Date: Fri Feb 3 18:14:37 2006 New Revision: 35 Modified: public_html/index.shtml usocket/trunk/README usocket/trunk/backend/allegro.lisp Log: Implement Allegro backend (and update website). Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 3 18:14:37 2006 @@ -84,7 +84,7 @@ <td class="WIP" title="Work in progress">WIP</td> <td class="TODO">TODO</td> <td class="DONE" title="Implemented">DONE</td> - <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE" title="Implemented">DONE</td> <td class="TODO">TODO</td> <td class="TODO">TODO</td> </tr> Modified: usocket/trunk/README ============================================================================== --- usocket/trunk/README (original) +++ usocket/trunk/README Fri Feb 3 18:14:37 2006 @@ -24,6 +24,8 @@ - usocket-address-not-available-error - usocket-bad-file-descriptor-error - usocket-connection-refused-error + - usocket-connection-aborted-error * TODO + - usocket-connection-reset-error * TODO - usocket-invalid-argument-error - usocket-no-buffers-error - usocket-operation-not-supported-error Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Fri Feb 3 18:14:37 2006 @@ -5,30 +5,55 @@ (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 . ) FIXME: take these 2 errors in the supported list +;; (:connection-reset . ) + (: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))) + (defun handle-condition (condition &optional (socket nil)) "Dispatch correct usocket condition." (typecase condition - (condition (error 'usocket-error - :real-condition condition - :socket socket)))) + (socket-error (let ((usock-err + (cdr (assoc (stream-error-identifier condition) + +allegro-identifier-error-map+)))) + (if usock-err + (error usock-err :socket socket) + (error 'usocket-unknown-error + :real-condition condition + :socket socket)))))) -(defun open (host port &optional (type :stream)) +(defun socket-connect (host port &optional (type :stream)) (declare (ignore type)) - (let ((socket (sock:make-socket :remote-host host - :remote-port port))) + (let ((socket)) + (setf socket + (with-mapped-conditions (socket) + (sock:make-socket :remote-host (host-to-hostname host) + :remote-port port))) (make-socket :socket socket :stream socket))) (defmethod close ((usocket usocket)) "Close socket." - (sock:close (socket usocket))) + (with-mapped-conditions (usocket) + (sock:close (socket usocket)))) (defun get-host-by-address (address) - (sock:ipaddr-to-hostname address)) + (with-mapped-conditions () + (sock: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. - (list (hbo-to-vector-quad (sock:lookup-hostname name)))) + (with-mapped-conditions () + (list (hbo-to-vector-quad (sock:lookup-hostname name)))))

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs February 2006