scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make resolve.conf-parse-error a condition.

This commit is contained in:
mainzelm 2003-02-10 10:48:46 +00:00
parent ceb481fc10
commit 183cf60bb7
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/lib/dns.scm
View File

@ -1077,6 +1077,9 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Parsing of /etc/resolv.conf ;; Parsing of /etc/resolv.conf
(define-condition-type 'resolv.conf-parse-error '(dns-error))
(define resolv.conf-parse-error? (condition-predicate 'resolv.conf-parse-error))
(define (parse-nameserver rest-of-line) (define (parse-nameserver rest-of-line)
(let ((match (regexp-search (let ((match (regexp-search
(rx (: (submatch (** 1 3 digit) "." (rx (: (submatch (** 1 3 digit) "."