usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r683 - in usocket/trunk: . backend
by ctian＠common-lisp.net 03 Feb '12

03 Feb '12

Author: ctian Date: Fri Feb 3 20:31:26 2012 New Revision: 683 Log: [LispWorks] SOCKET-CONNECT shouldn't have *auto-port* as its default value, this is not supported by LispWorks 6.1 any more. (Thanks to Raymond Wiker) Modified: usocket/trunk/CHANGES usocket/trunk/backend/lispworks.lisp Modified: usocket/trunk/CHANGES ============================================================================== --- usocket/trunk/CHANGES Sat Jan 28 12:49:31 2012 (r682) +++ usocket/trunk/CHANGES Fri Feb 3 20:31:26 2012 (r683) @@ -3,8 +3,9 @@ * New feature: SOCKET-OPTION for seting and geting various socket options. * Enhancement: SOCKET-CONNECT argument :nodelay now support :if-supported as value (patch from Anton Vodonosov). * Enhancement: Add *remote-host* *remote-port* to SOCKET-SERVER stream handler (suggested by Matthew Curry). -* Bugfix: [LispWorks] Fixed UDP support for LispWorks 6.1 (patch from Camille Troillard). +* Bugfix: [LispWorks] Fixed UDP support for LispWorks 6.1 (patch from Camille Troillard by Martin Simmons). * Bugfix: [LispWorks] Stop using hcl:add-special-free-action for reclaiming unused UDP socket fds to improve multi-threading stablity (suggested by Camille Troillard). +* Bugfix: [LispWorks] Fixed SOCKET-CONNECT on Windows, now LOCAL-PORT never have *auto-port* (0) as default value. 0.5.4: @@ -62,3 +63,4 @@ [TODO for 0.6.x] * New feature: SOCKET-SHUTDOWN for TCP and UDP sockets +* Fix UDP in CCL 1.7 Windows |send| symbol is gone. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp Sat Jan 28 12:49:31 2012 (r682) +++ usocket/trunk/backend/lispworks.lisp Fri Feb 3 20:31:26 2012 (r683) @@ -289,7 +289,7 @@ (defun socket-connect (host port &key (protocol :stream) (element-type 'base-char) timeout deadline (nodelay t nodelay-specified) - local-host (local-port #+win32 *auto-port* #-win32 nil)) + local-host local-port) ;; What's the meaning of this keyword? (when deadline

1 0

[usocket-cvs] r682 - usocket/trunk
by ctian＠common-lisp.net 28 Jan '12

28 Jan '12

Author: ctian Date: Sat Jan 28 12:49:31 2012 New Revision: 682 Log: Merge r678 from 0.5.x branch, this new feature is left for 0.6.0 Modified: usocket/trunk/CHANGES usocket/trunk/server.lisp Modified: usocket/trunk/CHANGES ============================================================================== --- usocket/trunk/CHANGES Sat Jan 28 12:31:12 2012 (r681) +++ usocket/trunk/CHANGES Sat Jan 28 12:49:31 2012 (r682) @@ -1,7 +1,8 @@ 0.6.0: * New feature: SOCKET-OPTION for seting and geting various socket options. -* Enhancement: SOCKET-CONNECT argument :nodelay can now set to :if-supported (patch from Anton Vodonosov). +* Enhancement: SOCKET-CONNECT argument :nodelay now support :if-supported as value (patch from Anton Vodonosov). +* Enhancement: Add *remote-host* *remote-port* to SOCKET-SERVER stream handler (suggested by Matthew Curry). * Bugfix: [LispWorks] Fixed UDP support for LispWorks 6.1 (patch from Camille Troillard). * Bugfix: [LispWorks] Stop using hcl:add-special-free-action for reclaiming unused UDP socket fds to improve multi-threading stablity (suggested by Camille Troillard). Modified: usocket/trunk/server.lisp ============================================================================== --- usocket/trunk/server.lisp Sat Jan 28 12:31:12 2012 (r681) +++ usocket/trunk/server.lisp Sat Jan 28 12:49:31 2012 (r682) @@ -80,7 +80,8 @@ &key element-type multi-threading) (let ((real-function #'(lambda (client-socket &rest arguments) (unwind-protect - (apply function (socket-stream client-socket) arguments) + (multiple-value-bind (*remote-host* *remote-port*) (get-peer-name client-socket) + (apply function (socket-stream client-socket) arguments)) (close (socket-stream client-socket)) (socket-close client-socket) nil))))

1 0

[usocket-cvs] r681 - in usocket/trunk: . backend
by ctian＠common-lisp.net 28 Jan '12

28 Jan '12

Author: ctian Date: Sat Jan 28 12:31:12 2012 New Revision: 681 Log: [LispWorks] Fixed UDP support for LispWorks 6.1 (patch from Camille Troillard with minor fixes). Modified: usocket/trunk/CHANGES usocket/trunk/backend/lispworks.lisp Modified: usocket/trunk/CHANGES ============================================================================== --- usocket/trunk/CHANGES Fri Jan 20 15:38:00 2012 (r680) +++ usocket/trunk/CHANGES Sat Jan 28 12:31:12 2012 (r681) @@ -1,3 +1,10 @@ +0.6.0: + +* New feature: SOCKET-OPTION for seting and geting various socket options. +* Enhancement: SOCKET-CONNECT argument :nodelay can now set to :if-supported (patch from Anton Vodonosov). +* Bugfix: [LispWorks] Fixed UDP support for LispWorks 6.1 (patch from Camille Troillard). +* Bugfix: [LispWorks] Stop using hcl:add-special-free-action for reclaiming unused UDP socket fds to improve multi-threading stablity (suggested by Camille Troillard). + 0.5.4: * Bugfix: [ECL] Fixed for ECL's MAKE-BUILD by removing some unecessary code (reported by Juan Jose Garcia-Ripoll, the ECL maintainer) @@ -51,10 +58,6 @@ * New feature: CLISP support some advanced TCP features which CLISP's SOCKET interface not provide * New feature: Macintosh Common Lisp (MCL) support Datagram sockets (UDP) -0.6.0: - -* New feature: SOCKET-OPTION for seting and geting various socket options. - [TODO for 0.6.x] * New feature: SOCKET-SHUTDOWN for TCP and UDP sockets Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp Fri Jan 20 15:38:00 2012 (r680) +++ usocket/trunk/backend/lispworks.lisp Sat Jan 28 12:31:12 2012 (r681) @@ -183,7 +183,47 @@ len) (float (/ (fli:dereference timeout) 1000)))) -(defun open-udp-socket (&key local-address local-port read-timeout) +(defun initialize-dynamic-sockaddr (hostname service protocol &aux (original-hostname hostname)) + (declare (ignorable original-hostname)) + #+(or lispworks4 lispworks5 lispworks6.0) + (let ((server-addr (fli:allocate-dynamic-foreign-object + :type '(:struct comm::sockaddr_in)))) + (values (comm::initialize-sockaddr_in + server-addr + comm::*socket_af_inet* + hostname + service protocol) + comm::*socket_af_inet* + server-addr + (fli:pointer-element-size server-addr))) + #-(or lispworks4 lispworks5 lispworks6.0) + (progn + (when (stringp hostname) + (setq hostname (comm:string-ip-address hostname)) + (unless hostname + (let ((resolved-hostname (comm:get-host-entry original-hostname :fields '(:address)))) + (unless resolved-hostname + (return-from initialize-dynamic-sockaddr :unknown-host)) + (setq hostname resolved-hostname)))) + (if (or (null hostname) + (integerp hostname) + (comm:ipv6-address-p hostname)) + (let ((server-addr (fli:allocate-dynamic-foreign-object + :type '(:struct comm::lw-sockaddr)))) + (multiple-value-bind (error family) + (comm::initialize-sockaddr_in + server-addr + hostname + service protocol) + (values error family + server-addr + (if (eql family comm::*socket_af_inet*) + (fli:size-of '(:struct comm::sockaddr_in)) + (fli:size-of '(:struct comm::sockaddr_in6)))))) + :bad-host))) + +(defun open-udp-socket (&key local-address local-port read-timeout + (address-family comm::*socket_af_inet*)) "Open a unconnected UDP socket. For binding on address ANY(*), just not set LOCAL-ADDRESS (NIL), for binding on random free unused port, set LOCAL-PORT to 0." @@ -201,54 +241,51 @@ ;; safe and it will be very fast after the first time. #+win32 (comm::ensure-sockets) - (let ((socket-fd (comm::socket comm::*socket_af_inet* *socket_sock_dgram* *socket_ip_proto_udp*))) + (let ((socket-fd (comm::socket address-family *socket_sock_dgram* *socket_ip_proto_udp*))) (if socket-fd - (progn - (when read-timeout (set-socket-receive-timeout socket-fd read-timeout)) - (if local-port - (fli:with-dynamic-foreign-objects ((client-addr (:struct comm::sockaddr_in))) - (comm::initialize-sockaddr_in client-addr comm::*socket_af_inet* - local-address local-port "udp") - (if (comm::bind socket-fd - (fli:copy-pointer client-addr :type '(:struct comm::sockaddr)) - (fli:pointer-element-size client-addr)) - ;; success, return socket fd - socket-fd - (progn - (comm::close-socket socket-fd) - (error "cannot bind")))) + (progn + (when read-timeout (set-socket-receive-timeout socket-fd read-timeout)) + (if local-port + (fli:with-dynamic-foreign-objects () + (multiple-value-bind (error local-address-family + client-addr client-addr-length) + (initialize-dynamic-sockaddr local-address local-port "udp") + (if (or error (not (eql address-family local-address-family))) + (progn + (comm::close-socket socket-fd) + (error "cannot resolve hostname ~S, service ~S: ~A" + local-address local-port (or error "address family mismatch"))) + (if (comm::bind socket-fd client-addr client-addr-length) + ;; success, return socket fd + socket-fd + (progn + (comm::close-socket socket-fd) + (error "cannot bind")))))) socket-fd)) (error "cannot create socket")))) (defun connect-to-udp-server (hostname service - &key local-address local-port read-timeout) + &key local-address local-port read-timeout) "Something like CONNECT-TO-TCP-SERVER" - (let ((socket-fd (open-udp-socket :local-address local-address - :local-port local-port - :read-timeout read-timeout))) - (if socket-fd - (fli:with-dynamic-foreign-objects ((server-addr (:struct comm::sockaddr_in))) - ;; connect to remote address/port - (comm::initialize-sockaddr_in server-addr comm::*socket_af_inet* hostname service "udp") - (if (comm::connect socket-fd - (fli:copy-pointer server-addr :type '(:struct comm::sockaddr)) - (fli:pointer-element-size server-addr)) - ;; success, return socket fd - socket-fd - ;; fail, close socket and return nil - (progn - (comm::close-socket socket-fd) - (error "cannot connect")))) - (error "cannot create socket")))) - -;; Register a special free action for closing datagram usocket when being GCed -(defun usocket-special-free-action (object) - (when (and (typep object 'datagram-usocket) - (%open-p object)) - (socket-close object))) - -(eval-when (:load-toplevel :execute) - (hcl:add-special-free-action 'usocket-special-free-action)) + (fli:with-dynamic-foreign-objects () + (multiple-value-bind (error address-family server-addr server-addr-length) + (initialize-dynamic-sockaddr hostname service "udp") + (when error + (error "cannot resolve hostname ~S, service ~S: ~A" + hostname service error)) + (let ((socket-fd (open-udp-socket :local-address local-address + :local-port local-port + :read-timeout read-timeout + :address-family address-family))) + (if socket-fd + (if (comm::connect socket-fd server-addr server-addr-length) + ;; success, return socket fd + socket-fd + ;; fail, close socket and return nil + (progn + (comm::close-socket socket-fd) + (error "cannot connect"))) + (error "cannot create socket")))))) (defun socket-connect (host port &key (protocol :stream) (element-type 'base-char) timeout deadline (nodelay t nodelay-specified) @@ -390,16 +427,19 @@ "Send message to a socket, using sendto()/send()" (declare (type integer socket-fd) (type sequence buffer)) - (fli:with-dynamic-foreign-objects ((client-addr (:struct comm::sockaddr_in))) - (fli:with-dynamic-lisp-array-pointer (ptr message :type '(:unsigned :byte)) - (replace message buffer :end2 length) - (if (and host service) - (progn - (comm::initialize-sockaddr_in client-addr comm::*socket_af_inet* host service "udp") + (fli:with-dynamic-lisp-array-pointer (ptr message :type '(:unsigned :byte)) + (replace message buffer :end2 length) + (if (and host service) + (fli:with-dynamic-foreign-objects () + (multiple-value-bind (error family client-addr client-addr-length) + (initialize-dynamic-sockaddr host service "udp") + (when error + (error "cannot resolve hostname ~S, service ~S: ~A" + host service error)) (%sendto socket-fd ptr (min length +max-datagram-packet-size+) 0 (fli:copy-pointer client-addr :type '(:struct comm::sockaddr)) - *length-of-sockaddr_in*)) - (comm::%send socket-fd ptr (min length +max-datagram-packet-size+) 0))))) + client-addr-length))) + (comm::%send socket-fd ptr (min length +max-datagram-packet-size+) 0)))) (defmethod socket-send ((socket datagram-usocket) buffer length &key host port) (send-message (socket socket)

1 0

[usocket-cvs] r680 - usocket/trunk
by hhubner＠common-lisp.net 20 Jan '12

20 Jan '12

Author: hhubner Date: Fri Jan 20 15:38:00 2012 New Revision: 680 Log: Textual corrections for :nodelay :if-supported. Modified: usocket/trunk/usocket.lisp Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp Fri Jan 20 14:35:07 2012 (r679) +++ usocket/trunk/usocket.lisp Fri Jan 20 15:38:00 2012 (r680) @@ -540,17 +540,17 @@ stream associated with the socket. The default is 'character. `nodelay' Allows to disable/enable Nagle's algorithm (http://en.wikipedia.org/wiki/Nagle%27s_algorithm). -If this parameter is omitted, the behaviour is inherited form the -CL implementation (in most cases the Nagle's algorithm is +If this parameter is omitted, the behaviour is inherited from the +CL implementation (in most cases, Nagle's algorithm is enabled by default, but for example in ACL it is disabled). If the parmeter is specified, one of these three values is possible: - T - Disable the Nagle's algorithm; signals an UNSUPPORTED + T - Disable Nagle's algorithm; signals an UNSUPPORTED condition if the implementation does not support explicit manipulation with that option. - NIL - Leave the Nagle's algorithm enabled on the socket; + NIL - Leave Nagle's algorithm enabled on the socket; signals an UNSUPPORTED condition if the implementation does not support explicit manipulation with that option. - :IF-SUPPORTED - Disables the Nagle's algorithm if the implementation + :IF-SUPPORTED - Disables Nagle's algorithm if the implementation allows this, otherwises just ignore this option. Returns a usocket object.")

1 0

[usocket-cvs] r679 - in usocket/trunk: . backend
by hhubner＠common-lisp.net 20 Jan '12

20 Jan '12

Author: hhubner Date: Fri Jan 20 14:35:07 2012 New Revision: 679 Log: :nodelay :if-supported patch from Anton Vodonosov Modified: usocket/trunk/backend/abcl.lisp usocket/trunk/backend/allegro.lisp usocket/trunk/backend/clisp.lisp usocket/trunk/backend/cmucl.lisp usocket/trunk/backend/lispworks.lisp usocket/trunk/backend/mcl.lisp usocket/trunk/backend/openmcl.lisp usocket/trunk/backend/sbcl.lisp usocket/trunk/backend/scl.lisp usocket/trunk/usocket.lisp Modified: usocket/trunk/backend/abcl.lisp ============================================================================== --- usocket/trunk/backend/abcl.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/abcl.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -212,7 +212,8 @@ (setq stream (ext:get-socket-stream socket :element-type element-type) usocket (make-stream-socket :stream stream :socket socket)) (when nodelay-supplied-p - (jcall $@setTcpNoDelay/1 socket (if nodelay +java-true+ +java-false+))) + (jcall $@setTcpNoDelay/1 socket (if nodelay ;; both t and :if-supported mean +java-true+ + +java-true+ +java-false+))) (when timeout (jcall $@setSoTimeout/Socket/1 socket (truncate (* 1000 timeout)))))) (:datagram ; UDP Modified: usocket/trunk/backend/allegro.lisp ============================================================================== --- usocket/trunk/backend/allegro.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/allegro.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -55,6 +55,8 @@ local-host local-port) (when timeout (unsupported 'timeout 'socket-connect)) (when deadline (unsupported 'deadline 'socket-connect)) + (when (eq nodelay :if-supported) + (setf nodelay t)) (let ((socket)) (setf socket Modified: usocket/trunk/backend/clisp.lisp ============================================================================== --- usocket/trunk/backend/clisp.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/clisp.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -116,10 +116,11 @@ (defun socket-connect (host port &key (protocol :stream) (element-type 'character) timeout deadline (nodelay t nodelay-specified) local-host local-port) - (declare (ignore nodelay) - (ignorable timeout local-host local-port)) + (declare (ignorable timeout local-host local-port)) (when deadline (unsupported 'deadline 'socket-connect)) - (when nodelay-specified (unsupported 'nodelay 'socket-connect)) + (when (and nodelay-specified + (not (eq nodelay :if-supported))) + (unsupported 'nodelay 'socket-connect)) (case protocol (:stream (let ((socket) Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/cmucl.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -56,10 +56,11 @@ (local-port nil local-port-p) &aux (local-bind-p (fboundp 'ext::bind-inet-socket))) - (declare (ignore nodelay)) (when timeout (unsupported 'timeout 'socket-connect)) (when deadline (unsupported 'deadline 'socket-connect)) - (when nodelay-specified (unsupported 'nodelay 'socket-connect)) + (when (and nodelay-specified + (not (eq nodelay :if-supported))) + (unsupported 'nodelay 'socket-connect)) (when (and local-host-p (not local-bind-p)) (unsupported 'local-host 'socket-connect :minimum "Snapshot 2008-08 (19E)")) (when (and local-port-p (not local-bind-p)) Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/lispworks.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -253,7 +253,6 @@ (defun socket-connect (host port &key (protocol :stream) (element-type 'base-char) timeout deadline (nodelay t nodelay-specified) local-host (local-port #+win32 *auto-port* #-win32 nil)) - (declare (ignorable nodelay)) ;; What's the meaning of this keyword? (when deadline @@ -264,7 +263,8 @@ (unsupported 'timeout 'socket-connect :minimum "LispWorks 4.4.5")) #+(or lispworks4 lispworks5.0) ; < 5.1 - (when nodelay-specified + (when (and nodelay-specified + (not (eq nodelay :if-supported))) (unsupported 'nodelay 'socket-connect :minimum "LispWorks 5.1")) #+lispworks4 #+lispworks4 Modified: usocket/trunk/backend/mcl.lisp ============================================================================== --- usocket/trunk/backend/mcl.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/mcl.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -73,6 +73,8 @@ (defun socket-connect (host port &key (element-type 'character) timeout deadline nodelay local-host local-port (protocol :stream)) + (when (eq nodelay :if-supported) + (setf nodelay t)) (when (eq protocol :datagram) (unsupported '(protocol :datagram) 'socket-connect)) (with-mapped-conditions () Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/openmcl.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -85,6 +85,8 @@ (defun socket-connect (host port &key (protocol :stream) (element-type 'character) timeout deadline nodelay local-host local-port) + (when (eq nodelay :if-supported) + (setf nodelay t)) (with-mapped-conditions () (ecase protocol (:stream Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/sbcl.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -261,8 +261,11 @@ ;; package today. There's no guarantee the functions ;; we need are available, but we can make sure not to ;; call them if they aren't + (not (eq nodelay :if-supported)) (not sockopt-tcp-nodelay-p)) (unsupported 'nodelay 'socket-connect)) + (when (eq nodelay :if-supported) + (setf nodelay t)) (let ((socket (make-instance 'sb-bsd-sockets:inet-socket :type protocol Modified: usocket/trunk/backend/scl.lisp ============================================================================== --- usocket/trunk/backend/scl.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/backend/scl.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -34,8 +34,9 @@ (local-port nil local-port-p) &aux (patch-udp-p (fboundp 'ext::inet-socket-send-to))) - (declare (ignore nodelay)) - (when nodelay-specified (unsupported 'nodelay 'socket-connect)) + (when (and nodelay-specified + (not (eq nodelay :if-supported))) + (unsupported 'nodelay 'socket-connect)) (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and local-host-p (not patch-udp-p)) Modified: usocket/trunk/usocket.lisp ============================================================================== --- usocket/trunk/usocket.lisp Thu Nov 10 17:40:53 2011 (r678) +++ usocket/trunk/usocket.lisp Fri Jan 20 14:35:07 2012 (r679) @@ -529,7 +529,7 @@ ;; Documentation for the function ;; -;; (defun SOCKET-CONNECT (host port &key element-type) ..) +;; (defun SOCKET-CONNECT (host port &key element-type nodelay some-other-keys...) ..) ;; (setf (documentation 'socket-connect 'function) "Connect to `host' on `port'. `host' is assumed to be a string or @@ -539,6 +539,20 @@ `element-type' specifies the element type to use when constructing the stream associated with the socket. The default is 'character. +`nodelay' Allows to disable/enable Nagle's algorithm (http://en.wikipedia.org/wiki/Nagle%27s_algorithm). +If this parameter is omitted, the behaviour is inherited form the +CL implementation (in most cases the Nagle's algorithm is +enabled by default, but for example in ACL it is disabled). +If the parmeter is specified, one of these three values is possible: + T - Disable the Nagle's algorithm; signals an UNSUPPORTED + condition if the implementation does not support explicit + manipulation with that option. + NIL - Leave the Nagle's algorithm enabled on the socket; + signals an UNSUPPORTED condition if the implementation does + not support explicit manipulation with that option. + :IF-SUPPORTED - Disables the Nagle's algorithm if the implementation + allows this, otherwises just ignore this option. + Returns a usocket object.") ;; Documentation for the function

1 0

[usocket-cvs] r678 - usocket/branches/0.5.x
by ctian＠common-lisp.net 10 Nov '11

10 Nov '11

Author: ctian Date: Thu Nov 10 17:40:53 2011 New Revision: 678 Log: [server] adding *remote-host* *remote-port* to socket-server stream handler functions (suggested by Matthew Curry) Modified: usocket/branches/0.5.x/server.lisp Modified: usocket/branches/0.5.x/server.lisp ============================================================================== --- usocket/branches/0.5.x/server.lisp Sat Oct 1 07:52:12 2011 (r677) +++ usocket/branches/0.5.x/server.lisp Thu Nov 10 17:40:53 2011 (r678) @@ -80,7 +80,8 @@ &key element-type multi-threading) (let ((real-function #'(lambda (client-socket &rest arguments) (unwind-protect - (apply function (socket-stream client-socket) arguments) + (multiple-value-bind (*remote-host* *remote-port*) (get-peer-name client-socket) + (apply function (socket-stream client-socket) arguments)) (close (socket-stream client-socket)) (socket-close client-socket) nil))))

1 0

[usocket-cvs] r677 - public_html/releases
by ctian＠common-lisp.net 01 Oct '11

01 Oct '11

Author: ctian Date: Sat Oct 1 07:52:12 2011 New Revision: 677 Log: [release] usocket-0.5.4 Added: public_html/releases/usocket-0.5.4.tar.gz (contents, props changed) public_html/releases/usocket-0.5.4.tar.gz.asc Modified: public_html/releases/usocket-latest.tar.gz public_html/releases/usocket-latest.tar.gz.asc Added: public_html/releases/usocket-0.5.4.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/usocket-0.5.4.tar.gz.asc ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ public_html/releases/usocket-0.5.4.tar.gz.asc Sat Oct 1 07:52:12 2011 (r677) @@ -0,0 +1,8 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG/MacGPG2 v2.0.17 (Darwin) +Comment: GPGTools - http://gpgtools.org + +iEYEABECAAYFAk6HKN8ACgkQny6v4+l8uLBtmgCeK9of6AlsUjioV7sbOBkvV9IZ +N7gAn2Rlx07aPqTycW9bXRRW6JhVvoLp +=lLI0 +-----END PGP SIGNATURE----- Modified: public_html/releases/usocket-latest.tar.gz ============================================================================== --- public_html/releases/usocket-latest.tar.gz Sat Oct 1 07:50:21 2011 (r676) +++ public_html/releases/usocket-latest.tar.gz Sat Oct 1 07:52:12 2011 (r677) @@ -1 +1 @@ -link usocket-0.5.3.tar.gz \ No newline at end of file +link usocket-0.5.4.tar.gz \ No newline at end of file Modified: public_html/releases/usocket-latest.tar.gz.asc ============================================================================== --- public_html/releases/usocket-latest.tar.gz.asc Sat Oct 1 07:50:21 2011 (r676) +++ public_html/releases/usocket-latest.tar.gz.asc Sat Oct 1 07:52:12 2011 (r677) @@ -1 +1 @@ -link usocket-0.5.3.tar.gz.asc \ No newline at end of file +link usocket-0.5.4.tar.gz.asc \ No newline at end of file

1 0

[usocket-cvs] r676 - usocket/tags/0.5.4
by ctian＠common-lisp.net 01 Oct '11

01 Oct '11

Author: ctian Date: Sat Oct 1 07:50:21 2011 New Revision: 676 Log: Created tag 0.5.4. Added: usocket/tags/0.5.4/ - copied from r675, usocket/trunk/

1 0

[usocket-cvs] r675 - in usocket/trunk: . backend
by ctian＠common-lisp.net 01 Oct '11

01 Oct '11

Author: ctian Date: Sat Oct 1 07:49:26 2011 New Revision: 675 Log: Merge all changes from branch 0.5.x (r672, 674) before tagging 0.5.4 Modified: usocket/trunk/CHANGES usocket/trunk/backend/sbcl.lisp usocket/trunk/package.lisp usocket/trunk/usocket-test.asd usocket/trunk/usocket.asd Modified: usocket/trunk/CHANGES ============================================================================== --- usocket/trunk/CHANGES Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/CHANGES Sat Oct 1 07:49:26 2011 (r675) @@ -1,3 +1,9 @@ +0.5.4: + +* Bugfix: [ECL] Fixed for ECL's MAKE-BUILD by removing some unecessary code (reported by Juan Jose Garcia-Ripoll, the ECL maintainer) +* Bugfix: [ACL] Fixed for Allegro CL modern mode. +* Bugfix: [SBCL] SOCKET-CONNECT on TCP won't call bind() when keyword arguments LOCAL-HOST or LOCAL-PORT is not set. (reported by Robert Brown) + 0.5.3: * Bugfix: [MCL] Fixed SOCKET-LISTEN on vector addresses like #(0 0 0 0) Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/backend/sbcl.lisp Sat Oct 1 07:49:26 2011 (r675) @@ -269,8 +269,6 @@ :protocol (case protocol (:stream :tcp) (:datagram :udp)))) - (local-host (host-to-vector-quad (or local-host *wildcard-host*))) - (local-port (or local-port *auto-port*)) usocket ok) (unwind-protect (progn @@ -285,7 +283,10 @@ (when (and nodelay-specified sockopt-tcp-nodelay-p) (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) - (sb-bsd-sockets:socket-bind socket local-host local-port)) + (sb-bsd-sockets:socket-bind socket + (host-to-vector-quad + (or local-host *wildcard-host*)) + (or local-port *auto-port*))) (with-mapped-conditions (usocket) #+(and sbcl (not win32)) (labels ((connect () Modified: usocket/trunk/package.lisp ============================================================================== --- usocket/trunk/package.lisp Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/package.lisp Sat Oct 1 07:49:26 2011 (r675) @@ -3,8 +3,6 @@ ;;;; See the LICENSE file for licensing information. -(in-package :usocket-system) - (defpackage :usocket (:use :common-lisp #+abcl :java) (:export #:*wildcard-host* @@ -87,20 +85,3 @@ #:insufficient-implementation ; conditions regarding usocket support level #:unsupported #:unimplemented)) - -(in-package :usocket) - -;;; Logical Pathname Translations, learn from CL-HTTP source code - -(eval-when (:load-toplevel :execute) - (let* ((defaults #+asdf (asdf:component-pathname (asdf:find-system :usocket)) - #-asdf *load-truename*) - (home (make-pathname :name :wild :type :wild - :directory (append (pathname-directory defaults) - '(:wild-inferiors)) - :host (pathname-host defaults) - :defaults defaults - :version :newest))) - (setf (logical-pathname-translations "usocket") - `(("**;*.*.NEWEST" ,home) - ("**;*.*" ,home))))) Modified: usocket/trunk/usocket-test.asd ============================================================================== --- usocket/trunk/usocket-test.asd Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/usocket-test.asd Sat Oct 1 07:49:26 2011 (r675) @@ -4,14 +4,6 @@ ;;;; See the LICENSE file for licensing information. -(in-package :cl-user) - -(unless (find-package ':usocket-system) - (make-package ':usocket-system - :use '(:cl :asdf))) - -(in-package :usocket-system) - (defsystem usocket-test :name "usocket test" :author "Erik Enge" Modified: usocket/trunk/usocket.asd ============================================================================== --- usocket/trunk/usocket.asd Sat Oct 1 07:35:11 2011 (r674) +++ usocket/trunk/usocket.asd Sat Oct 1 07:49:26 2011 (r675) @@ -4,13 +4,6 @@ ;;;; See the LICENSE file for licensing information. -(in-package :cl-user) - -(defpackage usocket-system - (:use :cl :asdf)) - -(in-package :usocket-system) - (defsystem usocket :name "usocket" :author "Erik Enge & Erik Huelsmann"

1 0

[usocket-cvs] r674 - in usocket/branches/0.5.x: . backend
by ctian＠common-lisp.net 01 Oct '11

01 Oct '11

Author: ctian Date: Sat Oct 1 07:35:11 2011 New Revision: 674 Log: [SBCL] SOCKET-CONNECT on TCP won't call bind() when keyword arguments LOCAL-HOST or LOCAL-PORT is not set. (reported by Robert Brown) Modified: usocket/branches/0.5.x/CHANGES usocket/branches/0.5.x/backend/sbcl.lisp Modified: usocket/branches/0.5.x/CHANGES ============================================================================== --- usocket/branches/0.5.x/CHANGES Fri Aug 26 22:46:28 2011 (r673) +++ usocket/branches/0.5.x/CHANGES Sat Oct 1 07:35:11 2011 (r674) @@ -2,6 +2,7 @@ * Bugfix: [ECL] Fixed for ECL's MAKE-BUILD by removing some unecessary code (reported by Juan Jose Garcia-Ripoll, the ECL maintainer) * Bugfix: [ACL] Fixed for Allegro CL modern mode. +* Bugfix: [SBCL] SOCKET-CONNECT on TCP won't call bind() when keyword arguments LOCAL-HOST or LOCAL-PORT is not set. (reported by Robert Brown) 0.5.3: Modified: usocket/branches/0.5.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.5.x/backend/sbcl.lisp Fri Aug 26 22:46:28 2011 (r673) +++ usocket/branches/0.5.x/backend/sbcl.lisp Sat Oct 1 07:35:11 2011 (r674) @@ -269,8 +269,6 @@ :protocol (case protocol (:stream :tcp) (:datagram :udp)))) - (local-host (host-to-vector-quad (or local-host *wildcard-host*))) - (local-port (or local-port *auto-port*)) usocket ok) (unwind-protect (progn @@ -285,7 +283,10 @@ (when (and nodelay-specified sockopt-tcp-nodelay-p) (setf (sb-bsd-sockets::sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) - (sb-bsd-sockets:socket-bind socket local-host local-port)) + (sb-bsd-sockets:socket-bind socket + (host-to-vector-quad + (or local-host *wildcard-host*)) + (or local-port *auto-port*))) (with-mapped-conditions (usocket) #+(and sbcl (not win32)) (labels ((connect ()

1 0

← Newer
1
2
3
4
5
6
7
...
71
Older →

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

usocket-cvs