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)))