ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/tramp-cache.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\302\303\304\"\207" [require tramp autoload time-stamp-string "time-stamp"] 3)
#@41 Hash table for remote files properties.
(defvar tramp-cache-data (make-hash-table :test 'equal) (#$ . 514))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\310\315&\207" [custom-declare-variable tramp-connection-properties nil "List of static connection properties.\nEvery entry has the form (REGEXP PROPERTY VALUE). The regexp\nmatches remote file names. It can be nil. PROPERTY is a string,\nand VALUE the corresponding value. They are used, if there is no\nmatching entry for PROPERTY in `tramp-cache-data'. For more\ndetails see the info pages." :group tramp :version "24.4" :type (repeat (list (choice :tag "File Name regexp" regexp (const nil)) (choice :tag " Property" string) (choice :tag " Value" sexp))) tramp-persistency-file-name (cond ((and (fboundp 'locate-user-emacs-file)) (expand-file-name (tramp-compat-funcall 'locate-user-emacs-file "tramp"))) ((and (boundp 'user-emacs-directory) (stringp (symbol-value 'user-emacs-directory)) (file-directory-p (symbol-value 'user-emacs-directory))) (expand-file-name "tramp" (symbol-value 'user-emacs-directory))) ((and (not (featurep 'xemacs)) (file-directory-p "~/.emacs.d/")) "~/.emacs.d/tramp") ((and (boundp 'user-init-directory) (stringp (symbol-value 'user-init-directory)) (file-directory-p (symbol-value 'user-init-directory))) (expand-file-name "tramp" (symbol-value 'user-init-directory))) ((and (featurep 'xemacs) (file-directory-p "~/.xemacs/")) "~/.xemacs/tramp") (t "~/.tramp")) "File which keeps connection history for Tramp connections." file] 10)
#@50 Whether persistent cache data have been changed.
(defvar tramp-cache-data-changed nil (#$ . 2099))
#@144 Returns the hash table for KEY.
If it doesn't exist yet, it is created and initialized with
matching entries of `tramp-connection-properties'.
(defalias 'tramp-get-hash-table #[(key) "\306 \"\206L \307\310\311\312\" #\313!\203J \314 \211 \203I
@\315\f@\206( \316\317\320H\321H\322H\314$\"\203B \323\fA@\322\f8#\210
A\211\204 *\n)\207" [key tramp-cache-data hash tramp-connection-properties elt --dolist-tail-- gethash puthash make-hash-table :test equal vectorp nil string-match "" tramp-make-tramp-file-name 0 1 2 tramp-set-connection-property] 8 (#$ . 2205)])
#@85 Get the PROPERTY of FILE from the cache context of KEY.
Returns DEFAULT if not set.
(defalias 'tramp-get-file-property #[(key file property default) "\306!\211\307\310\311 C\"I\210\312\313I\210\314!\315\n!\205 \316 \n\"\211 :\203M
\203G
\250\203: \317\320 \f@\"
X\204G
:\203M \321
\f@\"\203M \fA\202P .\322\323 \fE / 0 1 2\3241\376 13X\205\372 \325 4\326\2165\203\250 1\307X\203\250 \327\3301\331U\203\212 \332\202\241 1\333U\203\225 \332\202\241 1\334U\203\240 \335\202\241 \3360P/#\2103\312Y\205\371 \3372!\203\302 \331 3\3402\341\313#2)1\333U\203\343 \331 3r\3422!q\2100\343P0\344/\345 C\"/*\3462!\205\371 \327\3472\350\3511\"0P/$*0\202\210\202\210,3\352Y\203*\353\354 P! 6\3556!\203 6J\206 \331 767TL\210*\f*\207" [key file hash property value remote-file-name-inhibit-cache copy-sequence 3 tramp-run-real-handler directory-file-name 4 nil tramp-get-hash-table hash-table-p gethash tramp-time-diff current-time time-less-p 8 "%s %s %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 "" 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " 10 intern "tramp-cache-get-count-" boundp default arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message var val] 7 (#$ . 2786)])
#@80 Set the PROPERTY of FILE to VALUE, in the cache context of KEY.
Returns VALUE.
(defalias 'tramp-set-file-property #[(key file property value) "\306!\211\307\310\311 C\"I\210\312\313I\210\314!\315 \316 \fB\n#\210\317\320 \fE + , -\3211\310 ,.X\205\304 \322 /\323\2160\203u ,\307X\203u \324\325,\326U\203X \327\202o ,\330U\203c \327\202o ,\331U\203n \332\202o \333+P
#\210.\312Y\205\303 \334-!\203\217 \326 .\335-\336\313#-),\330U\203\256 \326 .r\337-!q\210+\340P+\341
\342 C\"*\343-!\205\303 \324\344-\345\346,\"+P
$*0\202\314 \210\202\315 \210,.\347Y\203\364 \350\351 P! 1\3521!\203\351 1J\206\352 \326 212TL\210*\f)\207" [key file hash property value arguments copy-sequence 3 tramp-run-real-handler directory-file-name 4 nil tramp-get-hash-table puthash current-time 8 "%s %s %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 "" 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " 10 intern "tramp-cache-set-count-" boundp fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message var val] 7 (#$ . 4255)])
#@60 Remove all properties of FILE in the cache context of KEY.
(defalias 'tramp-flush-file-property #[(key file) "\306\307C\"\310 \311\312$\211;\203 \307\n!\230\204 \313 \n\"\210\314 !\211\315I\210 \316\312I\210 \317\320C (\3211\307
)X\205\303 \322 *\323\216+\203y
\315X\203y \324\325
\326U\203_ \327\202t
\330U\203i \327\202t
\331U\203s \332\202t \333\fP #\210)\316Y\205\302 \334(!\203\223 \326 )\335(\336\312#()
\330U\203\257 \326 )r\337(!q\210\f\340P\341 \342 C\"*\343(!\205\302 \324\344(\345\346
\"\fP $*0\202\313 \210\202\314 \210,\347 ,\"*\207" [file key truename arguments fmt-string level tramp-run-real-handler directory-file-name tramp-get-file-property "file-truename" nil tramp-flush-file-property copy-sequence 3 4 8 "%s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 "" 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " remhash vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message tramp-cache-data] 7 (#$ . 5532)])
#@120 Remove all properties of DIRECTORY in the cache context of KEY.
Remove also properties of all files in subdirectories.
(defalias 'tramp-flush-directory-property #[(key directory) "\306\307C\"\310 \311\312$\211;\203 \307\n!\230\204 \313 \n\"\210 \314\315C (\3161\271
)X\205\265 \317 *\320\216+\203k
\321X\203k \322\323
\324U\203Q \325\202f
\326U\203[ \325\202f
\327U\203e \330\202f \331\fP #\210)\332Y\205\264 \333(!\203\205 \324 )\334(\335\312#()
\326U\203\241 \324 )r\336(!q\210\f\337P\340 \341 C\"*\342(!\205\264 \322\343(\344\345
\"\fP $*0\202\275 \210\202\276 \210,\346\347,\"*\207" [directory key truename arguments fmt-string level tramp-run-real-handler directory-file-name tramp-get-file-property "file-truename" nil tramp-flush-directory-property 8 "%s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " maphash #[(key _value) "\303!;\205 \304\305 !\303!\"\205 \306\n\"\207" [key directory tramp-cache-data tramp-file-name-localname string-match regexp-quote remhash] 4] vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message tramp-cache-data] 7 (#$ . 6712)])
#@101 Flush all Tramp cache properties from `buffer-file-name'.
This is suppressed for temporary buffers.
(defalias 'tramp-flush-file-function #[nil "\306 \307\216\310 ?\206 \311\312\310 \"?\205M \313 ;\203 \313 \202 \314\315 !\205L \316 ! \317\f! \320\f! \321\f! \322\f! \323\f! \324\f\".**\207" [save-match-data-internal default-directory tramp-verbose bfn v method match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] buffer-name string-match "^\\( \\|\\*\\)" buffer-file-name 0 tramp-tramp-file-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property user host localname hop] 3 (#$ . 8090)])
(byte-code "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\210\300\305\306\"\207" [add-hook before-revert-hook tramp-flush-file-function eshell-pre-command-hook kill-buffer-hook tramp-cache-unload-hook #[nil "\300\301\302\"\210\300\303\302\"\210\300\304\302\"\207" [remove-hook before-revert-hook tramp-flush-file-function eshell-pre-command-hook kill-buffer-hook] 3]] 3)
#@172 Get the named PROPERTY for the connection.
KEY identifies the connection, it is either a process or a vector.
If the value is not set for the connection, returns DEFAULT.
(defalias 'tramp-get-connection-property #[(key property default) "\306!\203 \307!\211\310\311I\210\312\311I\210\313!\314 !\203& \315\n #\202' \316\317\n\fD % & '\3201\320 &(X\205\314 \321 )\322\216*\203} &\310X\203} \323\324&\325U\203` \326\202w &\327U\203k \326\202w &\330U\203v \331\202w \332%P
#\210(\312Y\205\313 \333'!\203\227 \325 (\334'\335\311#')&\327U\203\266 \325 (r\336'!q\210%\337P%\340
\341 C\"*\306'!\205\313 \323\342'\343\344&\"%P
$*0\202\324 \210\202\325 \210,\f*\207" [key hash property default value arguments vectorp copy-sequence 3 nil 4 tramp-get-hash-table hash-table-p gethash 7 "%s %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 "" 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string tramp-debug-message format "(%d) # " fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7 (#$ . 9221)])
#@166 Set the named PROPERTY of a connection to VALUE.
KEY identifies the connection, it is either a process or a vector.
PROPERTY is set persistent when KEY is a vector.
(defalias 'tramp-set-connection-property #[(key property value) "\306!\203 \307!\211\310\311I\210\312\311I\210\313!\314\n #\210\315\316\317\n D % & '\3201\310 &(X\205\304 \321 )\322\216*\203u &\310X\203u \323\324&\325U\203X \326\202o &\327U\203c \326\202o &\330U\203n \331\202o \332%P
#\210(\312Y\205\303 \333'!\203\217 \325 (\334'\335\311#')&\327U\203\256 \325 (r\336'!q\210%\337P%\340
\341 C\"*\306'!\205\303 \323\342'\343\344&\"%P
$*0\202\314 \210\202\315 \210, )\207" [key hash property value tramp-cache-data-changed arguments vectorp copy-sequence 3 nil 4 tramp-get-hash-table puthash t 7 "%s %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 "" 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string tramp-debug-message format "(%d) # " fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7 (#$ . 10440)])
#@125 Check whether named PROPERTY of a connection is defined.
KEY identifies the connection, it is either a process or a vector.
(defalias 'tramp-connection-property-p #[(key property) "\302 \303#\303=?\207" [key property tramp-get-connection-property undef] 4 (#$ . 11645)])
#@109 Remove all properties identified by KEY.
KEY identifies the connection, it is either a process or a vector.
(defalias 'tramp-flush-connection-property #[(key) "\306!\203 \307!\211\310\311I\210\312\311I\210\313\314\315 \"\311\316 !\203* \317\320 \"\210\n*D ( )\3211\312 (*X\205\306 \322 +\323\216,\203z (\310X\203z \324\325(\326U\203^ \327\202u (\330U\203i \327\202u (\331U\203t \332\202u \333
P\f#\210*\312Y\205\305 \334)!\203\224 \326 *\335)\336\311#))(\330U\203\261 \326 *r\337)!q\210
\340P\341\f\342 C\"*\306)!\205\305 \324\343)\344\345(\"
P\f$*0\202\316 \210\202\317 \210,\346-\347 \"\207" [key tramp-cache-data properties hash arguments fmt-string vectorp copy-sequence 3 nil 4 7 "%s %s" gethash hash-table-p maphash #[(x _y) " \235\203 \207\302 C\"\211\207" [x properties append] 3] (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 "" 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string tramp-debug-message format "(%d) # " t remhash level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message tramp-cache-data-changed] 8 (#$ . 11924)])
#@25 Print hash table TABLE.
(defalias 'tramp-cache-print #[(table) "\302!\205 \303\304\305\"\210 )\207" [table result hash-table-p nil maphash #[(key value) "\306\307!\203e \310!\203; G\311 \nW\203: H;\2033 \312\307!\204, \306\307!\2051 \307 H!I\210 T\211\202 *;\203P \312\307!\204L \306\307!\205O \307! ;\203e \312\307!\204a \306\307!\205d \307 !\313\314\315!\203u \316\211!!\202x \316!\317 !\203\204 \320 !\202\225 \321 !\203\222 \316\211 !!\202\225 \316 !#
\203\242
\322\fQ\202\243 \f\211)\207" [key i --dotimes-limit-- value tmp result functionp substring-no-properties vectorp 0 subrp format "(%s %s)" processp prin1-to-string hash-table-p tramp-cache-print bufferp " "] 7]] 3 (#$ . 13178)])
#@75 Return a list of all known connection vectors according to `tramp-cache'.
(defalias 'tramp-list-connections #[nil "\302\303\304 \"\210)\207" [result tramp-cache-data nil maphash #[(key _value) "\302!\205 \303H?\205 \235\203 \207 B\211\207" [key result vectorp 3] 2]] 3 (#$ . 13902)])
#@81 Write persistent connection properties into file `tramp-persistency-file-name'.
(defalias 'tramp-dump-connection-properties #[nil "\3061\204 \307!\205\202 \310!\311U?\205\202 \205\202 \n;\205\202 \312!\313\211 \314\315
\"\210\n\316\317\320!! # $\321\216r#q\210\322\3231J \324\325\326\327!\n#0\202L \210\330\331\332\316\317\333!! %\334\216% %\335\336\324\337\340
!\"!!\210)r%q\210\341 +\261)r#q\210\342\313\211$\313\311%\210.0\207\210\313\207" [tramp-cache-data tramp-cache-data-changed tramp-persistency-file-name print-level print-length cache (error) hash-table-p hash-table-count 0 copy-hash-table nil maphash #[(key value) "\303!\203\" \304!\204\" \305\306 \"\204\" \307\310 \"\210\307\311 \"\210\307\312 \"\207\307\n\"\207" [key value cache vectorp tramp-file-name-localname gethash "login-as" remhash "process-name" "process-buffer" "first-password-request"] 3] get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] ";; -*- emacs-lisp -*-" (error) format " <%s %s>\n" time-stamp-string "%02y/%02m/%02d %02H:%02M:%02S" "\n" ";; Tramp connection history. Don't change this file.\n" ";; You can delete it, forcing Tramp to reapply the checks.\n\n" " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] pp read "(%s)" tramp-cache-print buffer-string write-region #1# #2=#:temp-file standard-output] 10 (#$ . 14204)])
(byte-code "\204 \301\302\303\"\210\301\304\305\"\207" [noninteractive add-hook kill-emacs-hook tramp-dump-connection-properties tramp-cache-unload-hook #[nil "\300\301\302\"\207" [remove-hook kill-emacs-hook tramp-dump-connection-properties] 3]] 3)
#@202 Return a list of (user host) tuples allowed to access for METHOD.
This function is added always in `tramp-get-completion-function'
for all methods. Resulting data are derived from connection history.
(defalias 'tramp-parse-connection-properties #[(method) "\302\303\304 \"\210)\207" [res tramp-cache-data nil maphash #[(key _value) "\303!\205 \304!\230\205 \305!?\205 \306!\307!D\nB\211\207" [key method res vectorp tramp-file-name-method tramp-file-name-localname tramp-file-name-user tramp-file-name-host] 3]] 3 (#$ . 15897)])
(byte-code ";\203\236 \306 !\307U\203\236 \310\311!\203 \311J\204# \310\312!\203\236 \312J\203\236 \3131\216 \3141\204 \315\316!r\nq\210\317\216\320!\210\321p!\307\322\211\211 \211A \242\211\203y
\211A\242
\211A\242\211\203G \323\f @\"\204Y \324\f \211A\242 @#\210\202Y -\322\211 +00\202\235 0 !\325 !)\202\235 !\326\327\330!!#\210\325 !)\210\331\332\333\"\210\334\335!\207" [tramp-persistency-file-name tramp-cache-data #1=#:temp-buffer item key element hash-table-count 0 boundp init-file-user site-run-file (error) (file-error) generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents read nil tramp-connection-property-p tramp-set-connection-property clrhash message "Tramp persistency file `%s' is corrupted: %s" error-message-string add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-cache force] 3] provide tramp-cache tramp-verbose list tramp-cache-data-changed err] 5)
Kontol Shell Bypass