;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'cl-lib)
#@50 How many seconds to wait when doing DNS queries.
(defvar dns-timeout 5 (#$ . 102))
#@88 List of DNS servers to query.
If nil, /etc/resolv.conf and nslookup will be consulted.
(defvar dns-servers nil (#$ . 191))
#@248 The return value of `network-interface-list' when `dns-servers' was set.
If the set of network interfaces and/or their IP addresses
change, then presumably the list of DNS servers needs to be
updated.  Set this variable to t to disable the check.
(defvar dns-servers-valid-for-interfaces nil (#$ . 321))
#@40 Names of query types and their values.
(defvar dns-query-types '((A 1) (NS 2) (MD 3) (MF 4) (CNAME 5) (SOA 6) (MB 7) (MG 8) (MR 9) (NULL 10) (WKS 11) (PTR 12) (HINFO 13) (MINFO 14) (MX 15) (TXT 16) (AAAA 28) (SRV 33) (AXFR 252) (MAILB 253) (MAILA 254) (* 255)) (#$ . 631))
#@21 Classes of queries.
(defvar dns-classes '((IN 1) (CS 2) (CH 3) (HS 4)) (#$ . 910))
#@31 

(fn VALUE &optional LENGTH)
(defalias 'dns-write-bytes #[513 "\300
\206\301\302\211W\203\"\300\303\246B\262\303\245\262\210\211T\262
\202\266\211\211\2055\211@\211c\210
A\266\202\202%\207" [nil 1 0 256] 8 (#$ . 999)])
#@15 

(fn LENGTH)
(defalias 'dns-read-bytes #[257 "\300\211\211W\203\301\302\303_g\"\262\304u\266\211T\262
\202\210\207" [0 nil logior 256 1] 7 (#$ . 1239)])
#@18 

(fn TYPE SPEC)
(defalias 'dns-get #[514 "

\236A@\207" [] 4 (#$ . 1407)])
#@19 

(fn VALUE SPEC)
(defalias 'dns-inverse-get #[514 "\300\211\204!
\203!@A@=\203
@@\262
\202

A\262\202
\207" [nil] 5 (#$ . 1489)])
#@13 

(fn NAME)
(defalias 'dns-write-name #[257 "\300
\301\"\211\203\211@\302
G!\210\211c\210
A\266\202\202\210\302\303!\207" [split-string "\\." dns-write-bytes 0] 5 (#$ . 1635)])
#@22 

(fn STRING BUFFER)
(defalias 'dns-read-string-name #[514 "\300\301\302\"r\211q\210\303\304\"\216\305\306!\210c\210eb\210\307!*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil dns-read-name] 6 (#$ . 1822)])
#@25 

(fn &optional BUFFER)
(defalias 'dns-read-name #[256 "\300\211\211\204N\301\302!\262
\303
\304\"\304U\2035\303\305\"\306_\301\302!\\\212\203'q\210\211Tb\210\307!\262)\210\202\211\310U\203A\311\262\202`
u\210`{B\262\202;\203c
\204Y\207\312\313\237\314#\314Q\207\312\313\237\314#\207" [nil dns-read-bytes 1 logand 192 63 256 dns-read-name 0 t mapconcat identity "."] 8 (#$ . 2134)])
#@136 Write a DNS packet according to SPEC.
If TCP-P, the first two bytes of the packet will be the length field.

(fn SPEC &optional TCP-P)
(defalias 'dns-write #[513 "\302\303\304\"r\211q\210\305\306\"\216\307\310!\210\311\312\313\"\314\"\210\311\315\316\312\317\"\203(\320\202)\321\322\"\316\312\323\"\324=\203:\321\202^\312\323\"\325=\203H\320\202^\312\323\"\326=\203V\314\202^\327\330\312\323\n\"\"\331\"\316\312\332	\"\203m\320\202n\321\314\"\316\312\333\n\"\203}\320\202~\321\320\"\316\312\334\"\203\215\320\202\216\321\321\"%!\210\311\312\335\"\336=\203\241\321\202\343\312\335\"\337=\203\256\320\202\343\312\335\"\340=\203\273\314\202\343\312\335\"\341=\203\310\331\202\343\312\335\"\342=\203\325\343\202\343\312\335\"\344=\203\342\345\202\343\321!\210\311\312\346\"G\314\"\210\311\312\347\"G\314\"\210\311\312\350\"G\314\"\210\311\312\351\"G\314\"\210\312\346\"\211\203?
\211@\352
@!\210\311\312\353\"\206!
\354\236A@\314\"\210\311\312\355\"\2061
\356	\236A@\314\"\210
A\266\202\202

\210\357\211\203\225
\211@\312
\"\211\203\215
\211@\352
@!\210\311\312\353\"\236A@\314\"\210\311\312\355\"	\236A@\314\"\210\311\312\360\"\343\"\210\311\312\361\"G\314\"\210\312\361\"c\210
A\266\202\202L
\210
A\266\202\202A
\210
\203\243
eb\210\311\362 \314\"\210\363 *\207" [dns-query-types dns-classes generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil dns-write-bytes dns-get id 2 logior ash response-p 1 0 7 opcode query inverse-query status error "No such opcode: %s" 3 authoritative-p truncated-p recursion-desired-p response-code no-error format-error server-failure name-error not-implemented 4 refused 5 queries answers authorities additionals dns-write-name type A class IN (answers authorities additionals) ttl data buffer-size buffer-string] 13 (#$ . 2550)])
#@31 

(fn PACKET &optional TCP-P)
(defalias 'dns-read #[513 "\302\303\304\"r\211q\210\305\306\"\216\307\310!\210\310\211\211\211\211c\210e\203$\311\202%\312\\b\210\313\314\311!DC\262\314\315!\316\317\320\"\312U?\205?\304DB\262\317
\321\"\322
\323\267\202\\\324\202]\325\202]\326\202]\310DB\262\210\327\317\330\"\312U?\205p\304DB\262\331\317\330\"\312U?\205\202\304DB\262\332\317\315\"\312U?\205\224\304DB\262\210\317\314\315!\333\"\334
\335\267\202\300\336\202\301\337\202\301\340\202\301\341\202\301\342\202\301\343\202\301\310DB\262\210\314\311!\262\314\311!\262\314\311!\262\314\311!\262
\310\312\211W\203
\310\344 \345\346\314\311!\"D\347\346\314\311!	\"DEB\262\210\211T\262
\202\336\210\350
DB\262\210\351D\352D\353DE\310\211\211:\203\206
@\262
\211
A\262\242\262\211@\262\310\211\312\211W\203t
\310\344 \345\346\314\311!\"\211\262D\347\346\314\311!	\"D\354\314\330!D\314\311!\355\356`u\210`{\n\"D\262
\257B\262\210\211T\262
\2024
\210DB\262\266A\262\202
\266\237\266\205*\207" [dns-query-types dns-classes generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil 2 0 id dns-read-bytes 1 response-p logand 128 56 opcode #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 80 1 84 2 88)) query inverse-query status authoritative-p 4 truncated-p recursion-desired-p 15 response-code #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 168 1 172 2 176 3 180 4 184 5 188)) no-error format-error server-failure name-error not-implemented refused dns-read-name type dns-inverse-get class queries answers authorities additionals ttl data dns-read-type] 25 (#$ . 4463)])
(defalias 'dns-read-int32 #[0 "\300\301\302!!\207" [number-to-string dns-read-bytes 4] 3])
(make-obsolete 'dns-read-int32 nil "28.1")
#@20 

(fn STRING TYPE)
(defalias 'dns-read-type #[514 "p`\300\301\302\"r\211q\210\303\304\"\216\305\306!\210c\210eb\210\307\267\202\262\306\310\211\311W\2037\306\312\313!B\262\210\211T\262
\202!\210\314\315\237\316#\262
\202\314\306\310\211\317W\203[\306\312\320!B\262\210\211T\262
\202E\210\314\321\237\322#\262
\202\314\323\324!D\325\324!D\326\312\311!D\327\312\311!D\330\312\311!D\331\312\311!D\332\312\311!D\257\202\314\333\312\320!D\334\312\320!D\335\312\320!D\336\324!DF\202\314\312\320!\324!B\202\314\337=\204\304\340=\204\304\341=\203\313\342\"\202\314*\262

b\210\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte nil #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (A 31 AAAA 67 SOA 103 SRV 143 MX 168)) 0 4 dns-read-bytes 1 mapconcat number-to-string "." 8 2 #[257 "\300\301\"\207" [format "%x"] 4 "\n\n(fn N)"] ":" mname dns-read-name rname serial refresh retry expire minimum priority weight port target CNAME NS PTR dns-read-string-name] 14 (#$ . 6404)])
#@61 Return false if we need to recheck the list of DNS servers.
(defalias 'dns-servers-up-to-date-p #[0 "\205	\302=\206	\303 \232\207" [dns-servers dns-servers-valid-for-interfaces t network-interface-list] 2 (#$ . 7537)])
#@117 Set `dns-servers' to a list of DNS servers or nil if none are found.
Parses "/etc/resolv.conf" or calls "nslookup".
(defalias 'dns-set-servers #[0 "\302\303\304!\2037\305\306\307\"r\211q\210\310\311\"\216\312\304!\210eb\210\313\314\302\307#\203-\315\316!B\202\237\211*\262
\204g\317\320!\203g\305\306\307\"r\211q\210\310\321\"\216\322\320\302\307\302\323\324\325&\210eb\210\313\326\302\307#\203e\315\316!C*\210\327 \211\207" [dns-servers dns-servers-valid-for-interfaces nil file-exists-p "/etc/resolv.conf" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^nameserver[	 ]+\\([^ 	\n]+\\)" match-string 1 executable-find "nslookup" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] call-process "-retry=0" "-timeout=2" "localhost" "^Address:[ 	]*\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\|[[:xdigit:]:]*\\)" network-interface-list] 9 (#$ . 7768)])
#@15 

(fn STRING)
(defalias 'dns-read-txt #[257 "\211G\300V\203\f\211\300\301O\207\207" [1 nil] 4 (#$ . 8754)])
#@16 

(fn ANSWERS)
(defalias 'dns-get-txt-answer #[257 "\300\301\211\203I\211@\211\211\203A\211@\211:\203:\211@\302=\203&\211A@\303=\262\202:\211@\304=\203:\203:\305A@!P\262
A\266\202\202\n\210
A\266\202\202\210
\207" ["" nil type TXT data dns-read-txt] 10 (#$ . 8869)])
(defvar dns-cache (make-vector 4096 0))
#@43 

(fn NAME &optional TYPE FULLP REVERSEP)
(defalias 'dns-query-cached #[1025 "\301\302%\303
\"\211\203\304
!\203\211J\207\305$\306\"
L\210\207" [dns-cache format "%s:%s:%s:%s" intern-soft boundp dns-query intern] 11 (#$ . 9198)])
#@321 Query a DNS server for NAME of TYPE.
CALLBACK will be called with a single parameter: The result.

If there's no result, or `dns-timeout' has passed, CALLBACK will
be called with nil as the parameter.

If FULL, return the entire record.
If REVERSE, look up an IP address.

(fn NAME CALLBACK &optional TYPE FULL REVERSE)
(defalias 'dns-query-asynchronous #[1282 "\206\301\262\302 \204\303 \210\211\203$\304\305\306\307\"\237\310#\311P\262\312\262\204.\313\314!\210\315\207\316$\207" [dns-servers A dns-servers-up-to-date-p dns-set-servers mapconcat identity split-string "\\." "." ".in-addr.arpa" PTR message "No DNS server configuration found" nil dns--lookup] 10 (#$ . 9454)])
#@32 

(fn NAME CALLBACK TYPE FULL)
(defalias 'dns--lookup #[1028 "r\304\305!q\210\306\307!\210\307C\3101A@\311\211\312\313\314\"\2030\313\315\316\317\311\320p\321\322\323\324\325&\f\202:
\326\240\210\327\316p\323$*\262
0\202I\210\330\331@\"\210\307\307Cp\307C\204_\332!\210\307!\266\205\202\262\211\333\307\334\335
\n\n\n%#\240\210\336\337\340\341\342!D\343\344\345DDCD\346BBB\242\"\"\210\347\334\350\n	&\"\210\351\334\352%\"\266\205)\207" [dns-servers coding-system-for-write coding-system-for-read dns-timeout generate-new-buffer " *dns*" set-buffer-multibyte nil (error) binary featurep make-network-process (:type datagram) :name "dns" :coding :buffer :host :service "domain" :type datagram t open-network-stream message "dns: Got an error while trying to talk to %s" kill-buffer run-at-time make-closure #[0 "\302\242?\205\302\304\240\210\305\301!\210\306\303!\210\300\307!\207" [V0 V1 V2 V3 t delete-process kill-buffer nil] 2] process-send-string dns-write id random 65000 (opcode query) queries type ((recursion-desired-p t)) set-process-filter #[514 "r\306!q\210db\210\211c\210eb\210\303\242\203\307 \310\311!Y\205.\304\312\240\210\313\305\242!\210\314\300\301\302\303\242%)\207" [V0 V1 V2 V3 V4 V5 process-buffer buffer-size dns-read-bytes 2 t cancel-timer dns--filter] 8 "\n\n(fn PROCESS STRING)"] set-process-sentinel #[514 "\211\304=\205\301\242?\205\301\305\240\210\306\303\242!\210\307\302!\210\300\310!\207" [V0 V1 V2 V3 deleted t cancel-timer kill-buffer nil] 4 "\n\n(fn _ STATE)"]] 19 (#$ . 10155)])
#@39 

(fn PROCESS CALLBACK TYPE FULL TCP)
(defalias 'dns--filter #[1285 "\300 \301!\203\302!\210\303p!\210\211G\304Y\205N\305
\"\203&
\202K\306\307\"@\306\310\"=\205I\311=\203E\312\306\307\"!\202I\306\313\"\262
!\262
\207" [buffer-string process-live-p delete-process kill-buffer 2 dns-read dns-get answers type TXT dns-get-txt-answer data] 13 (#$ . 11736)])
#@156 Query a DNS server for NAME of TYPE.
If FULL, return the entire record returned.
If REVERSE, look up an IP address.

(fn NAME &optional TYPE FULL REVERSE)
(defalias 'dns-query #[1025 "\300C\301\302\303\"%\211\203
\242\204\304\305!\210\202
\242@\207" [nil dns-query-asynchronous make-closure #[257 "\300
C\240\207" [V0] 3 "\n\n(fn RESPONSE)"] sleep-for 0.01] 11 (#$ . 12121)])
(provide 'dns)