Changeset 10991 for trunk/j/src/org/armedbear/lisp/socket.lisp

Timestamp:

02/14/06 02:30:42 (18 years ago)

Author:

piso

Message:

Socket extensions (Erik Huelsmann).

File:

• trunk/j/src/org/armedbear/lisp/socket.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/socket.lisp

@@ -1 +1 @@
 ;;; socket.lisp
 ;;;
-;;; Copyright (C) 2004 Peter Graves
-;;; $Id: socket.lisp,v 1.2 2004-08-03 16:47:00 piso Exp $
+;;; Copyright (C) 2004-2006 Peter Graves
+;;; $Id: socket.lisp,v 1.3 2006-02-14 02:30:19 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -45 +45 @@
   (%server-socket-close socket))
 
+(declaim (inline %socket-address %socket-port))
+(defun %socket-address (socket addressName)
+   (java:jcall "getHostAddress" (java:jcall-raw addressName socket)))
+
+(defun %socket-port (socket portName)
+   (java:jcall portName socket))
+
+(defun socket-local-address (socket)
+   "Returns the local address of the given socket as a dotted quad string."
+   (%socket-address socket "getLocalAddress"))
+
+(defun socket-peer-address (socket)
+   "Returns the peer address of the given socket as a dotted quad string."
+   (%socket-address socket "getInetAddress"))
+
+(defun socket-local-port (socket)
+   "Returns the local port number of the given socket."
+   (%socket-port socket "getLocalPort"))
+
+(defun socket-peer-port (socket)
+   "Returns the peer port number of the given socket."
+   (%socket-port socket "getPort"))
+
 (provide '#:socket)