usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[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

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

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 12:24:48 2008 New Revision: 391 Modified: usocket/trunk/usocket.lisp Log: SBCL bug with HOST-TO-HBO. Found by: Chun Tian (binge.lisp(a)gmail.com) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Sun Jul 27 12:24:48 2008 @@ -403,17 +403,21 @@ "Translate a string or vector quad to a stringified hostname." (etypecase host (string host) - ((vector t 4) (vector-quad-to-dotted-quad host)) + ((or (vector t 4) + (array (unsigned-byte 8) (4))) + (vector-quad-to-dotted-quad host)) (integer (hbo-to-dotted-quad host)))) (defun ip= (ip1 ip2) (etypecase ip1 (string (string= ip1 (host-to-hostname ip2))) - ((vector t 4) (or (eq ip1 ip2) - (and (= (aref ip1 0) (aref ip2 0)) - (= (aref ip1 1) (aref ip2 1)) - (= (aref ip1 2) (aref ip2 2)) - (= (aref ip1 3) (aref ip2 3))))) + ((or (vector t 4) + (array (unsigned-byte 8) (4))) + (or (eq ip1 ip2) + (and (= (aref ip1 0) (aref ip2 0)) + (= (aref ip1 1) (aref ip2 1)) + (= (aref ip1 2) (aref ip2 2)) + (= (aref ip1 3) (aref ip2 3))))) (integer (= ip1 (host-byte-order ip2))))) (defun ip/= (ip1 ip2) @@ -444,7 +448,9 @@ ;; valid IP dotted quad? ip (get-random-host-by-name host)))) - ((vector t 4) host) + ((or (vector t 4) + (array (unsigned-byte 8) (4))) + host) (integer (hbo-to-vector-quad host)))) (defun host-to-hbo (host) @@ -454,10 +460,12 @@ (if (and ip (= 4 (length ip))) (host-byte-order ip) (host-to-hbo (get-host-by-name host))))) - ((vector t 4) (host-byte-order host)) + ((or (vector t 4) + (array (unsigned-byte 8) (4))) + (host-byte-order host)) (integer host)))) -;;ready- +;; ;; Other utility functions ;;

1 0

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

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 06:09:20 2008 New Revision: 390 Modified: usocket/trunk/backend/scl.lisp Log: Followup commit for SCL protocol compliance. Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Sun Jul 27 06:09:20 2008 @@ -184,5 +184,5 @@ ((endp sockets)) (let ((flags (sys:sap-ref-16 fds-sap (+ base 6)))) (unless (zerop (logand flags unix::pollin)) - (setf (state socket) :READ)))))))))) + (setf (state (first sockets)) :READ))))))))))

1 0

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

27 Jul '08

Author: ehuelsmann Date: Sun Jul 27 06:07:49 2008 New Revision: 389 Modified: usocket/trunk/backend/scl.lisp Log: Minimally change SCL backend to comply to new W-F-I protocol. Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp (original) +++ usocket/trunk/backend/scl.lisp Sun Jul 27 06:07:49 2008 @@ -138,10 +138,27 @@ (defun get-host-name () (unix:unix-gethostname)) -(defun wait-for-input-internal (sockets &key timeout) - (let* ((pollfd-size (alien:alien-size (alien:struct unix::pollfd) :bytes)) - (nfds (length sockets)) - (bytes (* nfds pollfd-size))) + +;; +;; +;; WAIT-LIST part +;; + + +(defun %add-waiter (wl waiter) + (declare (ignore wl waiter))) + +(defun %remove-waiter (wl waiter) + (declare (ignore wl waiter))) + +(defun %setup-wait-list (wl) + (declare (ignore wl))) + +(defun wait-for-input-internal (wait-list &key timeout) + (let* ((sockets (wait-list-waiters wait-list)) + (pollfd-size (alien:alien-size (alien:struct unix::pollfd) :bytes)) + (nfds (length sockets)) + (bytes (* nfds pollfd-size))) (alien:with-bytes (fds-sap bytes) (do ((sockets sockets (rest sockets)) (base 0 (+ base 8))) @@ -163,11 +180,9 @@ (unix:get-unix-error-msg errno))) (t (do ((sockets sockets (rest sockets)) - (base 0 (+ base 8)) - (ready nil)) - ((endp sockets) - (nreverse ready)) + (base 0 (+ base 8))) + ((endp sockets)) (let ((flags (sys:sap-ref-16 fds-sap (+ base 6)))) (unless (zerop (logand flags unix::pollin)) - (push (first sockets) ready)))))))))) + (setf (state socket) :READ))))))))))

1 0

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

27 Jul '08

Author: ehuelsmann Date: Sat Jul 26 18:00:47 2008 New Revision: 388 Modified: usocket/branches/0.4.x/TODO Log: Update TODO. Modified: usocket/branches/0.4.x/TODO ============================================================================== --- usocket/branches/0.4.x/TODO (original) +++ usocket/branches/0.4.x/TODO Sat Jul 26 18:00:47 2008 @@ -1,18 +1,17 @@ - -- Implement wait-for-input-internal for - * SBCL Win32 - * LispWorks Win32 - -- Implement errors for (the alien interface code of) - * SBCL Unix - * CMUCL Unix - * OpenMCL - - -- Extend ABCL socket support with the 4 java errors in java.net.* - so that they can map to our usocket errors instead of mapping - all errors to unknown-error. - -- Add INET6 support. - -For more TODO items, see http://trac.common-lisp.net/usocket/report. + +- Implement wait-for-input-internal for + * SBCL Win32 + +- Implement errors for (the alien interface code of) + * SBCL Unix + * CMUCL Unix + * OpenMCL + + +- Extend ABCL socket support with the 4 java errors in java.net.* + so that they can map to our usocket errors instead of mapping + all errors to unknown-error. + +- Add INET6 support. + +For more TODO items, see http://trac.common-lisp.net/usocket/report.

1 0

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

27 Jul '08

Author: ehuelsmann Date: Sat Jul 26 18:00:18 2008 New Revision: 387 Modified: usocket/trunk/TODO Log: Update TODO. Modified: usocket/trunk/TODO ============================================================================== --- usocket/trunk/TODO (original) +++ usocket/trunk/TODO Sat Jul 26 18:00:18 2008 @@ -1,18 +1,17 @@ - -- Implement wait-for-input-internal for - * SBCL Win32 - * LispWorks Win32 - -- Implement errors for (the alien interface code of) - * SBCL Unix - * CMUCL Unix - * OpenMCL - - -- Extend ABCL socket support with the 4 java errors in java.net.* - so that they can map to our usocket errors instead of mapping - all errors to unknown-error. - -- Add INET6 support. - -For more TODO items, see http://trac.common-lisp.net/usocket/report. + +- Implement wait-for-input-internal for + * SBCL Win32 + +- Implement errors for (the alien interface code of) + * SBCL Unix + * CMUCL Unix + * OpenMCL + + +- Extend ABCL socket support with the 4 java errors in java.net.* + so that they can map to our usocket errors instead of mapping + all errors to unknown-error. + +- Add INET6 support. + +For more TODO items, see http://trac.common-lisp.net/usocket/report.

1 0

[usocket-cvs] r386 - usocket/branches/new-wfi
by ehuelsmann＠common-lisp.net 26 Jul '08

26 Jul '08

Author: ehuelsmann Date: Sat Jul 26 17:55:23 2008 New Revision: 386 Removed: usocket/branches/new-wfi/ Log: Remove new-wfi branch now that it's integrated with the trunk.

1 0

← Newer
1
...
28
29
30
31
32
33
34
...
71
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs