;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:33 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/net/netrc.el
;;; in Emacs version 24.3.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.

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


(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313\314\315\304\301&	\207" [custom-declare-group netrc nil "Netrc configuration." :group comm custom-declare-variable netrc-file "~/.authinfo" "File where user credentials are stored." :version "24.1" :type file] 10)
#@32 The name of the services file.
(defvar netrc-services-file "/etc/services" (#$ . 831))
(defvar netrc-cache nil)
(defalias 'netrc-parse #[(&optional file) "\204	<\203
\207\306!\205
\307\310!r\nq\210\311\216\312\313\211\211\211!\"#\203F#@\314\315!8\232\203F\316\317#A!!c\210\202_\320!\210\321\322\"\203_\314\315!8\317\323\324 !!B#eb\210m\204
`\325 }\210m\204\352\326\313w\210\313f\327=\203\200db\210\202km\204kg\330U\203\220\331p!\202\227`\332\313w\210`{\211\333\232\203\264~\210\334\335y!\203\255\336\337!\204\240``}\210\202k
\"\235\203\327\203\321A\204\313@\340\232\203\321!B!
C\202k\203k
\241\210!B!\313\202k!\203\365!\237\fB\313\211!~\210\335y\210\202b\f\237.\207" [file netrc-file #1=#:temp-buffer pair result elem file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ("machine" "default" "login" "password" "account" "macdef" "force" "port") nil 5 file-attributes base64-decode-string rot13-string insert-file-contents string-match "\\.gpg\\'" base64-encode-string buffer-string point-at-eol "	 " 35 34 read "^	 " "macdef" zerop 1 looking-at "$" "default" alist tokens netrc-cache] 6 nil "fFile to Parse: "])
#@191 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.
(defalias 'netrc-machine #[(list machine &optional port defaultport) "\306\203!\307\310@\"A\232\203@	B\211A@\210\202	\204J\n\203J\307\311\n@\"\203A\n@\312\307\311\f\"\f\"\211	B)\n\211A@\210\202%	\205\206	\237
\204Z	@\202\206	\203\204\313
\206i\206i\314\315	@\316\"\206w\206w
\"\204\204	\211A@\210\202Z	@*\207" [list result rest machine elem port nil assoc "machine" "default" delete netrc-port-equal "nntp" netrc-get "port" defaultport] 6 (#$ . 2090)])
#@255 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'.
(defalias 'netrc-machine-user-or-password #[(mode authinfo-file-or-list machines ports defaults) ";\203\306!\202\f	\206\307\n\206\310\311
<\203(\312\313
\"\202\212\311\211\203\211@\n\311\211\203@	\311\211\203u@\314\f$\315
\"\206j)A\211\204Q*A\211\204B*A\211\2043*,\207" [authinfo-file-or-list ports defaults info authinfo-list mode netrc-parse (nil) (nil) nil mapcar #[(mode-element) "\305	\n\f%\207" [mode-element authinfo-list machines ports defaults netrc-machine-user-or-password] 6] netrc-machine netrc-get machines machine --dolist-tail-- default port alist] 6 (#$ . 2779)])
#@44 Return the value of token TYPE from ALIST.
(defalias 'netrc-get #[(alist type) "\302	\"A\207" [type alist assoc] 3 (#$ . 3698)])
(defalias 'netrc-port-equal #[(port1 port2) "\247\203
\302!\206\f	\247\203\302	!\206		\232\207" [port1 port2 netrc-find-service-name] 2])
(defalias 'netrc-parse-services #[nil "\303!\205J\304\305\306!r\nq\210\307\216\310!\210\311\312\304\313#\203'`S\314 |\210\202eb\210\315\316\304\313#\203G\317\320!\321\317\322!!\323\317\324!\227!E	B\202*	\237,\207" [netrc-services-file services #1=#:temp-buffer file-exists-p nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents search-forward "#" t point-at-eol re-search-forward "^ *\\([^ \n	]+\\)[ 	]+\\([0-9]+\\)/\\([^ 	\n]+\\)" match-string 1 string-to-number 2 intern 3] 5])
(defalias 'netrc-find-service-name #[(number &optional type) "\305 \306\n\206\n\307	\211A@\211\203,\211A@)U\203\n\211AA)@=\203@*\207" [service services type number x netrc-parse-services nil tcp] 3])
#@123 Return a user name/password pair.
Port specifications will be prioritized in the order they are
listed in the PORTS list.
(defalias 'netrc-credentials #[(machine &rest ports) "\304 \305\n\204\306	\"\202&\n\203&\204&\306	\n\211A@#\202\2055\307\310\"A\307\311\"AD*\207" [found list ports machine netrc-parse nil netrc-machine assoc "login" "password"] 5 (#$ . 4775)])
(provide 'netrc)