[config.git] / djavu-asus / elpa / srv-20180715.1959 / srv.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.


(require 'dns)
#@400 Perform SRV lookup of TARGET and return list of connection candidiates.
TARGET is a string of the form "_Service._Proto.Name".

Returns a list with elements of the form (HOST . PORT), where HOST is
a hostname and PORT is a numeric port.  The caller is supposed to
make connection attempts in the order given, starting from the beginning
of the list.  The list is empty if no SRV records were found.\1f
(defalias 'srv-lookup #[(target) "\306\b!\19\307\310\302	\236A@\"\1a\311\211\e\1c\n?\206%\0\nG\312=\205%\0\300\n@\236A@\313\230?\205\r\ 1\n\311\1d\211\1e\16\203h\0\ e\16@\15\314\r\236A@\211\1e\f\v\236\211\1e\17\203V\0\ e\17\211\1e\18\r\ e\18AB\241\210)\202^\0\ e\f\rCB\vB\13*\ e\16A\211\16\16\2042\0*\315\v\316\"\211\13\311\1e\19\211\1e\16\203\a\ 1\ e\16@\16\19\317\311\1e\1a\1e\e\ e\19A\311\1d\211\1e\16\203\255\0\ e\16@\15\ e\e\320\r\236A@\\\211\16\e\rB\ e\1aB\16\1a\ e\16A\211\16\16\204\216\0*\ e\1a\237\16\1a\ e\1a\203\375\0\321\ e\eT!\1e\1c\3222\352\0\ e\1a\311\1d\211\1e\16\205\350\0\ e\16@\211\15@\ e\1cY\203\336\0\323\322\r\"\210\ e\16A\211\16\16\204\315\0\311*0\211\1e\1dA\fB\14\324\ e\1d\ e\1a\"\16\1a*\202\263\0*\ e\16A\211\16\16\204x\0*\307\325\f\237\",\207" [target result answers answers-by-priority weighted-result a srv--dns-query mapcar #[(a) "\301\b\236A@\207" [a data] 2] nil 1 "." priority sort #[(a b) "\b@	@W\207" [a b] 2] 0 weight random --cl-block-nil-- throw delq #[(a) "\301\b\236A@\302\b\236A@B\207" [a target port] 3] --dolist-tail-- entry #1=#:v p weight-order weight-acc r next-entry] 5 (#$ . 100)])
#@105 Perform DNS query for TARGET.
On Windows, call `srv--nslookup'; on all other systems, call `dns-query'.\1f
(defalias 'srv--dns-query #[(target) "\301\302\303\"\203\r\0\304\b\305\306#\207\307\b!\207" [target featurep make-network-process (:type datagram) dns-query SRV t srv--nslookup] 4 (#$ . 1416)])
#@62 Call the `nslookup' program to make an SRV query for TARGET.\1f
(defalias 'srv--nslookup #[(target) "\303\304\305\"\18r\bq\210\306\216\307\310\311\305\311\312	&\ 6\210eb\210\311\1a\313\314\311\305#\203F\0\315\316\317\320\321!!D\322\317\320\323!!D\324\317\320\325!!D\301\320\326!DFDC\nB\12\202\1a\0\327\n,DC\207" [#1=#:temp-buffer target results generate-new-buffer " *temp*" t #[nil "\301\b!\205	\0\302\b!\207" [#1# buffer-name kill-buffer] 2] call-process "nslookup" nil "-type=srv" search-forward-regexp "[ 	]*priority += \\(.*\\)\r?\n[ 	]*weight += \\(.*\\)\r?\n[ 	]*port += \\(.*\\)\r?\n[ 	]*svr hostname += \\(.*\\)\r?\n" data priority string-to-number match-string 1 weight 2 port 3 4 answers] 7 (#$ . 1716)])
(provide 'srv)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(require 'dns)
	9	#@400 Perform SRV lookup of TARGET and return list of connection candidiates.
	10	TARGET is a string of the form "_Service._Proto.Name".
	11
	12	Returns a list with elements of the form (HOST . PORT), where HOST is
	13	a hostname and PORT is a numeric port. The caller is supposed to
	14	make connection attempts in the order given, starting from the beginning
	15	of the list. The list is empty if no SRV records were found.\1f
	16	(defalias 'srv-lookup #[(target) "\306\b!\19\307\310\302 \236A@\"\1a\311\211\e\1c\n?\206%\0\nG\312=\205%\0\300\n@\236A@\313\230?\205\r\ 1\n\311\1d\211\1e\16\203h\0\ e\16@\15\314\r\236A@\211\1e\f\v\236\211\1e\17\203V\0\ e\17\211\1e\18\r\ e\18AB\241\210)\202^\0\ e\f\rCB\vB\13\ e\16A\211\16\16\2042\0\315\v\316\"\211\13\311\1e\19\211\1e\16\203\a\ 1\ e\16@\16\19\317\311\1e\1a\1e\e\ e\19A\311\1d\211\1e\16\203\255\0\ e\16@\15\ e\e\320\r\236A@\\\211\16\e\rB\ e\1aB\16\1a\ e\16A\211\16\16\204\216\0\ e\1a\237\16\1a\ e\1a\203\375\0\321\ e\eT!\1e\1c\3222\352\0\ e\1a\311\1d\211\1e\16\205\350\0\ e\16@\211\15@\ e\1cY\203\336\0\323\322\r\"\210\ e\16A\211\16\16\204\315\0\3110\211\1e\1dA\fB\14\324\ e\1d\ e\1a\"\16\1a\202\263\0\ e\16A\211\16\16\204x\0*\307\325\f\237\",\207" [target result answers answers-by-priority weighted-result a srv--dns-query mapcar #[(a) "\301\b\236A@\207" [a data] 2] nil 1 "." priority sort #[(a b) "\b@ @W\207" [a b] 2] 0 weight random --cl-block-nil-- throw delq #[(a) "\301\b\236A@\302\b\236A@B\207" [a target port] 3] --dolist-tail-- entry #1=#:v p weight-order weight-acc r next-entry] 5 (#$ . 100)])
	17	#@105 Perform DNS query for TARGET.
	18	On Windows, call `srv--nslookup'; on all other systems, call `dns-query'.\1f
	19	(defalias 'srv--dns-query #[(target) "\301\302\303\"\203\r\0\304\b\305\306#\207\307\b!\207" [target featurep make-network-process (:type datagram) dns-query SRV t srv--nslookup] 4 (#$ . 1416)])
	20	#@62 Call the `nslookup' program to make an SRV query for TARGET.\1f
	21	(defalias 'srv--nslookup #[(target) "\303\304\305\"\18r\bq\210\306\216\307\310\311\305\311\312 &\ 6\210eb\210\311\1a\313\314\311\305#\203F\0\315\316\317\320\321!!D\322\317\320\323!!D\324\317\320\325!!D\301\320\326!DFDC\nB\12\202\1a\0\327\n,DC\207" [#1=#:temp-buffer target results generate-new-buffer " temp" t #[nil "\301\b!\205 \0\302\b!\207" [#1# buffer-name kill-buffer] 2] call-process "nslookup" nil "-type=srv" search-forward-regexp "[ ]priority += \\(.\\)\r?\n[ ]weight += \\(.\\)\r?\n[ ]port += \\(.\\)\r?\n[ ]svr hostname += \\(.\\)\r?\n" data priority string-to-number match-string 1 weight 2 port 3 4 answers] 7 (#$ . 1716)])
	22	(provide 'srv)