[usocket-cvs] r163 - in usocket/trunk: . backend

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Jan 16 18:05:29 2007
New Revision: 163

Modified:
   usocket/trunk/backend/openmcl.lisp
   usocket/trunk/usocket.lisp
Log:
Implement DNS query functions for OpenMCL.

Modified: usocket/trunk/backend/openmcl.lisp
==============================================================================
--- usocket/trunk/backend/openmcl.lisp	(original)
+++ usocket/trunk/backend/openmcl.lisp	Tue Jan 16 18:05:29 2007
@@ -89,3 +89,12 @@
 (defmethod get-peer-name ((usocket usocket))
   (values (get-peer-address usocket)
           (get-peer-port usocket)))
+
+(defun get-host-by-address (address)
+  (with-mapped-conditions ()
+     (openmcl-socket:ipaddr-to-hostname (host-to-hbo address))))
+
+(defun get-hosts-by-name (name)
+  (with-mapped-conditions ()
+     (list (hbo-to-vector-quad (openmcl-socket:lookup-hostname
+                                (host-to-hostname name))))))

Modified: usocket/trunk/usocket.lisp
==============================================================================
--- usocket/trunk/usocket.lisp	(original)
+++ usocket/trunk/usocket.lisp	Tue Jan 16 18:05:29 2007
@@ -177,7 +177,7 @@
 ;; DNS helper functions
 ;;
 
-#-(or clisp openmcl armedbear)
+#-(or clisp armedbear)
 (progn
   (defun get-host-by-name (name)
     (let ((hosts (get-hosts-by-name name)))