#:ipnet-pretty #:ipnet-string #:ipnet-broadcast #:ipnet-hosts
#:ipnet-host #:ipaddr-networkp #:ipnet-subnetp
#:ipnet-changeable-bytes
- #:host-find# #:host-create #:defhost #:parse-ipaddr
+ #:host-find #:host-create #:defhost #:parse-ipaddr
#:resolve-hostname #:canonify-hostname
#:net #:net-find #:net-get-as-ipnet #:net-create #:defnet
#:net-next-host #:net-host))
;;;--------------------------------------------------------------------------
;;; Name resolution.
-#+cmu
(defun resolve-hostname (name)
"Resolve a hostname to an IP address using the DNS, or return nil."
- (let ((he (ext:lookup-host-entry name)))
- (and he
- (ext:host-entry-addr he))))
+ #+cmu (let ((he (ext:lookup-host-entry name)))
+ (and he
+ (ext:host-entry-addr he)))
+ #-cmu nil
+)
-#+cmu
(defun canonify-hostname (name)
"Resolve a hostname to canonical form using the DNS, or return nil."
- (let ((he (ext:lookup-host-entry name)))
- (and he
- (ext:host-entry-name he))))
+ #+cmu (let ((he (ext:lookup-host-entry name)))
+ (and he
+ (ext:host-entry-name he)))
+ #-cmu nil)
;;;--------------------------------------------------------------------------
;;; Host names and specifiers.