s c h e m e w i k i . o r g

This Web

All Webs

Schematics

Offsite Links

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