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

[usocket-cvs] r401 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 28 Jul '08

28 Jul '08

Author: ehuelsmann Date: Mon Jul 28 18:16:52 2008 New Revision: 401 Modified: usocket/trunk/backend/armedbear.lisp Log: Implement some of the 'new hot stuff': nodelay (ABCL). Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Mon Jul 28 18:16:52 2008 @@ -186,26 +186,32 @@ (typecase condition (error (error 'unknown-error :socket socket :real-error condition)))) -(defun socket-connect (host port &key (element-type 'character) timeout nodelay) +(defun socket-connect (host port &key (element-type 'character) + timeout deadline (nodelay nil nodelay-specified)) (declare (ignore nodelay timeout)) (unsupported 'timeout 'socket-connect) - (unimplemented 'nodelay 'socket-connect) + (unimplemented 'deadline 'socket-connect) (let ((usock)) (with-mapped-conditions (usock) (let* ((sock-addr (jdi:jcoerce (jdi:do-jnew-call "java.net.InetSocketAddress" - (host-to-hostname host) - (jdi:jcoerce port :int)) + (host-to-hostname host) + (jdi:jcoerce port :int)) "java.net.SocketAddress")) (jchan (jdi:do-jstatic-call "java.nio.channels.SocketChannel" - "open" sock-addr)) + "open" sock-addr)) (sock (jdi:do-jmethod-call jchan "socket"))) - (setf usock - (make-stream-socket - :socket jchan - :stream (ext:get-socket-stream (jdi:jop-deref sock) - :element-type element-type))))))) + (when nodelay-specified + (jdi:do-jmethod-call sock "setTcpNoDelay" + (if nodelay + (java:make-immediate-object t :boolean) + (java:make-immediate-object nil :boolean)))) + (setf usock + (make-stream-socket + :socket jchan + :stream (ext:get-socket-stream (jdi:jop-deref sock) + :element-type element-type))))))) (defun socket-listen (host port &key reuseaddress

1 0

[usocket-cvs] r400 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 28 Jul '08

28 Jul '08

Author: ehuelsmann Date: Mon Jul 28 18:10:18 2008 New Revision: 400 Modified: usocket/trunk/backend/sbcl.lisp Log: Implement some of the 'new hot stuff': nodelay. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Mon Jul 28 18:10:18 2008 @@ -199,14 +199,12 @@ (signal usock-cond :socket socket)))))) -(defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay) - (declare (ignore nodelay)) - (declare (ignore deadline)) - (when timeout - (warn "SOCKET-CONNECT timeout not supported in SBCL")) +(defun socket-connect (host port &key (element-type 'character) + timeout deadline (nodelay t nodelay-specified)) + (declare (ignore deadline timeout)) (unsupported 'deadline 'socket-connect) (unsupported 'timeout 'socket-connect) - (unimplemented 'nodelay 'socket-connect) + (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket @@ -217,6 +215,8 @@ ;;###FIXME: The above line probably needs an :external-format (usocket (make-stream-socket :stream stream :socket socket)) (ip (host-to-vector-quad host))) + (when nodelay-specified + (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) (with-mapped-conditions (usocket) (sb-bsd-sockets:socket-connect socket ip port)) usocket))

1 0

[usocket-cvs] r399 - in usocket/trunk: . backend
by ehuelsmann＠common-lisp.net 28 Jul '08

28 Jul '08

Author: ehuelsmann Date: Mon Jul 28 17:57:23 2008 New Revision: 399 Modified: 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/sbcl.lisp usocket/trunk/backend/scl.lisp usocket/trunk/condition.lisp Log: Signal to the caller whenever a certain feature is unavailable. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Mon Jul 28 17:57:23 2008 @@ -49,10 +49,11 @@ :text :binary)) -(defun socket-connect (host port &key (element-type 'character) timeout nodelay) - (declare (ignore nodelay)) - (when timeout - (warn "SOCKET-CONNECT timeout not supported in Allegro CL")) +(defun socket-connect (host port &key (element-type 'character) timeout + (nodelay t)) ;; nodelay == t is the ACL default + (declare (ignorable timeout)) + (unsupported 'timeout 'socket-connect) + (let ((socket)) (setf socket (with-mapped-conditions (socket) @@ -60,10 +61,12 @@ (mp:with-timeout (timeout nil) (socket:make-socket :remote-host (host-to-hostname host) :remote-port port - :format (to-format element-type))) + :format (to-format element-type) + :nodelay nodelay)) (socket:make-socket :remote-host (host-to-hostname host) :remote-port port - :format (to-format element-type))))) + :format (to-format element-type) + :nodelay nodelay)))) (make-stream-socket :socket socket :stream socket))) Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Mon Jul 28 17:57:23 2008 @@ -187,9 +187,10 @@ (error (error 'unknown-error :socket socket :real-error condition)))) (defun socket-connect (host port &key (element-type 'character) timeout nodelay) - (declare (ignore nodelay)) - (when timeout - (warn "SOCKET-CONNECT timeout not supported in ABCL")) + (declare (ignore nodelay timeout)) + (unsupported 'timeout 'socket-connect) + (unimplemented 'nodelay 'socket-connect) + (let ((usock)) (with-mapped-conditions (usock) (let* ((sock-addr (jdi:jcoerce Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Mon Jul 28 17:57:23 2008 @@ -56,9 +56,10 @@ (signal usock-err :socket socket))))))) (defun socket-connect (host port &key (element-type 'character) timeout nodelay) - (declare (ignore nodelay)) - (when timeout - (warn "SOCKET-CONNECT timeout not supported in CLISP")) + (declare (ignore nodelay timeout)) + (unsupported 'nodelay 'socket-connect) + (unsupported 'timeout 'socket-connect) + (let ((socket) (hostname (host-to-hostname host))) (with-mapped-conditions (socket) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Mon Jul 28 17:57:23 2008 @@ -51,9 +51,10 @@ :condition condition)))) (defun socket-connect (host port &key (element-type 'character) timeout nodelay) - (declare (ignore nodelay)) - (when timeout - (warn "SOCKET-CONNECT timeout not supported in CMUCL")) + (declare (ignore nodelay timeout)) + (unsupported 'nodelay 'socket-connect) + (unsupported 'timeout 'socket-connect) + (let* ((socket)) (setf socket (with-mapped-conditions (socket) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Mon Jul 28 17:57:23 2008 @@ -75,8 +75,8 @@ (defun socket-connect (host port &key (element-type 'base-char) timeout nodelay) (declare (ignore nodelay)) - (when timeout - (warn "SOCKET-CONNECT timeout not supported in Lispworks")) + (unsupported 'timeout 'socket-connect) + (unimplemented 'nodelay 'socket-connect) (let ((hostname (host-to-hostname host)) (stream)) (setf stream @@ -93,6 +93,10 @@ (reuse-address nil reuse-address-supplied-p) (backlog 5) (element-type 'base-char)) + #+lispworks4.1 + (unsupported 'host 'socket-listen) + #+lispworks4.1 + (unsupported 'backlog 'socket-listen) (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) (comm::*use_so_reuseaddr* reuseaddress) (hostname (host-to-hostname host)) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Mon Jul 28 17:57:23 2008 @@ -204,6 +204,9 @@ (declare (ignore deadline)) (when timeout (warn "SOCKET-CONNECT timeout not supported in SBCL")) + (unsupported 'deadline 'socket-connect) + (unsupported 'timeout 'socket-connect) + (unimplemented 'nodelay 'socket-connect) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)) (stream (sb-bsd-sockets:socket-make-stream socket Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Mon Jul 28 17:57:23 2008 @@ -29,9 +29,10 @@ :condition condition)))) (defun socket-connect (host port &key (element-type 'character) timeout nodelay) - (declare (ignore nodelay)) - (when timeout - (warn "SOCKET-CONNECT timeout not supported in SCL")) + (declare (ignore nodelay timeout)) + (unsupported 'nodelay 'socket-connect) + (unsupported 'timeout 'socket-connect) + (let* ((socket (with-mapped-conditions () (ext:connect-to-inet-socket (host-to-hbo host) port :kind :stream))) Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Mon Jul 28 17:57:23 2008 @@ -190,3 +190,11 @@ (2 . ns-try-again-condition) (3 . ns-no-recovery-error))) + + +(defmacro unsupported (feature context &key minimum) + `(signal 'unsupported :feature ,feature + :context ,context :minimum ,minimum)) + +(defmacro unimplemented (feature context) + `(signal 'unimplemented :feature ,feature :context ,context)) \ No newline at end of file

1 0

[usocket-cvs] r398 - usocket/branches/hans
by ehuelsmann＠common-lisp.net 28 Jul '08

28 Jul '08

Author: ehuelsmann Date: Mon Jul 28 17:34:04 2008 New Revision: 398 Removed: usocket/branches/hans/ Log: Remove now-obsolete branch.

1 0

[usocket-cvs] r397 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 28 Jul '08

28 Jul '08

Author: ehuelsmann Date: Mon Jul 28 17:33:19 2008 New Revision: 397 Modified: 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: Merge hans/ branch into trunk. Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp (original) +++ usocket/trunk/backend/allegro.lisp Mon Jul 28 17:33:19 2008 @@ -49,7 +49,10 @@ :text :binary)) -(defun socket-connect (host port &key (element-type 'character) timeout) +(defun socket-connect (host port &key (element-type 'character) timeout nodelay) + (declare (ignore nodelay)) + (when timeout + (warn "SOCKET-CONNECT timeout not supported in Allegro CL")) (let ((socket)) (setf socket (with-mapped-conditions (socket) Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Mon Jul 28 17:33:19 2008 @@ -186,7 +186,8 @@ (typecase condition (error (error 'unknown-error :socket socket :real-error condition)))) -(defun socket-connect (host port &key (element-type 'character) timeout) +(defun socket-connect (host port &key (element-type 'character) timeout nodelay) + (declare (ignore nodelay)) (when timeout (warn "SOCKET-CONNECT timeout not supported in ABCL")) (let ((usock)) Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp (original) +++ usocket/trunk/backend/clisp.lisp Mon Jul 28 17:33:19 2008 @@ -55,7 +55,10 @@ (error usock-err :socket socket) (signal usock-err :socket socket))))))) -(defun socket-connect (host port &key (element-type 'character) timeout) +(defun socket-connect (host port &key (element-type 'character) timeout nodelay) + (declare (ignore nodelay)) + (when timeout + (warn "SOCKET-CONNECT timeout not supported in CLISP")) (let ((socket) (hostname (host-to-hostname host))) (with-mapped-conditions (socket) @@ -239,7 +242,7 @@ (when (wait-list usocket) (remove-waiter (wait-list usocket) usocket)) (rawsock:sock-close (socket usocket))) - + ) #-rawsock @@ -248,4 +251,4 @@ To enable UDP socket support, please be sure to use the -Kfull parameter at startup, or to enable RAWSOCK support during compilation.") - ) \ No newline at end of file + ) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Mon Jul 28 17:33:19 2008 @@ -50,7 +50,8 @@ :socket socket :condition condition)))) -(defun socket-connect (host port &key (element-type 'character) timeout) +(defun socket-connect (host port &key (element-type 'character) timeout nodelay) + (declare (ignore nodelay)) (when timeout (warn "SOCKET-CONNECT timeout not supported in CMUCL")) (let* ((socket)) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Mon Jul 28 17:33:19 2008 @@ -73,7 +73,8 @@ (declare (ignore host port err-msg)) (raise-usock-err errno socket condition))))) -(defun socket-connect (host port &key (element-type 'base-char) timeout) +(defun socket-connect (host port &key (element-type 'base-char) timeout nodelay) + (declare (ignore nodelay)) (when timeout (warn "SOCKET-CONNECT timeout not supported in Lispworks")) (let ((hostname (host-to-hostname host)) Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Mon Jul 28 17:33:19 2008 @@ -61,6 +61,8 @@ (openmcl-socket:socket-error (raise-error-from-id (openmcl-socket:socket-error-identifier condition) socket condition)) + (ccl:input-timeout + (error 'timeout-error :socket socket :real-error condition)) (ccl:communication-deadline-expired (error 'timeout-error :socket socket :real-error condition)) (ccl::socket-creation-error #| ugh! |# @@ -72,13 +74,14 @@ :text :binary)) -(defun socket-connect (host port &key (element-type 'character) timeout deadline) +(defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay) (with-mapped-conditions () (let ((mcl-sock (openmcl-socket:make-socket :remote-host (host-to-hostname host) :remote-port port :format (to-format element-type) :deadline deadline + :nodelay nodelay :connect-timeout (and timeout (* timeout internal-time-units-per-second))))) (openmcl-socket:socket-connect mcl-sock) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Mon Jul 28 17:33:19 2008 @@ -130,7 +130,7 @@ } @(return) = select(#3 + 1, (fd_set*)#2, NULL, NULL, (#0 != Cnil) ? &tv : NULL); -"))) +" :one-liner nil))) (cond ((= 0 count) (values nil nil)) @@ -199,7 +199,8 @@ (signal usock-cond :socket socket)))))) -(defun socket-connect (host port &key (element-type 'character) timeout deadline) +(defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay) + (declare (ignore nodelay)) (declare (ignore deadline)) (when timeout (warn "SOCKET-CONNECT timeout not supported in SBCL")) Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Mon Jul 28 17:33:19 2008 @@ -28,7 +28,8 @@ :socket socket :condition condition)))) -(defun socket-connect (host port &key (element-type 'character) timeout) +(defun socket-connect (host port &key (element-type 'character) timeout nodelay) + (declare (ignore nodelay)) (when timeout (warn "SOCKET-CONNECT timeout not supported in SCL")) (let* ((socket (with-mapped-conditions ()

1 0

[usocket-cvs] r396 - in usocket: branches/0.4.x/backend trunk/backend
by ehuelsmann＠common-lisp.net 27 Jul '08

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 16:22:48 2008 New Revision: 396 Modified: usocket/branches/0.4.x/backend/cmucl.lisp usocket/trunk/backend/cmucl.lisp Log: More CMUCL fixes. Modified: usocket/branches/0.4.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/cmucl.lisp (original) +++ usocket/branches/0.4.x/backend/cmucl.lisp Sun Jul 27 16:22:48 2008 @@ -174,7 +174,7 @@ (defun %remove-waiter (wait-list waiter) (setf (wait-list-%wait wait-list) - (remove (socket waiter) (wait-list-%wait waiter)))) + (remove (socket waiter) (wait-list-%wait wait-list)))) (defun wait-for-input-internal (wait-list &key timeout) (with-mapped-conditions () Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sun Jul 27 16:22:48 2008 @@ -176,7 +176,7 @@ (defun %remove-waiter (wait-list waiter) (setf (wait-list-%wait wait-list) - (remove (socket waiter) (wait-list-%wait waiter)))) + (remove (socket waiter) (wait-list-%wait wait-list)))) (defun wait-for-input-internal (wait-list &key timeout) (with-mapped-conditions ()

1 0

[usocket-cvs] r395 - in usocket: branches/0.4.x branches/0.4.x/backend trunk trunk/backend
by ehuelsmann＠common-lisp.net 27 Jul '08

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 15:36:10 2008 New Revision: 395 Modified: usocket/branches/0.4.x/backend/cmucl.lisp usocket/branches/0.4.x/usocket.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/usocket.lisp Log: Fix CMUCL: 1) remove premature optimization (inline declaration) 2) Remove ignore declaration of used parameters Found by: Chun Tian Modified: usocket/branches/0.4.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/cmucl.lisp (original) +++ usocket/branches/0.4.x/backend/cmucl.lisp Sun Jul 27 15:36:10 2008 @@ -170,11 +170,9 @@ (declare (ignore wait-list))) (defun %add-waiter (wait-list waiter) - (declare (ignore wait-list waiter)) (push (socket waiter) (wait-list-%wait wait-list))) (defun %remove-waiter (wait-list waiter) - (declare (ignore wait-list waiter)) (setf (wait-list-%wait wait-list) (remove (socket waiter) (wait-list-%wait waiter)))) Modified: usocket/branches/0.4.x/usocket.lisp ============================================================================== --- usocket/branches/0.4.x/usocket.lisp (original) +++ usocket/branches/0.4.x/usocket.lisp Sun Jul 27 15:36:10 2008 @@ -226,10 +226,6 @@ ;; %add-waiter ;; %remove-waiter -(declaim (inline %setup-wait-list - %add-waiter - %remove-waiter)) - (defun make-wait-list (waiters) (let ((wl (%make-wait-list))) (setf (wait-list-map wl) (make-hash-table)) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Sun Jul 27 15:36:10 2008 @@ -172,11 +172,9 @@ (declare (ignore wait-list))) (defun %add-waiter (wait-list waiter) - (declare (ignore wait-list waiter)) (push (socket waiter) (wait-list-%wait wait-list))) (defun %remove-waiter (wait-list waiter) - (declare (ignore wait-list waiter)) (setf (wait-list-%wait wait-list) (remove (socket waiter) (wait-list-%wait waiter)))) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sun Jul 27 15:36:10 2008 @@ -232,10 +232,6 @@ ;; %add-waiter ;; %remove-waiter -(declaim (inline %setup-wait-list - %add-waiter - %remove-waiter)) - (defun make-wait-list (waiters) (let ((wl (%make-wait-list))) (setf (wait-list-map wl) (make-hash-table))

1 0

[usocket-cvs] r394 - in usocket: branches/0.4.x trunk
by ehuelsmann＠common-lisp.net 27 Jul '08

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 14:10:20 2008 New Revision: 394 Modified: usocket/branches/0.4.x/usocket.lisp usocket/trunk/usocket.lisp Log: Fix call to %remove-waiter with too few arguments. Found by: Chun Tian Modified: usocket/branches/0.4.x/usocket.lisp ============================================================================== --- usocket/branches/0.4.x/usocket.lisp (original) +++ usocket/branches/0.4.x/usocket.lisp Sun Jul 27 14:10:20 2008 @@ -253,7 +253,7 @@ (defun remove-all-waiters (wait-list) (dolist (waiter (wait-list-waiters wait-list)) - (%remove-waiter waiter)) + (%remove-waiter wait-list waiter)) (setf (wait-list-waiters wait-list) nil) (clrhash (wait-list-map wait-list))) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sun Jul 27 14:10:20 2008 @@ -259,7 +259,7 @@ (defun remove-all-waiters (wait-list) (dolist (waiter (wait-list-waiters wait-list)) - (%remove-waiter waiter)) + (%remove-waiter wait-list waiter)) (setf (wait-list-waiters wait-list) nil) (clrhash (wait-list-map wait-list)))

1 0

[usocket-cvs] r393 - usocket/trunk
by ehuelsmann＠common-lisp.net 27 Jul '08

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 13:57:41 2008 New Revision: 393 Modified: usocket/trunk/condition.lisp Log: Fix slot name. Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Sun Jul 27 13:57:41 2008 @@ -10,7 +10,9 @@ (define-condition insufficient-implementation (error) ((feature :initarg :feature :reader feature) - (function :initarg :function :reader function)) + (context :initarg :context :reader context + :documentation "String designator of the public API function which +the feature belongs to.")) (:documentation "The ancestor of all errors usocket may generate because of insufficient support from the underlying implementation with respect to the arguments given to `function'.

1 0

[usocket-cvs] r392 - usocket/trunk
by ehuelsmann＠common-lisp.net 27 Jul '08

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 12:59:36 2008 New Revision: 392 Modified: usocket/trunk/condition.lisp usocket/trunk/package.lisp Log: Conditions soon to be used (not only for backward compat). Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Sun Jul 27 12:59:36 2008 @@ -5,12 +5,34 @@ (in-package :usocket) -;; Condition raised by operations with unsupported arguments +;; Condition signalled by operations with unsupported arguments ;; For trivial-sockets compatibility. -(define-condition unsupported (error) - ((feature :initarg :feature :reader unsupported-feature))) +(define-condition insufficient-implementation (error) + ((feature :initarg :feature :reader feature) + (function :initarg :function :reader function)) + (:documentation "The ancestor of all errors usocket may generate +because of insufficient support from the underlying implementation +with respect to the arguments given to `function'. + +One call may signal several errors, if the caller allows processing +to continue. +")) + +(define-condition unsupported (insufficient-implementation) + ((minimum :initarg :minimum :reader minimum + :documentation "Indicates the minimal version of the +implementation required to support the requested feature.")) + (:documentation "Signalled when the underlying implementation +doesn't allow supporting the requested feature. +When you see this error, go bug your vendor/implementation developer!")) + +(define-condition unimplemented (insufficient-implementation) + () + (:documentation "Signalled if a certain feature might be implemented, +based on the features of the underlying implementation, but hasn't +been implemented yet.")) ;; Conditions raised by sockets operations Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Sun Jul 27 12:59:36 2008 @@ -56,6 +56,7 @@ #:ip-from-octet-buffer #:with-mapped-conditions + #:socket-condition ; conditions #:ns-condition #:socket-error ; errors @@ -63,5 +64,10 @@ #:unknown-condition #:ns-unknown-condition #:unknown-error - #:ns-unknown-error))) + #:ns-unknown-error + + #:insufficient-implementation ; conditions regarding usocket support level + #:unsupported + #:unimplemented + )))

1 0