usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r498 - usocket/trunk/backend
by Chun Tian 22 Jul '09

22 Jul '09

Author: ctian Date: Wed Jul 22 11:32:46 2009 New Revision: 498 Log: Disable a error-map (sb-sys:io-timeout) on ECL, reported by Marko Kocic Modified: usocket/trunk/backend/sbcl.lisp Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Wed Jul 22 11:32:46 2009 @@ -174,6 +174,7 @@ . socket-type-not-supported-error) (sb-bsd-sockets:network-unreachable-error . network-unreachable-error) (sb-bsd-sockets:operation-timeout-error . timeout-error) + #-ecl (sb-sys:io-timeout . timeout-error) (sb-bsd-sockets:socket-error . ,#'map-socket-error)

1 0

[usocket-cvs] r497 - usocket/trunk/backend
by Hans Hübner 22 May '09

22 May '09

Author: hhubner Date: Fri May 22 04:05:53 2009 New Revision: 497 Log: Add mapping for SB-SYS:IO-TIMEOUT condition. Patch provided by Andrei Stebakov Modified: usocket/trunk/backend/sbcl.lisp Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Fri May 22 04:05:53 2009 @@ -174,6 +174,7 @@ . socket-type-not-supported-error) (sb-bsd-sockets:network-unreachable-error . network-unreachable-error) (sb-bsd-sockets:operation-timeout-error . timeout-error) + (sb-sys:io-timeout . timeout-error) (sb-bsd-sockets:socket-error . ,#'map-socket-error) ;; Nameservice errors: mapped to unknown-error

1 0

[usocket-cvs] r496 - usocket/trunk
by Hans Hübner 03 May '09

03 May '09

Author: hhubner Date: Sun May 3 11:04:18 2009 New Revision: 496 Log: correct ECONNRESET errno (how many more are wrong?) Modified: usocket/trunk/condition.lisp Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Sun May 3 11:04:18 2009 @@ -183,7 +183,7 @@ ((49 99) . address-not-available-error) ((9) . bad-file-descriptor-error) ((61 111) . connection-refused-error) - ((64 131) . connection-reset-error) + ((54 104) . connection-reset-error) ((53 103) . connection-aborted-error) ((22) . invalid-argument-error) ((55 105) . no-buffers-error)

1 0

[usocket-cvs] r495 - usocket/branches/experimental-udp/backend
by Chun Tian 04 Apr '09

04 Apr '09

Author: ctian Date: Sat Apr 4 09:50:53 2009 New Revision: 495 Log: [ecl] merge r493 from trunk to make sure building works on ECL 9.4.0 Modified: usocket/branches/experimental-udp/backend/lispworks.lisp usocket/branches/experimental-udp/backend/sbcl.lisp Modified: usocket/branches/experimental-udp/backend/lispworks.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/lispworks.lisp (original) +++ usocket/branches/experimental-udp/backend/lispworks.lisp Sat Apr 4 09:50:53 2009 @@ -248,7 +248,7 @@ (defun socket-connect (host port &key (protocol :stream) (element-type 'base-char) timeout deadline (nodelay t nodelay-specified) - local-host local-port) + local-host (local-port #+win32 *auto-port* #-win32 nil)) (declare (ignorable nodelay)) ;; What's the meaning of this keyword? Modified: usocket/branches/experimental-udp/backend/sbcl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/sbcl.lisp (original) +++ usocket/branches/experimental-udp/backend/sbcl.lisp Sat Apr 4 09:50:53 2009 @@ -68,7 +68,7 @@ (defun fdset-alloc () (ffi:c-inline () () :pointer-void - "cl_alloc_atomic(sizeof(fd_set))" :one-liner t)) + "ecl_alloc_atomic(sizeof(fd_set))" :one-liner t)) (defun fdset-zero (fdset) (ffi:c-inline (fdset) (:pointer-void) :void @@ -96,7 +96,7 @@ (defun get-host-name () (ffi:c-inline () () :object - "{ char *buf = cl_alloc_atomic(257); + "{ char *buf = ecl_alloc_atomic(257); if (gethostname(buf,256) == 0) @(return) = make_simple_base_string(buf);

1 0

[usocket-cvs] r494 - usocket/branches/0.4.x/backend
by Chun Tian 04 Apr '09

04 Apr '09

Author: ctian Date: Sat Apr 4 09:50:00 2009 New Revision: 494 Log: [ecl] merge r493 from trunk Modified: usocket/branches/0.4.x/backend/sbcl.lisp Modified: usocket/branches/0.4.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/sbcl.lisp (original) +++ usocket/branches/0.4.x/backend/sbcl.lisp Sat Apr 4 09:50:00 2009 @@ -68,7 +68,7 @@ (defun fdset-alloc () (ffi:c-inline () () :pointer-void - "cl_alloc_atomic(sizeof(fd_set))" :one-liner t)) + "ecl_alloc_atomic(sizeof(fd_set))" :one-liner t)) (defun fdset-zero (fdset) (ffi:c-inline (fdset) (:pointer-void) :void @@ -96,7 +96,7 @@ (defun get-host-name () (ffi:c-inline () () :object - "{ char *buf = cl_alloc_atomic(257); + "{ char *buf = ecl_alloc_atomic(257); if (gethostname(buf,256) == 0) @(return) = make_simple_base_string(buf);

1 0

[usocket-cvs] r493 - usocket/trunk/backend
by Chun Tian 04 Apr '09

04 Apr '09

Author: ctian Date: Sat Apr 4 09:49:17 2009 New Revision: 493 Log: [ecl] fix a function name typo, thanks to Juan Jose Garcia-Ripoll, the ECL maintainer. Modified: usocket/trunk/backend/sbcl.lisp Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Sat Apr 4 09:49:17 2009 @@ -68,7 +68,7 @@ (defun fdset-alloc () (ffi:c-inline () () :pointer-void - "cl_alloc_atomic(sizeof(fd_set))" :one-liner t)) + "ecl_alloc_atomic(sizeof(fd_set))" :one-liner t)) (defun fdset-zero (fdset) (ffi:c-inline (fdset) (:pointer-void) :void @@ -96,7 +96,7 @@ (defun get-host-name () (ffi:c-inline () () :object - "{ char *buf = cl_alloc_atomic(257); + "{ char *buf = ecl_alloc_atomic(257); if (gethostname(buf,256) == 0) @(return) = make_simple_base_string(buf);

1 0

[usocket-cvs] r492 - usocket/trunk/backend
by Hans Hübner 18 Feb '09

18 Feb '09

Author: hhubner Date: Wed Feb 18 14:56:24 2009 New Revision: 492 Log: Change mapping of ccl:communication-deadline-expired to timeout-error Modified: usocket/trunk/backend/openmcl.lisp Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Wed Feb 18 14:56:24 2009 @@ -64,7 +64,7 @@ (ccl:input-timeout (error 'timeout-error :socket socket :real-error condition)) (ccl:communication-deadline-expired - (error 'deadline-error :socket socket :real-error condition)) + (error 'timeout-error :socket socket :real-error condition)) (ccl::socket-creation-error #| ugh! |# (raise-error-from-id (ccl::socket-creation-error-identifier condition) socket condition))))

1 0

[usocket-cvs] r491 - usocket/trunk
by Hans Hübner 12 Feb '09

12 Feb '09

Author: hhubner Date: Thu Feb 12 17:14:36 2009 New Revision: 491 Log: Avoid calling dotted-quad-to* functions for strings that can't possibly parse as an IP address. This helps when debugging using *BREAK-ON-SIGNALS*. Modified: usocket/trunk/usocket.lisp Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp (original) +++ usocket/trunk/usocket.lisp Thu Feb 12 17:14:36 2009 @@ -351,6 +351,13 @@ (push (parse-integer element) new-list)) new-list)) +(defun ip-address-string-p (string) + "Return a true value if the given string could be an IP address." + (every (lambda (char) + (or (digit-char-p char) + (eql char #\.))) + string)) + (defun hbo-to-dotted-quad (integer) "Host-byte-order integer to dotted-quad string conversion utility." (let ((first (ldb (byte 8 24) integer)) @@ -438,7 +445,7 @@ "Translate a host specification (vector quad, dotted quad or domain name) to a vector quad." (etypecase host - (string (let* ((ip (ignore-errors + (string (let* ((ip (when (ip-address-string-p host) (dotted-quad-to-vector-quad host)))) (if (and ip (= 4 (length ip))) ;; valid IP dotted quad? @@ -451,7 +458,7 @@ (defun host-to-hbo (host) (etypecase host - (string (let ((ip (ignore-errors + (string (let ((ip (when (ip-address-string-p host) (dotted-quad-to-vector-quad host)))) (if (and ip (= 4 (length ip))) (host-byte-order ip)

1 0

[usocket-cvs] r490 - usocket/branches/experimental-udp/backend
by Chun Tian 11 Feb '09

11 Feb '09

Author: ctian Date: Wed Feb 11 04:20:40 2009 New Revision: 490 Log: [udp, sbcl] fix a bug reported on usocket-udp Modified: usocket/branches/experimental-udp/backend/sbcl.lisp Modified: usocket/branches/experimental-udp/backend/sbcl.lisp ============================================================================== --- usocket/branches/experimental-udp/backend/sbcl.lisp (original) +++ usocket/branches/experimental-udp/backend/sbcl.lisp Wed Feb 11 04:20:40 2009 @@ -252,7 +252,7 @@ (or local-host *wildcard-host*)) (or local-port *auto-port*))) (when (and host port) - (sb-bsd-sockets:socket-connect socket (host-to-hbo host) port)) + (sb-bsd-sockets:socket-connect socket (host-to-vector-quad host) port)) (make-datagram-socket socket))) (t (c) ;; Make sure we don't leak filedescriptors

1 0

[usocket-cvs] r489 - usocket/trunk/backend
by Hans Hübner 09 Feb '09

09 Feb '09

Author: hhubner Date: Mon Feb 9 10:08:05 2009 New Revision: 489 Log: In CCL, guard against REMOTE-HOST returning nil (which will happen for closed sockets). Modified: usocket/trunk/backend/openmcl.lisp Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Mon Feb 9 10:08:05 2009 @@ -123,10 +123,14 @@ (close (socket usocket)))) (defmethod get-local-address ((usocket usocket)) - (hbo-to-vector-quad (openmcl-socket:local-host (socket usocket)))) + (let ((address (openmcl-socket:local-host (socket usocket)))) + (when address + (hbo-to-vector-quad address)))) (defmethod get-peer-address ((usocket stream-usocket)) - (hbo-to-vector-quad (openmcl-socket:remote-host (socket usocket)))) + (let ((address (openmcl-socket:remote-host (socket usocket)))) + (when address + (hbo-to-vector-quad address)))) (defmethod get-local-port ((usocket usocket)) (openmcl-socket:local-port (socket usocket)))

1 0

← Newer
1
...
18
19
20
21
22
23
24
...
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