%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/net/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/net/netrc.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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" (#$ . 687))
(defvar netrc-cache nil)
#@58 Parse FILE and return a list of all entries in the file.
(defalias 'netrc-parse #[(&optional file) "\204	<\203
\207\306!\205\f\307\310!r\nq\210\311\216\312\313\211\211\211!\"#\203I#@\314!\3158\262\232\203I\316\317#A!!c\210\202e\320!\210\321\322\"\203e\314!\3158\262\317\323\324 !!B#eb\210m\204`\325 }\210m\204\360\326\313w\210\313f\327=\203\206db\210\202qm\204qg\330U\203\226\331p!\202\235`\332\313w\210`{\211\333\232\203\272~\210\334y\335U\203\263\336\337!\204\246``}\210\202q
\"\235\203\335\203\327A\204\321@\340\232\203\327!B!
C\202q\203q
\241\210!B!\313\202q!\203\373!\237\fB\313\211!~\210\334y\210\202h\f\237.\207" [file netrc-file #1=#:temp-buffer pair result elem file-exists-p generate-new-buffer " *temp*" #[nil "\301!\205	\302!\207" [#1# 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" alist tokens netrc-cache] 6 (#$ . 805) "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	\204H\n\203H\307\311\n@\"\203@\n@\312\307\311\f\"\f\"\211	B)\n\211A\210\202$	\205\203	\237
\204X	@\202\203	\203\201\313
\206g\206g\314\315	@\316\"\206u\206u
\"\204\201	\211A\210\202X	@*\207" [list result rest machine elem port nil assoc "machine" "default" delete netrc-port-equal "nntp" netrc-get "port" defaultport] 6 (#$ . 2009)])
#@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 (#$ . 2695)])
#@44 Return the value of token TYPE from ALIST.
(defalias 'netrc-get #[(alist type) "\302	\"A\207" [type alist assoc] 3 (#$ . 3614)])
(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*" #[nil "\301!\205	\302!\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) "\304 \305\n\206\n\306	\211A\242\211\203&A@U\203\nAA@=\203@*\207" [service services type number netrc-parse-services nil tcp] 2])
#@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\242#\202\2055\307\310\"A\307\311\"AD*\207" [found list ports machine netrc-parse nil netrc-machine assoc "login" "password"] 5 (#$ . 4664)])
(provide 'netrc)

Zerion Mini Shell 1.0