February 2006 - usocket-cvs@common-lisp.net

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

11 Feb '06

Author: ehuelsmann Date: Sat Feb 11 03:20:56 2006 New Revision: 74 Added: usocket/trunk/test/usocket.asd (contents, props changed) Modified: usocket/trunk/run-usocket-tests.sh usocket/trunk/test/ (props changed) Log: Rearrange and extend test scripts. Modified: usocket/trunk/run-usocket-tests.sh ============================================================================== --- usocket/trunk/run-usocket-tests.sh (original) +++ usocket/trunk/run-usocket-tests.sh Sat Feb 11 03:20:56 2006 @@ -8,15 +8,34 @@ # 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 +cd `dirname $0`/test + +if test -z "$1" ; then + lisps="sbcl clisp $HOME/src/acl/acl70_trial/alisp" +else + lisps=$1 +fi + +for my_lisp in $lisps ; do + +# *.fasl are used by both sbcl and allegro, +# so remove them to prevent choking either + +args= +if test "`basename $my_lisp`" == "alisp" ; then + args=-batch +fi echo " -(require 'usocket-test) +#-sbcl (load \"asdf.lisp\") + +(asdf:operate #-sbcl 'asdf:load-source-op + #+sbcl 'asdf:load-op :usocket-test) (usocket-test:do-tests) -(quit) -" | $my_lisp +#-allegro (quit) +" | $my_lisp $args echo "Above test results for $my_lisp." Added: usocket/trunk/test/usocket.asd ============================================================================== --- (empty file) +++ usocket/trunk/test/usocket.asd Sat Feb 11 03:20:56 2006 @@ -0,0 +1 @@ +link ../usocket.asd \ No newline at end of file

1 0

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

11 Feb '06

Author: ehuelsmann Date: Sat Feb 11 03:19:50 2006 New Revision: 73 Modified: usocket/trunk/Makefile Log: Add more cleanup: Armedbear writes other files. Modified: usocket/trunk/Makefile ============================================================================== --- usocket/trunk/Makefile (original) +++ usocket/trunk/Makefile Sat Feb 11 03:19:50 2006 @@ -2,7 +2,7 @@ # $Source$ clean: - find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" | xargs rm + find -name -o -name "*~" -o -name "*.err" -o -name "*.x86f" -o -name "*.lib" -o -name "*.fas" -o -name "*.fasl" -o -name "*.faslmt" -o -name "*.ufsl" -o -name "*.abcl" | xargs rm commit: make clean; cvs up; cvs ci

1 0

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

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 16:34:52 2006 New Revision: 72 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix typo. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Fri Feb 10 16:34:52 2006 @@ -30,8 +30,8 @@ +openmcl-error-map+)))) (if usock-err (error usock-err :socket socket) - (error 'unknown-error :socket socket :real-erorr condition)))) - (error (error 'unknown-error :socket socket :real-erorr condition)) + (error 'unknown-error :socket socket :real-error condition)))) + (error (error 'unknown-error :socket socket :real-error condition)) (condition (signal 'unknown-condition :real-condition condition)))) (defun socket-connect (host port)

1 0

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

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 16:29:52 2006 New Revision: 71 Modified: usocket/trunk/condition.lisp usocket/trunk/package.lisp usocket/trunk/run-usocket-tests.sh usocket/trunk/test/test-usocket.lisp Log: Make the tests work again. Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Fri Feb 10 16:29:52 2006 @@ -13,7 +13,7 @@ ;;###FIXME: no slots (yet); should at least be the affected usocket... (:documentation "Parent condition for all socket related conditions.")) -(define-condition socket-error (usocket-condition error) +(define-condition socket-error (socket-condition error) () ;; no slots (yet) (:documentation "Parent error for all socket related errors")) @@ -41,9 +41,9 @@ ;; Mass define and export our conditions (define-usocket-condition-classes (interrupted-condition) - (usocket-condition)) + (socket-condition)) -(define-condition unknown-condition (usocket-condition) +(define-condition unknown-condition (socket-condition) ((real-condition :initarg :real-condition :accessor usocket-real-condition)) (:documentation "Condition raised when there's no other - more applicable - @@ -71,9 +71,9 @@ host-unreachable-error shutdown-error timeout-error) - (usocket-error)) + (socket-error)) -(define-condition unknown-error (usocket-error) +(define-condition unknown-error (socket-error) ((real-error :initarg :real-error :accessor usocket-real-error)) (:documentation "Error raised when there's no other - more applicable - Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp (original) +++ usocket/trunk/package.lisp Fri Feb 10 16:29:52 2006 @@ -25,8 +25,8 @@ :vector-quad-to-dotted-quad :dotted-quad-to-vector-quad - :usocket-condition ; conditions - :usocket-error ; errors + :socket-condition ; conditions + :socket-error ; errors :unknown-condition :unknown-error))) Modified: usocket/trunk/run-usocket-tests.sh ============================================================================== --- usocket/trunk/run-usocket-tests.sh (original) +++ usocket/trunk/run-usocket-tests.sh Fri Feb 10 16:29:52 2006 @@ -13,7 +13,7 @@ echo " (require 'usocket-test) -(usocket-test:run-usocket-tests) +(usocket-test:do-tests) (quit) " | $my_lisp Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 10 16:29:52 2006 @@ -15,21 +15,21 @@ (deftest socket-no-connect.1 (catch 'caught-error - (handler-bind ((usocket:usocket-error + (handler-bind ((usocket:socket-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 + (handler-bind ((usocket:socket-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 + (handler-bind ((usocket:socket-error #'(lambda (c) (throw 'caught-error nil)))) (usocket:socket-connect 2130706432 80) ;; == #(127 0 0 0) t))

1 0

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

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 15:58:19 2006 New Revision: 70 Modified: usocket/trunk/condition.lisp Log: Add host name resolution conditions. Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Fri Feb 10 15:58:19 2006 @@ -5,28 +5,26 @@ (in-package :usocket) -;; (define-condition usocket-error (error) -;; ((real-condition -;; :reader real-condition -;; :initarg :real-condition) -;; (socket -;; :reader socket -;; :initarg :socket)) -;; (:report (lambda (c stream) -;; (format stream "Error (~A) occured in socket: ~A." -;; (real-condition c) (socket c))))) +;; Conditions raised by sockets operations -(define-condition usocket-condition (condition) +(define-condition socket-condition (condition) ((socket :initarg :socket :accessor usocket-socket)) ;;###FIXME: no slots (yet); should at least be the affected usocket... - (:documentation "")) + (:documentation "Parent condition for all socket related conditions.")) -(define-condition usocket-error (usocket-condition error) +(define-condition socket-error (usocket-condition error) () ;; no slots (yet) - (:documentation "")) - + (:documentation "Parent error for all socket related errors")) +(define-condition ns-condition (condition) + ((host-or-ip :initarg :host-or-ip + :accessor host-or-ip)) + (:documentation "Parent condition for all name resolution conditions.")) + +(define-condition ns-error (ns-condition error) + () + (:documentation "Parent error for all name resolution errors.")) (eval-when (:compile-toplevel :load-toplevel :execute) (defun define-usocket-condition-class (class &rest parents) @@ -48,7 +46,8 @@ (define-condition unknown-condition (usocket-condition) ((real-condition :initarg :real-condition :accessor usocket-real-condition)) - (:documentation "")) + (:documentation "Condition raised when there's no other - more applicable - +condition available.")) ;; Mass define and export our errors @@ -77,8 +76,34 @@ (define-condition unknown-error (usocket-error) ((real-error :initarg :real-error :accessor usocket-real-error)) - (:documentation "")) + (:documentation "Error raised when there's no other - more applicable - +error available.")) + + +(define-usocket-condition-classes + (ns-try-again) + (ns-condition)) +(define-condition ns-unknown-condition (ns-condition) + ((real-error :initarg :real-condition + :accessor ns-real-condition)) + (:documentation "Condition raised when there's no other - more applicable - +condition available.")) + +(define-usocket-condition-classes + ;; the no-data error code in the Unix 98 api + ;; isn't really an error: there's just no data to return. + ;; with lisp, we just return NIL (indicating no data) instead of + ;; raising an exception... + (ns-host-not-found + ns-no-recovery) + (ns-error)) + +(define-condition ns-unknown-error (ns-error) + ((real-error :initarg :real-error + :accessor ns-real-error)) + (:documentation "Error raised when there's no other - more applicable - +error available.")) (defmacro with-mapped-conditions ((&optional socket) &body body) `(handler-case @@ -120,11 +145,16 @@ ((65 113) . host-unreachable-error))) - - (defun map-errno-condition (errno) (cdr (assoc errno +unix-errno-error-map+ :test #'member))) (defun map-errno-error (errno) (cdr (assoc errno +unix-errno-error-map+ :test #'member))) + + +(defparameter +unix-ns-error-map+ + `((1 . ns-host-not-found-error) + (2 . ns-try-again-condition) + (3 . ns-no-recovery-error))) +

1 0

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

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 15:57:25 2006 New Revision: 69 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix typo. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Fri Feb 10 15:57:25 2006 @@ -32,7 +32,7 @@ (error usock-err :socket socket) (error 'unknown-error :socket socket :real-erorr condition)))) (error (error 'unknown-error :socket socket :real-erorr condition)) - (condition (signal 'unkown-condition :real-condition condition)))) + (condition (signal 'unknown-condition :real-condition condition)))) (defun socket-connect (host port) (let ((sock))

1 0

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

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 12:18:35 2006 New Revision: 68 Modified: public_html/index.shtml Log: Update website status diagram. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Fri Feb 10 12:18:35 2006 @@ -90,10 +90,10 @@ <td>Investigate interfaces provided.</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>  <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  - <td class="WIP" title="Work in progress">WIP</td>  + <td class="DONE">DONE</td>  <td class="DONE">DONE</td>  </tr> @@ -101,37 +101,37 @@ <td>Identify socket errors generated.</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> - <td class="WIP" title="Work in progress">WIP</td> + <td class="DONE" title="No specific errors available">DONE</td> + <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</td> <td class="DONE" title="Implemented">DONE</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="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> </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="DONE">DONE</td> + <td class="DONE">DONE</td> + <td class="DONE">DONE</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="PASS">PASS</td> - <td class="UNTESTED" title="Untested">?</td> + <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td> <td class="PASS">PASS</td>

1 0

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

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 11:41:41 2006 New Revision: 67 Modified: usocket/trunk/backend/armedbear.lisp Log: Remove debugging statement. Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Fri Feb 10 11:41:41 2006 @@ -8,7 +8,6 @@ (defun handle-condition (condition &optional socket) - (describe condition) (typecase condition (error (error 'unknown-error :socket socket :real-error condition))))

1 0

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

10 Feb '06

Author: ehuelsmann Date: Fri Feb 10 10:57:16 2006 New Revision: 66 Modified: usocket/trunk/backend/armedbear.lisp usocket/trunk/test/test-usocket.lisp Log: Fix Armedbear test failures. Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Fri Feb 10 10:57:16 2006 @@ -8,8 +8,9 @@ (defun handle-condition (condition &optional socket) + (describe condition) (typecase condition - (error (error 'unkown-error :socket socket :real-error condition)))) + (error (error 'unknown-error :socket socket :real-error condition)))) (defun socket-connect (host port) (let ((usock)) Modified: usocket/trunk/test/test-usocket.lisp ============================================================================== --- usocket/trunk/test/test-usocket.lisp (original) +++ usocket/trunk/test/test-usocket.lisp Fri Feb 10 10:57:16 2006 @@ -39,8 +39,8 @@ (catch 'caught-error (handler-bind ((usocket:network-unreachable-error #'(lambda (c) (throw 'caught-error nil))) - ;; cmu doesn't report as specific as above - #+(or cmu lispworks) + ;; some lisps don't report as specific as above + #+(or cmu lispworks armedbear) (usocket:unknown-error #'(lambda (c) (throw 'caught-error nil))) (condition @@ -52,8 +52,8 @@ (catch 'caught-error (handler-bind ((usocket:host-unreachable-error #'(lambda (c) (throw 'caught-error nil))) - ;; cmu doesn't report as specific as above - #+(or cmu lispworks) + ;; some lisps don't report as specific as above + #+(or cmu lispworks armedbear) (usocket:unknown-error #'(lambda (c) (throw 'caught-error nil))) (condition

1 0

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

09 Feb '06

Author: ehuelsmann Date: Thu Feb 9 16:08:30 2006 New Revision: 65 Modified: usocket/trunk/ (props changed) usocket/trunk/backend/ (props changed) usocket/trunk/test/ (props changed) Log: Update ignore patterns to accomodate Armedbear.

1 0