HOME

sh-3ll 1.0
Current File : //usr/share/emacs/26.1/lisp/net/tramp-compat.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314!\207" [require auth-source advice cl-lib custom format-spec parse-time password-cache shell timer ucs-normalize trampver tramp-loaddefs] 2)
#@93 Call FUNCTION if it exists.  Do not raise compiler warnings.

(fn FUNCTION &rest ARGUMENTS)
(defalias 'tramp-compat-funcall '(macro . #[385 "\300\301D\302\303BBDE\207" [when functionp with-no-warnings funcall] 8 (#$ . 712)]))
#@102 Return name of directory for temporary files.
It is the default value of `temporary-file-directory'.
(defalias 'tramp-compat-temporary-file-directory #[0 "\300\301\302N@!\207" [eval temporary-file-directory standard-value] 3 (#$ . 948)])
(put 'tramp-compat-temporary-file-directory 'byte-optimizer 'byte-compile-inline-expand)
#@114 Create a local temporary file (compat function).
Add the extension of F, if existing.

(fn F &optional DIR-FLAG)
(defalias 'tramp-compat-make-temp-file #[513 "\301\302\303J\304\305\306N@!\"\307\310\"\311#)\207" [file-name-handler-alist nil expand-file-name tramp-temp-name-prefix eval temporary-file-directory standard-value file-name-extension t make-temp-file] 8 (#$ . 1282)])
(byte-code "\300\301\302\303#\210\304\305\306\307!\203\307\202\310\"\207" [put tramp-compat-make-temp-file byte-optimizer byte-compile-inline-expand defalias tramp-compat-temporary-file-directory-function fboundp temporary-file-directory tramp-handle-temporary-file-directory] 4)
#@95 Returns t if system process PROCESS-NAME is running for `user-login-name'.

(fn PROCESS-NAME)
(defalias 'tramp-compat-process-running-p #[257 "\211;\205f\300\301!\203\302\301!\205f\301\211\"\207\300\303!\205f\300\304!\205f\305\302\303!\205+\303 \211\203a\211@\304!\306\307\"A\310 \230\203Y\306\311\"A\211\205Q\312\313\314!P\"\262\203Y\315\262\210A\266\202\202+\262\262\207" [fboundp w32-window-exists-p functionp list-system-processes process-attributes nil assoc user user-login-name comm string-match "^" regexp-quote t] 10 (#$ . 1956)])
#@59 Signal a pilot error.

(fn VEC-OR-PROC FORMAT &rest ARGS)
(defalias 'tramp-compat-user-error #[642 "\300\301\302\303!\203
\303\202\304%\207" [apply tramp-error fboundp user-error error] 9 (#$ . 2527)])
(byte-code "\300\301\302\303#\210\304\305!\204\306\305\307\"\210\304\310!\203\306\311\310\"\210\202*\306\311\312\"\210\300\311\302\303#\210\304\313!\2038\306\314\313\"\210\202C\306\314\315\"\210\300\314\302\303#\210\304\316!\203Q\306\317\316\"\210\202\\\306\317\320\"\210\300\317\302\303#\210\304\321!\203j\306\322\321\"\210\202u\306\322\323\"\210\300\322\302\303#\210\304\324!\203\203\306\325\324\"\210\202\216\306\325\326\"\210\300\325\302\303#\210\304\327!\203\234\306\330\327\"\210\202\247\306\330\331\"\210\300\330\302\303#\210\304\332!\203\265\306\333\332\"\210\202\300\306\333\334\"\210\300\333\302\303#\210\304\335!\204\313\306\335\336\"\210\304\337!\203\331\306\340\337\"\210\202\344\306\340\341\"\210\300\340\302\303#\210\300\207" [put tramp-compat-user-error byte-optimizer byte-compile-inline-expand fboundp default-toplevel-value defalias symbol-value file-attribute-type tramp-compat-file-attribute-type #[257 "\211@\207" #1=[] 2 "The type field in ATTRIBUTES returned by `file-attributes'.\nThe value is either t for directory, string (name linked to) for\nsymbolic link, or nil.\n\n(fn ATTRIBUTES)"] file-attribute-link-number tramp-compat-file-attribute-link-number #[257 "\211A@\207" #1# 2 "Return the number of links in ATTRIBUTES returned by `file-attributes'.\n\n(fn ATTRIBUTES)"] file-attribute-user-id tramp-compat-file-attribute-user-id #[257 "\3008\207" [2] 3 "The UID field in ATTRIBUTES returned by `file-attributes'.\nThis is either a string or a number.  If a string value cannot be\nlooked up, a numeric value, either an integer or a float, is\nreturned.\n\n(fn ATTRIBUTES)"] file-attribute-group-id tramp-compat-file-attribute-group-id #[257 "\3008\207" [3] 3 "The GID field in ATTRIBUTES returned by `file-attributes'.\nThis is either a string or a number.  If a string value cannot be\nlooked up, a numeric value, either an integer or a float, is\nreturned.\n\n(fn ATTRIBUTES)"] file-attribute-modification-time tramp-compat-file-attribute-modification-time #[257 "\3008\207" [5] 3 "The modification time in ATTRIBUTES returned by `file-attributes'.\nThis is the time of the last change to the file's contents, and\nis a list of integers (HIGH LOW USEC PSEC) in the same style\nas (current-time).\n\n(fn ATTRIBUTES)"] file-attribute-size tramp-compat-file-attribute-size #[257 "\3008\207" [7] 3 "The size (in bytes) in ATTRIBUTES returned by `file-attributes'.\nThis is a floating point number if the size is too large for an integer.\n\n(fn ATTRIBUTES)"] file-attribute-modes tramp-compat-file-attribute-modes #[257 "\3008\207" [8] 3 "The file modes in ATTRIBUTES returned by `file-attributes'.\nThis is a string of ten letters or dashes as in ls -l.\n\n(fn ATTRIBUTES)"] format-message format directory-name-p tramp-compat-directory-name-p #[257 "\211G\301\302V\203SH\262\211\303U\206\304>\205\211\305U\207" [system-type 46 0 47 (windows-nt ms-dos) 92] 5 "Return non-nil if NAME ends with a directory separator character.\n\n(fn NAME)"]] 4)
#@48 The error symbol for the `file-missing' error.
(defconst tramp-file-missing (byte-code "\300\301N\203\300\207\302\207" [file-missing error-conditions file-error] 2) (#$ . 5753))
(byte-code "\300\301\302\"\210\303\304!\203\305\306\304\"\210\202\305\306\307\"\210\303\310!\203&\305\311\310\"\210\202+\305\311\312\"\210\303\313!\2039\305\314\313\"\210\202>\305\314\315\"\210\300\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\210\300\303\302\"\207" [unload-feature tramp-loaddefs force tramp-compat] 3] fboundp file-name-quoted-p defalias tramp-compat-file-name-quoted-p #[257 "\300\301\302\303\"\206\n\"\207" [string-match "^/:" file-remote-p localname] 6 "Whether NAME is quoted with prefix \"/:\".\nIf NAME is a remote file name, check the local part of NAME.\n\n(fn NAME)"] file-name-quote tramp-compat-file-name-quote #[257 "\211\300\301\302!\"\262\203
\207\303!\301\303\304\"\206Q\207" [string-prefix-p #1="/:" file-local-name file-remote-p localname] 6 "Add the quotation prefix \"/:\" to file NAME.\nIf NAME is a remote file name, the local part of NAME is quoted.\n\n(fn NAME)"] file-name-unquote tramp-compat-file-name-unquote #[257 "\300 \301\302\303\304\305!\306\"\307$\216\310\311\"\206\211\312\313\314!\"\262\2035\315G\316U\203.\317\202/\320\321\322$\262\310!P\262)\207" [match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 file-remote-p localname string-prefix-p #1# file-local-name replace-match 2 "/" "" nil t] 8 "Remove quotation prefix \"/:\" from file NAME.\nIf NAME is a remote file name, the local part of NAME is unquoted.\n\n(fn NAME)"]] 3)
#@40 Return proper value of `tramp-syntax'.
(defalias 'tramp-compat-tramp-syntax #[0 "\301\267\202\n\302\207\303\207\207" [tramp-syntax #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ftp 6 sep 8)) default separate] 2 (#$ . 7405)])
(put 'tramp-compat-tramp-syntax 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'tramp-compat-tramp-file-name-slots '(macro . #[0 "\300\301!\203\302\207\303\207" [fboundp cl-struct-slot-info (cdr (mapcar 'car (cl-struct-slot-info 'tramp-file-name))) (cdr (mapcar 'car (get 'tramp-file-name 'cl-struct-slots)))] 2]))
(provide 'tramp-compat)