HOME

Mini Shell 1.0
DIR:/proc/self/root/usr/share/emacs/26.1/lisp/net/
Current File : //proc/self/root/usr/share/emacs/26.1/lisp/net/dns.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@50 How many seconds to wait when doing DNS queries.
(defvar dns-timeout 5 (#$ . 408))
#@88 List of DNS servers to query.
If nil, /etc/resolv.conf and nslookup will be consulted.
(defvar dns-servers nil (#$ . 497))
#@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 (#$ . 627))
#@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)) (#$ . 937))
#@21 Classes of queries.
(defvar dns-classes '((IN 1) (CS 2) (CH 3) (HS 4)) (#$ . 1216))
(defalias 'dns-write-bytes #[(value &optional length) "\306	\206\307\310\nW\203!\f\311\246B\f\311\245\nT\211\202*\306\211\n\205<\n@\211c\210\nA\211\n\204+\306+\207" [bytes length i --dotimes-limit-- value byte nil 1 0 256 --dolist-tail--] 3])
(defalias 'dns-read-bytes #[(length) "\304	\304\nW\203\305\306_g\"\307u\210\nT\211\202*)\207" [value length i --dotimes-limit-- 0 logior 256 1] 4])
(defalias 'dns-get #[(type spec) "	\236A@\207" [type spec] 2])
(defalias 'dns-inverse-get #[(value spec) "\303\204#	\203#\n	@A@=\203	@@\211\202	\211A\210\202)\207" [found spec value nil] 3])
(defalias 'dns-write-name #[(name) "\303\304\"\305\211\203\n@\306	G!\210	c\210\nA\211\204*\306\307!\207" [name part --dolist-tail-- split-string "\\." nil dns-write-bytes 0] 4])
(defalias 'dns-read-string-name #[(string buffer) "\303\304!rq\210\305\216\306\307!\210	c\210eb\210\310\n!+\207" [#1=#:temp-buffer string buffer generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil dns-read-name] 2])
(defalias 'dns-read-name #[(&optional buffer) "\305\211\211\n\204Q\306\307!\310\311\312\313\"\"\314U\2039\310\315\"\316_\306\307!\\\212\f\203-\fq\210Tb\210\317\f!*\202\320U\203E\321\211\202`u\210`{	B\202\n;\203j	\204^\n\202p\322\323	\237\324#\324\nQ\202p\322\323	\237\324#+\207" [length name ended offset buffer nil dns-read-bytes 1 logand lsh 3 6 192 63 256 dns-read-name 0 t mapconcat identity "."] 6])
#@110 Write a DNS packet according to SPEC.
If TCP-P, the first two bytes of the package with be the length field.
(defalias 'dns-write #[(spec &optional tcp-p) "\306\307!rq\210\310\216\311\312!\210\313\314\315	\"\316\"\210\313\317\320\314\321	\"\203$\322\202%\323\324\"\320\314\325	\"\302=\2035\323\202V\314\325	\"\326=\203B\322\202V\314\325	\"\327=\203O\316\202V\330\331\314\325	\"\"\332\"\320\314\333	\"\203d\322\202e\323\334\"\320\314\335	\"\203s\322\202t\323\336\"\320\314\337	\"\203\202\322\202\203\323\323\"%!\210\313\314\340	\"\341=\203\226\323\202\330\314\340	\"\342=\203\243\322\202\330\314\340	\"\343=\203\260\316\202\330\314\340	\"\344=\203\275\345\202\330\314\340	\"\346=\203\312\347\202\330\314\340	\"\350=\203\327\351\202\330\323!\210\313\314\352	\"G\316\"\210\313\314\353	\"G\316\"\210\313\314\354	\"G\316\"\210\313\314\355	\"G\316\"\210\314\352	\"\312\211\2038@\356\n@!\210\313\314\357\n\"\206\360\f\236A@\316\"\210\313\314\361\n\"\206*\362
\236A@\316\"\210A\211\204	*\363\3128\211\203\240@8\3148	\"\3129\211\203\230@9\3569@!\210\313\314\3579\"\f\236A@\316\"\210\313\314\3619\"
\236A@\316\"\210\313\314\3649\"\347\"\210\313\314\3659\"G\316\"\210\314\3659\"c\210A\211\204S*A\211\204B*:\203\257eb\210\313\366 \316\"\210\367 +\207" [#1=#:temp-buffer spec query --dolist-tail-- dns-query-types dns-classes generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil dns-write-bytes dns-get id 2 logior lsh response-p 1 0 -7 opcode inverse-query status error "No such opcode: %s" -3 authoritative-p -2 truncated-p -1 recursion-desired-p response-code no-error format-error server-failure name-error 3 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 slot resource tcp-p] 11 (#$ . 2841)])
(defalias 'dns-read #[(packet) "\306\307!rq\210\310\216\311\312!\210\312\211\211\211\2110c\210eb\210\313\314\315!D
B\314\316!1\317\3201\321\316\322\"\"\323U?\205<\324D
B\3201\321\322\325\"\"\326\327\267\202^\330\202_\331\202_\332\202_\312D
B)\333\3201\321\316\315\"\"\323U?\205t\324D
B\334\3201\321\316\315\"\"\323U?\205\210\324D
B\335\3201\321\316\323\"\"\323U?\205\234\324D
B)\320\314\316!\336\"2\3372\340\267\202\311\341\202\312\342\202\312\343\202\312\344\202\312\345\202\312\346\202\312\312D
B)\314\315!\314\315!\314\315!\314\315!\3123\f\3234545W\203\347 \350\351\314\315!6\"D\352\351\314\315!7\"DE3B34T\2114\202\352*\3043D
B)\353\3128\2119\203\2239@8\312\211(38J\3234545W\203\200\347 \350\351\314\315!6\"\211(D\352\351\314\315!7\"D\354\314\355!D\314\315!:\356\357`:u\210`{(\")D\2573B34T\2114\202;*83D
B*9A\2119\204&*
\237.\207" [#1=#:temp-buffer additionals authorities answers queries spec generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil id dns-read-bytes 2 1 response-p logand lsh 7 0 t 3 opcode #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 82 1 86 2 90)) query inverse-query status authoritative-p 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 177 1 181 2 185 3 189 4 193 5 197)) no-error format-error server-failure name-error not-implemented refused dns-read-name type dns-inverse-get class (answers authorities additionals) ttl 4 data dns-read-type packet byte rc qs i --dotimes-limit-- dns-query-types dns-classes slot --dolist-tail-- length] 9])
(defalias 'dns-read-int32 #[nil "\300\301\302\303!\304_\302\305!\\\"\207" [format "%.0f" dns-read-bytes 1 16777216.0 3] 5])
(defalias 'dns-read-type #[(string type) "p`\306\307!r\nq\210\310\216\311\312!\210c\210eb\210\f\313=\203H\312\314\315,-,-W\203=\316\317!
B,T\211,\202(*\320\321
\237\322#)\202\355\f\323=\203|\312.\324\315,-,-W\203p\316\325!.B.,T\211,\202Y*\320\326.\237\327#)\202\355\f\330=\203\245\331\332	!D\333\332	!D\334\335 D\336\335 D\337\335 D\340\335 D\341\335 D\257\202\355\f\342=\203\303\343\316\325!D\344\316\325!D\345\316\325!D\346\332	!DF\202\355\f\347=\203\323\316\325!\332	!B\202\355\f\350=\204\345\f\351=\204\345\f\352=\203\354\353	\"\202\355+b\210*\207" [point buffer #1=#:temp-buffer string type bytes generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil A 4 0 dns-read-bytes 1 mapconcat number-to-string "." AAAA 8 2 #[(n) "\301\302\"\207" [n format "%x"] 3] ":" SOA mname dns-read-name rname serial dns-read-int32 refresh retry expire minimum SRV priority weight port target MX CNAME NS PTR dns-read-string-name i --dotimes-limit-- hextets] 9])
#@61 Return false if we need to recheck the list of DNS servers.
(defalias 'dns-servers-up-to-date-p #[nil "\205	\302=\206\303\304!?\206	\304 \232\207" [dns-servers dns-servers-valid-for-interfaces t fboundp network-interface-list] 2 (#$ . 7724)])
#@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 #[nil "\304\305!\2032\306\307\310!r	q\210\311\216\312\305!\210eb\210\313\314\306\315#\203*\316\317!B\202\237\211+\204Y\320\321!\203Y\307\310!r\nq\210\322\216\323\321\306\315\306\324%\210eb\210\313\325\306\315#\210\316\317!C+\326\327!\205c\327 \211\207" [dns-servers #1=#:temp-buffer #2=#:temp-buffer dns-servers-valid-for-interfaces file-exists-p "/etc/resolv.conf" nil generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^nameserver[	 ]+\\([^ 	\n]+\\)" t match-string 1 executable-find "nslookup" #[nil "\301!\205	\302!\207" [#2# buffer-name kill-buffer] 2] call-process "localhost" "^Address:[ 	]*\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" fboundp network-interface-list] 6 (#$ . 7981)])
(defalias 'dns-read-txt #[(string) "G\301V\203\f\301\302O\207\207" [string 1 nil] 3])
(defalias 'dns-get-txt-answer #[(answers) "\306\307\n\307\211\203Q\f@\211\307\211\203I\f@\211:\203B
@\310=\203/
A@\311=\202B
@\312=\203B\203B	\313
A@!P\fA\211\204*\fA\211\204\f*	*\207" [do-next result answers answer --dolist-tail-- elem "" nil type TXT data dns-read-txt] 4])
(defalias 'dns-make-network-process '(macro . #[(server) "\301\300D\302B\303BB\207" [server let ((coding-system-for-read 'binary) (coding-system-for-write 'binary)) ((if (fboundp 'make-network-process) (make-network-process :name "dns" :coding 'binary :buffer (current-buffer) :host server :service "domain" :type 'datagram) (open-network-stream "dns" (current-buffer) server "domain")))] 3]))
(defvar dns-cache (make-vector 4096 0))
(defalias 'dns-query-cached #[(name &optional type fullp reversep) "\306\307	\n%\310\f
\"\211\f\203\311\f!\203\fJ\2022\312	\n$
\313\f
\"
L\210
)*\207" [name type fullp reversep key dns-cache format "%s:%s:%s:%s" intern-soft boundp dns-query intern sym result] 7])
#@119 Query a DNS server for NAME of TYPE.
If FULLP, return the entire record returned.
If REVERSEP, look up an IP address.
(defalias 'dns-query #[(name &optional type fullp reversep) "\206\306\307 \204\310 \210	\203 \311\312\313\n\314\"\237\315#\316P\317\204(\320\321!\207\322\323!r\fq\210\324\216\325\326!\210\3271h@\330\211@A\331\332!\203\\\332\333\334\335\330\336p\337A\340\341\342\343&\f\202c\344\334pA\341$+0\202p\210\320\345@\"\210\326\331\332!?\205x\346\347B\350_\351\352!-CDE\211F\205<\353F\354\355-D\356\357\n\300DDCD\360BBBE\"\"\210\361 \362U\203\317C\362V\203\317\363D\364\245!\210\365F\362D#\210CDZC\202\250\3661\333\367F!0\202\337\210\202\340\210E\203\365\361 \370Y\203\365eb\210``\370\\|\210\361 \370Y\205<C\362V\205<\371\372 !GH\203G\202;\373\374G\"@I\373\300I\"=\205:\375=\2035\376\373\374G\"!\202:\373\377I\")).\207" [type reversep name dns-servers #1=#:temp-buffer coding-system-for-write A dns-servers-up-to-date-p dns-set-servers mapconcat identity split-string "\\." "." ".in-addr.arpa" PTR message "No DNS server configuration found" generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# buffer-name kill-buffer] 2] set-buffer-multibyte nil (error) binary fboundp make-network-process :name "dns" :coding :buffer :host :service "domain" :type datagram open-network-stream "dns: Got an error while trying to talk to %s" t 100 1000 random 65000 process-send-string dns-write id (opcode query) queries ((recursion-desired-p t)) buffer-size 0 sit-for 1000.0 accept-process-output (error) delete-process 2 dns-read buffer-string dns-get answers TXT dns-get-txt-answer data coding-system-for-read server dns-timeout times step tcp-p process result fullp answer] 14 (#$ . 10024)])
(provide 'dns)