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

+ removed conditions for invalid type and class 

+ querytype -> query-type
This commit is contained in:
mainzelm 2003-01-21 14:33:54 +00:00
parent 3943e5da49
commit 0c0c27dcb5
1 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
scheme/lib/dns.scm
View File

@ -91,12 +91,6 @@
(define-condition-type 'dns-error '(error)) (define-condition-type 'dns-error '(error))
(define dns-error? (condition-predicate 'dns-error)) (define dns-error? (condition-predicate 'dns-error))
(define-condition-type 'invalid-type '(dns-error))
(define invalid-type? (condition-predicate 'invalid-type))
(define-condition-type 'invalid-class '(dns-error))
(define invalid-class? (condition-predicate 'invalid-class))
(define-condition-type 'parse-error '(dns-error)) (define-condition-type 'parse-error '(dns-error))
(define parse-error? (condition-predicate 'parse)) (define parse-error? (condition-predicate 'parse))
@ -145,10 +139,6 @@
(string-append (string-append
"dns-error: " "dns-error: "
(case condition (case condition
((invalid-type)
"make-octet-question: invalid DNS query type")
((invalid-class)
"make-octet-question: invalid DNS query class")
((parse-error) ((parse-error)
"parse: error parsing server message") "parse: error parsing server message")
((unexpected-eof-from-server) ((unexpected-eof-from-server)
@ -460,11 +450,6 @@
;; makes a question (name, type, class) ;; makes a question (name, type, class)
(define (make-octet-question name type class) (define (make-octet-question name type class)
(if (not (message-type? type))
(dns-error 'invalid-type type))
(if (not (message-class? class))
(dns-error 'invalid-class))
(let* ((qname (name->octets name)) (let* ((qname (name->octets name))
(qtype (number->octet-pair (message-type-number type))) (qtype (number->octet-pair (message-type-number type)))
(qclass (number->octet-pair (message-class-number class)))) (qclass (number->octet-pair (message-class-number class))))
@ -530,7 +515,7 @@
(make-flags querytype opcode authoritative? truncated? recursion-desired? (make-flags querytype opcode authoritative? truncated? recursion-desired?
recursion-available? zero response-code) recursion-available? zero response-code)
flags? flags?
(querytype flags-querytype) (query-type flags-query-type)
(opcode flags-opcode) (opcode flags-opcode)
(authoritative? flags-authoritative?) (authoritative? flags-authoritative?)
(truncated? flags-truncated?) (truncated? flags-truncated?)