usocket-cvs

usocket-cvs@common-lisp.net

702 discussions

[usocket-cvs] r415 - public_html
by ehuelsmann＠common-lisp.net 07 Aug '08

07 Aug '08

Author: ehuelsmann Date: Thu Aug 7 16:25:39 2008 New Revision: 415 Modified: public_html/api-docs.shtml Log: Document information retrieval functions. Modified: public_html/api-docs.shtml ============================================================================== --- public_html/api-docs.shtml (original) +++ public_html/api-docs.shtml Thu Aug 7 16:25:39 2008 @@ -100,19 +100,16 @@ <dt class="sym">socket-close socket</dt> <dd>Flushes the stream associated with the socket and closes the socket connection.</dd> +<dt class="sym">get-local-name socket => address, port +get-local-name socket => address +get-local-port socket => port</dt> +<dd>Returns the local address and/or port information of socket.</dd> + +<dt class="sym">get-peer-name socket => address, port +get-peer-name socket => address +get-peer-port socket => port</dt> +<dd>Returns the remote address and/or port information of socket.</dd> - </dl>

1 0

[usocket-cvs] r414 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 07 Aug '08

07 Aug '08

Author: ehuelsmann Date: Thu Aug 7 14:50:26 2008 New Revision: 414 Modified: usocket/trunk/backend/openmcl.lisp Log: Fix CCL backend. Modified: usocket/trunk/backend/openmcl.lisp ============================================================================== --- usocket/trunk/backend/openmcl.lisp (original) +++ usocket/trunk/backend/openmcl.lisp Thu Aug 7 14:50:26 2008 @@ -164,10 +164,9 @@ (defun wait-for-input-internal (wait-list &key timeout) (with-mapped-conditions () (let* ((ticks-timeout (truncate (* (or timeout 1) - ccl::*ticks-per-second*))) - (active-internal-sockets - (input-available-p (wait-list-waiters wait-list) - (when timeout ticks-timeout)))) + ccl::*ticks-per-second*)))) + (input-available-p (wait-list-waiters wait-list) + (when timeout ticks-timeout)) wait-list)))

1 0

[usocket-cvs] r413 - usocket/trunk/backend
by ehuelsmann＠common-lisp.net 02 Aug '08

02 Aug '08

Author: ehuelsmann Date: Sat Aug 2 16:06:09 2008 New Revision: 413 Modified: usocket/trunk/backend/sbcl.lisp Log: Document that we can't call SOCKOPT-TCP-NODELAY on all ECL versions, so we need a check. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Sat Aug 2 16:06:09 2008 @@ -206,6 +206,10 @@ (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) (when (and nodelay-specified + ;; 20080802: ECL added this function to its sockets + ;; 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 (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay))) (unsupported 'nodelay 'socket-connect))

1 0

[usocket-cvs] r412 - usocket/branches/0.4.x/backend
by ehuelsmann＠common-lisp.net 02 Aug '08

02 Aug '08

Author: ehuelsmann Date: Fri Aug 1 18:08:45 2008 New Revision: 412 Modified: usocket/branches/0.4.x/backend/clisp.lisp Log: clisp: Delete private code which warns when loaded. Modified: usocket/branches/0.4.x/backend/clisp.lisp ============================================================================== --- usocket/branches/0.4.x/backend/clisp.lisp (original) +++ usocket/branches/0.4.x/backend/clisp.lisp Fri Aug 1 18:08:45 2008 @@ -176,86 +176,3 @@ wait-list)))) -;; -;; UDP/Datagram sockets! -;; - -#+rawsock -(progn - - (defun make-sockaddr_in () - (make-array 16 :element-type '(unsigned-byte 8) :initial-element 0)) - - (declaim (inline fill-sockaddr_in)) - (defun fill-sockaddr_in (sockaddr_in ip port) - (port-to-octet-buffer sockaddr_in port) - (ip-to-octet-buffer sockaddr_in ip :start 2) - sockaddr_in) - - (defun socket-create-datagram (local-port - &key (local-host *wildcard-host*) - remote-host - remote-port) - (let ((sock (rawsock:socket :inet :dgram 0)) - (lsock_addr (fill-sockaddr_in (make-sockaddr_in) - local-host local-port)) - (rsock_addr (when remote-host - (fill-sockaddr_in (make-sockaddr_in) - remote-host (or remote-port - local-port))))) - (bind sock lsock_addr) - (when rsock_addr - (connect sock rsock_addr)) - (make-datagram-socket sock :connected-p (if rsock_addr t nil)))) - - (defun socket-receive (socket buffer &key (size (length buffer))) - "Returns the buffer, the number of octets copied into the buffer (received) -and the address of the sender as values." - (let* ((sock (socket socket)) - (sockaddr (when (not (connected-p socket)) - (rawsock:make-sockaddr))) - (rv (if sockaddr - (rawsock:recvfrom sock buffer sockaddr - :start 0 - :end size) - (rawsock:recv sock buffer - :start 0 - :end size)))) - (values buffer - rv - (list (ip-from-octet-buffer (sockaddr-data sockaddr) 4) - (port-from-octet-buffer (sockaddr-data sockaddr) 2))))) - - (defun socket-send (socket buffer &key address (size (length buffer))) - "Returns the number of octets sent." - (let* ((sock (socket socket)) - (sockaddr (when address - (rawsock:make-sockaddr :INET - (fill-sockaddr_in - (make-sockaddr_in) - (host-byte-order - (second address)) - (first address))))) - (rv (if address - (rawsock:sendto sock buffer sockaddr - :start 0 - :end size) - (rawsock:send sock buffer - :start 0 - :end size)))) - rv)) - - (defmethod socket-close ((usocket datagram-usocket)) - (when (wait-list usocket) - (remove-waiter (wait-list usocket) usocket)) - (rawsock:sock-close (socket usocket))) - - ) - -#-rawsock -(progn - (warn "This image doesn't contain the RAWSOCK package. -To enable UDP socket support, please be sure to use the -Kfull parameter -at startup, or to enable RAWSOCK support during compilation.") - - )

1 0

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

31 Jul '08

Author: ehuelsmann Date: Thu Jul 31 02:18:31 2008 New Revision: 411 Added: usocket/branches/0.4.x/ - copied from r410, usocket/trunk/ Log: Re-branch.

1 0

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

31 Jul '08

Author: ehuelsmann Date: Thu Jul 31 02:17:53 2008 New Revision: 410 Removed: usocket/branches/0.4.x/ Log: Delete for re-branching.

1 0

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

31 Jul '08

Author: ehuelsmann Date: Thu Jul 31 01:50:06 2008 New Revision: 409 Modified: usocket/trunk/backend/armedbear.lisp Log: ABCL fixes for getting socket names. Modified: usocket/trunk/backend/armedbear.lisp ============================================================================== --- usocket/trunk/backend/armedbear.lisp (original) +++ usocket/trunk/backend/armedbear.lisp Thu Jul 31 01:50:06 2008 @@ -275,16 +275,24 @@ (close (socket-stream usocket)))) (defmethod get-local-address ((usocket usocket)) - (dotted-quad-to-vector-quad (ext:socket-local-address (socket usocket)))) + (dotted-quad-to-vector-quad (ext:socket-local-address + (jdi:jop-deref + (jdi:do-jmethod-call (socket usocket) + "socket"))))) (defmethod get-peer-address ((usocket stream-usocket)) - (dotted-quad-to-vector-quad (ext:socket-peer-address (socket usocket)))) + (dotted-quad-to-vector-quad (ext:socket-peer-address + (jdi:jop-deref + (jdi:do-jmethod-call (socket usocket) + "socket"))))) (defmethod get-local-port ((usocket usocket)) - (ext:socket-local-port (socket usocket))) + (ext:socket-local-port (jdi:jop-deref + (jdi:do-jmethod-call (socket usocket) "socket")))) (defmethod get-peer-port ((usocket stream-usocket)) - (ext:socket-peer-port (socket usocket))) + (ext:socket-peer-port (jdi:jop-deref + (jdi:do-jmethod-call (socket usocket) "socket")))) (defmethod get-local-name ((usocket usocket)) (values (get-local-address usocket)

1 0

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

31 Jul '08

Author: ehuelsmann Date: Wed Jul 30 18:57:42 2008 New Revision: 408 Modified: usocket/trunk/backend/sbcl.lisp Log: Revert too much added in the last commit. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Wed Jul 30 18:57:42 2008 @@ -61,9 +61,6 @@ "#define CONS(x, y) make_cons((x), (y))" "#define MAKE_INTEGER(x) make_integer((x))") - (defconstant sb-bsd-sockets::sockopt-tcp-nodelay (sockopt-tcp-nodelay)) - (export sb-bsd-sockets::sockopt-tcp-nodelay) - (defun fd-setsize () (ffi:c-inline () () :fixnum "FD_SETSIZE" :one-liner t))

1 0

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

31 Jul '08

Author: ehuelsmann Date: Wed Jul 30 18:56:07 2008 New Revision: 407 Modified: usocket/trunk/backend/sbcl.lisp Log: Fix SBCL and ECL compilation. Modified: usocket/trunk/backend/sbcl.lisp ============================================================================== --- usocket/trunk/backend/sbcl.lisp (original) +++ usocket/trunk/backend/sbcl.lisp Wed Jul 30 18:56:07 2008 @@ -37,6 +37,7 @@ #+ecl (progn + #-:wsock (ffi:clines "#include <errno.h>" @@ -60,6 +61,9 @@ "#define CONS(x, y) make_cons((x), (y))" "#define MAKE_INTEGER(x) make_integer((x))") + (defconstant sb-bsd-sockets::sockopt-tcp-nodelay (sockopt-tcp-nodelay)) + (export sb-bsd-sockets::sockopt-tcp-nodelay) + (defun fd-setsize () (ffi:c-inline () () :fixnum "FD_SETSIZE" :one-liner t)) @@ -204,6 +208,9 @@ local-host local-port) (when deadline (unsupported 'deadline 'socket-connect)) (when timeout (unsupported 'timeout 'socket-connect)) + (when (and nodelay-specified + (not (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay))) + (unsupported 'nodelay 'socket-connect)) (let* ((socket (make-instance 'sb-bsd-sockets:inet-socket :type :stream :protocol :tcp)) @@ -215,11 +222,14 @@ ;;###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 + (when (and nodelay-specified + (fboundp 'sb-bsd-sockets::sockopt-tcp-nodelay)) (setf (sb-bsd-sockets:sockopt-tcp-nodelay socket) nodelay)) (when (or local-host local-port) - (sb-bsd-sockets:bind socket (host-to-vector-quad (or local-host *wildcard-host*)) - (or local-port *auto-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) (sb-bsd-sockets:socket-connect socket ip port)) usocket))

1 0

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

30 Jul '08

Author: ehuelsmann Date: Wed Jul 30 16:56:49 2008 New Revision: 406 Modified: usocket/trunk/backend/lispworks.lisp Log: Fix LispWorks local-host/-port. Modified: usocket/trunk/backend/lispworks.lisp ============================================================================== --- usocket/trunk/backend/lispworks.lisp (original) +++ usocket/trunk/backend/lispworks.lisp Wed Jul 30 16:56:49 2008 @@ -74,17 +74,18 @@ (raise-usock-err errno socket condition))))) (defun socket-connect (host port &key (element-type 'base-char) - timeout deadline (nodelay t nodelay-specified)) + timeout deadline (nodelay t nodelay-specified) + local-host local-port) (declare (ignorable nodelay)) (when timeout (unimplemented 'timeout 'socket-connect)) - (when deadline (unsupported 'deadline 'socket-connect "LispWorks 5.1")) + (when deadline (unsupported 'deadline 'socket-connect :minimum "LispWorks 5.1")) #+(and (not lispworks4) (not lispworks5.0)) (when nodelay-specified (unimplemented 'nodelay 'socket-connect)) #+lispworks4 (when (or local-host local-port) - (unsupported 'local-host 'socket-connect "LispWorks 5.0+ (verified)") - (unsupported 'local-port 'socket-connect "LispWorks 5.0+ (verified)")) + (unsupported 'local-host 'socket-connect :minimum "LispWorks 5.0+ (verified)") + (unsupported 'local-port 'socket-connect :minimum "LispWorks 5.0+ (verified)")) (let ((hostname (host-to-hostname host)) (stream)) @@ -110,9 +111,9 @@ (backlog 5) (element-type 'base-char)) #+lispworks4.1 - (unsupported 'host 'socket-listen "LispWorks 4.0 or newer than 4.1") + (unsupported 'host 'socket-listen :minimum "LispWorks 4.0 or newer than 4.1") #+lispworks4.1 - (unsupported 'backlog 'socket-listen "LispWorks 4.0 or newer than 4.1") + (unsupported 'backlog 'socket-listen :minimum "LispWorks 4.0 or newer than 4.1") (let* ((reuseaddress (if reuse-address-supplied-p reuse-address reuseaddress)) (comm::*use_so_reuseaddr* reuseaddress)

1 0

← Newer
1
...
26
27
28
29
30
31
32
...
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