s c h e m a t i c s : c o o k b o o k

(require (lib "pregexp.ss" "mzlib")
         (lib "dns.ss" "net"))

(define commented-regexp
  (pregexp
    "((?x:             ; Ignore whitespace
       (?x:            ; Capture the inet address
        (?! [\\-_] )   ; don't lookahead for underscore/dash
        [\\w\\-] +     ; hostname component
        \\.            ; dot
       )+              ; repeat a few times
       [A-Za-z]        ; ... followed by a letter
       [\\w\\-] +      ; and trailing domain part
     ))"))

(define (make-detailed-name name)
  (let* ((addr (dns-get-address "ns1.granitecanyon.com" name))
        (replace (string-append "\\1 [" addr "]")))
    (pregexp-replace commented-regexp name replace)))

> (make-detailed-name "alpha.gnu.org")
"alpha.gnu.org [199.232.41.11]"
>