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



(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\316\317&\207" [custom-declare-group netrc nil "Netrc configuration." :group comm custom-declare-variable netrc-file funcall function #[0 "\300\207" ["~/.authinfo"] 1 ""] "File where user credentials are stored." :version "24.1" :type file] 8)
#@32 The name of the services file.
(defvar netrc-services-file "/etc/services" (#$ . 404))
(defvar netrc-cache nil)
#@79 Parse FILE and return a list of all entries in the file.

(fn &optional FILE)
(defalias 'netrc-parse #[256 "\211\204\262
\211<\203
\207\302
!\205
\303\304\305\"r\211q\210\306\307\"\216\310\311\211\211\211	\203C	@\312!\313
8\262
\232\203C\314\315	A!!c\210\202a\316!\210\317\320\"\203a\312!\313
8\262
\315\321\322 !!Beb\210m\204
`\323 }\210m\204\354\324\311w\210\311f\325=\203\202db\210\202mm\204mg\326U\203\222\327p!\202\231`\330\311w\210`{\262\331\232\203\267~\210\332y\333U\203\260\334\335!\204\243``}\210\202m\235\203\331\211\203\322\211A\204\315\211@\336\232\203\322\211B\262C\262
\202m\211\203m\211\241\210\211B\262\311\262
\202m\203\366\237B\262\311\262\311\262
~\210\332y\210\202d
\237\266\205*\262
\207" [netrc-file netrc-cache file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] ("machine" "default" "login" "password" "account" "macdef" "force" "port") nil file-attributes 5 base64-decode-string rot13-string insert-file-contents string-match "\\.gpg\\'" base64-encode-string buffer-string point-at-eol "	 " 35 34 read "^	 " "macdef" 1 0 looking-at "$" "default"] 11 (#$ . 522) "fFile to Parse: "])
#@237 Return the netrc values from LIST for MACHINE or for the default entry.
If PORT specified, only return entries with matching port tokens.
Entries without port tokens default to DEFAULTPORT.

(fn LIST MACHINE &optional PORT DEFAULTPORT)
(defalias 'netrc-machine #[1026 "\300\203\301\302@\"A\232\203@
B\262
A\262\202\211\204F
\203F\301\303@\"\203?
@\304\301\303\"\"\262
\211B\266\202
A\262\202#\211\205}\211\237\262
\204U\211@\207\211\203{\305\206c\206c\306\307@\310\"\206p\206p\"\204{\211A\262
\202U\211@\207" [nil assoc "machine" "default" delete netrc-port-equal "nntp" netrc-get "port"] 11 (#$ . 1765)])
#@312 Get the user name or password according to MODE from AUTHINFO-FILE-OR-LIST.
Matches a machine from MACHINES and a port from PORTS, giving
default ports DEFAULTS to `netrc-machine'.

MODE can be "login" or "password", suitable for passing to
`netrc-get'.

(fn MODE AUTHINFO-FILE-OR-LIST MACHINES PORTS DEFAULTS)
(defalias 'netrc-machine-user-or-password #[1285 ";\203\300!\202\f\206\301\206\302\303<\203-\304\305\306	%\n\"\207\211\203q\211@\211\203i\211@\211\203a\211@\307\n$\310
\"\206W\262\210
A\266\202\202>\210
A\266\202\2026\210
A\266\202\202/\210\207" [netrc-parse (nil) (nil) nil mapcar make-closure #[257 "\304
\301\300\302\303%\207" [V0 V1 V2 V3 netrc-machine-user-or-password] 7 "\n\n(fn MODE-ELEMENT)"] netrc-machine netrc-get] 20 (#$ . 2416)])
#@61 Return the value of token TYPE from ALIST.

(fn ALIST TYPE)
(defalias 'netrc-get #[514 "\300
\"A\207" [assoc] 5 (#$ . 3223)])
#@20 

(fn PORT1 PORT2)
(defalias 'netrc-port-equal #[514 "
\247\203\300!\206\f
\262\211\247\203\300
!\206\211\262


\232\207" [netrc-find-service-name] 4 (#$ . 3356)])
(defalias 'netrc-parse-services #[0 "\301!\205Q\302\303\304\305\"r\211q\210\306\307\"\216\310!\210\311\312\302\305#\203)`S\313 |\210\202eb\210\314\315\302\305#\203J\316\317!\320\316\321!!\322\316\323!\227!EB\262\202,
\237*\262
\262
\207" [netrc-services-file file-exists-p nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents search-forward "#" point-at-eol re-search-forward "^ *\\([^ \n	]+\\)[ 	]+\\([0-9]+\\)/\\([^ 	\n]+\\)" match-string 1 string-to-number 2 intern 3] 7])
#@30 

(fn NUMBER &optional TYPE)
(defalias 'netrc-find-service-name #[513 "\300 \301\206\302\262
\211A\262\242\211\262\203'
A@U\203\n
AA@=\203\n\211@\207" [netrc-parse-services nil tcp] 6 (#$ . 4106)])
#@149 Return a user name/password pair.
Port specifications will be prioritized in the order they are
listed in the PORTS list.

(fn MACHINE &rest PORTS)
(defalias 'netrc-credentials #[385 "\300 \301\204\302\"\262
\202'\203'\211\204'\302\211A\262\242#\262
\202\211\2056\303\304\"A\303\305\"AD\207" [netrc-parse nil netrc-machine assoc "login" "password"] 9 (#$ . 4322)])
(provide 'netrc)