Current File : //usr/local/share/emacs/27.2/lisp/net/tramp-compat.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@3 .
(defalias 'tramp-unload-file-name-handlers #[0 "\300\207" ["."] 1 (#$ . 407)])
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\207" [require auth-source format-spec ls-lisp parse-time shell subr-x] 2)
#@41 The Emacs version used for compilation.
(defconst tramp-compat-emacs-compiled-version "27.2" (#$ . 655))
(byte-code "\303 !@U\204 \304\305 \n#\210\303\207" [emacs-major-version tramp-compat-emacs-compiled-version emacs-version version-to-list warn "Tramp has been compiled with Emacs %s, this is Emacs %s"] 4)
#@108 Call FUNCTION with ARGUMENTS 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 (#$ . 974)]))
#@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 (#$ . 1225)])
(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 (#$ . 1560)])
(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)
#@94 Return t if system process PROCESS-NAME is running for `user-login-name'.
(fn PROCESS-NAME)
(defalias 'tramp-compat-process-running-p #[257 "\211;\205o \301\302!\203 \303\302!\205o \302\211\"\207\301\304!\205o \301\305!\205o \306\303\304!\205+ \304 \211\203j \211@\305!\307\310\"A\311 \230\203b \307\312\"A\211\205Z \313\314!P\306\315\316#)\266\203\262\203b \315\262\210A\266\202\202+ \262\262\207" [inhibit-changing-match-data fboundp w32-window-exists-p functionp list-system-processes process-attributes nil assoc user user-login-name comm "^" regexp-quote t string-match] 13 (#$ . 2234)])
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\302\306!\203 \306\202 \307\"\210\300\310\302\311!\203* \311\202+ \312\"\210\300\313\302\314!\2039 \314\202: \315\"\210\300\316\302\317!\203H \317\202I \320\"\210\300\321\302\322!\203W \322\202X \323\"\210\300\324\302\325!\203f \325\202g \326\"\210\300\327\302\330!\203u \330\202v \331\"\210\300\332\302\333!\203\204 \333\202\205 \334\"\210\302\335!\204\222 \300\335\336\"\210\300\337\302\340!\203\236 \340\202\237 \341\"\207" [defalias tramp-compat-file-attribute-type fboundp 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)"] tramp-compat-file-attribute-link-number file-attribute-link-number #[257 "\211A@\207" #1# 2 "Return the number of links in ATTRIBUTES returned by `file-attributes'.\n\n(fn ATTRIBUTES)"] tramp-compat-file-attribute-user-id 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)"] tramp-compat-file-attribute-group-id 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)"] tramp-compat-file-attribute-access-time file-attribute-access-time #[257 "\3008\207" [4] 3 "The last access time in ATTRIBUTES returned by `file-attributes'.\nThis a Lisp timestamp in the style of `current-time'.\n\n(fn ATTRIBUTES)"] tramp-compat-file-attribute-modification-time 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 Lisp timestamp in the style of `current-time'.\n\n(fn ATTRIBUTES)"] tramp-compat-file-attribute-status-change-time file-attribute-status-change-time #[257 "\3008\207" [6] 3 "The status modification time in ATTRIBUTES returned by `file-attributes'.\nThis is the time of last change to the file's attributes: owner\nand group, access mode bits, etc., and is a Lisp timestamp in the\nstyle of `current-time'.\n\n(fn ATTRIBUTES)"] tramp-compat-file-attribute-size file-attribute-size #[257 "\3008\207" [7] 3 "The size (in bytes) in ATTRIBUTES returned by `file-attributes'.\nIf the size is too large for a fixnum, this is a bignum in Emacs 27\nand later, and is a float in Emacs 26 and earlier.\n\n(fn ATTRIBUTES)"] tramp-compat-file-attribute-modes 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 tramp-compat-directory-name-p directory-name-p #[257 "\211G\301\302V\203 SH\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) (#$ . 6103))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\302\306!\203) \307\310!\205 \310\306!\311\232\203) \306\202* \312\"\210\300\313\302\314!\203F \307\310!\205= \310\314!\315\232\203F \314\202G \316\"\210\300\317\302\320!\203c \307\310!\205Z \310\320!\321\232\203c \320\202d \322\"\207" [defalias tramp-compat-file-local-name fboundp file-local-name #[257 "\300\301\"\206 \211\207" [file-remote-p localname] 4 "Return the local name component of NAME.\nIt returns a file name which can be used directly as argument of\n`process-file', `start-file-process', or `shell-command'.\n\n(fn NAME)"] tramp-compat-file-name-quoted-p file-name-quoted-p functionp func-arity (1 . 2) #[513 "\211?\205 \301\302\303!\")\207" [file-name-handler-alist string-prefix-p "/:" tramp-compat-file-local-name] 6 "Whether NAME is quoted with prefix \"/:\".\nIf NAME is a remote file name and TOP is nil, check the local part of NAME.\n\n(fn NAME &optional TOP)"] tramp-compat-file-name-quote file-name-quote (1 . 2) #[513 "\211?\205 \301\"\203 \202 \302!\303\304!Q)\207" [file-name-handler-alist tramp-compat-file-name-quoted-p file-remote-p "/:" tramp-compat-file-local-name] 6 "Add the quotation prefix \"/:\" to file NAME.\nIf NAME is a remote file name and TOP is nil, the local part of NAME is quoted.\n\n(fn NAME &optional TOP)"] tramp-compat-file-name-unquote file-name-unquote (1 . 2) #[513 "\211?\205 \301!\302\"\203\" \211G\303U\203 \304\202 \305\303\"\262\306!P)\207" [file-name-handler-alist tramp-compat-file-local-name tramp-compat-file-name-quoted-p 2 "/" substring file-remote-p] 6 "Remove quotation prefix \"/:\" from file NAME.\nIf NAME is a remote file name and TOP is nil, the local part of\nNAME is unquoted.\n\n(fn NAME &optional TOP)"]] 4)
#@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 (#$ . 8070)])
(put 'tramp-compat-tramp-syntax 'byte-optimizer 'byte-compile-inline-expand)
#@30 Return a list of slot names.
(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 (#$ . 8421)]))
#@30 Whether to use url-tramp.el.
(defconst tramp-compat-use-url-tramp-p (fboundp 'temporary-file-directory) (#$ . 8718))
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\210\300\305\302\306!\203 \306\202 \307\"\210\300\310\302\311!\203* \311\202+ \312\"\210\300\313\314\315!\2058 \315\316!\317\232\203A \316\202B \320\"\210\321\322\323\"\210\324\325!\207" [defalias tramp-compat-exec-path fboundp exec-path #[0 "\302\301\"\211\203 \211\301!\202 \207" [default-directory exec-path find-file-name-handler] 3 "List of directories to search programs to run in remote subprocesses."] tramp-compat-time-equal-p time-equal-p #[514 "\206 \300 \206\f \300 \232\207" [current-time] 4 "Return non-nil if time value T1 is equal to time value T2.\nA nil value for either argument stands for the current time.\n\n(fn T1 T2)"] tramp-compat-flatten-tree flatten-tree #[257 "\300C\262\211A\262\242\211:\203 \211@ABB\262\202% \211\203% \211B\262\262\204 \211\237\207" [nil] 6 "Take TREE and \"flatten\" it.\n\n(fn TREE)"] tramp-compat-progress-reporter-update functionp func-arity progress-reporter-update (1 . 3) #[769 "\300\247\203 @Y\205 \301#\207" [nil progress-reporter-do-update] 10 "\n\n(fn REPORTER &optional VALUE SUFFIX)"] add-hook tramp-unload-hook #[0 "\300\301\302\"\210\300\303\302\"\207" [unload-feature tramp-loaddefs force tramp-compat] 3] provide tramp-compat] 4)
Mini Shell