From 16115331c41e240fa35a152fef6d78098fb6135a Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Fri, 29 Jun 2007 17:25:43 +0200 Subject: [PATCH] API CHANGE: renamed SOCKET-ADDRESS to LOCAL-ADDRESS and SOCKET-PORT to LOCAL-PORT, added REMOTE-ADDRESS and REMOTE-PORT. Signed-off-by: Stelian Ionescu --- sockets/pkgdcl.lisp | 4 +++- sockets/socket-methods.lisp | 10 ++++++++-- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/sockets/pkgdcl.lisp b/sockets/pkgdcl.lisp index 718de25..7be506f 100644 --- a/sockets/pkgdcl.lisp +++ b/sockets/pkgdcl.lisp @@ -101,7 +101,9 @@ #:socket-fd #:socket-address #:socket-family #:socket-protocol #:get-socket-option #:set-socket-option #:socket-type #:create-socket #:make-socket #:with-socket - #:socket-open-p #:local-name #:remote-name + #:socket-open-p + #:local-name #:local-address #:local-port + #:remote-name #:remote-address #:remote-port #:bind-address #:socket-listen #:accept-connection #:connect #:disconnect #:socket-connected-p #:shutdown #:socket-send #:socket-receive diff --git a/sockets/socket-methods.lisp b/sockets/socket-methods.lisp index 03b04ce..2011385 100644 --- a/sockets/socket-methods.lisp +++ b/sockets/socket-methods.lisp @@ -225,10 +225,10 @@ (et:getsockname (fd-of socket) ss size)) (sockaddr-storage->sockaddr ss)))) -(defmethod socket-address ((socket socket)) +(defmethod local-address ((socket socket)) (nth-value 0 (local-name socket))) -(defmethod socket-port ((socket internet-socket)) +(defmethod local-port ((socket internet-socket)) (nth-value 1 (local-name socket))) @@ -244,6 +244,12 @@ (et:getpeername (fd-of socket) ss size)) (sockaddr-storage->sockaddr ss)))) +(defmethod remote-address ((socket socket)) + (nth-value 0 (remote-name socket))) + +(defmethod remote-port ((socket internet-socket)) + (nth-value 1 (remote-name socket))) + ;;;;;;;;;;;; ;; BIND ;; -- 2.11.4.GIT