Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
net /
[ HOME SHELL ]
Name
Size
Permission
Action
ange-ftp.elc
126.4
KB
-rw-r--r--
browse-url.elc
54.35
KB
-rw-r--r--
dbus.elc
55.05
KB
-rw-r--r--
dig.elc
6.34
KB
-rw-r--r--
dns.elc
11.52
KB
-rw-r--r--
eudc-bob.elc
8.58
KB
-rw-r--r--
eudc-export.elc
5.97
KB
-rw-r--r--
eudc-hotlist.elc
6.69
KB
-rw-r--r--
eudc-vars.elc
14.68
KB
-rw-r--r--
eudc.elc
33.77
KB
-rw-r--r--
eudcb-bbdb.elc
5.97
KB
-rw-r--r--
eudcb-ldap.elc
5.5
KB
-rw-r--r--
eudcb-mab.elc
2.58
KB
-rw-r--r--
eww.elc
68.31
KB
-rw-r--r--
gnutls.elc
12.62
KB
-rw-r--r--
goto-addr.elc
10
KB
-rw-r--r--
hmac-def.elc
1.87
KB
-rw-r--r--
hmac-md5.elc
2.11
KB
-rw-r--r--
imap.elc
102.11
KB
-rw-r--r--
ldap.elc
16.8
KB
-rw-r--r--
mailcap.elc
27.34
KB
-rw-r--r--
mairix.elc
25.1
KB
-rw-r--r--
net-utils.elc
35.04
KB
-rw-r--r--
netrc.elc
4.95
KB
-rw-r--r--
network-stream.elc
12.02
KB
-rw-r--r--
newst-backend.elc
65.76
KB
-rw-r--r--
newst-plainview.elc
48.96
KB
-rw-r--r--
newst-reader.elc
9.66
KB
-rw-r--r--
newst-ticker.elc
7.82
KB
-rw-r--r--
newst-treeview.elc
76.37
KB
-rw-r--r--
newsticker.elc
769
B
-rw-r--r--
nsm.elc
34.82
KB
-rw-r--r--
ntlm.elc
13.79
KB
-rw-r--r--
pop3.elc
20.1
KB
-rw-r--r--
puny.elc
4.92
KB
-rw-r--r--
quickurl.elc
17.83
KB
-rw-r--r--
rcirc.elc
105.35
KB
-rw-r--r--
rfc2104.elc
1.2
KB
-rw-r--r--
rlogin.elc
10.97
KB
-rw-r--r--
sasl-cram.elc
1003
B
-rw-r--r--
sasl-digest.elc
3.33
KB
-rw-r--r--
sasl-ntlm.elc
1.62
KB
-rw-r--r--
sasl-scram-rfc.elc
3.6
KB
-rw-r--r--
sasl.elc
6.58
KB
-rw-r--r--
secrets.elc
23.55
KB
-rw-r--r--
shr-color.elc
8.82
KB
-rw-r--r--
shr.elc
69.72
KB
-rw-r--r--
sieve-manage.elc
15.31
KB
-rw-r--r--
sieve-mode.elc
6.94
KB
-rw-r--r--
sieve.elc
11.62
KB
-rw-r--r--
snmp-mode.elc
14.51
KB
-rw-r--r--
soap-client.elc
221.75
KB
-rw-r--r--
soap-inspect.elc
20.04
KB
-rw-r--r--
socks.elc
12.5
KB
-rw-r--r--
telnet.elc
9.65
KB
-rw-r--r--
tramp-adb.elc
107.17
KB
-rw-r--r--
tramp-archive.elc
25.39
KB
-rw-r--r--
tramp-cache.elc
23.77
KB
-rw-r--r--
tramp-cmds.elc
18.89
KB
-rw-r--r--
tramp-compat.elc
9.57
KB
-rw-r--r--
tramp-ftp.elc
4.38
KB
-rw-r--r--
tramp-gvfs.elc
107.3
KB
-rw-r--r--
tramp-integration.elc
7.03
KB
-rw-r--r--
tramp-loaddefs.el
60.78
KB
-rw-r--r--
tramp-rclone.elc
39.17
KB
-rw-r--r--
tramp-sh.elc
306.37
KB
-rw-r--r--
tramp-smb.elc
140
KB
-rw-r--r--
tramp-sudoedit.elc
76.86
KB
-rw-r--r--
tramp-uu.elc
1.91
KB
-rw-r--r--
tramp.elc
242.21
KB
-rw-r--r--
trampver.elc
2.15
KB
-rw-r--r--
webjump.elc
9.85
KB
-rw-r--r--
zeroconf.elc
18.4
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tramp-sh.elc
;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'tramp) #@41 The default remote shell Tramp applies. (defconst tramp-default-remote-shell "/bin/sh" (#$ . 425)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\321&\210\300\322\302\303\323DD\324\306\307\325\326\310\327& \207" [custom-declare-variable tramp-inline-compress-start-size funcall function #[0 "\300\207" [4096] 1] "The minimum size of compressing where inline transfer.\nWhen inline transfer, compress transferred data of file whose\nsize is this value or above (up to `tramp-copy-size-limit' for\nout-of-band methods).\nIf it is nil, no compression at all will be applied." :group tramp :type (choice (const nil) integer) tramp-copy-size-limit #[0 "\300\207" [10240] 1] "The maximum file size where inline copying is preferred over an out-of-the-band copy.\nIf it is nil, out-of-the-band copy will be used without a check." (choice (const nil) integer) tramp-terminal-type #[0 "\300\207" [#1="dumb"] 1 #1#] "Value of TERM environment variable for logging in to remote host.\nBecause Tramp wants to parse the output of the remote shell, it is easily\nconfused by ANSI color escape sequences and suchlike. Often, shell init\nfiles conditionalize this setup based on the TERM environment variable." string tramp-histfile-override #[0 "\300\207" [#2="~/.tramp_history"] 1 #2#] "When invoking a shell, override the HISTFILE with this value.\nWhen setting to a string, it redirects the shell history to that\nfile. Be careful when setting to \"/dev/null\"; this might\nresult in undesired results when using \"bash\" as shell.\n\nThe value t unsets any setting of HISTFILE, and sets both\nHISTFILESIZE and HISTSIZE to 0. If you set this variable to nil,\nhowever, the *override* is disabled, so the history will go to\nthe default storage location, e.g. \"$HOME/.sh_history\"." :version "25.2" (choice (const :tag "Do not override HISTFILE" nil) (const :tag "Unset HISTFILE" t) (string :tag "Redirect to a file"))] 10) #@59 Terminal control escape sequences for display attributes. (defconst tramp-display-escape-sequence-regexp "[[;0-9]+m" (#$ . 2447)) #@54 Terminal control escape sequences for device status. (defconst tramp-device-escape-sequence-regexp "[[0-9]+n" (#$ . 2584)) #@166 String used to recognize end of output. The `$' character at the end is quoted; the string cannot be detected as prompt when being sent on echoing hosts, therefore. (defvar tramp-end-of-output (byte-code "\301\302\303\304!\305 P!\"\207" [process-environment format "///%s#$" md5 prin1-to-string current-time-string] 5) (#$ . 2715)) #@40 Prompt when establishing a connection. (defconst tramp-initial-end-of-output "#$ " (#$ . 3054)) #@50 String used to recognize end of heredoc strings. (defconst tramp-end-of-heredoc (md5 tramp-end-of-output) (#$ . 3156)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable tramp-use-ssh-controlmaster-options funcall function #[0 "\300\207" [t] 1] "Whether to use `tramp-ssh-controlmaster-options'." :group tramp :version "24.4" :type boolean] 10) #@468 Which ssh Control* arguments to use. If it is a string, it should have the form "-o ControlMaster=auto -o ControlPath=\='tramp.%%r@%%h:%%p\=' -o ControlPersist=no". Percent characters in the ControlPath spec must be doubled, because the string is used as format string. Otherwise, it will be auto-detected by Tramp, if `tramp-use-ssh-controlmaster-options' is non-nil. The value depends on the installed local ssh version. The string is used in `tramp-methods'. (defvar tramp-ssh-controlmaster-options nil (#$ . 3552)) (add-hook 'tramp--startup-hook #[0 "\304\305\306\307\310\311D\312BBBB\"\210\304\305\313\314\315\311D\316BBBB\"\210\304\305\317\320\321\322\311D\323BBBBB\"\210\304\305\324\325\326\327\311D\330BBBBB\"\210\304\305\331\332\333\334\311D\335BBBBB\"\210\304\305\336\337\340\311D\341BBBB\"\210\304\305\342\343\344\311D\345BBBB\"\210\304\305\346\347\350\351\311D\352BBBBB\"\210\304\305\353\354\355\356\311D\357BBBBB\"\210\304\305\360\361\362\311D\363BBBB\"\210\304\305\364\365\366\311D\367BBBB\"\210\304\305\370\371\372\311D\373BBBB\"\210\304\305\374\375\376\311D\377BBBB\"\210\304\305\201@ \201A \201B \311D\201C BBBB\"\210\304\305\201D \201E \201F \311D\201G BBBB\"\210\304\305\201H \201I \201J \311D\201K BBBB\"\210\304\305\201L \201M \201N \311D\201O BBBB\"\210\304\305\201P \201Q \201R \201S \201T \201U \201V \201W \201X \201Y \201Z \n#C\201[ BBBBBBBD\311D\201\\ BBBB\"\210\304\305\201] \201^ \201R \201_ \201` \201a \201b \201Y \201Z \n#C\201c BBBBBD\311D\201d BBBB\"\210\304\305\201e \201f \201R \201g \201h \201i \201j \201k \201l \201Y \201Z \n#C\201m BBBBBBBD\311D\201n BBBB\"\210\304\305\201o \201p \201R \201q \201r \201s \201t \201u \201v \201Y \201Z \n#C\201w BBBBBBBD\311D\201x BBBB\"\210\304\305\201y \201z \201{ \311D\201| BBBB\"\210\304\201} \201~ B\"\210\304\201 \201\200 \201\201 B\"\210\304\201 \201\202 \201\203 \201\204 E\"\207" [tramp-default-remote-shell tramp-terminal-type tramp-initial-end-of-output tramp-local-host-regexp add-to-list tramp-methods "rcp" (tramp-login-program "rsh") (tramp-login-args (("%h") ("-l" "%u"))) tramp-remote-shell ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "rcp") (tramp-copy-args (("-p" "%k") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t)) "remcp" (tramp-login-program "remsh") (tramp-login-args (("%h") ("-l" "%u"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "rcp") (tramp-copy-args (("-p" "%k"))) (tramp-copy-keep-date t)) "scp" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "scp") (tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q") ("-r") ("%c"))) (tramp-copy-keep-date t) (tramp-copy-recursive t)) "scpx" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("-t" "-t") ("%h") ("%l"))) (tramp-async-args (("-q"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "scp") (tramp-copy-args (("-P" "%p") ("-p" "%k") ("-q") ("-r") ("%c"))) (tramp-copy-keep-date t) (tramp-copy-recursive t)) "rsync" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "rsync") (tramp-copy-args (("-t" "%k") ("-p") ("-r") ("-s") ("-c"))) (tramp-copy-env (("RSYNC_RSH") ("ssh" "%c"))) (tramp-copy-keep-date t) (tramp-copy-keep-tmpfile t) (tramp-copy-recursive t)) "rsh" (tramp-login-program "rsh") (tramp-login-args (("%h") ("-l" "%u"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "remsh" (tramp-login-program "remsh") (tramp-login-args (("%h") ("-l" "%u"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "ssh" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "sshx" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("-t" "-t") ("%h") ("%l"))) (tramp-async-args (("-q"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "telnet" (tramp-login-program "telnet") (tramp-login-args (("%h") ("%p") ("2>/dev/null"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "nc" (tramp-login-program "telnet") (tramp-login-args (("%h") ("%p") ("2>/dev/null"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "nc") (tramp-copy-args (("-w" "1") ("-v") ("%h") ("%r"))) (tramp-remote-copy-program "nc") (tramp-remote-copy-args (("-l") ("-p" "%r") ("2>/dev/null")))) "su" (tramp-login-program "su") (tramp-login-args (("-") ("%u"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-connection-timeout 10)) "sg" (tramp-login-program "sg") (tramp-login-args (("-") ("%u"))) ((tramp-remote-shell-args ("-c")) (tramp-connection-timeout 10)) "sudo" (tramp-login-program "sudo") (tramp-login-args (("-u" "%u") ("-s") ("-H") ("-p" "P\"\"a\"\"s\"\"s\"\"w\"\"o\"\"r\"\"d\"\":") ("%l"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-connection-timeout 10) (tramp-session-timeout 300)) "doas" (tramp-login-program "doas") (tramp-login-args (("-u" "%u") ("-s"))) ((tramp-remote-shell-args ("-c")) (tramp-connection-timeout 10) (tramp-session-timeout 300)) "ksu" (tramp-login-program "ksu") (tramp-login-args (("%u") ("-q"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-connection-timeout 10)) "krlogin" (tramp-login-program "krlogin") (tramp-login-args (("%h") ("-l" "%u") ("-x"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "plink" (tramp-login-program "plink") tramp-login-args ("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") format "env 'TERM=%s' 'PROMPT_COMMAND=' 'PS1=%s'" (("%l") ("\"")) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "plinkx" (tramp-login-program "plink") ("-load") ("%h") ("-t") ("\"") (("%l") ("\"")) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "pscp" (tramp-login-program "plink") ("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") (("%l") ("\"")) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "pscp") (tramp-copy-args (("-l" "%u") ("-P" "%p") ("-scp") ("-p" "%k") ("-q") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t)) "psftp" (tramp-login-program "plink") ("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") (("%l") ("\"")) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "pscp") (tramp-copy-args (("-l" "%u") ("-P" "%p") ("-sftp") ("-p" "%k") ("-q"))) (tramp-copy-keep-date t)) "fcp" (tramp-login-program "fsh") (tramp-login-args (("%h") ("-l" "%u") ("sh" "-i"))) ((tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-i") ("-c")) (tramp-copy-program "fcp") (tramp-copy-args (("-p" "%k"))) (tramp-copy-keep-date t)) tramp-default-method-alist ("\\`root\\'" "su") tramp-default-user-alist "\\`\\(?:doas\\|ksu\\|su\\(?:do\\)?\\)\\'" (nil "root") "\\`\\(?:fcp\\|krlogin\\|nc\\|r\\(?:cp\\|emcp\\|sh\\)\\|telnet\\)\\'" nil user-login-name] 15]) #@71 Default list of (FUNCTION FILE) pairs to be examined for rsh methods. (defconst tramp-completion-function-alist-rsh '((tramp-parse-rhosts "/etc/hosts.equiv") (tramp-parse-rhosts "~/.rhosts")) (#$ . 10993)) #@71 Default list of (FUNCTION FILE) pairs to be examined for ssh methods. (defconst tramp-completion-function-alist-ssh '((tramp-parse-rhosts "/etc/hosts.equiv") (tramp-parse-rhosts "/etc/shosts.equiv") (tramp-parse-shosts "/etc/ssh_known_hosts") (tramp-parse-sconfig "/etc/ssh_config") (tramp-parse-shostkeys "/etc/ssh2/hostkeys") (tramp-parse-sknownhosts "/etc/ssh2/knownhosts") (tramp-parse-rhosts "~/.rhosts") (tramp-parse-rhosts "~/.shosts") (tramp-parse-shosts "~/.ssh/known_hosts") (tramp-parse-sconfig "~/.ssh/config") (tramp-parse-shostkeys "~/.ssh2/hostkeys") (tramp-parse-sknownhosts "~/.ssh2/knownhosts")) (#$ . 11205)) #@74 Default list of (FUNCTION FILE) pairs to be examined for telnet methods. (defconst tramp-completion-function-alist-telnet '((tramp-parse-hosts "/etc/hosts")) (#$ . 11839)) #@70 Default list of (FUNCTION FILE) pairs to be examined for su methods. (defconst tramp-completion-function-alist-su '((tramp-parse-passwd "/etc/passwd")) (#$ . 12017)) #@70 Default list of (FUNCTION FILE) pairs to be examined for sg methods. (defconst tramp-completion-function-alist-sg '((tramp-parse-etc-group "/etc/group")) (#$ . 12189)) #@78 Default list of (FUNCTION REGISTRY) pairs to be examined for putty sessions. (defconst tramp-completion-function-alist-putty (byte-code "\301\302=\203 \303\202\f \304DC\207" [system-type tramp-parse-putty windows-nt "HKEY_CURRENT_USER\\Software\\SimonTatham\\PuTTY\\Sessions" "~/.putty/sessions"] 3) (#$ . 12363)) (byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\312\320\321\313\322& \210\303\323\305\306\324DD\325\311\312\320\326\313\327& \207" [add-hook tramp--startup-hook #[0 "\306\307\"\210\306\310\"\210\306\311 \"\210\306\312 \"\210\306\313 \"\210\306\314\"\210\306\315\"\210\306\316 \"\210\306\317 \"\210\306\320\n\"\210\306\321\n\"\210\306\322 \"\210\306\323 \"\210\306\324 \"\210\306\325 \"\210\306\326\f\"\210\306\327\"\210\306\330 \"\210\306\331 \"\210\306\332 \"\210\306\333 \"\210\306\334 \"\207" [tramp-completion-function-alist-rsh tramp-completion-function-alist-ssh tramp-completion-function-alist-telnet tramp-completion-function-alist-su tramp-completion-function-alist-sg tramp-completion-function-alist-putty tramp-set-completion-function "rcp" "remcp" "scp" "scpx" "rsync" "rsh" "remsh" "ssh" "sshx" "telnet" "nc" "su" "sudo" "doas" "ksu" "sg" "krlogin" "plink" "plinkx" "pscp" "psftp" "fcp"] 3] custom-declare-variable tramp-remote-path funcall function #[0 "\300\207" [(tramp-default-remote-path "/bin" "/usr/bin" "/sbin" "/usr/sbin" "/usr/local/bin" "/usr/local/sbin" "/local/bin" "/local/freeware/bin" "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin" "/usr/contrib/bin" "/opt/bin" "/opt/sbin" "/opt/local/bin")] 1] "List of directories to search for executables on remote host.\nFor every remote host, this variable will be set buffer local,\nkeeping the list of existing directories on that host.\n\nYou can use `~' in this list, but when searching for a shell which groks\ntilde expansion, all directory names starting with `~' will be ignored.\n\n`Default Directories' represent the list of directories given by\nthe command \"getconf PATH\". It is recommended to use this\nentry on head of this list, because these are the default\ndirectories for POSIX compatible commands. On remote hosts which\ndo not offer the getconf command (like cygwin), the value\n\"/bin:/usr/bin\" is used instead. This entry is represented in\nthe list by the special value `tramp-default-remote-path'.\n\n`Private Directories' are the settings of the $PATH environment,\nas given in your `~/.profile'. This entry is represented in\nthe list by the special value `tramp-own-remote-path'." :group tramp :type (repeat (choice (const :tag "Default Directories" tramp-default-remote-path) (const :tag "Private Directories" tramp-own-remote-path) (string :tag "Directory"))) tramp-remote-process-environment #[0 "\300\207" [("ENV=''" "TMOUT=0" "LC_CTYPE=''" "CDPATH=" "HISTORY=" "MAIL=" "MAILCHECK=" "MAILPATH=" "PAGER=cat" "autocorrect=" "correct=")] 1] "List of environment variables to be set on the remote host.\n\nEach element should be a string of the form ENVVARNAME=VALUE. An\nentry ENVVARNAME= disables the corresponding environment variable,\nwhich might have been set in the init files like ~/.profile.\n\nSpecial handling is applied to some environment variables,\nwhich should not be set here:\n\nThe PATH environment variable should be set via `tramp-remote-path'.\n\nThe TERM environment variable should be set via `tramp-terminal-type'.\n\nThe INSIDE_EMACS environment variable will automatically be set\nbased on the Tramp and Emacs versions, and should not be set here." :version "26.1" (repeat string) tramp-sh-extra-args #[0 "\300\207" [(("/bash\\'" . "-norc -noprofile") ("/zsh\\'" . "-f +Z -V"))] 1] "Alist specifying extra arguments to pass to the remote shell.\nEntries are (REGEXP . ARGS) where REGEXP is a regular expression\nmatching the shell file name and ARGS is a string specifying the\narguments.\n\nThis variable is only used when Tramp needs to start up another shell\nfor tilde expansion. The extra arguments should typically prevent the\nshell from reading its init file." "27.1" (alist :key-type regexp :value-type string)] 10) #@473 List of pattern/action pairs. Whenever a pattern matches, the corresponding action is performed. Each item looks like (PATTERN ACTION). The PATTERN should be a symbol, a variable. The value of this variable gives the regular expression to search for. Note that the regexp must match at the end of the buffer, "\'" is implicitly appended to it. The ACTION should also be a symbol, but a function. When the corresponding PATTERN matches, the ACTION function is called. (defconst tramp-actions-before-shell '((tramp-login-prompt-regexp tramp-action-login) (tramp-password-prompt-regexp tramp-action-password) (tramp-wrong-passwd-regexp tramp-action-permission-denied) (shell-prompt-pattern tramp-action-succeed) (tramp-shell-prompt-pattern tramp-action-succeed) (tramp-yesno-prompt-regexp tramp-action-yesno) (tramp-yn-prompt-regexp tramp-action-yn) (tramp-terminal-prompt-regexp tramp-action-terminal) (tramp-antispoof-regexp tramp-action-confirm-message) (tramp-process-alive-regexp tramp-action-process-alive)) (#$ . 16515)) #@145 List of pattern/action pairs. This list is used for copying/renaming with out-of-band methods. See `tramp-actions-before-shell' for more info. (defconst tramp-actions-copy-out-of-band '((tramp-password-prompt-regexp tramp-action-password) (tramp-wrong-passwd-regexp tramp-action-permission-denied) (tramp-copy-failed-regexp tramp-action-permission-denied) (tramp-process-alive-regexp tramp-action-out-of-band)) (#$ . 17552)) #@219 Shell function to implement `uudecode' to standard output. Many systems support `uudecode -o /dev/stdout' or `uudecode -o -' for this or `uudecode -p', but some systems don't, and for them we have this shell function. (defconst tramp-uudecode "(echo begin 600 %t; tail -n +2) | uudecode\ncat %t\nrm -f %t" (#$ . 17985)) #@230 Perl script to produce output suitable for use with `file-truename' on the remote file system. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-perl-file-truename "%s -e '\nuse File::Spec;\nuse Cwd \"realpath\";\n\nsub myrealpath {\n my ($file) = @_;\n return realpath($file) if (-e $file || -l $file);\n}\n\nsub recursive {\n my ($volume, @dirs) = @_;\n my $real = myrealpath(File::Spec->catpath(\n $volume, File::Spec->catdir(@dirs), \"\"));\n if ($real) {\n my ($vol, $dir) = File::Spec->splitpath($real, 1);\n return ($vol, File::Spec->splitdir($dir));\n }\n else {\n my $last = pop(@dirs);\n ($volume, @dirs) = recursive($volume, @dirs);\n push(@dirs, $last);\n return ($volume, @dirs);\n }\n}\n\n$result = myrealpath($ARGV[0]);\nif (!$result) {\n my ($vol, $dir) = File::Spec->splitpath($ARGV[0], 1);\n ($vol, @dirs) = recursive($vol, File::Spec->splitdir($dir));\n\n $result = File::Spec->catpath($vol, File::Spec->catdir(@dirs), \"\");\n}\n\n$result =~ s/\"/\\\\\"/g;\nprint \"\\\"$result\\\"\\n\";\n' \"$1\" 2>/dev/null" (#$ . 18312)) #@244 Perl script to produce output suitable for use with `file-name-all-completions' on the remote file system. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-perl-file-name-all-completions "%s -e '\nopendir(d, $ARGV[0]) || die(\"$ARGV[0]: $!\\nfail\\n\");\n@files = readdir(d); closedir(d);\nforeach $f (@files) {\n if (-d \"$ARGV[0]/$f\") {\n print \"$f/\\n\";\n }\n else {\n print \"$f\\n\";\n }\n}\nprint \"ok\\n\"\n' \"$1\" 2>/dev/null" (#$ . 19557)) #@232 Perl script to produce output suitable for use with `file-attributes' on the remote file system. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-perl-file-attributes "%s -e '\n@stat = lstat($ARGV[0]);\nif (!@stat) {\n print \"nil\\n\";\n exit 0;\n}\nif (($stat[2] & 0170000) == 0120000)\n{\n $type = readlink($ARGV[0]);\n $type =~ s/\"/\\\\\"/g;\n $type = \"\\\"$type\\\"\";\n}\nelsif (($stat[2] & 0170000) == 040000)\n{\n $type = \"t\";\n}\nelse\n{\n $type = \"nil\"\n};\n$uid = ($ARGV[1] eq \"integer\") ? $stat[4] : \"\\\"\" . getpwuid($stat[4]) . \"\\\"\";\n$gid = ($ARGV[1] eq \"integer\") ? $stat[5] : \"\\\"\" . getgrgid($stat[5]) . \"\\\"\";\nprintf(\n \"(%%s %%u %%s %%s (%%u %%u) (%%u %%u) (%%u %%u) %%u %%u t %%u -1)\\n\",\n $type,\n $stat[3],\n $uid,\n $gid,\n $stat[8] >> 16 & 0xffff,\n $stat[8] & 0xffff,\n $stat[9] >> 16 & 0xffff,\n $stat[9] & 0xffff,\n $stat[10] >> 16 & 0xffff,\n $stat[10] & 0xffff,\n $stat[7],\n $stat[2],\n $stat[1]\n);' \"$1\" \"$2\" 2>/dev/null" (#$ . 20122)) #@216 Perl script implementing `directory-files-attributes' as Lisp `read'able output. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-perl-directory-files-and-attributes "%s -e '\nchdir($ARGV[0]) or printf(\"\\\"Cannot change to $ARGV[0]: $''!''\\\"\\n\"), exit();\nopendir(DIR,\".\") or printf(\"\\\"Cannot open directory $ARGV[0]: $''!''\\\"\\n\"), exit();\n@list = readdir(DIR);\nclosedir(DIR);\n$n = scalar(@list);\nprintf(\"(\\n\");\nfor($i = 0; $i < $n; $i++)\n{\n $filename = $list[$i];\n @stat = lstat($filename);\n if (($stat[2] & 0170000) == 0120000)\n {\n $type = readlink($filename);\n $type =~ s/\"/\\\\\"/g;\n $type = \"\\\"$type\\\"\";\n }\n elsif (($stat[2] & 0170000) == 040000)\n {\n $type = \"t\";\n }\n else\n {\n $type = \"nil\"\n };\n $uid = ($ARGV[1] eq \"integer\") ? $stat[4] : \"\\\"\" . getpwuid($stat[4]) . \"\\\"\";\n $gid = ($ARGV[1] eq \"integer\") ? $stat[5] : \"\\\"\" . getgrgid($stat[5]) . \"\\\"\";\n $filename =~ s/\"/\\\\\"/g;\n printf(\n \"(\\\"%%s\\\" %%s %%u %%s %%s (%%u %%u) (%%u %%u) (%%u %%u) %%u %%u t %%u -1)\\n\",\n $filename,\n $type,\n $stat[3],\n $uid,\n $gid,\n $stat[8] >> 16 & 0xffff,\n $stat[8] & 0xffff,\n $stat[9] >> 16 & 0xffff,\n $stat[9] & 0xffff,\n $stat[10] >> 16 & 0xffff,\n $stat[10] & 0xffff,\n $stat[7],\n $stat[2],\n $stat[1]);\n}\nprintf(\")\\n\");' \"$1\" \"$2\" 2>/dev/null" (#$ . 21292)) #@270 Perl program to use for encoding a file. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. This implementation requires the MIME::Base64 Perl module to be installed on the remote host. (defconst tramp-perl-encode-with-module "%s -MMIME::Base64 -0777 -ne 'print encode_base64($_)' 2>/dev/null" (#$ . 22940)) #@270 Perl program to use for decoding a file. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. This implementation requires the MIME::Base64 Perl module to be installed on the remote host. (defconst tramp-perl-decode-with-module "%s -MMIME::Base64 -0777 -ne 'print decode_base64($_)' 2>/dev/null" (#$ . 23338)) #@176 Perl program to use for encoding a file. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-perl-encode "%s -e '\n# This script contributed by Juanma Barranquero <lektu@terra.es>.\n# Copyright (C) 2002-2020 Free Software Foundation, Inc.\nuse strict;\n\nmy %%trans = do {\n my $i = 0;\n map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}\n split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);\n};\nmy $data;\n\n# We read in chunks of 54 bytes, to generate output lines\n# of 72 chars (plus end of line)\nwhile (read STDIN, $data, 54) {\n my $pad = q();\n\n # Only for the last chunk, and only if did not fill the last\n # three-byte packet\n if (eof) {\n my $mod = length($data) %% 3;\n $pad = q(=) x (3 - $mod) if $mod;\n }\n\n # Not the fastest method, but it is simple: unpack to binary string, split\n # by groups of 6 bits and convert back from binary to byte; then map into\n # the translation table\n print\n join q(),\n map($trans{$_},\n (substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)),\n $pad,\n qq(\\n);\n}' 2>/dev/null" (#$ . 23736)) #@176 Perl program to use for decoding a file. Escape sequence %s is replaced with name of Perl binary. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-perl-decode "%s -e '\n# This script contributed by Juanma Barranquero <lektu@terra.es>.\n# Copyright (C) 2002-2020 Free Software Foundation, Inc.\nuse strict;\n\nmy %%trans = do {\n my $i = 0;\n map {($_, substr(unpack(q(B8), chr $i++), 2, 6))}\n split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/)\n};\n\nmy %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;\n\nbinmode(\\*STDOUT);\n\n# We are going to accumulate into $pending to accept any line length\n# (we do not check they are <= 76 chars as the RFC says)\nmy $pending = q();\n\nwhile (my $data = <STDIN>) {\n chomp $data;\n\n # If we find one or two =, we have reached the end and\n # any following data is to be discarded\n my $finished = $data =~ s/(==?).*/$1/;\n $pending .= $data;\n\n my $len = length($pending);\n my $chunk = substr($pending, 0, $len & ~3);\n $pending = substr($pending, $len & ~3 + 1);\n\n # Easy method: translate from chars to (pregenerated) six-bit packets, join,\n # split in 8-bit chunks and convert back to char.\n print join q(),\n map $bytes{$_},\n ((join q(), map {$trans{$_} || q()} split //, $chunk) =~ /......../g);\n\n last if $finished;\n}' 2>/dev/null" (#$ . 25031)) #@99 Perl program to use for encoding a file. Escape sequence %s is replaced with name of Perl binary. (defconst tramp-perl-pack "%s -e 'binmode STDIN; binmode STDOUT; print pack(q{u*}, join q{}, <>)'" (#$ . 26483)) #@99 Perl program to use for decoding a file. Escape sequence %s is replaced with name of Perl binary. (defconst tramp-perl-unpack "%s -e 'binmode STDIN; binmode STDOUT; print unpack(q{u*}, join q{}, <>)'" (#$ . 26700)) #@118 Awk program to use for encoding a file. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-awk-encode "od -v -t x1 -A n | busybox awk '\\\nBEGIN {\n b64 = \"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/\"\n b16 = \"0123456789abcdef\"\n}\n{\n for (c=1; c<=length($0); c++) {\n d=index(b16, substr($0,c,1))\n if (d--) {\n for (b=1; b<=4; b++) {\n o=o*2+int(d/8); d=(d*2)%%16\n if (++obc==6) {\n printf substr(b64,o+1,1)\n if (++rc>75) { printf \"\\n\"; rc=0 }\n obc=0; o=0\n }\n }\n }\n }\n}\nEND {\n if (obc) {\n tail=(obc==2) ? \"==\\n\" : \"=\\n\"\n while (obc++<6) { o=o*2 }\n printf \"%%c\", substr(b64,o+1,1)\n } else {\n tail=\"\\n\"\n }\n printf tail\n}'" (#$ . 26922)) #@118 Awk program to use for decoding a file. This string is passed to `format', so percent characters need to be doubled. (defconst tramp-awk-decode "busybox awk '\\\nBEGIN {\n b64 = \"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/\"\n}\n{\n for (i=1; i<=length($0); i++) {\n c=index(b64, substr($0,i,1))\n if(c--) {\n for(b=0; b<6; b++) {\n o=o*2+int(c/32); c=(c*2)%%64\n if(++obc==8) {\n if (o) {\n printf \"%%c\", o\n } else {\n system(\"dd if=/dev/zero bs=1 count=1 2>/dev/null\")\n }\n obc=0; o=0\n }\n }\n }\n }\n}'" (#$ . 27753)) #@70 Test command for checking `tramp-awk-encode' and `tramp-awk-decode'. (defconst tramp-awk-coding-test "test -c /dev/zero && od -v -t x1 -A n </dev/null && busybox awk '{}' </dev/null" (#$ . 28410)) #@251 Script to check existence of VC related files. It must be send formatted with two strings; the tests for file existence, and file readability. Input shall be read via here-document, otherwise the command could exceed maximum length of command line. (defconst tramp-vc-registered-read-file-names "echo \"(\"\nwhile read file; do\n quoted=`echo \"$file\" | sed -e \"s/\\\"/\\\\\\\\\\\\\\\\\\\"/\"`\n if %s \"$file\"; then\n echo \"(\\\"$quoted\\\" \\\"file-exists-p\\\" t)\"\n else\n echo \"(\\\"$quoted\\\" \\\"file-exists-p\\\" nil)\"\n fi\n if %s \"$file\"; then\n echo \"(\\\"$quoted\\\" \\\"file-readable-p\\\" t)\"\n else\n echo \"(\\\"$quoted\\\" \\\"file-readable-p\\\" nil)\"\n fi\ndone\necho \")\"" (#$ . 28614)) #@106 Alist of handler functions. Operations not mentioned here will be handled by the normal Emacs functions. (defconst tramp-sh-file-name-handler-alist '((access-file . tramp-handle-access-file) (add-name-to-file . tramp-sh-handle-add-name-to-file) (copy-directory . tramp-sh-handle-copy-directory) (copy-file . tramp-sh-handle-copy-file) (delete-directory . tramp-sh-handle-delete-directory) (delete-file . tramp-sh-handle-delete-file) (directory-file-name . tramp-handle-directory-file-name) (directory-files . tramp-handle-directory-files) (directory-files-and-attributes . tramp-sh-handle-directory-files-and-attributes) (dired-compress-file . tramp-sh-handle-dired-compress-file) (dired-uncache . tramp-handle-dired-uncache) (exec-path . tramp-sh-handle-exec-path) (expand-file-name . tramp-sh-handle-expand-file-name) (file-accessible-directory-p . tramp-handle-file-accessible-directory-p) (file-acl . tramp-sh-handle-file-acl) (file-attributes . tramp-sh-handle-file-attributes) (file-directory-p . tramp-sh-handle-file-directory-p) (file-equal-p . tramp-handle-file-equal-p) (file-executable-p . tramp-sh-handle-file-executable-p) (file-exists-p . tramp-sh-handle-file-exists-p) (file-in-directory-p . tramp-handle-file-in-directory-p) (file-local-copy . tramp-sh-handle-file-local-copy) (file-modes . tramp-handle-file-modes) (file-name-all-completions . tramp-sh-handle-file-name-all-completions) (file-name-as-directory . tramp-handle-file-name-as-directory) (file-name-case-insensitive-p . tramp-handle-file-name-case-insensitive-p) (file-name-completion . tramp-handle-file-name-completion) (file-name-directory . tramp-handle-file-name-directory) (file-name-nondirectory . tramp-handle-file-name-nondirectory) (file-newer-than-file-p . tramp-sh-handle-file-newer-than-file-p) (file-notify-add-watch . tramp-sh-handle-file-notify-add-watch) (file-notify-rm-watch . tramp-handle-file-notify-rm-watch) (file-notify-valid-p . tramp-handle-file-notify-valid-p) (file-ownership-preserved-p . tramp-sh-handle-file-ownership-preserved-p) (file-readable-p . tramp-sh-handle-file-readable-p) (file-regular-p . tramp-handle-file-regular-p) (file-remote-p . tramp-handle-file-remote-p) (file-selinux-context . tramp-sh-handle-file-selinux-context) (file-symlink-p . tramp-handle-file-symlink-p) (file-system-info . tramp-sh-handle-file-system-info) (file-truename . tramp-sh-handle-file-truename) (file-writable-p . tramp-sh-handle-file-writable-p) (find-backup-file-name . tramp-handle-find-backup-file-name) (insert-directory . tramp-sh-handle-insert-directory) (insert-file-contents . tramp-handle-insert-file-contents) (load . tramp-handle-load) (make-auto-save-file-name . tramp-handle-make-auto-save-file-name) (make-directory . tramp-sh-handle-make-directory) (make-nearby-temp-file . tramp-handle-make-nearby-temp-file) (make-process . tramp-sh-handle-make-process) (make-symbolic-link . tramp-sh-handle-make-symbolic-link) (process-file . tramp-sh-handle-process-file) (rename-file . tramp-sh-handle-rename-file) (set-file-acl . tramp-sh-handle-set-file-acl) (set-file-modes . tramp-sh-handle-set-file-modes) (set-file-selinux-context . tramp-sh-handle-set-file-selinux-context) (set-file-times . tramp-sh-handle-set-file-times) (set-visited-file-modtime . tramp-sh-handle-set-visited-file-modtime) (shell-command . tramp-handle-shell-command) (start-file-process . tramp-handle-start-file-process) (substitute-in-file-name . tramp-handle-substitute-in-file-name) (temporary-file-directory . tramp-handle-temporary-file-directory) (tramp-set-file-uid-gid . tramp-sh-handle-set-file-uid-gid) (unhandled-file-name-directory . ignore) (vc-registered . tramp-sh-handle-vc-registered) (verify-visited-file-modtime . tramp-sh-handle-verify-visited-file-modtime) (write-region . tramp-sh-handle-write-region)) (#$ . 29364)) #@273 Like `make-symbolic-link' for Tramp files. If TARGET is a non-Tramp file, it is used verbatim as the target of the symlink. If TARGET is a Tramp file, only the localname component is used as the target of the symlink. (fn TARGET LINKNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-sh-handle-make-symbolic-link #[770 "\306\307!!\204 \310\311E\"\207\312!\211\242>\204! \313\314\315D\"\210\211A@\242>\2042 \313\314\315D\"\210\3168\242>\204C \313\314\315D\"\210\3178\242>\204U \313\314\315D\"\210\3208\242>\204g \313\314\315D\"\210\3218\242>\204y \313\314\315D\"\210\3228\242>\204\215 \313\314\315 D\"\210\3238\324\306 !\203\300 \325\312 !\"\203\300 \312\307\f!!\211\242>\204\271 \313\314\315D\"\210\3228\262\262 )\306 !\203\377 \311 \326\211?\205\322 \n\211?\205\333 \n\327\330\331!\")\266\202\203\354 \202\364 \332!\330\331!Q)\266\202 #\202_\333!\310\334C\"\204\375 \335\336\337\211\211 \340Y\203\211\203\340\211\340\341\342\343! @\344\216@ @\345 \210)r@q\210\346 +C\3471\326 X\205\322\f\203u\317X\203u\350\351\352U\203[\353\202p\354U\203e\353\202p\316U\203o\355\202p\356P#\210 \320Y\205\322\352 \354U\203\262\3571\255r\360!\203\224\361!\202\230\362\363\"q\210\341P\262\364\346 C\"\211\262)0\202\261\210\202\262\210\360!\203\276\365\366\"\262)\242>\205\322\350\367\370\371\"P$0\202\332\210\202\333\210\266\202Ar\372\373!q\210p\374 \210A\337\211BC\324\211D\324 E F\375 \210\376\377!\210+\211 @\345 \210\201G !\210)\266\210\211\204#C\262\201H \262\203\350\354\201H \201I \211\201J N\350\201K #E!C\201L 1\341 X\205\335\f\203~\317X\203~\350\351\352U\203d\353\202y\354U\203n\353\202y\316U\203x\355\202y\356P#\210 \320Y\205\335\352 \354U\203\275\201M 1\270r\360!\203\237\361!\202\243\362\363\"q\210\341P\262\364\346 C\"\211\262)0\202\274\210\202\275\210\360!\203\311\365\366\"\262)\242>\205\335\350\367\370\371\"P$0\202\345\210\202\346\210\266\313\201N \350\201K #!C\"\210*\266\201O \f!\203\"\n\203 \n\247\203\201P \370\201Q \"!\204 \201R \337\211\211 \340Y\2030\211\203\373\211\340\341\342\343! @\201S \216@ @\345 \210)r@q\210\346 +C\201T 1\361 X\205\355\f\203\216\317X\203\216\350\351\352U\203t\353\202\211\354U\203~\353\202\211\316U\203\210\355\202\211\356P#\210 \320Y\205\355\352 \354U\203\315\201U 1\310r\360!\203\257\361!\202\263\362\363\"q\210\341P\262\364\346 C\"\211\262)0\202\314\210\202\315\210\360!\203\331\365\366\"\262)\242>\205\355\350\367\370\371\"P$0\202\365\210\202\366\210\266\2020Ar\372\373!q\210p\374 \210A\337\211BC\324\211D\324 E F\375 \210\376\377!\210+\211 @\345 \210\201G !\210)\266\210\211\204>C\262\201H \262\203\354\201H \201I \211\201J N\350\201K #E!C\201V 1\374 X\205\370\f\203\231\317X\203\231\350\351\352U\203\353\202\224\354U\203\211\353\202\224\316U\203\223\355\202\224\356P#\210 \320Y\205\370\352 \354U\203\330\201W 1\323r\360!\203\272\361!\202\276\362\363\"q\210\341P\262\364\346 C\"\211\262)0\202\327\210\202\330\210\360!\203\344\365\366\"\262)\242>\205\370\350\367\370\371\"P$0\202 \210\202\210\266\313\201N \350\201K #!C\"\210*\266\202\"\201X \f!\210\201Y \n\"\210\201Z \n\370\201[ \201\\ !\"\"\205]\201Z \n\370\201] \201\\ !\201\\ \201^ \201_ \f!P!$\"\266\202\207" [cl-struct-tramp-file-name-tags non-essential file-name-handler-alist signal-hook-function tramp-message-show-message tramp-verbose tramp-tramp-file-p expand-file-name tramp-run-real-handler make-symbolic-link tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 t tramp-file-name-equal-p top string-prefix-p "/:" file-local-name file-remote-p tramp-get-remote-ln file-name-directory file-error "Making a symbolic link. ln(1) does not exist on the remote host." nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook standard-output default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties file-exists-p yes-or-no-p "File %s already exists; make it a link anyway? " file-already-exists #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) delete-file tramp-flush-file-properties tramp-send-command-and-check "cd %s" tramp-shell-quote-argument "%s -sf %s %s" "./" file-name-nondirectory] 29 (#$ . 33196)]) #@54 Like `file-truename' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-truename #[257 "\306!\203\n \307\202 \310\311\211?\205 \312\313\314!\")\266\202\203$ \315\202% \310\316\317!\311\211?\2050 \314!\211\211?\205< \312\313\314!\")\266\202\203Z \211G\320U\203T \321\202X \322\320\"\262\323!P)\266\203!\211\242 >\204q \324\325\326D\"\210\211A@\242 >\204\202 \324\325\326D\"\210\3208\242 >\204\223 \324\325\326D\"\210\3278\242 >\204\245 \324\325\326D\"\210\3308\242 >\204\267 \324\325\326D\"\210\3318\242 >\204\311 \324\325\326D\"\210\3328\242 >\204\335 \324\325\326 D\"\210\3338\334\335!\203\327\n\336\n\337\340$\211\340=\203\321\n\311 \330\341C\3421\232\nX\205\226 \2039\327X\2039\343\344\345U\203 \346\2024\347U\203)\346\2024\320U\2033\350\2024\351P#\210\n\330Y\205\226\345\347U\203v\3521qr\353!\203X\354!\202\\\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202u\210\202v\210\353!\203\202\362\363\"\262)\242 >\205\226\343\364\365\366\"P$0\202\236\210\202\237\210\266\367\f!\203\314\370\f\365\371\367!\372 !#\"\210r\355\f!q\210eb\210e\373 {\262)\202\261\374\f!\203\375\f\376\311#\203\375\f\377\311#\203\201G \f\f\201H #\210\201I \f\365\201J \372\n!\"\"\262\202\261\201K \321\201L #\311\345\201M \311\203eW\203e\211A\262\242\262\331\201N \360\201O \201P ! C#\321\201Q \310#\266\202C\201R 1\344\nX\205\340 \203\201\327X\203\201\343\344\345U\203g\346\202|\347U\203q\346\202|\320U\203{\350\202|\351P#\210\n\330Y\205\340\345\347U\203\300\201S 1\273r\353!\203\242\354!\202\246\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\277\210\202\300\210\353!\203\314\362\363\"\262)\242 >\205\340\343\364\365\366\"P$0\202\350\210\202\351\210\266\201T \334\360\201U \201P ! C#\321\201Q \310#\266\202\201V #!\211@\262\262\201W \230\203\314\331\201X \311\201Y 1\302\nX\205\276 \203_\327X\203_\343\344\345U\203E\346\202Z\347U\203O\346\202Z\320U\203Y\350\202Z\351P#\210\n\330Y\205\276\345\347U\203\236\201Z 1\231r\353!\203\200\354!\202\204\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\235\210\202\236\210\353!\203\252\362\363\"\262)\242 >\205\276\343\364\365\366\"P$0\202\306\210\202\307\210\266\202\201[ \230\203\212\331\201\\ \311\201] 1z\nX\205v \203\327X\203\343\344\345U\203\375\346\202\347U\203\346\202\320U\203\350\202\351P#\210\n\330Y\205v\345\347U\203V\201^ 1Qr\353!\2038\354!\202<\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202U\210\202V\210\353!\203b\362\363\"\262)\242 >\205v\343\364\365\366\"P$0\202~\210\202\210\266\211A\262\210\202\211;\203\\\331\201_ C\201` 16\nX\2052 \203\323\327X\203\323\343\344\345U\203\271\346\202\316\347U\203\303\346\202\316\320U\203\315\350\202\316\351P#\210\n\330Y\2052\345\347U\203\201a 1 r\353!\203\364\354!\202\370\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\210\202\210\353!\203 \362\363\"\262)\242 >\2052\343\364\365\366\"P$0\202:\210\202;\210\266T\262\335!\203J\311\262\360\201K \321\201L #\"\262\202B\262\202Y\203\203\201b \201c C\311\211 \n\201d Y\203\233\211\203T\211\201d \357\201e \201f ! @\201g \216@ @\201h \210)r@q\210\361 +C\201i 1J\nX\205F \203\347\327X\203\347\343\344\345U\203\315\346\202\342\347U\203\327\346\202\342\320U\203\341\350\202\342\351P#\210\n\330Y\205F\345\347U\203&\201j 1!r\353!\203\354!\202\f\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202%\210\202&\210\353!\2032\362\363\"\262)\242 >\205F\343\364\365\366\"P$0\202N\210\202O\210\266\202\233Ar\201k \201l !q\210p\201m \210A\311\211BC\201n \211D\201n E F\201o \210\201p \201q !\210+\211 @\201h \210\201r !\210)\266\210\211\204\251C\262\201s \262\203n\347\201s \201t \211\201u N\343\201v #E!C\201w 1g\nX\205c \203\327X\203\343\344\345U\203\352\346\202\377\347U\203\364\346\202\377\320U\203\376\350\202\377\351P#\210\n\330Y\205c\345\347U\203C\201x 1>r\353!\203%\354!\202)\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202B\210\202C\210\353!\203O\362\363\"\262)\242 >\205c\343\364\365\366\"P$0\202k\210\202l\210\266\324\201y \343\201v #!C\"\210*\266\201P !\262\203\240\346B\321\201Q \310#\266\202\202\241\321\262\211\346\230\262\203\257\321\262\266\201z !\203\332 \211\230\203\332 \201b \201{ C\311\211 \n\201d Y\203\362\211\203\253\211\201d \357\201e \201f ! @\201| \216@ @\201h \210)r@q\210\361 +C\201} 1\241\nX\205\235 \203>\327X\203>\343\344\345U\203$\346\2029\347U\203.\346\2029\320U\2038\350\2029\351P#\210\n\330Y\205\235\345\347U\203}\201~ 1xr\353!\203_\354!\202c\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202|\210\202}\210\353!\203\211\362\363\"\262)\242 >\205\235\343\364\365\366\"P$0\202\245\210\202\246\210\266\202\362Ar\201k \201l !q\210p\201m \210A\311\211BC\201n \211D\201n E F\201o \210\201p \201q !\210+\211 @\201h \210\201r !\210)\266\210\211\204 C\262\201s \262\203\305 \347\201s \201t \211\201u N\343\201v #E!C\201 1\276 \nX\205\272 \203[ \327X\203[ \343\344\345U\203A \346\202V \347U\203K \346\202V \320U\203U \350\202V \351P#\210\n\330Y\205\272 \345\347U\203\232 \201\200 1\225 r\353!\203| \354!\202\200 \355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\231 \210\202\232 \210\353!\203\246 \362\363\"\262)\242 >\205\272 \343\364\365\366\"P$0\202\302 \210\202\303 \210\266\324\201y \343\201v #!C\"\210*\266\323!\203\n\211\201\201 \211?\205\352 \211?\205\363 \312\313\314!\")\266\202\203\n\202\f\n\323!\313\314!Q)\266\202\262 \330\201\202 D\201\203 1\272\n\nX\205\266\n \203W\n\327X\203W\n\343\344\345U\203=\n\346\202R\n\347U\203G\n\346\202R\n\320U\203Q\n\350\202R\n\351P#\210\n\330Y\205\266\n\345\347U\203\226\n\201\204 1\221\nr\353!\203x\n\354!\202|\n\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\225\n\210\202\226\n\210\353!\203\242\n\362\363\"\262)\242 >\205\266\n\343\364\365\366\"P$0\202\276\n\210\202\277\n\210\266\211\262\262\201\205 \337$\210\211\262\202\246\311\n\330\341C\201\206 1~ \nX\205z \203 \327X\203 \343\344\345U\203 \346\202 \347U\203 \346\202 \320U\203 \350\202 \351P#\210\n\330Y\205z \345\347U\203Z \201\207 1U r\353!\203< \354!\202@ \355\356\"q\210\357P\262\360\361 C\"\211\262)0\202Y \210\202Z \210\353!\203f \362\363\"\262)\242 >\205z \343\364\365\366\"P$0\202\202 \210\202\203 \210\266\367 !\203\260 \370 \365\371\367!\372\n!#\"\210r\355 !q\210eb\210e\373 {\262)\202\224\374 !\203\350 \375 \376\311#\203\350 \375 \377\311#\203\350 \201G \f\201H #\210\201I \365\201J \372 !\"\"\262\202\224\201K \321\201L #\311\345\201M \311\203HW\203H\211A\262\242\262\331\201N \360\201O \201P ! C#\321\201Q \310#\266\202C\201\210 1\307\f\nX\205\303\f \203d\f\327X\203d\f\343\344\345U\203J\f\346\202_\f\347U\203T\f\346\202_\f\320U\203^\f\350\202_\f\351P#\210\n\330Y\205\303\f\345\347U\203\243\f\201\211 1\236\fr\353!\203\205\f\354!\202\211\f\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\242\f\210\202\243\f\210\353!\203\257\f\362\363\"\262)\242 >\205\303\f\343\364\365\366\"P$0\202\313\f\210\202\314\f\210\266\201T \334\360\201U \201P ! C#\321\201Q \310#\266\202\201V #!\211@\262\262\201W \230\203\257 \331\201X \311\201\212 1\245 \nX\205\241 \203B \327X\203B \343\344\345U\203( \346\202= \347U\2032 \346\202= \320U\203< \350\202= \351P#\210\n\330Y\205\241 \345\347U\203\201 \201\213 1| r\353!\203c \354!\202g \355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\200 \210\202\201 \210\353!\203\215 \362\363\"\262)\242 >\205\241 \343\364\365\366\"P$0\202\251 \210\202\252 \210\266\202\367 \201[ \230\203m\331\201\\ \311\201\214 1]\nX\205Y \203\372 \327X\203\372 \343\344\345U\203\340 \346\202\365 \347U\203\352 \346\202\365 \320U\203\364 \350\202\365 \351P#\210\n\330Y\205Y\345\347U\2039\201\215 14r\353!\203\354!\202 \355\356\"q\210\357P\262\360\361 C\"\211\262)0\2028\210\2029\210\353!\203E\362\363\"\262)\242 >\205Y\343\364\365\366\"P$0\202a\210\202b\210\266\211A\262\210\202\367 \211;\203?\331\201_ C\201\216 1\nX\205 \203\266\327X\203\266\343\344\345U\203\234\346\202\261\347U\203\246\346\202\261\320U\203\260\350\202\261\351P#\210\n\330Y\205\345\347U\203\365\201\217 1\360r\353!\203\327\354!\202\333\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\364\210\202\365\210\353!\203\362\363\"\262)\242 >\205\343\364\365\366\"P$0\202 \210\202 \210\266T\262\335!\203-\311\262\360\201K \321\201L #\"\262\202\367 B\262\202\367 Y\203f\201b \201c C\311\211 \n\201d Y\203~\211\2037\211\201d \357\201e \201f ! @\201\220 \216@ @\201h \210)r@q\210\361 +C\201\221 1-\nX\205) \203\312\327X\203\312\343\344\345U\203\260\346\202\305\347U\203\272\346\202\305\320U\203\304\350\202\305\351P#\210\n\330Y\205)\345\347U\203 \201\222 1r\353!\203\353\354!\202\357\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202\210\202 \210\353!\203\362\363\"\262)\242 >\205)\343\364\365\366\"P$0\2021\210\2022\210\266\202~Ar\201k \201l !q\210p\201m \210A\311\211BC\201n \211D\201n E F\201o \210\201p \201q !\210+\211 @\201h \210\201r !\210)\266\210\211\204\214C\262\201s \262\203Q\347\201s \201t \211\201u N\343\201v #E!C\201\223 1J\nX\205F \203\347\327X\203\347\343\344\345U\203\315\346\202\342\347U\203\327\346\202\342\320U\203\341\350\202\342\351P#\210\n\330Y\205F\345\347U\203&\201\224 1!r\353!\203\354!\202\f\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202%\210\202&\210\353!\2032\362\363\"\262)\242 >\205F\343\364\365\366\"P$0\202N\210\202O\210\266\324\201y \343\201v #!C\"\210*\266\201P !\262\203\203\346B\321\201Q \310#\266\202\202\204\321\262\211\346\230\262\203\222\321\262\266\201z !\203\274\211\230\203\274\n\201b \201{ C\311\211 \n\201d Y\203\324\211\203\215\211\201d \357\201e \201f ! @\201\225 \216@ @\201h \210)r@q\210\361 +C\201\226 1\203\nX\205 \203 \327X\203 \343\344\345U\203\346\202\347U\203\346\202\320U\203\350\202\351P#\210\n\330Y\205\345\347U\203_\201\227 1Zr\353!\203A\354!\202E\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202^\210\202_\210\353!\203k\362\363\"\262)\242 >\205\343\364\365\366\"P$0\202\207\210\202\210\210\266\202\324Ar\201k \201l !q\210p\201m \210A\311\211BC\201n \211D\201n E F\201o \210\201p \201q !\210+\211 @\201h \210\201r !\210)\266\210\211\204\342C\262\201s \262\203\247\347\201s \201t \211\201u N\343\201v #E!C\201\230 1\240\nX\205\234 \203=\327X\203=\343\344\345U\203#\346\2028\347U\203-\346\2028\320U\2037\350\2028\351P#\210\n\330Y\205\234\345\347U\203|\201\231 1wr\353!\203^\354!\202b\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202{\210\202|\210\353!\203\210\362\363\"\262)\242 >\205\234\343\364\365\366\"P$0\202\244\210\202\245\210\266\324\201y \343\201v #!C\"\210*\266\323!\203\363\211\201\201 \211?\205\314\211?\205\325\312\313\314!\")\266\202\203\346\202\356\323!\313\314!Q)\266\202\262\n\330\201\202 D\201\232 1\234\nX\205\230 \2039\327X\2039\343\344\345U\203 \346\2024\347U\203)\346\2024\320U\2033\350\2024\351P#\210\n\330Y\205\230\345\347U\203x\201\233 1sr\353!\203Z\354!\202^\355\356\"q\210\357P\262\360\361 C\"\211\262)0\202w\210\202x\210\353!\203\204\362\363\"\262)\242 >\205\230\343\364\365\366\"P$0\202\240\210\202\241\210\266\211\262\201V #\266\210!!\207" [file-name-handler-alist cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message tramp-perl-file-truename signal-hook-function tramp-compat-directory-name-p file-name-as-directory identity nil string-prefix-p "/:" file-local-name tramp-compat-file-name-quote tramp-dissect-file-name expand-file-name 2 "/" substring file-remote-p signal wrong-type-argument tramp-file-name 3 4 5 6 7 tramp-make-tramp-file-name file-name-absolute-p tramp-get-file-property "file-truename" undef "Finding true name for `%s'" (error) apply message 0 #1="" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-get-remote-readlink tramp-send-command-and-check "%s --canonicalize-missing %s" tramp-shell-quote-argument point-at-eol tramp-get-remote-perl tramp-get-connection-property "perl-file-spec" "perl-cwd-realpath" standard-output default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only tramp-maybe-send-script "tramp_perl_file_truename" tramp-send-command-and-read "tramp_perl_file_truename %s" split-string omit 20 "Check %s" (#1#) reverse mapconcat (error) (error) file-attributes (#1#) nohop "." "Ignoring step `.'" (error) (error) ".." "Processing step `..'" (error) (error) "Follow symlink to %s" (error) (error) file-error "Maximum number (%d) of symlinks exceeded" 10 generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace (error) (error) get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties file-symlink-p "Apparent cycle of symbolic links for %s" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) top "True name of `%s' is `%s'" (error) (error) tramp-set-file-property (error) (error) (error) (error) (error) (error) (error) (error) (error) (error) #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) (error) (error)] 36 (#$ . 38173)]) #@54 Like `file-exists-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-exists-p #[257 "\301!\205\372 \302!\211\242>\204 \303\304\305D\"\210\211A@\242>\204( \303\304\305D\"\210\3068\242>\2049 \303\304\305D\"\210\3078\242>\204K \303\304\305D\"\210\3108\242>\204] \303\304\305D\"\210\3118\242>\204o \303\304\305D\"\210\3128\242>\204\203 \303\304\305 D\"\210\3138\314!\203\321 \315\316\317$\211\317=\203\313 \315 \320\321$??\206\301 \315 \322\321$??\206\301 \323 \324\325\326 !\327!#\"\262\330 \316$\210\211\262\202\370 \315\320\321$??\206\370 \315\322\321$??\206\370 \323\324\325\326\f!\327!#\"\266\210\207" [cl-struct-tramp-file-name-tags tramp-connectable-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-exists-p" undef "file-attributes-integer" nil "file-attributes-string" tramp-send-command-and-check format "%s %s" tramp-get-file-exists-command tramp-shell-quote-argument tramp-set-file-property] 17 (#$ . 52495)]) #@76 Like `file-attributes' for Tramp files. (fn FILENAME &optional ID-FORMAT) (defalias 'tramp-sh-handle-file-attributes #[513 "\211\204 \302\262\3031%\304\305!!\211\242 >\204 \306\307\310D\"\210\211A@\242 >\2041 \306\307\310D\"\210\3118\242 >\204B \306\307\310D\"\210\3128\242 >\204T \306\307\310D\"\210\3138\242 >\204f \306\307\310D\"\210\3148\242 >\204x \306\307\310D\"\210\3158\242 >\204\214 \306\307\310 D\"\210\3168\317!\203\357 \320\321\322 \"\323$\211\323=\203\351 \324 \325 !\203\274 \326 #\202\317 \327 !\203\316 \330 #\202\317 \331\206\332 \332 #\"\262\333 \321\322\"$\210\211\262\202 \324\325\n!\203\326\n #\202\327\n!\203\330\n #\202\331\206 \332\n #\"\266\210)0\207\210\331\207" [last-coding-system-used cl-struct-tramp-file-name-tags integer (error) tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property format "file-attributes-%s" undef tramp-convert-file-attributes tramp-get-remote-stat tramp-do-file-attributes-with-stat tramp-get-remote-perl tramp-do-file-attributes-with-perl nil tramp-do-file-attributes-with-ls tramp-set-file-property] 17 (#$ . 53580)]) #@53 Quoting style options to be used for VEC. (fn VEC) (defalias 'tramp-sh--quoting-style-options #[257 "\300\301\"\206 \300\302\"\206 \303\207" [tramp-get-ls-command-with "--quoting-style=literal --show-control-chars" "-w" ""] 4 (#$ . 54832)]) #@110 Implement `file-attributes' for Tramp files using the ls(1) command. (fn VEC LOCALNAME &optional ID-FORMAT) (defalias 'tramp-do-file-attributes-with-ls #[770 "\306\211\211\211\211\211\211\211\211 \307\310 C\3111\253 X\205\247 \203J \312X\203J \313\314\315U\2030 \316\202E \317U\203: \316\202E \320U\203D \321\202E \322P#\210\323Y\205\247 \315\317U\203\207 \3241\202 r\325!\203i \326!\202m \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\206 \210\202\207 \210\325!\203\223 \334\335\"\262)\242\n>\205\247 \313\336\337\340\"P$0\202\257 \210\202\260 \210\266\341\f\337\342\343!\344!#\"\204\326 \341\f\337\345\346!\344!#\"\205\233\347\f\337\350\351!\352=\203\352 \353\202\353 \354\355!\344!%\"\210r\356\f!q\210\357 \315V\205\232eb\210\360p!\262\361\360p!!\262\360p!\262\360p!\262\360p!\262 \352=\203<\247\2041 \262\247\204P \262\202P;\204F\361!\262;\204P\361!\262\360p!\262\315H\362=\262 \315H\363=\262\203\204\364\365!\210\366\367 \370!)\262\203~\360p!\202\202`\371 {\262\206\212\211 \211\211 \367\372\257\f)\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-unknown-id-integer inhibit-changing-match-data tramp-time-dont-know nil 5 "file attributes with ls: %s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command-and-check "%s %s" tramp-get-file-exists-command tramp-shell-quote-argument "%s -h %s" tramp-get-test-command tramp-send-command "%s %s %s %s" tramp-get-ls-command integer "-ildn" "-ild" tramp-sh--quoting-style-options tramp-get-buffer buffer-size read symbol-name 108 100 search-forward "-> " "\"" t looking-at point-at-eol -1] 24 (#$ . 55085)]) #@106 Implement `file-attributes' for Tramp files using a Perl script. (fn VEC LOCALNAME &optional ID-FORMAT) (defalias 'tramp-do-file-attributes-with-perl #[770 "\304\305C\3061\240 X\205\234 \203? \307X\203? \310\311\312U\203% \313\202: \314U\203/ \313\202: \315U\2039 \316\202: \317P#\210\320Y\205\234 \312\314U\203| \3211w r\322!\203^ \323!\202b \324\325\"q\210\326P\262\327\330 C\"\211\262)0\202{ \210\202| \210\322!\203\210 \331\332\"\262)\242\n>\205\234 \310\333\334\335\"P$0\202\244 \210\202\245 \210\266\336 \337#\210\340\334\341\342!#\"\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-perl-file-attributes 5 "file attributes with perl: %s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-maybe-send-script "tramp_perl_file_attributes" tramp-send-command-and-read "tramp_perl_file_attributes %s %s" tramp-shell-quote-argument] 13 (#$ . 56965)]) #@108 Implement `file-attributes' for Tramp files using stat(1) command. (fn VEC LOCALNAME &optional ID-FORMAT) (defalias 'tramp-do-file-attributes-with-stat #[770 "\305\306C\3071\240 X\205\234 \203? \310X\203? \311\312\313U\203% \314\202: \315U\203/ \314\202: \316U\2039 \317\202: \320P#\210\321Y\205\234 \313\315U\203| \3221w r\323!\203^ \324!\202b \325\326\"q\210\327P\262\330\331 C\"\211\262)0\202{ \210\202| \210\323!\203\210 \332\333\"\262)\242\n>\205\234 \311\334\335\336\"P$0\202\244 \210\202\245 \210\266\337\335\340\341!\342!\343 !\342 !\344 ! \211 \345=\203\314 \346\202\315 \347\f\345=\203\330 \350\202\331 \351 \211\342!\f&\"\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-stat-marker tramp-stat-quoted-marker 5 "file attributes with stat: %s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command-and-read "( (%s %s || %s -h %s) && (%s -c '((%s%%N%s) %%h %s %s %%X %%Y %%Z %%s %s%%A%s t %%i -1)' %s | sed -e 's/\"/\\\\\"/g' -e 's/%s/\"/g') || echo nil)" tramp-get-file-exists-command tramp-shell-quote-argument tramp-get-test-command tramp-get-remote-stat integer "%u" "/////%U/////" "%g" "/////%G/////"] 20 (#$ . 58063)]) #@76 Like `set-visited-file-modtime' for Tramp files. (fn &optional TIME-LIST) (defalias 'tramp-sh-handle-set-visited-file-modtime #[256 "\305 \204 \306\307\310 \"\210\211\203 \311\312C\"\207\305 \313\314!\211\242>\204) \315\316\317D\"\210\211A@\242>\204: \315\316\317D\"\210\3208\242>\204K \315\316\317D\"\210\3218\242>\204] \315\316\317D\"\210\3228\242>\204o \315\316\317D\"\210\3238\242>\204\201 \315\316\317D\"\210\3248\242>\204\225 \315\316\317 D\"\210\3258\326\327\n!\211\3238\262\206\251 \n \262 \330\f\"\204\274 \311\312C\"\210\202\332 \331\n\332\333\334!\335 !#\"\210`\336 {\262\337\n\340$\210\n)\313\266\202\266\210\207" [cl-struct-tramp-file-name-tags remote-file-name-inhibit-cache tramp-time-doesnt-exist last-coding-system-used tramp-time-dont-know buffer-file-name error "Can't set-visited-file-modtime: buffer `%s' not visiting a file" buffer-name tramp-run-real-handler set-visited-file-modtime nil tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 t file-attributes tramp-compat-time-equal-p tramp-send-command format "%s -ild %s" tramp-get-ls-command tramp-shell-quote-argument point-at-eol tramp-set-file-property "visited-file-modtime-ild"] 20 (#$ . 59460)]) #@325 Like `verify-visited-file-modtime' for Tramp files. At the time `verify-visited-file-modtime' calls this function, we already know that the buffer is visiting a file and that `visited-file-modtime' does not return 0. Do not call this function directly, unless those two cases are already taken care of. (fn &optional BUF) (defalias 'tramp-sh-handle-verify-visited-file-modtime #[256 "r\211\206 pq\210\304 \211\203 \305\306 !\307U\204 \310\311\312#\204# \313\202 \314!\211\242>\2044 \315\316\317D\"\210\211A@\242>\204E \315\316\317D\"\210\3208\242>\204V \315\316\317D\"\210\3218\242>\204h \315\316\317D\"\210\3228\242>\204z \315\316\317D\"\210\3238\242>\204\214 \315\316\317D\"\210\3248\242>\204\240 \315\316\317 D\"\210\3258\313\326 !\211\3238\262\306 \203\310 \327\n\"\204\310 \330\331\"!\320W\202\373 \203\367 \332 \333\334\335!\336\n!#\"\210r\337 !q\210`\340 {\262)\341\f\342\343$\232\202\373 \327 \")\266\203\266\210\262)\207" [cl-struct-tramp-file-name-tags remote-file-name-inhibit-cache tramp-time-dont-know tramp-time-doesnt-exist buffer-file-name float-time visited-file-modtime 0 file-remote-p nil connected t tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-attributes tramp-compat-time-equal-p abs tramp-time-diff tramp-send-command format "%s -ild %s" tramp-get-ls-command tramp-shell-quote-argument tramp-get-buffer point-at-eol tramp-get-file-property "visited-file-modtime-ild" ""] 20 (#$ . 60724)]) #@60 Like `set-file-modes' for Tramp files. (fn FILENAME MODE) (defalias 'tramp-sh-handle-set-file-modes #[514 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313\"\210\314\315\316\f\317!#\320 $\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties tramp-barf-unless-okay format "chmod %o %s" tramp-shell-quote-argument "Error while changing file's mode %s"] 17 (#$ . 62242)]) #@70 Like `set-file-times' for Tramp files. (fn FILENAME &optional TIME) (defalias 'tramp-sh-handle-set-file-times #[513 "\303!\211\242>\204 \304\305\306D\"\210\211A@\242>\204\" \304\305\306D\"\210\3078\242>\2043 \304\305\306D\"\210\3108\242>\204E \304\305\306D\"\210\3118\242>\204W \304\305\306D\"\210\3128\242>\204i \304\305\306D\"\210\3138\242>\204} \304\305\306 D\"\210\3148\315!\205\321 \316\"\210\203\243 \317 \"\204\243 \317 \n\"\203\250 \320 \202\252 \321 \322\323\315 !\324\325\326#\203\310 \322\327\330\331 \332#\"\202\311 \333\334 !$\"\262\207" [cl-struct-tramp-file-name-tags tramp-time-doesnt-exist tramp-time-dont-know tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-remote-touch tramp-flush-file-properties tramp-compat-time-equal-p current-time tramp-send-command-and-check format "env TZ=UTC %s %s %s" tramp-get-connection-property "touch-t" nil "-t %s" format-time-string "%Y%m%d%H%M.%S" t "" tramp-shell-quote-argument] 22 (#$ . 62964)]) #@81 Like `tramp-set-file-uid-gid' for Tramp files. (fn FILENAME &optional UID GID) (defalias 'tramp-sh-handle-set-file-uid-gid #[769 "\302!\211\242 >\204 \303\304\305D\"\210\211A@\242 >\204$ \303\304\305D\"\210\3068\242 >\2045 \303\304\305D\"\210\3078\242 >\204G \303\304\305D\"\210\3108\242 >\204Y \303\304\305D\"\210\3118\242 >\204k \303\304\305D\"\210\3128\242 >\204 \303\304\305 D\"\210\3138\314 \315U\203\233 \316!\203\233 \317 #\202\314 \320\n!\203\247 \206\254 \321\322\"\320\n!\203\270 \206\275 \323 \322\"\324\n\325\326\327\n!$\"\266\202\266\210)\207" [last-coding-system-used cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 user-uid 0 tramp-local-host-p tramp-set-file-uid-gid natnump tramp-get-remote-uid integer tramp-get-remote-gid tramp-send-command format "chown %d:%d %s" tramp-shell-quote-argument] 21 (#$ . 64017)]) #@65 Check, whether SELINUX is enabled on the remote host. (fn VEC) (defalias 'tramp-remote-selinux-p #[257 "\300\301!\302\303#\211\303=\203 \304\305\"\262\306\301!\302#\210\211\207" [tramp-get-connection-property tramp-get-connection-process "selinux-p" undef tramp-send-command-and-check "selinuxenabled" tramp-set-connection-property] 6 (#$ . 64965)]) #@61 Like `file-selinux-context' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-selinux-context #[257 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313!\203\345 \314\315\316$\211\316=\203\337 \317\320\321 !\203\322 \322 \323\324\325!\326\n!#\"\203\322 r\327 !q\210eb\210\330\331 \332#\203\321 \333\334!\333\305!\333\306!\333\307!F\262)\266\202\262\335 \315$\210\211\262\202&\317\320\321\n!\203#\322\n\323\324\325!\326 !#\"\203#r\327\n!q\210eb\210\330\331 \332#\203\"\333\334!\333\305!\333\306!\333\307!F\262)\266\202\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-selinux-context" undef (nil nil nil nil) "\\([a-z0-9_]+\\):\\([a-z0-9_]+\\):\\([a-z0-9_]+\\):\\([a-z0-9_]+\\)" tramp-remote-selinux-p tramp-send-command-and-check format "%s -d -Z %s" tramp-get-ls-command tramp-shell-quote-argument tramp-get-connection-buffer re-search-forward point-at-eol t match-string 1 tramp-set-file-property] 19 (#$ . 65328)]) #@73 Like `set-file-selinux-context' for Tramp files. (fn FILENAME CONTEXT) (defalias 'tramp-sh-handle-set-file-selinux-context #[514 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128:\205+\313!\205+@;\205\230 @ A@;\205\244 A@\305 8;\205\260 \305 8\306\f8;\205\274 \306\f8\314\f\315\316\203\316 \315\317 \"\202\317 \320\203\334 \315\321 \"\202\335 \320\203\352 \315\322 \"\202\353 \320\203\370 \315\323 \"\202\371 \320\324!&\"\205)\203 \203 \203 \211\203 \325\f\326$\210\202(\327\f\326#\210\330\266\204\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-remote-selinux-p tramp-send-command-and-check format "chcon %s %s %s %s %s" "--user=%s" "" "--role=%s" "--type=%s" "--range=%s" tramp-shell-quote-argument tramp-set-file-property "file-selinux-context" tramp-flush-file-property t] 24 (#$ . 66658)]) #@61 Check, whether ACL is enabled on the remote host. (fn VEC) (defalias 'tramp-remote-acl-p #[257 "\300\301!\302\303#\211\303=\203 \304\305\"\262\306\301!\302#\210\211\207" [tramp-get-connection-property tramp-get-connection-process "acl-p" undef tramp-send-command-and-check "getfacl /" tramp-set-connection-property] 6 (#$ . 67826)]) #@49 Like `file-acl' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-acl #[257 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313!\203\321 \314\315\316$\211\316=\203\313 \317 !\205\301 \320 \321\322\323!\"\"\205\301 r\324 !q\210db\210\325 \210deV\205\300 \326\327 !)\262\330 \315$\210\211\262\202\376 \317!\205\376 \320\321\322\323!\"\"\205\376 r\324!q\210db\210\325 \210deV\205\375 \326\327 !)\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-acl" undef tramp-remote-acl-p tramp-send-command-and-check format "getfacl -ac %s" tramp-shell-quote-argument tramp-get-connection-buffer delete-blank-lines substring-no-properties buffer-string tramp-set-file-property] 16 (#$ . 68172)]) #@64 Like `set-file-acl' for Tramp files. (fn FILENAME ACL-STRING) (defalias 'tramp-sh-handle-set-file-acl #[514 "\302\303!!\211\242>\204 \304\305\306D\"\210\211A@\242>\204$ \304\305\306D\"\210\3078\242>\2045 \304\305\306D\"\210\3108\242>\204G \304\305\306D\"\210\3118\242>\204Y \304\305\306D\"\210\3128\242>\204k \304\305\306D\"\210\3138\242>\204 \304\305\306 D\"\210\3148;\203\265 \315!\203\265 \316\317\320\321! %\"\210\322\323\"\203\265 \324\325\f$\210\326\202\275 \327\330#\210\323\207" [cl-struct-tramp-file-name-tags tramp-end-of-heredoc tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-remote-acl-p tramp-send-command format "setfacl --set-file=- %s <<'%s'\n%s\n%s\n" tramp-shell-quote-argument tramp-send-command-and-check nil tramp-set-file-property "file-acl" t tramp-flush-file-property "file-acl-string"] 18 (#$ . 69256)]) #@58 Like `file-executable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-executable-p #[257 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313!\203\261 \314\315\316$\211\316=\203\253 \317 \320\"\206\241 \321\322 \"\262\323 \315$\210\211\262\202\276 \317\320\"\206\276 \321\322\n\"\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-executable-p" undef tramp-check-cached-permissions 120 tramp-run-test "-x" tramp-set-file-property] 15 (#$ . 70202)]) #@56 Like `file-readable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-readable-p #[257 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313!\203\261 \314\315\316$\211\316=\203\253 \317 \320\"\206\241 \321\322 \"\262\323 \315$\210\211\262\202\276 \317\320\"\206\276 \321\322\n\"\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-readable-p" undef tramp-check-cached-permissions 114 tramp-run-test "-r" tramp-set-file-property] 15 (#$ . 71049)]) #@66 Like `file-newer-than-file-p' for Tramp files. (fn FILE1 FILE2) (defalias 'tramp-sh-handle-file-newer-than-file-p #[514 "\306!\204 \307\207\306!\204 \310\207\311!\311!\312\3138\262\"\204? \312\3138\262\"\204? \314\3138\262\3138\262\"\202B\315\"\204\261\316\317!\203Q \202R !\211\242 >\204a \320\321\322D\"\210\211A@\242 >\204r \320\321\322D\"\210\3238\242 >\204\203 \320\321\322D\"\210\3248\242 >\204\225 \320\321\322D\"\210\3258\242 >\204\247 \320\321\322D\"\210\3138\242 >\204\271 \320\321\322D\"\210\3268\242 >\204\315 \320\321\322 D\"\210\3278\330\331D\307\211\f\332Y\203\327\211\203\245\211\332\333\334\335! \336\216 \337 \210)r q\210\340 +C\3411\233\fX\205\227 \203:\324X\203:\342\343\344U\203 \345\2025\346U\203*\345\2025\323U\2034\347\2025\350P#\210\f\325Y\205\227\344 \346U\203w\3511rr\352!\203Y\353!\202]\354\355\"q\210\333P\262\356\340 C\"\211\262)0\202v\210\202w\210\352!\203\203\357\360\"\262)\242 >\205\227\342\361\362\363\"P$0\202\237\210\202\240\210\266\202\327@r\364\365!q\210p\366 \210@\307\211AB\310\211C\310 D E\367 \210\370\371!\210+\211 \337 \210\372!\210)\266\210\211\204\343C\262\373\262\203\236\346\373\374\211\375N\342\376 #E!C\3771\227\fX\205\223 \2034\324X\2034\342\343\344U\203\345\202/\346U\203$\345\202/\323U\203.\347\202/\350P#\210\f\325Y\205\223\344 \346U\203s\201F 1nr\352!\203U\353!\202Y\354\355\"q\210\333P\262\356\340 C\"\211\262)0\202r\210\202s\210\352!\203\357\360\"\262)\242 >\205\223\342\361\362\363\"P$0\202\233\210\202\234\210\266\320\201G \342\376#!C\"\210*\266\f\316!\211\242 >\204\302\320\321\322D\"\210\211A@\242 >\204\323\320\321\322D\"\210\3238\242 >\204\344\320\321\322D\"\210\3248\242 >\204\366\320\321\322D\"\210\3258\242 >\204\320\321\322D\"\210\3138\242 >\204\320\321\322D\"\210\3268\242 >\204.\320\321\322 D\"\210\3278\201H \201I ! #\266\210\207" [tramp-time-dont-know cl-struct-tramp-file-name-tags signal-hook-function tramp-message-show-message tramp-verbose standard-output file-exists-p nil t file-attributes tramp-compat-time-equal-p 5 time-less-p tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p signal wrong-type-argument tramp-file-name 2 3 4 6 7 file-error "Files %s and %s must have same method, user, host" 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only (error) substring-no-properties tramp-run-test2 tramp-get-test-nt-command] 28 (#$ . 71890)]) #@57 Like `file-directory-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-directory-p #[257 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128G\313U\206\265 \314!\203\260 \315\316\317$\211\317=\203\252 \320\321 \"\262\322 \316$\210\211\262\202\265 \320\321\n\"\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 0 file-name-absolute-p tramp-get-file-property "file-directory-p" undef tramp-run-test "-d" tramp-set-file-property] 15 (#$ . 75025)]) #@56 Like `file-writable-p' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-writable-p #[257 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313!\203\314 \314\315\316$\211\316=\203\306 \317\n!\203\253 \320 \321\"\206\274 \322\323 \"\202\274 \322\324\325\f!\"\205\274 \322\323\325\f!\"\262\326 \315$\210\211\262\202\364 \317 !\203\343 \320\321\"\206\364 \322\323\n\"\202\364 \322\324\325 !\"\205\364 \322\323\325 !\"\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-writable-p" undef file-exists-p tramp-check-cached-permissions 119 tramp-run-test "-w" "-d" file-name-directory tramp-set-file-property] 15 (#$ . 75810)]) #@83 Like `file-ownership-preserved-p' for Tramp files. (fn FILENAME &optional GROUP) (defalias 'tramp-sh-handle-file-ownership-preserved-p #[513 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313!\203\320 \314\315\316$\211\316=\203\312 \317 !\211?\206\276 \211\3058\262\320 \321\"U\205\276 \n?\206\276 \211\3068\262\322 \321\"U\262\262\323 \315$\210\211\262\202\374 \317\n!\211?\206\372 \211\3058\262\320\n\321\"U\205\372 ?\206\372 \211\3068\262\322\n\321\"U\262\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-ownership-preserved-p" undef file-attributes tramp-get-remote-uid integer tramp-get-remote-gid tramp-set-file-property] 16 (#$ . 76829)]) #@110 Like `directory-files-and-attributes' for Tramp files. (fn DIRECTORY &optional FULL MATCH NOSORT ID-FORMAT) (defalias 'tramp-sh-handle-directory-files-and-attributes #[1281 "\211\204 \306\262\307!\204\350\310!\311C\312\211 \313Y\203\211\203\340 \211\313\314\315\316! \317\216\f \320 \210)r\fq\210\321 +C\3221\326 X\205\322 \n\203u \323X\203u \324\325\326U\203[ \327\202p \330U\203e \327\202p \331U\203o \332\202p \333P#\210 \334Y\205\322 \326\330U\203\262 \3351\255 r\336!\203\224 \337!\202\230 \340\341\"q\210\314P\262\342\321 C\"\211\262)0\202\261 \210\202\262 \210\336!\203\276 \343\344\"\262)\242 >\205\322 \324\345\346\347\"P$0\202\332 \210\202\333 \210\266\202@r\350\351!q\210p\352 \210@\312\211AB\353\211C\353 D E\354 \210\355\356!\210+\211 \320 \210\357!\210)\266\210\211\204 C\262\360\262\203\327\330\360\361\211\362N\324\363 #E!C\3641\320 X\205\314\n\203o\323X\203o\324\325\326U\203U\327\202j\330U\203_\327\202j\331U\203i\332\202j\333P#\210 \334Y\205\314\326\330U\203\254\3651\247r\336!\203\216\337!\202\222\340\341\"q\210\314P\262\342\321 C\"\211\262)0\202\253\210\202\254\210\336!\203\270\343\344\"\262)\242 >\205\314\324\345\346\347\"P$0\202\324\210\202\325\210\266\366\367\324\363#!C\"\210*\266\370!\205\243\371!\262\372\310!\211\242 >\204\366\373\374D\"\210\211A@\242 >\204\366\373\374D\"\210\3318\242 >\204(\366\373\374D\"\210\3238\242 >\204:\366\373\374D\"\210\3348\242 >\204L\366\373\374D\"\210\3758\242 >\204^\366\373\374D\"\210\3768\242 >\204r\366\373\374 D\"\210\3778\201G !\203\371\201H \346\201I \"\201J $\211\201J =\203\363\201K \201L \201M \201N \201O \344!\201P \"\375\201Q %\201R !\203\311\201S #\202\340\201T !\203\337\201U #\202\340\312\"\262\201V \346\201I \"$\210\211\262\202A\201K \201L \201M \201N \201O \344 !\201W \"\375\201Q %\201R \n!\203*\201S \n#\202@\201T \n!\203?\201U \n#\202@\312\"\266\210!\312\211\203\200\211A\262\242\262\203j@\312\353 F\201X #)\266\203\203F\203x\211\371@\n\"\240\210\211B\262\202F\203\210\202\220\201Y \201Z \"\206\241\201[ %\266\203\207" [tramp-file-missing signal-hook-function tramp-message-show-message tramp-verbose standard-output cl-struct-tramp-file-name-tags integer file-exists-p tramp-dissect-file-name "No such file or directory" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) signal substring-no-properties file-directory-p expand-file-name copy-tree wrong-type-argument tramp-file-name 5 6 7 default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only inhibit-changing-match-data file-name-absolute-p tramp-get-file-property "directory-files-and-attributes-%s" undef mapcar make-byte-code 257 "\211@\301\300A\"B\207" vconcat [tramp-convert-file-attributes] "\n\n(fn X)" tramp-get-remote-stat tramp-do-directory-files-and-attributes-with-stat tramp-get-remote-perl tramp-do-directory-files-and-attributes-with-perl tramp-set-file-property [tramp-convert-file-attributes] string-match sort #[514 "@@\231\207" [] 4 "\n\n(fn X Y)"] tramp-handle-directory-files-and-attributes] 23 (#$ . 77874)]) #@121 Implement `directory-files-and-attributes' for Tramp files using a Perl script. (fn VEC LOCALNAME &optional ID-FORMAT) (defalias 'tramp-do-directory-files-and-attributes-with-perl #[770 "\306\307C\3101\240 X\205\234 \203? \311X\203? \312\313\314U\203% \315\202: \316U\203/ \315\202: \317U\2039 \320\202: \321P#\210\322Y\205\234 \314\316U\203| \3231w r\324!\203^ \325!\202b \326\327\"q\210\330P\262\331\332 C\"\211\262)0\202{ \210\202| \210\324!\203\210 \333\334\"\262)\242\n>\205\234 \312\335\336\337\"P$0\202\244 \210\202\245 \210\266\340 \341#\210\342\336\343\344!#\"\211;\203\224\345\346\211\211 \347Y\203\276\211\203\214\211\347\330\350\351! \352\216 \353 \210)r q\210\332 +C\3541\202X\205~ \203!\311X\203!\312\313\314U\203\315\202 \316U\203\315\202 \317U\203\320\202 \321P#\210\322Y\205~\314\316U\203^\3551Yr\324!\203@\325!\202D\326\327\"q\210\330P\262\331\332 C\"\211\262)0\202]\210\202^\210\324!\203j\333\334\"\262)\242\n>\205~\312\335\336\337\"P$0\202\206\210\202\207\210\266\202\276>r\356\357!q\210p\360 \210>\346\211?@\361\211A\361 B C\362 \210\363\364!\210+\211 \353 \210\365!\210)\266\210\211\204\312C\262\366\262\203\203\316\366\367\211\370N\312\371 #E!C\3721|X\205x \203\311X\203\312\313\314U\203\315\202\316U\203 \315\202\317U\203\320\202\321P#\210\322Y\205x\314\316U\203X\3731Sr\324!\203:\325!\202>\326\327\"q\210\330P\262\331\332 C\"\211\262)0\202W\210\202X\210\324!\203d\333\334\"\262)\242\n>\205x\312\335\336\337\"P$0\202\200\210\202\201\210\266\374\375\312\371#!C\"\210*\266\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-perl-directory-files-and-attributes signal-hook-function standard-output 5 "directory-files-and-attributes with perl: %s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-maybe-send-script "tramp_perl_directory_files_and_attributes" tramp-send-command-and-read "tramp_perl_directory_files_and_attributes %s %s" tramp-shell-quote-argument file-error nil 10 generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace (error) (error) get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) signal substring-no-properties default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only] 20 (#$ . 81636)]) #@123 Implement `directory-files-and-attributes' for Tramp files using stat(1) command. (fn VEC LOCALNAME &optional ID-FORMAT) (defalias 'tramp-do-directory-files-and-attributes-with-stat #[770 "\305\306C\3071\240 X\205\234 \203? \310X\203? \311\312\313U\203% \314\202: \315U\203/ \314\202: \316U\2039 \317\202: \320P#\210\321Y\205\234 \313\315U\203| \3221w r\323!\203^ \324!\202b \325\326\"q\210\327P\262\330\331 C\"\211\262)0\202{ \210\202| \210\323!\203\210 \332\333\"\262)\242\n>\205\234 \311\334\335\336\"P$0\202\244 \210\202\245 \210\266\337\335\340\341!\342!\343 !\344\n! \211\211\211\f\345=\203\312 \346\202\313 \347 \345=\203\326 \350\202\327 \351 \211\f&\"\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-stat-marker tramp-stat-quoted-marker 5 "directory-files-and-attributes with stat: %s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command-and-read "cd %s && echo \"(\"; (%s %s -a | tr '\\n\\r' '\\000\\000' | xargs -0 %s -c '(%s%%n%s (%s%%N%s) %%h %s %s %%X %%Y %%Z %%s %s%%A%s t %%i -1)' -- 2>/dev/null | sed -e 's/\"/\\\\\"/g' -e 's/%s/\"/g'); echo \")\"" tramp-shell-quote-argument tramp-get-ls-command tramp-sh--quoting-style-options tramp-get-remote-stat integer "%u" "/////%U/////" "%g" "/////%G/////"] 20 (#$ . 84423)]) #@76 Like `file-name-all-completions' for Tramp files. (fn FILENAME DIRECTORY) (defalias 'tramp-sh-handle-file-name-all-completions #[514 "\306\307\310\311#)\266\203?\205\374 \312\313\314!!\211\242 >\204& \315\316\317D\"\210\211A@\242 >\2047 \315\316\317D\"\210\3208\242 >\204H \315\316\317D\"\210\3218\242 >\204Z \315\316\317D\"\210\3228\242 >\204l \315\316\317D\"\210\3238\242 >\204~ \315\316\317D\"\210\3248\242 >\204\222 \315\316\317 D\"\210\3258\326!\203W\327\330\331$\211\331=\203Q\307\332\n\333\f!\203\305 \334\f\n\335#\210\336\337\340!\"\202\324 \336\341\340!\342!\343!$\"\210r\344\n!q\210db\210\345y\210\346\310\347!)\262\203\345y\210 \350\351`\352 {C\307\211 \353Y\203\211\203\322\211\353\354\355\356! @\357\216@ @\360 \210)r@q\210\361 +C\3621\310 X\205\304\f\203_\321X\203_\363\364\365U\203E\366\202Z\367U\203O\366\202Z\320U\203Y\370\202Z\371P#\210 \322Y\205\304\365 \367U\203\234\3721\227r\373!\203~\374!\202\202\375\376\"q\210\354P\262\377\361 C\"\211\262)0\202\233\210\202\234\210\373!\203\254\201G \201H \"\262)\242 >\205\304\363\201I \336\201J \"P$0\202\314\210\202\315\210\266\202Ar\201K \201L !q\210p\201M \210A\307\211BC\310\211D\310 E F\201N \210\201O \201P !\210+\211 @\360 \210\201Q !\210)\266\210\211\204!C\262\201R \262\203\356\367\201R \201S \211\201T N\363\201U #E!C\201V 1\347 X\205\343\f\203|\321X\203|\363\364\365U\203b\366\202w\367U\203l\366\202w\320U\203v\370\202w\371P#\210 \322Y\205\343\365 \367U\203\273\201W 1\266r\373!\203\235\374!\202\241\375\376\"q\210\354P\262\377\361 C\"\211\262)0\202\272\210\202\273\210\373!\203\313\201G \201H \"\262)\242 >\205\343\363\201I \336\201J \"P$0\202\353\210\202\354\210\266\315\201X \363\201U #!C\"\210*\266\202/\201Y \310\347!)\262\204/ \350\201Z \340!\361 D\307\211 \353Y\203?\211\203\376\211\353\354\355\356! @\201[ \216@ @\360 \210)r@q\210\361 +C\201\\ 1\364 X\205\360\f\203\211\321X\203\211\363\364\365U\203o\366\202\204\367U\203y\366\202\204\320U\203\203\370\202\204\371P#\210 \322Y\205\360\365 \367U\203\310\201] 1\303r\373!\203\252\374!\202\256\375\376\"q\210\354P\262\377\361 C\"\211\262)0\202\307\210\202\310\210\373!\203\330\201G \201H \"\262)\242 >\205\360\363\201I \336\201J \"P$0\202\370\210\202\371\210\266\202?Ar\201K \201L !q\210p\201M \210A\307\211BC\310\211D\310 E F\201N \210\201O \201P !\210+\211 @\360 \210\201Q !\210)\266\210\211\204MC\262\201R \262\203\367\201R \201S \211\201T N\363\201U #E!C\201^ 1 X\205\f\203\250\321X\203\250\363\364\365U\203\216\366\202\243\367U\203\230\366\202\243\320U\203\242\370\202\243\371P#\210 \322Y\205\365 \367U\203\347\201_ 1\342r\373!\203\311\374!\202\315\375\376\"q\210\354P\262\377\361 C\"\211\262)0\202\346\210\202\347\210\373!\203\367\201G \201H \"\262)\242 >\205\363\201I \336\201J \"P$0\202\210\202\210\266\315\201X \363\201U #!C\"\210*\266\345y\365U\203A`\352 {B\262\202/)\211\262\262\201` \330$\210\211\262\202\371 \307\332 \333 !\203s\334 \n\335#\210\336\337\340!\"\202\202\336\341\340!\342!\343!$\"\210r\344 !q\210db\210\345y\210\346\310\347!)\262\203\272\345y\210\350\351`\352 {C\307\211 \353Y\203\307\211\203\206\211\353\354\355\356! @\201a \216@ @\360 \210)r@q\210\361 +C\201b 1| X\205x\f\203\321X\203\363\364\365U\203\367\366\202\f\367U\203\366\202\f\320U\203 \370\202\f\371P#\210 \322Y\205x\365 \367U\203P\201c 1Kr\373!\2032\374!\2026\375\376\"q\210\354P\262\377\361 C\"\211\262)0\202O\210\202P\210\373!\203`\201G \201H \"\262)\242 >\205x\363\201I \336\201J \"P$0\202\200\210\202\201\210\266\202\307Ar\201K \201L !q\210p\201M \210A\307\211BC\310\211D\310 E F\201N \210\201O \201P !\210+\211 @\360 \210\201Q !\210)\266\210\211\204\325C\262\201R \262\203\242\367\201R \201S \211\201T N\363\201U #E!C\201d 1\233 X\205\227\f\2030\321X\2030\363\364\365U\203\366\202+\367U\203 \366\202+\320U\203*\370\202+\371P#\210 \322Y\205\227\365 \367U\203o\201e 1jr\373!\203Q\374!\202U\375\376\"q\210\354P\262\377\361 C\"\211\262)0\202n\210\202o\210\373!\203\201G \201H \"\262)\242 >\205\227\363\201I \336\201J \"P$0\202\237\210\202\240\210\266\315\201X \363\201U #!C\"\210*\266\202\343 \201Y \310\347!)\262\204\343 \350\201Z \340!\361 D\307\211 \353Y\203\363\211\203\262\211\353\354\355\356! @\201f \216@ @\360 \210)r@q\210\361 +C\201g 1\250 X\205\244\f\203=\321X\203=\363\364\365U\203#\366\2028\367U\203-\366\2028\320U\2037\370\2028\371P#\210 \322Y\205\244\365 \367U\203|\201h 1wr\373!\203^\374!\202b\375\376\"q\210\354P\262\377\361 C\"\211\262)0\202{\210\202|\210\373!\203\214\201G \201H \"\262)\242 >\205\244\363\201I \336\201J \"P$0\202\254\210\202\255\210\266\202\363Ar\201K \201L !q\210p\201M \210A\307\211BC\310\211D\310 E F\201N \210\201O \201P !\210+\211 @\360 \210\201Q !\210)\266\210\211\204 C\262\201R \262\203\316 \367\201R \201S \211\201T N\363\201U #E!C\201i 1\307 X\205\303 \f\203\\ \321X\203\\ \363\364\365U\203B \366\202W \367U\203L \366\202W \320U\203V \370\202W \371P#\210 \322Y\205\303 \365 \367U\203\233 \201j 1\226 r\373!\203} \374!\202\201 \375\376\"q\210\354P\262\377\361 C\"\211\262)0\202\232 \210\202\233 \210\373!\203\253 \201G \201H \"\262)\242 >\205\303 \363\201I \336\201J \"P$0\202\313 \210\202\314 \210\266\315\201X \363\201U #!C\"\210*\266\345y\365U\203\365 `\352 {B\262\202\343 )\211\262\266\210\"\207" [inhibit-changing-match-data cl-struct-tramp-file-name-tags tramp-perl-file-name-all-completions signal-hook-function tramp-message-show-message tramp-verbose "/" nil t string-match all-completions tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-absolute-p tramp-get-file-property "file-name-all-completions" undef tramp-send-command tramp-get-remote-perl tramp-maybe-send-script "tramp_perl_file_name_all_completions" format "tramp_perl_file_name_all_completions %s" tramp-shell-quote-argument "(cd %s 2>&1 && %s -a 2>/dev/null | while IFS= read f; do if %s -d \"$f\" 2>/dev/null; then \\echo \"$f/\"; else \\echo \"$f\"; fi; done && \\echo ok) || \\echo fail" tramp-get-ls-command tramp-get-test-command tramp-get-buffer -1 "^fail$" looking-at file-error "tramp-sh-handle-file-name-all-completions: %s" point-at-eol 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append standard-output default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only process-get vector tramp-debug-message "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties "^ok$" "tramp-sh-handle-file-name-all-completions: internal error accessing `%s': `%s'" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) tramp-set-file-property #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error)] 30 (#$ . 85922)]) #@96 Like `add-name-to-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-sh-handle-add-name-to-file #[770 "\306\"\204i\307\310!\203 \202 !\211\242>\204\" \311\312\313D\"\210\211A@\242>\2043 \311\312\313D\"\210\3148\242>\204D \311\312\313D\"\210\3158\242>\204V \311\312\313D\"\210\3168\242>\204h \311\312\313D\"\210\3178\242>\204z \311\312\313D\"\210\3208\242>\204\216 \311\312\313 D\"\210\3218\322\323\324C\325\211 \326Y\203\223\211\203c\211\326\327\330\331! \332\216\f \333 \210)r\fq\210\334 +C\3351Y X\205U\n\203\370 \315X\203\370 \336\337\340U\203\336 \341\202\363 \342U\203\350 \341\202\363 \314U\203\362 \343\202\363 \344P#\210 \316Y\205U\340\342U\2035\34510r\346!\203\347!\202\350\351\"q\210\327P\262\352\334 C\"\211\262)0\2024\210\2025\210\346!\203A\353\354\"\262)\242>\205U\336\355\356\357\"P$0\202]\210\202^\210\266\202\223 r\360\361!q\210p\362 \210\325\211@A\363\211B\363 C D\364 \210\365\366!\210+\211 \333 \210\367!\210)\266\210\211\204\237C\262\370\262\203X\342\370\371\211\372N\336\373 #E!C\3741Q X\205M\n\203\360\315X\203\360\336\337\340U\203\326\341\202\353\342U\203\340\341\202\353\314U\203\352\343\202\353\344P#\210 \316Y\205M\340\342U\203-\3751(r\346!\203\347!\202\350\351\"q\210\327P\262\352\334 C\"\211\262)0\202,\210\202-\210\346!\2039\353\354\"\262)\242>\205M\336\355\356\357\"P$0\202U\210\202V\210\266\311\376\336\373#!C\"\210*\266\f\307!\211\242>\204z\311\312\313D\"\210\211A@\242>\204\213\311\312\313D\"\210\3148\242>\204\234\311\312\313D\"\210\3158\242>\204\256\311\312\313D\"\210\3168\242>\204\300\311\312\313D\"\210\3178\242>\204\322\311\312\313D\"\210\3208\242>\204\346\311\312\313 D\"\210\3218\307\n!\211\242>\204\374\311\312\313D\"\210\211A@\242>\204 \311\312\313D\"\210\3148\242>\204 \311\312\313D\"\210\3158\242>\2040\311\312\313D\"\210\3168\242>\204B\311\312\313D\"\210\3178\242>\204T\311\312\313D\"\210\3208\242>\204h\311\312\313 D\"\210\3218\205u\377!\201E !\203\203\203\226\247\203|\201F \356\201G \"!\204|\201H \325\211\211 \326Y\203\237\211\203o\211\326\327\330\331! \201I \216\f \333 \210)r\fq\210\334 +C\201J 1e X\205a\n\203\315X\203\336\337\340U\203\350\341\202\375\342U\203\362\341\202\375\314U\203\374\343\202\375\344P#\210 \316Y\205a\340\342U\203A\201K 1<r\346!\203#\347!\202'\350\351\"q\210\327P\262\352\334 C\"\211\262)0\202@\210\202A\210\346!\203M\353\354\"\262)\242>\205a\336\355\356\357\"P$0\202i\210\202j\210\266\202\237 r\360\361!q\210p\362 \210\325\211@A\363\211B\363 C D\364 \210\365\366!\210+\211 \333 \210\367!\210)\266\210\211\204\253C\262\370\262\203h\342\370\371\211\372N\336\373 #E!C\201L 1a X\205]\n\203\376\315X\203\376\336\337\340U\203\344\341\202\371\342U\203\356\341\202\371\314U\203\370\343\202\371\344P#\210 \316Y\205]\340\342U\203=\201M 18r\346!\203 \347!\202#\350\351\"q\210\327P\262\352\334 C\"\211\262)0\202<\210\202=\210\346!\203I\353\354\"\262)\242>\205]\336\355\356\357\"P$0\202e\210\202f\210\266\311\376\336\373#!C\"\210*\266\202\203\201N !\210\201O \"\210\201P \356\201Q \201R !\201R !$\201S \201T $\262\266\210\207" [cl-struct-tramp-file-name-tags signal-hook-function tramp-message-show-message tramp-verbose standard-output default-directory tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-error "add-name-to-file: %s" "only implemented for same method, same user, same host" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties tramp-get-remote-ln buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only file-exists-p yes-or-no-p "File %s already exists; make it a link anyway? " file-already-exists #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) delete-file tramp-flush-file-properties tramp-barf-unless-okay "%s %s %s" tramp-shell-quote-argument "error with add-name-to-file, see buffer `%s' for details" buffer-name] 36 (#$ . 93620)]) #@145 Like `copy-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES) (defalias 'tramp-sh-handle-copy-file #[1538 "\300!\262\300!\262\301!\204 \301!\203) \302\303&\207\304\305\257\"\207" [expand-file-name tramp-tramp-file-p tramp-do-copy-or-rename-file copy tramp-run-real-handler copy-file] 14 (#$ . 98437)]) #@104 Like `copy-directory' for Tramp files. (fn DIRNAME NEWNAME &optional KEEP-DATE PARENTS COPY-CONTENTS) (defalias 'tramp-sh-handle-copy-directory #[1282 "\306!\306!\307\203 \202 !\211\242>\204! \310\311\312D\"\210\211A@\242>\2042 \310\311\312D\"\210\3138\242>\204C \310\311\312D\"\210\3148\242>\204U \310\311\312D\"\210\3158\242>\204g \310\311\312D\"\210\3168\242>\204y \310\311\312D\"\210\3178\242>\204\215 \310\311\312 D\"\210\3208\321!\204s \322\323D\324\211\f\325Y\203\235\211\203k\211\325\326\327\330! \331\216 \332 \210)r q\210\333 +C\3341a\fX\205] \203 \314X\203 \335\336\337U\203\346 \340\202\373 \341U\203\360 \340\202\373 \313U\203\372 \342\202\373 \343P#\210\f\315Y\205]\337 \341U\203=\34418r\345!\203 \346!\202#\347\350\"q\210\326P\262\351\333 C\"\211\262)0\202<\210\202=\210\345!\203I\352\353\"\262)\242>\205]\335\354\355\356\"P$0\202e\210\202f\210\266\202\235@r\357\360!q\210p\361 \210@\324\211AB\362\211C\362 D E\363 \210\364\365!\210+\211 \332 \210\366!\210)\266\210\211\204\251C\262\367\262\203b\341\367\370\211\371N\335\372 #E!C\3731[\fX\205W \203\372\314X\203\372\335\336\337U\203\340\340\202\365\341U\203\352\340\202\365\313U\203\364\342\202\365\343P#\210\f\315Y\205W\337 \341U\2037\37412r\345!\203\346!\202 \347\350\"q\210\326P\262\351\333 C\"\211\262)0\2026\210\2027\210\345!\203C\352\353\"\262)\242>\205W\335\354\355\356\"P$0\202_\210\202`\210\266\310\375\335\372#!C\"\210*\266\n\204 \376\377\"\203 \203\274\203\274\307!\211\242>\204\234\310\311\312D\"\210\211A@\262\307!\211\242>\204\263\310\311\312D\"\210\211A@\262\230\203 \201F !\203\263\201G !\204\263\201H \324\211\211\f\325Y\203\331\211\203\247\211\325\326\327\330! \201I \216 \332 \210)r q\210\333 +C\201J 1\235\fX\205\231 \203:\314X\203:\335\336\337U\203 \340\2025\341U\203*\340\2025\313U\2034\342\2025\343P#\210\f\315Y\205\231\337 \341U\203y\201K 1tr\345!\203[\346!\202_\347\350\"q\210\326P\262\351\333 C\"\211\262)0\202x\210\202y\210\345!\203\205\352\353\"\262)\242>\205\231\335\354\355\356\"P$0\202\241\210\202\242\210\266\202\331@r\357\360!q\210p\361 \210@\324\211AB\362\211C\362 D E\363 \210\364\365!\210+\211 \332 \210\366!\210)\266\210\211\204\345C\262\367\262\203\242\341\367\370\211\371N\335\372 #E!C\201L 1\233\fX\205\227 \2038\314X\2038\335\336\337U\203 \340\2023\341U\203(\340\2023\313U\2032\342\2023\343P#\210\f\315Y\205\227\337 \341U\203w\201M 1rr\345!\203Y\346!\202]\347\350\"q\210\326P\262\351\333 C\"\211\262)0\202v\210\202w\210\345!\203\203\352\353\"\262)\242>\205\227\335\354\355\356\"P$0\202\237\210\202\240\210\266\310\375\335\372#!C\"\210*\266\201N \201O !!\262\201N \201O !!\262\201F !\203\362\201P !\201P !\230\204\362\201O \201P !\"\262\201F \201Q !!\204\f\201R \201Q ! \"\210\201S \201T $\210\2021\201U \201V \257\"\210\205\301\307!\211\242>\204H\310\311\312D\"\210\211A@\242>\204Y\310\311\312D\"\210\3138\242>\204j\310\311\312D\"\210\3148\242>\204|\310\311\312D\"\210\3158\242>\204\216\310\311\312D\"\210\3168\242>\204\240\310\311\312D\"\210\3178\242>\204\264\310\311\312 D\"\210\3208\201W \"\266\210\266\210\207" [cl-struct-tramp-file-name-tags tramp-file-missing signal-hook-function tramp-message-show-message tramp-verbose standard-output tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p "Copying directory" "No such file or directory" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties tramp-get-method-parameter tramp-copy-recursive default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only file-directory-p tramp-compat-directory-name-p file-already-exists #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) directory-file-name expand-file-name file-name-nondirectory file-name-directory make-directory tramp-do-copy-or-rename-file-out-of-band copy tramp-run-real-handler copy-directory tramp-flush-file-properties] 31 (#$ . 98863)]) #@91 Like `rename-file' for Tramp files. (fn FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS) (defalias 'tramp-sh-handle-rename-file #[770 "\300!\262\300!\262\301!\204 \301!\203 \302\303\304\305&\207\306\307E\"\207" [expand-file-name tramp-tramp-file-p tramp-do-copy-or-rename-file rename keep-time preserve-uid-gid tramp-run-real-handler rename-file] 10 (#$ . 103686)]) #@861 Copy or rename a remote file. OP must be `copy' or `rename' and indicates the operation to perform. FILENAME specifies the file to copy or rename, NEWNAME is the name of the new file (for copy) or the new name of the file (for rename). OK-IF-ALREADY-EXISTS means don't barf if NEWNAME exists already. KEEP-DATE means to make sure that NEWNAME has the same timestamp as FILENAME. PRESERVE-UID-GID, when non-nil, instructs to keep the uid and gid if both files are on the same host. PRESERVE-EXTENDED-ATTRIBUTES activates selinux and acl commands. This function is invoked by `tramp-sh-handle-copy-file' and `tramp-sh-handle-rename-file'. It is an error if OP is neither of `copy' and `rename'. FILENAME and NEWNAME must be absolute file names. (fn OP FILENAME NEWNAME &optional OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID PRESERVE-EXTENDED-ATTRIBUTES) (defalias 'tramp-do-copy-or-rename-file #[1795 "\306>\204 \307\310\"\210\311!\2033 \312\"\2043 \313\314$\210\315=\205 \316\317\"\207\320!\320!\321\322 !!\3238\262\205P \324\325\nC\"\326\203Z \n\202\\ !\211\242>\204k \327\330\331D\"\210\211A@\242>\204| \327\330\331D\"\210\3328\242>\204\215 \327\330\331D\"\210\3338\242>\204\237 \327\330\331D\"\210\3348\242>\204\261 \327\330\331D\"\210\3358\242>\204\303 \327\330\331D\"\210\3368\242>\204\327 \327\330\331 D\"\210\3238\337!\204\322 \340C\341\211\f\342Y\203\352\211\203\264\211\342\343\344\345! \346\216 \347 \210)r q\210\350 +C\3511\252\fX\205\246 \203I\333X\203I\324\352\353U\203/\354\202D\355U\2039\354\202D\332U\203C\356\202D\357P#\210\f\334Y\205\246\353 \355U\203\206\3601\201r\361!\203h\362!\202l\363\364\"q\210\343P\262\365\350 C\"\211\262)0\202\205\210\202\206\210\361!\203\222\366\367\"\262)\242>\205\246\324\370\371\372\"P$0\202\256\210\202\257\210\266\202\352@r\373\374!q\210p\375 \210@\341\211AB\314\211C\314 D E\376 \210\377\201F !\210+\211 \347 \210\201G !\210)\266\210\211\204\370C\262\201H \262\203\275\355\201H \201I \211\201J N\324\201K #E!C\201L 1\266\fX\205\262 \203S\333X\203S\324\352\353U\2039\354\202N\355U\203C\354\202N\332U\203M\356\202N\357P#\210\f\334Y\205\262\353 \355U\203\222\201M 1\215r\361!\203t\362!\202x\363\364\"q\210\343P\262\365\350 C\"\211\262)0\202\221\210\202\222\210\361!\203\236\366\367\"\262)\242>\205\262\324\370\371\372\"P$0\202\272\210\202\273\210\266\327\201N \324\201K #!C\"\210*\266\204\325\337!\203\325\201O \341\211\211\f\342Y\203\355\211\203\267\211\342\343\344\345! \201P \216 \347 \210)r q\210\350 +C\201Q 1\255\fX\205\251 \203J\333X\203J\324\352\353U\2030\354\202E\355U\203:\354\202E\332U\203D\356\202E\357P#\210\f\334Y\205\251\353 \355U\203\211\201R 1\204r\361!\203k\362!\202o\363\364\"q\210\343P\262\365\350 C\"\211\262)0\202\210\210\202\211\210\361!\203\225\366\367\"\262)\242>\205\251\324\370\371\372\"P$0\202\261\210\202\262\210\266\202\355@r\373\374!q\210p\375 \210@\341\211AB\314\211C\314 D E\376 \210\377\201F !\210+\211 \347 \210\201G !\210)\266\210\211\204\373C\262\201H \262\203\300\355\201H \201I \211\201J N\324\201K #E!C\201S 1\271\fX\205\265 \203V\333X\203V\324\352\353U\203<\354\202Q\355U\203F\354\202Q\332U\203P\356\202Q\357P#\210\f\334Y\205\265\353 \355U\203\225\201T 1\220r\361!\203w\362!\202{\363\364\"q\210\343P\262\365\350 C\"\211\262)0\202\224\210\202\225\210\361!\203\241\366\367\"\262)\242>\205\265\324\370\371\372\"P$0\202\275\210\202\276\210\266\327\201N \324\201K #!C\"\210*\266\311!\203\337\201U !\204\337\201V \201W C\341\211\f\342Y\203\367\211\203\301\211\342\343\344\345! \201X \216 \347 \210)r q\210\350 +C\201Y 1\267\fX\205\263 \203T\333X\203T\324\352\353U\203:\354\202O\355U\203D\354\202O\332U\203N\356\202O\357P#\210\f\334Y\205\263\353 \355U\203\223\201Z 1\216r\361!\203u\362!\202y\363\364\"q\210\343P\262\365\350 C\"\211\262)0\202\222\210\202\223\210\361!\203\237\366\367\"\262)\242>\205\263\324\370\371\372\"P$0\202\273\210\202\274\210\266\202\367@r\373\374!q\210p\375 \210@\341\211AB\314\211C\314 D E\376 \210\377\201F !\210+\211 \347 \210\201G !\210)\266\210\211\204C\262\201H \262\203\312\355\201H \201I \211\201J N\324\201K #E!C\201[ 1\303\fX\205\277 \203`\333X\203`\324\352\353U\203F\354\202[\355U\203P\354\202[\332U\203Z\356\202[\357P#\210\f\334Y\205\277\353 \355U\203\237\201\\ 1\232r\361!\203\201\362!\202\205\363\364\"q\210\343P\262\365\350 C\"\211\262)0\202\236\210\202\237\210\361!\203\253\366\367\"\262)\242>\205\277\324\370\371\372\"P$0\202\307\210\202\310\210\266\327\201N \324\201K #!C\"\210*\266\353\201] \371\201^ \201_ =\203\370\201` \202\373\201a $C\201b 1\240\fX\205\234 \203=\333X\203=\324\352\353U\203#\354\2028\355U\203-\354\2028\332U\2037\356\2028\357P#\210\f\334Y\205\234\353 \355U\203|\201c 1wr\361!\203^\362!\202b\363\364\"q\210\343P\262\365\350 C\"\211\262)0\202{\210\202|\210\361!\203\210\366\367\"\262)\242>\205\234\324\370\371\372\"P$0\202\244\210\202\245\210\266\201d C \205\352\353\f\333^X\205\352\201e \371\201^ \201_ =\203\315\201` \202\320\201a $\341\211#\211\205\350\201f \333\201g \201h $\262\201i \353\201j \201k \367\n\n&\201l \"\342$\216 \203n \f\203n \326!\211\242>\204&\327\330\331D\"\210\211A@\242>\2047\327\330\331D\"\210\3328\242>\204H\327\330\331D\"\210\3338\242>\204Z\327\330\331D\"\210\3348\242>\204l\327\330\331D\"\210\3358\242>\204~\327\330\331D\"\210\3368\242>\204\222\327\330\331 D\"\210\3238\326!\211\242>\204\250\327\330\331D\"\210\211A@\242>\204\271\327\330\331D\"\210\3328\242>\204\312\327\330\331D\"\210\3338\242>\204\334\327\330\331D\"\210\3348\242>\204\356\327\330\331D\"\210\3358\242>\204 \327\330\331D\"\210\3368\242>\204 \327\330\331 D\"\210\3238\312$$\"\2036 \201m %%%%%%&\210\202i \201n \"\203\\ \201n \"\203\\ \201o %%%$$\210\202i \201p %%%$$\210\266\202\307 \204x \f\203\301 \201q \n!\203\226 \201m &\210\202\307 \201n \n \"\203\261 \201o $\210\202\307 \201p $\210\202\307 \307\201r !\210\n\203\345 \201s 1\340 \324\201t D\"0\202\344 \210\202\345 \210 \203|\n\315=\203|\n\326!\211\242>\204\n\327\330\331D\"\210\211A@\242>\204\n\327\330\331D\"\210\3328\242>\204%\n\327\330\331D\"\210\3338\242>\2047\n\327\330\331D\"\210\3348\242>\204I\n\327\330\331D\"\210\3358\242>\204[\n\327\330\331D\"\210\3368\242>\204o\n\327\330\331 D\"\210\3238\201u \"\266 \f\205\f \326!\211\242>\204\223\n\327\330\331D\"\210\211A@\242>\204\244\n\327\330\331D\"\210\3328\242>\204\265\n\327\330\331D\"\210\3338\242>\204\307\n\327\330\331D\"\210\3348\242>\204\331\n\327\330\331D\"\210\3358\242>\204\353\n\327\330\331D\"\210\3368\242>\204\377\n\327\330\331 D\"\210\3238\201u \"\266\210\201v \240\210)\266\202\266\210\266\204\207" [cl-struct-tramp-file-name-tags tramp-file-missing signal-hook-function tramp-message-show-message tramp-verbose standard-output (copy rename) error "Unknown operation `%s', must be `copy' or `rename'" file-directory-p tramp-equal-remote copy-directory t rename delete-directory recursive tramp-tramp-file-p file-attributes file-truename 7 apply file-extended-attributes tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 file-exists-p "No such file or directory" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) message 0 #4="" 1 #5="Warning: " #6="Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format #7="(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties file-already-exists #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) tramp-compat-directory-name-p file-error "File is a directory %s" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) "%s..." #1="%s %s to %s" copy #2="Copying" #3="Renaming" (error) (error) "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\305\203 \306\305!\210\303\307\310\311\312\300\313=\203 \314\202 \315\301\302$\304\242D\3161\276 %X\205\272 &\203Z \317X\203Z \320\321\307U\203@ \322\202U \323U\203J \322\202U \324U\203T \325\202U \326P#\210%\327Y\205\272 \307 %\323U\203\231 \3301\224 r\331!\203{ \332!\202 \333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\230 \210\202\231 \210\331!\203\245 \340\341\"\262)\242'>\205\272 \320\342\311\343\"P$0\202\300 \210\344\207" vconcat [cancel-timer 0 "%s...%s" format #1# copy #2# #3# (error) 3 apply message #4# 1 2 #5# #6# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message #7# nil tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags] tramp-do-copy-or-rename-file-directly tramp-method-out-of-band-p tramp-do-copy-or-rename-file-out-of-band tramp-do-copy-or-rename-file-via-buffer tramp-local-host-p "Tramp implementation says this cannot happen" (error) set-file-extended-attributes tramp-flush-file-properties "done"] 45 (#$ . 104075)]) #@284 Use an Emacs buffer to copy or rename a file. First arg OP is either `copy' or `rename' and indicates the operation. FILENAME is the source file, NEWNAME the target file. KEEP-DATE is non-nil if NEWNAME should have the same timestamp as FILENAME. (fn OP FILENAME NEWNAME KEEP-DATE) (defalias 'tramp-do-copy-or-rename-file-via-buffer #[1028 "\305\306\307!!\3108\262\311!#\210\312\211\313\314\315\316\317\"B \320\321!\322\323\324\325\326!\327\"\330$\216r\211q\210\331\332!\210\333!\210)r\211q\210\314\332\211\332\323%\210*\266-\211\203^ \334\306!\3358\262\"\210\336\337!\"\210\340=?\205o \341!\207" [inhibit-file-name-handlers inhibit-file-name-operation jka-compr-inhibit coding-system-for-write coding-system-for-read abort-if-file-too-large file-attributes file-truename 7 symbol-name binary t write-region epa-file-handler remq tramp-file-name-handler generate-new-buffer " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 set-buffer-multibyte nil insert-file-contents-literally set-file-times 5 set-file-modes tramp-default-file-modes copy delete-file] 12 (#$ . 114003)]) #@534 Invokes `cp' or `mv' on the remote system. OP must be one of `copy' or `rename', indicating `cp' or `mv', respectively. FILENAME specifies the file to copy or rename, NEWNAME is the name of the new file (for copy) or the new name of the file (for rename). Both files must reside on the same host. KEEP-DATE means to make sure that NEWNAME has the same timestamp as FILENAME. PRESERVE-UID-GID, when non-nil, instructs to keep the uid and gid from FILENAME. (fn OP FILENAME NEWNAME OK-IF-ALREADY-EXISTS KEEP-DATE PRESERVE-UID-GID) (defalias 'tramp-do-copy-or-rename-file-directly #[1542 "\306!\306!\307!\3108\262\311!\312\203 \202 !\211\242>\204. \313\314\315D\"\210\211A@\242>\204? \313\314\315D\"\210\3168\242>\204P \313\314\315D\"\210\3178\242>\204b \313\314\315D\"\210\3208\242>\204t \313\314\315D\"\210\3108\242>\204\206 \313\314\315D\"\210\3218\242>\204\232 \313\314\315 D\"\210\3228\323=\203\256 \f\203\256 \324\202\236\325\267\202\275 \326\202\236\327\202\236\330\331C\332\211 \333Y\203\277\211\203\217\211\333\334\335\336! \337\216\f \340 \210)r\fq\210\341 +C\3421\205 X\205\201\n\203$\317X\203$\343\344\345U\203\n\346\202 \347U\203\346\202 \316U\203 \350\202 \351P#\210 \320Y\205\201\345\347U\203a\3521\\r\353!\203C\354!\202G\355\356\"q\210\334P\262\357\341 C\"\211\262)0\202`\210\202a\210\353!\203m\360\361\"\262)\242>\205\201\343\362\363\364\"P$0\202\211\210\202\212\210\266\202\277 r\365\366!q\210p\367 \210\332\211@A\370\211B\370 C D\371 \210\372\373!\210+\211 \340 \210\374!\210)\266\210\211\204\313C\262\375\262\203\212\347\375\376\211\377N\343\201G #E!C\201H 1\203 X\205\n\203 \317X\203 \343\344\345U\203\346\202\347U\203\346\202\316U\203\350\202\351P#\210 \320Y\205\345\347U\203_\201I 1Zr\353!\203A\354!\202E\355\356\"q\210\334P\262\357\341 C\"\211\262)0\202^\210\202_\210\353!\203k\360\361\"\262)\242>\205\343\362\363\364\"P$0\202\207\210\202\210\210\266\313\201J \343\201G #!C\"*\266\204\201K !\201K !\201L \203\267\202\271!\332\323=\203\322\201M !\203\322\201N P\262\203\250\203\250\201O \363\201P \201Q !\201Q !$\"\262r\201R !q\210eb\210\203\201S E\332\370#\204\244\211\204\244\332 \330\201T \201U C\201V \201W \345\201X \201Y \361!\201Z \"\316$\216\201[ !\203H\206^\353!\203T\354!\206^\242>\205^\355!\242>\203i\206u\211\205ur\211q\210\312 !)\201W \345\201\\ \201Y \361 $\201] \"\320$\216\343\201^ %\210)\266)\266)\202\207\204\262\203\207\332 F\201_ !\205\363\323=\204\332\201` \201a \201b !!\201c \"\345U\205\363\201d \201b !!\205\363\201M !\206\363\201d !)\203 \323=\203\201e %\210\202\207\201f \201g E\"\210\202\207\201_ P!\203x\201d \201b P!!\203x\201M P!\204J\201d P!\203x\201h PP\370&\210\201i P\201j \201k !\201l \201k !#\210\202\207\332\211 F\201m \201n J\201o \201p \201q N@!\"\201r \370\"\201s #)\266\204\201W \345\201t \201Y \361!\201u \"\316$\216\203\201v \363\201P \201Q \n!\201Q !$\201T \201R !$\210\201w P\201x \"\210\201i P\201j \201k !\201l \201k !#\210\202J\203J\323=\203 \201e \370%\210\202)\201f \201g \370E\"\210\201w \201x \"\210\201i \201y \201k \"\201z \201k \"#\210\203r\201v \363\201{ \201Q !\201Q !#\201T \201R !$\210\202\205\203\205\201f \201g E\"\210)\210\266\201| 1\251 \205\245\201} \"\210\201w \n\"0\202\253\210\332\266\210\207" [cl-struct-tramp-file-name-tags signal-hook-function tramp-message-show-message tramp-verbose standard-output default-directory tramp-tramp-file-p file-attributes 5 tramp-default-file-modes tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 6 7 copy "cp -f -p" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (copy 181 rename 185)) "cp -f" "mv -f" file-error "Unknown operation `%s', must be `copy' or `rename'" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only tramp-operation-not-permitted-regexp file-name-handler-alist format-message (error) (error) substring-no-properties tramp-compat-file-local-name file-remote-p file-directory-p " -R" tramp-send-command-and-check "%s %s %s" tramp-shell-quote-argument tramp-get-buffer re-search-forward "Copying directly failed, see buffer `%s' for details." buffer-name current-window-configuration make-byte-code "\301\300!\207" vconcat [set-window-configuration] bufferp "\302\203- \f\203- \306U\204- \307 \204- \310 \203- \311 \312\313\300\301#\210\314\302!\210\315 \210\316\317!\210)\320\303@\"\205; \321 \241\207" [tramp-message-show-message tramp-verbose 0 tramp-completion-mode-p current-message t apply message pop-to-buffer discard-input sit-for 30 tramp-file-name-equal-p current-time enable-recursive-minibuffers tramp-current-connection] tramp-error file-readable-p logand file-modes file-name-directory 512 file-writable-p copy-file tramp-run-real-handler rename-file tramp-do-copy-or-rename-file-directly tramp-set-file-uid-gid tramp-get-local-uid integer tramp-get-local-gid expand-file-name tramp-temp-name-prefix eval temporary-file-directory standard-value file-name-extension make-temp-file "\3011 \302\300!0\207\210\303\207" [(error) delete-file nil] tramp-barf-unless-okay set-file-modes 511 tramp-get-remote-uid tramp-get-remote-gid "cp -f -p %s %s" (error) set-file-times] 41 (#$ . 115165)]) #@114 Invoke `scp' program to copy. The method used must be an out-of-band method. (fn OP FILENAME NEWNAME KEEP-DATE) (defalias 'tramp-do-copy-or-rename-file-out-of-band #[1028 "\306!\306!\307\203 \202 !\310\211\211\211\211\211C\310\211\211\211C\310\307\203) \202+ !\211\242>\204: \311\312\313D\"\210\211A@\242>\204K \311\312\313D\"\210\3148\242>\204\\ \311\312\313D\"\210\3158\242>\204n \311\312\313D\"\210\3168\242>\204\200 \311\312\313D\"\210\3178\242>\204\222 \311\312\313D\"\210\3208\242>\204\246 \311\312\313 D\"\210\3218\203\f\203\f\322!\310\323\324J\325\326\327N@!\"\330\331\"\332#)\266\204C\203\342 \211\323\333 !\242\"\240\210\334\335\336\337\340\"\341\"\316$\216\342 \242 $\210\342\343\242 $\210)\266\202\327 \344\230\203%\322!\203%\345!\204%\346\202&\347\2032\350 !\2026\351!!\262\f\203E\350!\202I\351!\262 \242>\204[\311\312\313\nD\"\210\3148\206h\352\353\310#\262\354\355\"\203\232\356\357\360\361!\\!\262\362\363\310\211\211\364\n&\335U\203\232\356\357\360\361!\\!\262\202{\206\237\365\262\206\246\365\262\206\255\365\262 \366\367\352\370\f!\371\365#\"\240\210\372\373 !\242\"\262 \366\374\375\n\376 \377\201K \201L #\203\353\201M \202\354\365&\f\240\210\354\201N \"\262\354\201O \"\262\201P \201M \354\n\201Q \"\211\203M\211@\201R \201S \334\201T \201U \337\340!\201V \"\316\201W %\"\365\235\203@\201X \202A\211\262\"\262A\266\202\202\262\"\262\201Y \310\201S \334\201T \201Z \337\340!\201[ \"\201\\ \201] %\354\f\201^ \"\"\"\262 \354 \201_ \"\240\210\354\355\"\211\203\313\211@\201R \201S \334\201T \201U \337\340!\201` \"\316\201W %\"\365\235\203\276\201a \202\277\211\262\"\262 A\266\202\202\215\210\201b !\204;\201c \201d C\310\211\f\201e Y\203'\211\203\345\211\201e \201f \201g \201h ! \201i \216 \201j \210)r q\210\201k +C\201l 1\333\fX\205\327 \203\\\315X\203\\\201m \201n \335U\203<\365\202W\201o U\203H\365\202W\314U\203T\201p \202W\201q P#\210\f\316Y\205\327\335 \201o U\203\253\201r 1\246r\201s !\203\203\201t !\202\213\201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202\252\210\202\253\210\201s !\203\273\201w \340\"\262)\242>\205\327\201m \201x \201y \201z \"P$0\202\337\210\202\340\210\266\202'@r\201{ \201| !q\210p\201} \210@\310\211AB\331\211C\331 D E\201~ \210\201 \201\200 !\210+\211 \201j \210\201\201 !\210)\266\210\211\2045C\262\201\202 \262\203$\201o \201\202 \201\203 \211\201\204 N\201m \201\205 #E!C\201\206 1 \fX\205 \203\236\315X\203\236\201m \201n \335U\203~\365\202\231\201o U\203\212\365\202\231\314U\203\226\201p \202\231\201q P#\210\f\316Y\205\335 \201o U\203\355\201\207 1\350r\201s !\203\305\201t !\202\315\201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202\354\210\202\355\210\201s !\203\375\201w \340\"\262)\242>\205\201m \201x \201y \201z \"P$0\202!\210\202\"\210\266\311\201\210 \201m \201\205 #!C\"\210*\266 \242\203\345\n\352\201\211 \f\242P\201\212 #\211\201\212 =\203w\201\213 \f\242\201\214 \f!#\262\201\215 \201\211 \242P#\210\211\262\204\344\201c \201\216 \f\242C\310\211\f\201e Y\203\320\211\203\216\211\201e \201f \201g \201h ! \201\217 \216 \201j \210)r q\210\201k +C\201\220 1\204\fX\205\200 \203\315X\203\201m \201n \335U\203\345\365\202 \201o U\203\361\365\202 \314U\203\375\201p \202 \201q P#\210\f\316Y\205\200\335 \201o U\203T\201\221 1Or\201s !\203,\201t !\2024\201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202S\210\202T\210\201s !\203d\201w \340\"\262)\242>\205\200\201m \201x \201y \201z \"P$0\202\210\210\202\211\210\266\202\320@r\201{ \201| !q\210p\201} \210@\310\211AB\331\211C\331 D E\201~ \210\201 \201\200 !\210+\211 \201j \210\201\201 !\210)\266\210\211\204\336C\262\201\202 \262\203\315\201o \201\202 \201\203 \211\201\204 N\201m \201\205 #E!C\201\222 1\306\fX\205\302 \203G\315X\203G\201m \201n \335U\203'\365\202B\201o U\2033\365\202B\314U\203?\201p \202B\201q P#\210\f\316Y\205\302\335 \201o U\203\226\201\223 1\221r\201s !\203n\201t !\202v\201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202\225\210\202\226\210\201s !\203\246\201w \340\"\262)\242>\205\302\201m \201x \201y \201z \"P$0\202\312\210\202\313\210\266\311\201\210 \201m \201\205 #!C\"\210*\266 \201\224 \347\201R \242C \203\201\225 P\202\201\226 P\201\227 D#\201M #\240\210\201\230 \242\"\210\201\231 2u\201\232 \201\233 \310\201\234 #\211FB F\334\335\201\235 \337\340!\201\236 \"\314$\216\201\230 \201y \201\237 \"\"\210\201\240 \310\"?\205q\201\230 \201y \201\237 \"\"\210\202S*\2620\211\201\231 =\203\344\n\201c \201\241 \242C\310\211\f\201e Y\203\320 \211\203\216 \211\201e \201f \201g \201h ! \201\242 \216 \201j \210)r q\210\201k +C\201\243 1\204 \fX\205\200 \203 \315X\203 \201m \201n \335U\203\345\365\202 \201o U\203\361\365\202 \314U\203\375\201p \202 \201q P#\210\f\316Y\205\200 \335 \201o U\203T \201\244 1O r\201s !\203, \201t !\2024 \201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202S \210\202T \210\201s !\203d \201w \340\"\262)\242>\205\200 \201m \201x \201y \201z \"P$0\202\210 \210\202\211 \210\266\202\320 @r\201{ \201| !q\210p\201} \210@\310\211AB\331\211C\331 D E\201~ \210\201 \201\200 !\210+\211 \201j \210\201\201 !\210)\266\210\211\204\336 C\262\201\202 \262\203\315\n\201o \201\202 \201\203 \211\201\204 N\201m \201\205 #E!C\201\245 1\306\n\fX\205\302\n \203G\n\315X\203G\n\201m \201n \335U\203'\n\365\202B\n\201o U\2033\n\365\202B\n\314U\203?\n\201p \202B\n\201q P#\210\f\316Y\205\302\n\335 \201o U\203\226\n\201\246 1\221\nr\201s !\203n\n\201t !\202v\n\201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202\225\n\210\202\226\n\210\201s !\203\246\n\201w \340\"\262)\242>\205\302\n\201m \201x \201y \201z \"P$0\202\312\n\210\202\313\n\210\266\311\201\210 \201m \201\205 #!C\"\210*\266\210\201g \201\247 !r\211q\210\334\335\201\250 \337\340!\201\251 \"\314$\216\334\335\201\252 \337\340\"\201\253 \"\316$\216\201\254 \203 \202\" !\201\255 G! G @\201\215 \201\256 \201\257 p!#\210\201\215 \201\260 p#\210\203<\f\320\201\261 @A@D\201\262 1 \f\fX\205\f \203\240 \315X\203\240 \201m \201n \335U\203\200 \365\202\233 \201o U\203\214 \365\202\233 \314U\203\230 \201p \202\233 \201q P#\210\f\316Y\205\f\335 \201o U\203\357 \201\263 1\352 r\201s !\203\307 \201t !\202\317 \201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202\356 \210\202\357 \210\201s !\203\377 \201w \340\"\262)\242>\205\f\201m \201x \201y \201z \"P$0\202#\f\210\202$\f\210\266\201\264 \211A\262\242\211A\262\242\"\210\202G \201R \f\242\203_\f\203U\f\201\226 P\202[\f\201\225 PC\202d\fD\"\262\201\224 \347\201R C\"\201M #\325\326\327N@! @\201\265 \201\266 !\201u \f!#)\320\201\202 C\201\267 1_ \fX\205[ \203\340\f\315X\203\340\f\201m \201n \335U\203\300\f\365\202\333\f\201o U\203\314\f\365\202\333\f\314U\203\330\f\201p \202\333\f\201q P#\210\f\316Y\205[ \335 \201o U\203/ \201\270 1* r\201s !\203 \201t !\202 \201u \201v \"q\210\201f P\262\201R \201k C\"\211\262)0\202. \210\202/ \210\201s !\203? \201w \340\"\262)\242>\205[ \201m \201x \201y \201z \"P$0\202c \210\202d \210\266\201\271 \340#\210\201\271 \201\272 \201\273 #\210\201\274 \310\"\210H I\201\275 \f\310J$\210)\266-\210\203\262 \204\262 \201\276 \201\277 !\3178\262\"\210\203\274 \204\327 \201\300 1\322 \201\301 \201\302 !\"0\202\326 \210\202\327 \210\201\303 =?\205\374 \201\304 !\203\363 \201\305 !\202\374 \201\306 \201\307 \"\266\210\207" [cl-struct-tramp-file-name-tags file-name-handler-alist signal-hook-function tramp-message-show-message tramp-verbose standard-output tramp-tramp-file-p tramp-dissect-file-name nil signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-directory-p expand-file-name tramp-temp-name-prefix eval temporary-file-directory standard-value file-name-extension t make-temp-file file-name-nondirectory make-byte-code 0 "\3021 \300\203 \303\304\305\301\242\"\306\"\202 \307\301\242!0\207\210\310\207" vconcat vector [(error) delete-directory expand-file-name ".." recursive delete-file nil] tramp-do-copy-or-rename-file-out-of-band rename "rsync" file-exists-p file-name-as-directory identity tramp-make-copy-program-file-name tramp-unquote-shell-quote-argument tramp-get-connection-property "login-as" tramp-get-method-parameter tramp-remote-copy-args number-to-string 50000 random 10000 tramp-call-process "nc" "-z" #1="" format-spec-make 116 tramp-get-connection-process "temp-file" format-spec tramp-ssh-controlmaster-options 104 117 112 114 default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only with-timeout-timers process-environment tramp-rsh-end-of-line tramp-local-end-of-line tramp-actions-copy-out-of-band 99 107 " " tramp-copy-program tramp-copy-keep-date delete tramp-copy-args append mapcar 257 "\301\300\242\"\207" [format-spec] "\n\n(fn Z)" (" ") delq "\301\302\303\304\305\306\300!\307\"\310\311%\"\262\312\235?\205! \211\313\314\315#\266\202\207" [mapcar make-byte-code 257 "\301\300\242\"\207" vconcat vector [format-spec] 4 "\n\n(fn Y)" #1# " " mapconcat identity] 8 "\n\n(fn X)" tramp-copy-env tramp-remote-copy-program [format-spec] (" ") executable-find file-error "Cannot find local copy program: %s" 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create process-get tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties "remote-copy-program-" undef tramp-find-executable tramp-get-remote-path tramp-set-connection-property "Cannot find remote listener: %s" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) mapconcat "<" ">" "&" tramp-send-command #2=#:timeout run-with-timer 60 #[0 "\300\301\211\"\207" [throw #2#] 3] "\301\300!\207" [cancel-timer] "netstat -l | grep -q :%s" tramp-send-command-and-check "Listener process not running on remote host: `%s'" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] "\302\301\303\"\210\302\301\304\"\210\300\242\205 \305\301\306\"?\205 \307\301\310\311#\207" [tramp-flush-connection-property "process-name" "process-buffer" tramp-send-command-and-check nil tramp-cleanup-connection keep-debug keep-password] file-name-directory copy-sequence "process-name" buffer-name "process-buffer" "%s=\"%s\"" (error) (error) setenv start-process-shell-command tramp-get-connection-name (error) (error) process-put adjust-window-size-function ignore set-process-query-on-exit-flag tramp-process-actions set-file-times file-attributes (error) set-file-modes tramp-default-file-modes copy file-regular-p delete-file delete-directory recursive] 43 (#$ . 121245)]) #@68 Like `make-directory' for Tramp files. (fn DIR &optional PARENTS) (defalias 'tramp-sh-handle-make-directory #[513 "\306!\262\307!\211\242>\204 \310\311\312D\"\210\211A@\242>\204' \310\311\312D\"\210\3138\242>\2048 \310\311\312D\"\210\3148\242>\204J \310\311\312D\"\210\3158\242>\204\\ \310\311\312D\"\210\3168\242>\204n \310\311\312D\"\210\3178\242>\204\202 \310\311\312 D\"\210\3208\204j\321\n!\203j\322\323\fC\324\211 \325Y\203\224\211\203d\211\325\326\327\330! \331\216\f \332 \210)r\fq\210\333 +C\3341Z X\205V\n\203\371 \314X\203\371 \335\336\337U\203\337 \340\202\364 \341U\203\351 \340\202\364 \313U\203\363 \342\202\364 \343P#\210 \315Y\205V\337\341U\2036\34411r\345!\203\346!\202 \347\350\"q\210\326P\262\351\333 C\"\211\262)0\2025\210\2026\210\345!\203B\352\353\"\262)\242>\205V\335\354\355\356\"P$0\202^\210\202_\210\266\202\224 r\357\360!q\210p\361 \210\324\211@A\362\211B\362 C D\363 \210\364\365!\210+\211 \332 \210\366!\210)\266\210\211\204\240C\262\367\262\203Y\341\367\370\211\371N\335\372 #E!C\3731R X\205N\n\203\361\314X\203\361\335\336\337U\203\327\340\202\354\341U\203\341\340\202\354\313U\203\353\342\202\354\343P#\210 \315Y\205N\337\341U\203.\3741)r\345!\203\346!\202\347\350\"q\210\326P\262\351\333 C\"\211\262)0\202-\210\202.\210\345!\203:\352\353\"\262)\242>\205N\335\354\355\356\"P$0\202V\210\202W\210\266\310\375\335\372#!C\"\210*\266\376\n\203v\377\202{\201E !\"\210\201F \355\201G \f\203\221\201H \202\224\201I \201J !#\201K $\207" [cl-struct-tramp-file-name-tags signal-hook-function tramp-message-show-message tramp-verbose standard-output default-directory expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p file-already-exists "Directory already exists %s" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties tramp-flush-directory-properties "/" buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only file-name-directory tramp-barf-unless-okay "%s %s" "mkdir -p" "mkdir" tramp-shell-quote-argument "Couldn't make directory %s"] 26 (#$ . 132847)]) #@84 Like `delete-directory' for Tramp files. (fn DIRECTORY &optional RECURSIVE TRASH) (defalias 'tramp-sh-handle-delete-directory #[769 "\301!\262\302!\211\242>\204 \303\304\305D\"\210\211A@\242>\204' \303\304\305D\"\210\3068\242>\2048 \303\304\305D\"\210\3078\242>\204J \303\304\305D\"\210\3108\242>\204\\ \303\304\305D\"\210\3118\242>\204n \303\304\305D\"\210\3128\242>\204\202 \303\304\305 D\"\210\3138\314\"\210\315\316\317\f\203\235 \320\f!\206\247 \203\246 \321\202\247 \322\323!#\324$\207" [cl-struct-tramp-file-name-tags expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-directory-properties tramp-barf-unless-okay format "cd / && %s %s" tramp-get-remote-trash "rm -rf" "rmdir" tramp-shell-quote-argument "Couldn't delete %s"] 18 (#$ . 135611)]) #@68 Like `delete-file' for Tramp files. (fn FILENAME &optional TRASH) (defalias 'tramp-sh-handle-delete-file #[513 "\301!\262\302!\211\242>\204 \303\304\305D\"\210\211A@\242>\204' \303\304\305D\"\210\3068\242>\2048 \303\304\305D\"\210\3078\242>\204J \303\304\305D\"\210\3108\242>\204\\ \303\304\305D\"\210\3118\242>\204n \303\304\305D\"\210\3128\242>\204\202 \303\304\305 D\"\210\3138\314\"\210\315\316\317\f\203\235 \320\f!\206\236 \321\322!#\323 $\207" [cl-struct-tramp-file-name-tags expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties tramp-barf-unless-okay format "%s %s" tramp-get-remote-trash "rm -f" tramp-shell-quote-argument "Couldn't delete %s"] 17 (#$ . 136475)]) #@56 Like `dired-compress-file' for Tramp files. (fn FILE) (defalias 'tramp-sh-handle-dired-compress-file #[257 "\306!\211\242>\204 \307\310\311D\"\210\211A@\242>\204\" \307\310\311D\"\210\3128\242>\2043 \307\310\311D\"\210\3138\242>\204E \307\310\311D\"\210\3148\242>\204W \307\310\311D\"\210\3158\242>\204i \307\310\311D\"\210\3168\242>\204} \307\310\311 D\"\210\3178\320\"\210 \321\203\260 \321@@\321\322\323#)\266\203\203\250 @\262\321\262A\262)\202\211 \324 !\203\273 \321\202 \211\203\326\3128\203\326 \325\326\327\330\"C\3311j\fX\205f \203 \313X\203 \332\333\325U\203\357 \334\202\335U\203\371 \334\202\312U\203\336\202\337P#\210\f\314Y\205f\325 \335U\203F\3401Ar\341!\203(\342!\202,\343\344\"q\210\345P\262\346\347 C\"\211\262)0\202E\210\202F\210\341!\203R\350\351\"\262)\242>\205f\332\352\327\353\"P$0\202n\210\202o\210\266\354C \205\224\325\f\313^X\205\224\355\327\330\"\321\211#\211\205\222\356\313\357\360$\262\361\325\362\363\351$\364\"\365$\216\366\f\3128\367\370\n!Q\"\205\314\371 !\210\323@\"\210\372 \325\211\224#\260\373\240\210)\266\202\202 \325\326\327\374\"C\3751{\fX\205w \203\313X\203\332\333\325U\203 \334\202\335U\203\n\334\202\312U\203\336\202\337P#\210\f\314Y\205w\325 \335U\203W\3761Rr\341!\2039\342!\202=\343\344\"q\210\345P\262\346\347 C\"\211\262)0\202V\210\202W\210\341!\203c\350\351\"\262)\242>\205w\332\352\327\353\"P$0\202\210\202\200\210\266\354C \205\245\325\f\313^X\205\245\355\327\374\"\321\211#\211\205\243\356\313\357\360$\262\361\325\362\363\351$\377\"\365$\216\366\f\201@ \370 !P\"\205\371\371 !\210\201A \201B P!\203\342\f\201B P\202\371\201A \201C P!\203\370\f\201C P\202\371\321\373\240\210)\266\202\266\202\207" [cl-struct-tramp-file-name-tags dired-compress-file-suffixes case-fold-search inhibit-changing-match-data tramp-verbose tramp-message-show-message tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-flush-file-properties nil t string-match file-symlink-p 0 "%s..." format #1="Uncompressing %s" (error) apply message #2="" 1 #3="Warning: " #4="Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create #5="\n%s" append buffer-string process-get vector tramp-debug-message #6="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\303\203 \306\303!\210\301\307\310\311\312\300\"\302\242D\3131\256 \fX\205\252 \203L \314X\203L \315\316\307U\2032 \317\202G \320U\203< \317\202G \321U\203F \322\202G \323P#\210\f\324Y\205\252 \307 \320U\203\211 \3251\204 r\326!\203k \327!\202o \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\210 \210\202\211 \210\326!\203\225 \335\336\"\262)\242\">\205\252 \315\337\311\340\"P$0\202\260 \210\341\207" vconcat [tramp-verbose tramp-message-show-message cancel-timer 0 #7="%s...%s" format #1# (error) 3 apply message #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #5# append buffer-string process-get vector tramp-debug-message #6# nil cl-struct-tramp-file-name-tags] 10 tramp-send-command-and-check " " tramp-shell-quote-argument dired-remove-file substring "done" #8="Compressing %s" (error) (error) [tramp-verbose tramp-message-show-message cancel-timer 0 #7# format #8# (error) 3 apply message #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #5# append buffer-string process-get vector tramp-debug-message #6# nil cl-struct-tramp-file-name-tags] "gzip -f " file-exists-p ".gz" ".z"] 22 (#$ . 137272)]) #@102 Like `insert-directory' for Tramp files. (fn FILENAME SWITCHES &optional WILDCARD FULL-DIRECTORY-P) (defalias 'tramp-sh-handle-insert-directory #[1026 "\306!\262\204\f \307\262\204 \310\311\"\210\312!\211\242>\204& \313\314\315D\"\210\211A@\242>\2047 \313\314\315D\"\210\3168\242>\204H \313\314\315D\"\210\3178\242>\204Z \313\314\315D\"\210\3208\242>\204l \313\314\315D\"\210\3218\242>\204~ \313\314\315D\"\210\3228\242>\204\222 \313\314\315 D\"\210\3238\324\325!\203\256 \326J\204\256 \327\f\f\f\f$\202\240\n;\203\272 \330 !\262 \331\332\"\203\311 \333 \334\"\262 \331\335\"\204\330 \336\335\f\"\262 \203\353 \337\340C\"\262\n\337\341C\"\262\204\376 \342 \235\204\376 \333 \343\"\262 \344\345\f\346#\262 \203\n\346 Q\262 \320\347 \203$\350\202%\351\203.\350\202/\351F\3521\313 X\205\307\n\203j\317X\203j\353\354\355U\203P\307\202e\356U\203Z\307\202e\316U\203d\357\202e\360P#\210 \320Y\205\307\355\356U\203\247\3611\242r\362!\203\211\363!\202\215\364\365\"q\210\366P\262\333\367 C\"\211\262)0\202\246\210\202\247\210\362!\203\263\370\371\"\262)\242>\205\307\353\372\373\374\"P$0\202\317\210\202\320\210\266\203\372\375\373\376\377\f!\203\354\202\364\345\201A P!$\"\210\202D\201B \373\201C \345\337\341C\"!\"\201D \345\337\341C\"!$\210\375\373\376\377\f!\2045\337\340 C\"G\355U\2039\307\202A\345\337\340\nC\"!$\"\210\214```}\210r\201E !q\210\367 )c\210\201F y\210\201G \201H \201I !)\262\203t\201J y\210\201I \201K !\203\270\355\225\201L b\210`W\203\266\201M p!\\\201M p!\\\211f\201N >\203\261\201O \201P \201H $\210\266\202\207\266\201Q b\210\201I \201R !\203\323\356y\210\355\224`|\210\202\276\201S \201T \n\201U \307#\201V \201H \201W #)\266\203\204\211b\210\201X \f\201V \201H #\203\201Y \307!\210\202\367\201Z d \206@#\210\n\204h \204hdb\210\201[ !\203>\201\\ \201] \201^ #b\210\201\\ \201_ !\203P\201A \202T\340!\201^ #\210\201Y \201` !\201H \"\210eb\210\201X \201a \201V \201H #\203\233\201b \201A !\211\203\232\201Y \201c !\210\201V \210\201d \261\210\210db\262)\207" [cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message inhibit-changing-match-data tramp-display-escape-sequence-regexp file-name-coding-system expand-file-name "" access-file "Reading directory" tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 featurep ls-lisp ls-lisp-use-insert-directory-program tramp-handle-insert-directory split-string tramp-get-ls-command-with "--quoting-style=literal --show-control-chars" append ("--quoting-style=literal" "--show-control-chars") "--dired" delete tramp-run-real-handler file-name-nondirectory file-name-directory "-d" ("-d") mapconcat tramp-shell-quote-argument " " "Inserting directory `ls %s %s', wildcard %s, fulldir %s" "yes" "no" (error) apply message 0 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command "%s %s %s 2>/dev/null" tramp-get-ls-command default-file-name-coding-system "." tramp-barf-unless-okay "cd %s" "Couldn't `cd %s'" tramp-get-buffer -2 "//SUBDIRED//" t looking-at -1 "//DIRED//\\s-+" point-at-eol read (10 32) put-text-property dired-filename point-at-bol "//" "color" tramp-get-connection-property "ls" nil string-match re-search-forward replace-match decode-coding-region file-symlink-p search-backward "->" noerror tramp-compat-directory-name-p file-relative-name "^\\([[:space:]]*total\\)" get-free-disk-space "\\1 used in directory" " available "] 22 (#$ . 141011)]) #@186 Like `expand-file-name' for Tramp files. If the localname part of the given file name starts with "/../" then the result will be a local, non-Tramp, file name. (fn NAME &optional DIR) (defalias 'tramp-sh-handle-expand-file-name #[513 "\211\206 \206 \303\262G\304U\203 \305\262\306!\204\" \307!P\262\310!\204/ \311\312\313D\"\207\314!\211\242 >\204@ \315\316\317D\"\210\211A@\242 >\204Q \315\316\317D\"\210\3208\242 >\204b \315\316\317D\"\210\3218\242 >\204t \315\316\317D\"\210\3228\242 >\204\206 \315\316\317D\"\210\3238\242 >\204\230 \315\316\317D\"\210\3248\242 >\204\254 \315\316\317 D\"\210\3258\311\306C\"\204\275 \326P\262\327\330\"\203%\331\332\"\331\320\"\333\230\203\351 \334 \313\335\327#)\266\203\203\351 P\262\336\n\337#\211\337=\203\340 \341\342\343!\"\"\210r\344 !q\210eb\210`\345 {)\262\346 #\210\211\262\262P\262\266\327\347\"\2037\350\303\335\211$\262\202%\351\352\353N@!\354\355\311\312C\"!\")\207" [default-directory cl-struct-tramp-file-name-tags inhibit-changing-match-data "/" 0 "." file-name-absolute-p file-name-as-directory tramp-connectable-p tramp-run-real-handler expand-file-name nil tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 "~/" string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" match-string 1 "~" "\\`su\\(do\\)?\\'" t tramp-get-connection-property undef tramp-send-command format "cd %s && pwd" tramp-shell-quote-argument tramp-get-buffer point-at-eol tramp-set-connection-property "//" replace-match eval temporary-file-directory standard-value tramp-make-tramp-file-name tramp-drop-volume-letter] 19 (#$ . 144746)]) #@55 Like `make-process' for Tramp files. (fn &rest ARGS) (defalias 'tramp-sh-handle-make-process #[128 "\211\205k\306\307!!\211\242 >\204 \310\311\312D\"\210\211A@\242 >\204( \310\311\312D\"\210\3138\242 >\2049 \310\311\312D\"\210\3148\242 >\204K \310\311\312D\"\210\3158\242 >\204] \310\311\312D\"\210\3168\242 >\204o \310\311\312D\"\210\3178\242 >\204\203 \310\311\312 D\"\210\3208\321 \322\"\321\n\323\"\321 \324\"\321\f\325\"\321 \326\"\321\327\"\321\330\"\321\331\"\321\332\";\204\302 \310\311\333 D\"\210\203\334 \334!\204\334 ;\204\334 \310\311\333\nD\"\210:\204\352 \310\311\335 D\"\210\2039\203\371 \n>\204:\203\f@\n>\203\fA\n>\204\310\311\336D\"\210\203&\337>\204&\310\311\336D\"\210\2037\340!\2047\310\311\340D\"\210\203H\340!\204H\310\311\340D\"\210\211\203^\334!\204^\211;\204^\310\311\333D\"\210\203j\341!\202m\342 !\205t\341!\211\205|\343! @\nA;\205\242\344\345\346 \347#)\266\203\205\242\211@\350\230\205\242\211G\313U\211\204\252\202\326\351\211A@GW\203\323\347\352A@#\203\323\353\354\345\211A@$C\241\210\211\351\\\262\202\253\210A\355\356\357\345\360# #\345\2112B\211\203,\211@\211\361\362!\235\204%\363\345\346 \347#)\266\203\203\364C\"\262\202%\365 !\203 \364\366D\"\262\202%\211B\262A\266\202\202\346\262;\205\213\355\367\370!\203K\355\371\372\370\352#\"\202L\373 \203Y\355\374@\"\202Z\373 \203g\355\375\"\202h\373\372\370\352#\f\203\200\355\376@@$\202\211\372\370B\352#&?\206\223A A\377\f!\205\242\201L \f!\201M \345\211 BC\201N !\203\305T\262\355\201O #\262\202\254\262\201P !\201Q #\210\201P !\201R #\210r\201S !!q\210\201T \201M \201U \201V \201W % #\201X \"\320$\216\212\214\346\211d C D\201Y \210dd}\210\201Z 2\355\201[ $!\210\201\\ %!\240\210\201] $\201^ \"\201_ \242\201` #\210\201P \242\201a #\266~\210\211d|\210dd}\210\203l\201b $ \345\346$\202\354\201c \242\201d \"?\205\354#\201e \201f C\345\211 E FG\201g Y\203\323\211\203\224\211\201g \201h \342\201i ! H\201j \216H H\201k \210)rHq\210\201l +C\201m 1\212GX\205\206F\203 \314X\203 \201n \201o \201M U\203\351\373\202\201p U\203\365\373\202\313U\203\201q \202\201r P#\210G\315Y\205\206\201M G\201p U\203Z\201s 1Ur\201t !\2034\201u !\202<\201S \201v \"q\210\201h P\262\364\201l C\"\211\262)0\202Y\210\202Z\210\201t !\203l\201c \201W \"\262)\242 >\205\206\201n \201w \355\201x \"P$0\202\216\210\202\217\210\266\202\323r\341\201y !q\210p\201z \210\345\211IJ\346\211D\346 K C\201{ \210\201| \201} !\210+\211 H\201k \210\201~ !\210)\266\210\211\204\341C\262\201 \262\203\326\201p \201 \201\200 \211\201\201 N\201n \201\202 #E!C\201\203 1\317GX\205\313F\203N\314X\203N\201n \201o \201M U\203.\373\202I\201p U\203:\373\202I\313U\203F\201q \202I\201r P#\210G\315Y\205\313\201M G\201p U\203\237\201\204 1\232r\201t !\203y\201u !\202\201\201S \201v \"q\210\201h P\262\364\201l C\"\211\262)0\202\236\210\202\237\210\201t !\203\261\201c \201W \"\262)\242 >\205\313\201n \201w \355\201x \"P$0\202\323\210\202\324\210\266\310\201\205 \201n \201\202 #!C\"*\266\2040\210\203\374\201\206 \242\"\210\203\n\201\207 \242\"\210\201\210 1'\201\211 \242?\"\210\201\212 \242!`\345\2230\202+\210\202,\210\203^\201\213 $\201Q \"\210\201\213 $\201R \"\210rq\210\201\214 \357%\"\201\215 \"\210\201\216 \210)\242*\266\203.\266\220\266\211\266\210\207" [default-directory cl-struct-tramp-file-name-tags coding-system-list tramp-temp-buffer-name inhibit-changing-match-data tramp-initial-end-of-output tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 plist-get :name :buffer :command :coding :noquery :connection-type :filter :sentinel :stderr stringp bufferp consp symbolp (pipe pty) functionp get-buffer-create generate-new-buffer tramp-make-tramp-temp-file "sh$" nil t string-match "-c" 250 " " replace-match " \\\\\n" format "PS1=%s %s" tramp-make-tramp-file-name nohop default-toplevel-value process-environment "=" append tramp-get-env-with-u-option "-u" "cd %s && %s exec %s %s env %s %s" tramp-shell-quote-argument "unset %s &&" mapconcat "" "<<'%s'" "2>'%s'" "%s\n(\n%s\n) </dev/tty\n%s" buffer-live-p tramp-end-of-heredoc tramp-process-connection-type tramp-current-connection inhibit-read-only buffer-undo-list signal-hook-function tramp-message-show-message tramp-verbose standard-output buffer-read-only buffer-file-name inhibit-modification-hooks buffer-modified-p 0 get-process "%s<%d>" tramp-set-connection-property "process-name" "process-buffer" tramp-get-connection-buffer make-byte-code " \305 \306\307 \310#)\266\203\203* \3111\" \312\302\242\306\"\210\313p!0\202& \210\202. \210\202. \314\301!\210\315\300\316\"\210\315\300\317\"\207" vconcat vector [tramp-temp-buffer-name inhibit-changing-match-data buffer-name nil t string-match (error) set-process-buffer kill-buffer set-buffer-modified-p tramp-flush-connection-property "process-name" "process-buffer"] clear-visited-file-modtime suppress tramp-maybe-open-connection tramp-get-connection-process tramp-send-command-and-read "echo $$" process-put remote-pid "remote-pid" tramp-send-command process-get remote-tty file-error "pty association is not supported for `%s'" 10 "\n%s" " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 1 "Warning: " "Tramp: " (error) processp process-buffer dont-create tramp-debug-message "(%d) # " "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties set-process-sentinel set-process-filter (error) set-process-query-on-exit-flag process-mark tramp-flush-connection-property insert-file-contents visit auto-revert-mode] 53 (#$ . 146418)]) #@100 Like `process-file' for Tramp files. (fn PROGRAM &optional INFILE DESTINATION DISPLAY &rest ARGS) (defalias 'tramp-sh-handle-process-file #[1153 "\247\203 \305U\203 \306\307!\210\310!\211\242 >\204 \311\312\313D\"\210\211A@\242 >\2041 \311\312\313D\"\210\3148\242 >\204B \311\312\313D\"\210\3158\242 >\204T \311\312\313D\"\210\3168\242 >\204f \311\312\313D\"\210\3178\242 >\204x \311\312\313D\"\210\3208\242 >\204\214 \311\312\313 D\"\210\3218\322\211\211\211\211\211\211\211C\322\323\324B\325#\262 \n\211\203\357 \211@\211\326\302!\235\204\350 \327\322\330\331#)\266\203\203\317 \332\nC\"\262\n\202\350 \333!\203\342 \332\334D \"\262\n\202\350 \211 B\262 A\266\202\202\246 \210\203\335\336\323\324 \325# #\262 \203\335\337\323\324\n\325# #\262 \204 \340\262\202\316\341!\262\342\"\203\267\310!\211\242 >\204?\311\312\313D\"\210\211A@\242 >\204P\311\312\313D\"\210\3148\242 >\204a\311\312\313D\"\210\3158\242 >\204s\311\312\313D\"\210\3168\242 >\204\205\311\312\313D\"\210\3178\242 >\204\227\311\312\313D\"\210\3208\242 >\204\253\311\312\313 D\"\210\3218\266\210\262\202\316\343!\262\344\345#\262\346\330#\210\203\333\335\347\n#\262 \350!\203\352\240\210\202\375;\203\372\351!\240\210\202\375:\203\364\350@!\203@\240\210\202-@;\203#\351@!\240\210\202-@\203-p\240\210A@;\203\347A\341A@!\240\210\342A@\"\203\326\310A@!\211\242 >\204^\311\312\313D\"\210\211A@\242 >\204o\311\312\313D\"\210\3148\242 >\204\200\311\312\313D\"\210\3158\242 >\204\222\311\312\313D\"\210\3168\242 >\204\244\311\312\313D\"\210\3178\242 >\204\266\311\312\313D\"\210\3208\242 >\204\312\311\312\313 D\"\210\3218\266\210\262\202\375\343!\262\344\345#\262\202\375A@\204\375\340\262\202\375\203\375p\240\210\203\n\335\352\n#\262 \3531S\3541C\355\305\356\357\360#\361\"\315$\216\362\335\363\324! #\330\211$\2039\305\202:\364\211\262)00\202_0\210\365\366!!\210\367\211\262\202_\210\365\366!!\210\364\211\262\210\203m\370A@\330#\210\203u\371!\210\f\204\372\373\"\210\211\367\232\203\212\374 \202\213\211\266\211\207" [default-directory cl-struct-tramp-file-name-tags process-environment inhibit-changing-match-data process-file-side-effects 0 error "Implementation does not handle immediate return" tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 nil mapconcat tramp-shell-quote-argument " " default-toplevel-value "=" t string-match append tramp-get-env-with-u-option "-u" format "env %s %s" "unset %s && %s" "/dev/null" expand-file-name tramp-equal-remote tramp-make-tramp-temp-file tramp-make-tramp-file-name nohop copy-file "%s <%s" bufferp get-buffer-create "%s 2>%s" (error) (quit) make-byte-code "\302\242\205$ r\302\242q\210r\303\301!q\210\304 )c\210)\300\205$ \305\302\242\306\"\205$ \307 \207" vconcat vector [tramp-get-connection-buffer buffer-string get-buffer-window t redisplay] tramp-send-command-and-check "cd %s && %s" 1 kill-buffer tramp-get-connection-buffer -1 rename-file delete-file tramp-flush-directory-properties "" keyboard-quit] 33 (#$ . 152517)]) #@35 Like `exec-path' for Tramp files. (defalias 'tramp-sh-handle-exec-path #[0 "\301\302\303!!\304!C\"\207" [default-directory append tramp-get-remote-path tramp-dissect-file-name tramp-compat-file-local-name] 4 (#$ . 155765)]) #@56 Like `file-local-copy' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-local-copy #[257 "\306!\211\242>\204 \307\310\311D\"\210\211A@\242>\204\" \307\310\311D\"\210\3128\242>\2043 \307\310\311D\"\210\3138\242>\204E \307\310\311D\"\210\3148\242>\204W \307\310\311D\"\210\3158\242>\204i \307\310\311D\"\210\3168\242>\204} \307\310\311 D\"\210\3178\320\321\n!!\204d \322 C\323\211\f\324Y\203\216\211\203\\\211\324\325\326\327! \330\216 \331 \210)r q\210\332 +C\3331R\fX\205N \203\361 \313X\203\361 \334\335\336U\203\327 \337\202\354 \340U\203\341 \337\202\354 \312U\203\353 \341\202\354 \342P#\210\f\314Y\205N\336 \340U\203.\3431)r\344!\203\345!\202\346\347\"q\210\325P\262\350\332 C\"\211\262)0\202-\210\202.\210\344!\203:\351\352\"\262)\242>\205N\334\353\354\355\"P$0\202V\210\202W\210\266\202\216@r\356\357!q\210p\360 \210@\323\211AB\361\211C\361 D E\362 \210\363\364!\210+\211 \331 \210\365!\210)\266\210\211\204\232C\262\366\262\203S\340\366\367\211\370N\334\371 #E!C\3721L\fX\205H \203\353\313X\203\353\334\335\336U\203\321\337\202\346\340U\203\333\337\202\346\312U\203\345\341\202\346\342P#\210\f\314Y\205H\336 \340U\203(\3731#r\344!\203\n\345!\202\346\347\"q\210\325P\262\350\332 C\"\211\262)0\202'\210\202(\210\344!\2034\351\352\"\262)\242>\205H\334\353\354\355\"P$0\202P\210\202Q\210\266\307\374\334\371#!C\"\210*\266\375\321\n!!\3178\262\376 \377#\376\n\201H # \323\211 F\201I \201J J\201K \201L \201M N@!\"\201N \361\"\201O #)\266\204\201P 1\300\201Q \f!\204\300\201R \f\"\203\320\201S \201T \201U $\202\274\203\325 \313\201V \371\201W #C\201X 1\203\fX\205 \203 \313X\203 \334\335\336U\203\337\202\340U\203\337\202\312U\203\341\202\342P#\210\f\314Y\205\336 \340U\203_\201Y 1Zr\344!\203A\345!\202E\346\347\"q\210\325P\262\350\332 C\"\211\262)0\202^\210\202_\210\344!\203k\351\352\"\262)\242>\205\334\353\354\355\"P$0\202\207\210\202\210\210\266\201Z C \205\273\313\f\313^X\205\273\201[ \371\201W #\323\211#\211\205\271\201\\ \313\201] \201^ $\262\201_ \336\201` \201a \352 %\201b \"\324$\216\201c \354\201d \f!\"\201e #\210\201f \240\210)\266 \313\201V \371\201g #C\201h 1\243\fX\205\237 \203@\313X\203@\334\335\336U\203&\337\202;\340U\2030\337\202;\312U\203:\341\202;\342P#\210\f\314Y\205\237\336 \340U\203\201i 1zr\344!\203a\345!\202e\346\347\"q\210\325P\262\350\332 C\"\211\262)0\202~\210\202\210\344!\203\213\351\352\"\262)\242>\205\237\334\353\354\355\"P$0\202\247\210\202\250\210\266\201Z C \205\332\313\f\313^X\205\332\201[ \371\201g #\323\211#\211\205\330\201\\ \313\201] \201^ $\262\201_ \336\201j \201a \352 %\201k \"\324$\216\201l !\203Q\323\201m G F\326\201n !\201_ \336\201o \201a \352!\201p \"\312$\216r\211q\210\201q \323!\210\201r \201s !!\210ed\"\210)r\211q\210\201t \323\211\323\336%\210*\266*\202\270\323\211 F\201I \201J J\201K \201L \201M N@!\"\201N \361\"\201O #)\266\204\323\201m G Fr\201s !q\210\201t ed\323\201u %\210+\201_ \336\201v \201a \352!\201w \"\312$\216\201x #\210)\210\201f \240\210)\266\201y \201z !\"\210\201{ !\202\274 \201| \201} C\323\211\f\324Y\203\343\211\203\261\211\324\325\326\327! \201~ \216 \331 \210)r q\210\332 +C\201 1\247\fX\205\243 \203D\313X\203D\334\335\336U\203*\337\202?\340U\2034\337\202?\312U\203>\341\202?\342P#\210\f\314Y\205\243\336 \340U\203\203\201\200 1~r\344!\203e\345!\202i\346\347\"q\210\325P\262\350\332 C\"\211\262)0\202\202\210\202\203\210\344!\203\217\351\352\"\262)\242>\205\243\334\353\354\355\"P$0\202\253\210\202\254\210\266\202\343@r\356\357!q\210p\360 \210@\323\211AB\361\211C\361 D E\362 \210\363\364!\210+\211 \331 \210\365!\210)\266\210\211\204\357C\262\366\262\203\254\340\366\367\211\370N\334\371 #E!C\201\201 1\245\fX\205\241 \203B\313X\203B\334\335\336U\203(\337\202=\340U\2032\337\202=\312U\203<\341\202=\342P#\210\f\314Y\205\241\336 \340U\203\201\201\202 1|r\344!\203c\345!\202g\346\347\"q\210\325P\262\350\332 C\"\211\262)0\202\200\210\202\201\210\344!\203\215\351\352\"\262)\242>\205\241\334\353\354\355\"P$0\202\251\210\202\252\210\266\307\374\334\371#!C\"*\266\2040\202\316\201\203 !\210\307@A\"\262\210\363\201\204 !\210\266\203\207" [cl-struct-tramp-file-name-tags tramp-file-missing signal-hook-function tramp-message-show-message tramp-verbose standard-output tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p file-truename "Cannot make local copy of non-existing file `%s'" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 #2="" 1 #3="Warning: " #4="Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format #5="(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties file-attributes tramp-get-inline-coding "remote-encoding" default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only file-name-handler-alist coding-system-for-write "local-decoding" expand-file-name tramp-temp-name-prefix eval temporary-file-directory standard-value file-name-extension make-temp-file (error quit) tramp-local-host-p tramp-method-out-of-band-p copy-file ok-if-already-exists keep-time "%s..." #1="Encoding remote file `%s' with `%s'" (error) (error) "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\304\203 \306\304!\210\301\307\310\311\312\300\302#\303\242D\3131\260 X\205\254 #\203N \307X\203N \314\315\316U\2034 \317\202I \320U\203> \317\202I \321U\203H \322\202I \323P#\210 \324Y\205\254 \316 \320U\203\213 \3251\206 r\326!\203m \327!\202q \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\212 \210\202\213 \210\326!\203\227 \335\336\"\262)\242$>\205\254 \314\337\340\341\"P$0\202\262 \210\342\207" vconcat [tramp-verbose cancel-timer 3 #6="%s...%s" format-message #1# (error) apply message 0 #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #8="\n%s" append buffer-string process-get vector tramp-debug-message format #5# nil tramp-message-show-message cl-struct-tramp-file-name-tags] tramp-barf-unless-okay tramp-shell-quote-argument "Encoding remote file failed" "done" #7="Decoding local file `%s' with `%s'" (error) (error) "\304\203 \306\304!\210\300\307\310\311\312\302\301#\303\242D\3131\260 X\205\254 #\203N \307X\203N \314\315\316U\2034 \317\202I \320U\203> \317\202I \321U\203H \322\202I \323P#\210 \324Y\205\254 \316 \320U\203\213 \3251\206 r\326!\203m \327!\202q \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\212 \210\202\213 \210\326!\203\227 \335\336\"\262)\242$>\205\254 \314\337\340\341\"P$0\202\262 \210\342\207" [tramp-verbose cancel-timer 3 #6# format-message #7# (error) apply message 0 #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #8# append buffer-string process-get vector tramp-debug-message format #5# nil tramp-message-show-message cl-struct-tramp-file-name-tags] functionp binary " *temp file*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] set-buffer-multibyte insert-buffer-substring tramp-get-buffer write-region no-message "\301\300!\207" [delete-file] tramp-call-local-coding-command set-file-modes tramp-default-file-modes tramp-set-file-uid-gid file-error "Wrong method specification for `%s'" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) delete-file tramp-handle-file-local-copy-hook] 29 (#$ . 155997)]) #@105 Like `write-region' for Tramp files. (fn START END FILENAME &optional APPEND VISIT LOCKNAME MUSTBENEW) (defalias 'tramp-sh-handle-write-region #[1795 "C\211\306\242!\240\210\307\242!\211\242>\204 \310\311\312D\"\210\211A@\242>\204, \310\311\312D\"\210\3138\242>\204= \310\311\312D\"\210\3148\242>\204O \310\311\312D\"\210\3158\242>\204a \310\311\312D\"\210\3168\242>\204s \310\311\312D\"\210\3178\242>\204\207 \310\311\312 D\"\210\3208 \203\202\321 \242!\203\202 \322=\204\252 \323\324\325 \242\"!\204\202\326\n\242\327\211\211 \330Y\203\254\211\203|\211\330\331\332\333! \334\216\f \335 \210)r\fq\210\336 +C\3371r X\205n\n\203\314X\203\340\341\342U\203\367 \343\202\f\344U\203\343\202\f\313U\203 \345\202\f\346P#\210 \315Y\205n\342\344U\203N\3471Ir\350!\2030\351!\2024\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202M\210\202N\210\350!\203Z\355\356\"\262)\242>\205n\340\357\324\360\"P$0\202v\210\202w\210\266\202\254 r\361\362!q\210p\363 \210\327\211@A\364\211B\364 C D\365 \210\366\367!\210+\211 \335 \210\370!\210)\266\210\211\204\270C\262\371\262\203q\344\371\372\211\373N\340\374 #E!C\3751j X\205f\n\203 \314X\203 \340\341\342U\203\357\343\202\344U\203\371\343\202\313U\203\345\202\346P#\210 \315Y\205f\342\344U\203F\3761Ar\350!\203(\351!\202,\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202E\210\202F\210\350!\203R\355\356\"\262)\242>\205f\340\357\324\360\"P$0\202n\210\202o\210\266\310\377\340\374#!C\"\210*\266\201N \242\201O \"\3138\262\206\235\201P \201O \"\201N \n\242\201O \"\3148\262\206\270\201Q \201O \"\201R \n!\203\373\327 E\201S \201T !!\205\335\201U !\206\335\201S !)\203\373\201V \201W \201X \257\"\210\202$ \212\201Y \242!)\327\201Z \201F \201[ N@! FG\206A\f\242\327\211 E\306\201\\ J\201Z \201F \201[ N@!\"\201] \364\"\201^ #)\266\204\203R\201_ \242\201` #\210\327\201a \242\" H E\201b 1~\201V \201W \201X \257\"0\202\217\327G\201c !\210\310@A\"\262\210I\262*\203\253\201d \201e \206\245\342\201f \"\"\210\201N !\3208\262\201g \201h #\201g \201i #\201R !\204\334\201j \"\203U;\204/\206\350ddU\203/\206\363eeU\203/\201k \201l \"\203/G\201m 1\201_ \242\364#0\202+\327G\201c !\210\310@A\"\262\210\202 \327G\201n \342\201o \201p \356!\201q \"\313$\216\201_ \242\364#\210)\202 \2032 \201n \342\201o \201p \356!\201r \"\313$\216\332\201s !r\211q\210\201n \342\201t \201p \356!\201u \"\313$\216\201v \327!\210\314\201w \374\201x #C\201y 1@ X\205<\n\203\335\314X\203\335\340\341\342U\203\303\343\202\330\344U\203\315\343\202\330\313U\203\327\345\202\330\346P#\210 \315Y\205<\342\344U\203 \201z 1r\350!\203\376\351!\202\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202\210\202 \210\350!\203(\355\356\"\262)\242>\205<\340\357\324\360\"P$0\202D\210\202E\210\266\201{ C\n\205x\314 \314^X\205x\201| \374\201x #\327\211#\211\205v\201} \314\201~ \201 $\262\201n \342\201\200 \201p \356\f\n %\201\201 \"\330$\216\201\202 !\203\277\201\203 \201Z \201F \201[ N@! J\201\204 !\210ed\"\210*\202\265\201\205 \364#\342U\204\265\201\206 \201\207 \242D\327\211 \330Y\203\333\211\203\253\211\330\331\332\333! \201\210 \216\f \335 \210)r\fq\210\336 +C\201\211 1\241 X\205\235\n\203>\314X\203>\340\341\342U\203$\343\2029\344U\203.\343\2029\313U\2038\345\2029\346P#\210 \315Y\205\235\342\344U\203}\201\212 1xr\350!\203_\351!\202c\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202|\210\202}\210\350!\203\211\355\356\"\262)\242>\205\235\340\357\324\360\"P$0\202\245\210\202\246\210\266\202\333 r\361\362!q\210p\363 \210\327\211@A\364\211B\364 C D\365 \210\366\367!\210+\211 \335 \210\370!\210)\266\210\211\204\347C\262\371\262\203\244\344\371\372\211\373N\340\374 #E!C\201\213 1\235 X\205\231\n\203:\314X\203:\340\341\342U\203 \343\2025\344U\203*\343\2025\313U\2034\345\2025\346P#\210 \315Y\205\231\342\344U\203y\201\214 1tr\350!\203[\351!\202_\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202x\210\202y\210\350!\203\205\355\356\"\262)\242>\205\231\340\357\324\360\"P$0\202\241\210\202\242\210\266\310\377\340\374#!C\"\210*\266\201\215 \240\210)\266\314\201w \374\201\216 \242#C\201\217 1n X\205j\n\203 \314X\203 \340\341\342U\203\361\343\202\344U\203\373\343\202\313U\203\345\202\346P#\210 \315Y\205j\342\344U\203J\201\220 1Er\350!\203,\351!\2020\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202I\210\202J\210\350!\203V\355\356\"\262)\242>\205j\340\357\324\360\"P$0\202r\210\202s\210\266\201{ C\n\205\247\314 \314^X\205\247\201| \374\201\216 \242#\327\211#\211\205\245\201} \314\201~ \201 $\262\201n \342\201\221 \201p \356 %\201\222 \"\330$\216db\210n\204\320\201\223 \210\201\224 \324\201\225 P\201\226 !K\336 K%\"\210\201\227 \327\201\230 \242 %\210L\203# \365 \210\201\231 \201\232 \364$\342U\203# \201\233 \324\201\234 \201\226 !\"\"\203# \336 r\201\235 !q\210\336 )\230\204# \201\206 \201\230 \242D\327\211 \330Y\203I\n\211\203\n\211\330\331\332\333! \201\236 \216\f \335 \210)r\fq\210\336 +C\201\237 1\n X\205 \n\n\203\254 \314X\203\254 \340\341\342U\203\222 \343\202\247 \344U\203\234 \343\202\247 \313U\203\246 \345\202\247 \346P#\210 \315Y\205 \n\342\344U\203\353 \201\240 1\346 r\350!\203\315 \351!\202\321 \352\353\"q\210\331P\262\354\336 C\"\211\262)0\202\352 \210\202\353 \210\350!\203\367 \355\356\"\262)\242>\205 \n\340\357\324\360\"P$0\202\n\210\202\n\210\266\202I\n r\361\362!q\210p\363 \210\327\211@A\364\211B\364 C D\365 \210\366\367!\210+\211 \335 \210\370!\210)\266\210\211\204U\nC\262\371\262\203 \344\371\372\211\373N\340\374 #E!C\201\241 1 X\205 \n\203\250\n\314X\203\250\n\340\341\342U\203\216\n\343\202\243\n\344U\203\230\n\343\202\243\n\313U\203\242\n\345\202\243\n\346P#\210 \315Y\205 \342\344U\203\347\n\201\242 1\342\nr\350!\203\311\n\351!\202\315\n\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202\346\n\210\202\347\n\210\350!\203\363\n\355\356\"\262)\242>\205 \340\357\324\360\"P$0\202 \210\202 \210\266\310\377\340\374#!C\"\210*\266\201\215 \240\210)\266*\210)\202 \201\206 \201\243 C\327\211 \330Y\203>\f\211\203\f\211\330\331\332\333! \201\244 \216\f \335 \210)r\fq\210\336 +C\201\245 1\f X\205 \f\n\203\241 \314X\203\241 \340\341\342U\203\207 \343\202\234 \344U\203\221 \343\202\234 \313U\203\233 \345\202\234 \346P#\210 \315Y\205 \f\342\344U\203\340 \201\246 1\333 r\350!\203\302 \351!\202\306 \352\353\"q\210\331P\262\354\336 C\"\211\262)0\202\337 \210\202\340 \210\350!\203\354 \355\356\"\262)\242>\205 \f\340\357\324\360\"P$0\202\f\210\202 \f\210\266\202>\f r\361\362!q\210p\363 \210\327\211@A\364\211B\364 C D\365 \210\366\367!\210+\211 \335 \210\370!\210)\266\210\211\204J\fC\262\371\262\203 \344\371\372\211\373N\340\374 #E!C\201\247 1 X\205\374\f\n\203\235\f\314X\203\235\f\340\341\342U\203\203\f\343\202\230\f\344U\203\215\f\343\202\230\f\313U\203\227\f\345\202\230\f\346P#\210 \315Y\205\374\f\342\344U\203\334\f\201\250 1\327\fr\350!\203\276\f\351!\202\302\f\352\353\"q\210\331P\262\354\336 C\"\211\262)0\202\333\f\210\202\334\f\210\350!\203\350\f\355\356\"\262)\242>\205\374\f\340\357\324\360\"P$0\202 \210\202 \210\266\310\377\340\374#!C\"\210*\266\266\203! I)\266\201\251 \n\"\210\327\364 I\364=\204> ;\203m \201N \242\201O \"\201\252 \3168\262!\210\211\3138\262U\203l \211\3148\262U\203l \327\262\210\211\203{ \201\253 \242#\210M\204B\364=\204\222 \203\222 ;\203B \342\201\254 \242C\201\255 1; X\2057\n\203\330 \314X\203\330 \340\341\342U\203\276 \343\202\323 \344U\203\310 \343\202\323 \313U\203\322 \345\202\323 \346P#\210 \315Y\2057\342\344U\203\201\256 1r\350!\203\371 \351!\202\375 \352\353\"q\210\331P\262\354\336 C\"\211\262)0\202\210\202\210\350!\203#\355\356\"\262)\242>\2057\340\357\324\360\"P$0\202?\210\202@\210\266\366\201\257 !)\266\202\266\202\266\210\207" [cl-struct-tramp-file-name-tags signal-hook-function tramp-message-show-message tramp-verbose standard-output default-directory expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-exists-p excl y-or-n-p format "File %s exists; overwrite anyway? " file-already-exists nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 #2="" 1 #3="Warning: " #4="Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message #5="(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only file-name-handler-alist temporary-file-directory tramp-temp-buffer-file-name file-coding-system-alist last-coding-system-used coding-system-for-read tramp-end-of-heredoc file-precious-flag noninteractive file-attributes integer tramp-get-remote-uid tramp-get-remote-gid tramp-local-host-p file-writable-p file-name-directory file-directory-p tramp-run-real-handler write-region no-message tramp-default-file-modes eval standard-value tramp-temp-name-prefix file-name-extension make-temp-file copy-file ok tramp-find-file-name-coding-system-alist (error quit) delete-file set-file-modes logior 256 tramp-get-inline-coding "remote-decoding" "local-encoding" tramp-method-out-of-band-p tramp-get-method-parameter tramp-copy-keep-tmpfile (error quit) make-byte-code "\301\300!\207" vconcat [delete-file] [delete-file] " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] set-buffer-multibyte "%s..." #1="Encoding local file `%s' using `%s'" (error) (error) "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update "\304\203 \306\304!\210\300\307\310\311\312\301\302#\303\242D\3131\260 X\205\254 #\203N \307X\203N \314\315\316U\2034 \317\202I \320U\203> \317\202I \321U\203H \322\202I \323P#\210 \324Y\205\254 \316 \320U\203\213 \3251\206 r\326!\203m \327!\202q \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\212 \210\202\213 \210\326!\203\227 \335\336\"\262)\242$>\205\254 \314\337\340\341\"P$0\202\262 \210\342\207" [tramp-verbose cancel-timer 3 #6="%s...%s" format-message #1# (error) apply message 0 #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #8="\n%s" append buffer-string process-get vector tramp-debug-message format #5# nil tramp-message-show-message cl-struct-tramp-file-name-tags] functionp binary insert-file-contents-literally tramp-call-local-coding-command file-error "Cannot write to `%s', local encoding command `%s' failed" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) "done" #7="Decoding remote file `%s' using `%s'" (error) (error) "\304\203 \306\304!\210\301\307\310\311\312\300\242\302#\303\242D\3131\261 X\205\255 #\203O \307X\203O \314\315\316U\2035 \317\202J \320U\203? \317\202J \321U\203I \322\202J \323P#\210 \324Y\205\255 \316 \320U\203\214 \3251\207 r\326!\203n \327!\202r \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\213 \210\202\214 \210\326!\203\230 \335\336\"\262)\242$>\205\255 \314\337\340\341\"P$0\202\263 \210\342\207" [tramp-verbose cancel-timer 3 #6# format-message #7# (error) apply message 0 #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #8# append buffer-string process-get vector tramp-debug-message format #5# nil tramp-message-show-message cl-struct-tramp-file-name-tags] newline tramp-send-command " <<'%s'\n%s%s" tramp-shell-quote-argument tramp-barf-unless-okay "Couldn't write region to `%s', decode using `%s' failed" tramp-call-process "cksum" tramp-send-command-and-check "cksum <%s" tramp-get-buffer #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) "Method `%s' should specify both encoding and decoding command or an scp program" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) tramp-flush-file-properties set-visited-file-modtime tramp-set-file-uid-gid "Wrote %s" (error) (error) tramp-handle-write-region-hook] 43 (#$ . 164168)]) #@76 List used to collect file names, which are checked during `vc-registered'. (defvar tramp-vc-registered-file-names nil (#$ . 177047)) #@50 Like `vc-registered' for Tramp files. (fn FILE) (defalias 'tramp-sh-handle-vc-registered #[257 "\205C ?\205\n \n ?\205 \306\211\307C\310\311\312\313\314\"\315\"\316$\216\2032 \211\317 \240\210\320\321\"\210\322!\211\242 >\204C \323\324\325D\"\210\211A@\242 >\204T \323\324\325D\"\210\3268\242 >\204e \323\324\325D\"\210\3168\242 >\204w \323\324\325D\"\210\3278\242 >\204\211 \323\324\325D\"\210\3308\242 >\204\233 \323\324\325D\"\210\3318\242 >\204\257 \323\324\325 D\"\210\3328\316\333\334\335\"C\3361X\fX\205T\n\203\367 \316X\203\367 \337\320\311U\203\335 \306\202\362 \340U\203\347 \306\202\362 \326U\203\361 \341\202\362 \342P#\210\f\327Y\205T\311 \340U\2034\3431/r\344!\203\345!\202\346\347\"q\210\350P\262\351\352 C\"\211\262)0\2023\210\2024\210\344!\203@\353\314\"\262)\242 >\205T\337\354\355\356\"P$0\202\\\210\202]\210\266\357C\n\205\202\316\f\316^X\205\202\360\334\335\"\307\211#\211\205\200\361\316\362\363$\262\310\311\364\313\314$\365\"\366$\216\307\367 \370BC @ A B\3711\260\372\373C\"0\202W\n\316\374C\3751Q\fX\205M\n\203\360\316X\203\360\337\320\311U\203\326\306\202\353\340U\203\340\306\202\353\326U\203\352\341\202\353\342P#\210\f\327Y\205M\311 \340U\203-\3761(r\344!\203\345!\202\346\347\"q\210\350P\262\351\352 C\"\211\262)0\202,\210\202-\210\344!\2039\353\314\"\262)\242 >\205M\337\354\355\356\"P$0\202S\210\307\266\204\262\210 \366\350BC\3771\374\fX\205\370\n\203\231\316X\203\231\337\320\311U\203\306\202\224\340U\203\211\306\202\224\326U\203\223\341\202\224\342P#\210\f\327Y\205\370\311 \340U\203\330\201I 1\323r\344!\203\272\345!\202\276\346\347\"q\210\350P\262\351\352 C\"\211\262)0\202\327\210\202\330\210\344!\203\344\353\314\"\262)\242 >\205\370\337\354\355\356\"P$0\202 \210\202\210\266B\203}\201J \n\355C\201K !\355\201L \201M !\"#\201N #\210\201O 1]\201P \n\355\201Q D\201R \201S B\201T #D$\"\210r\346\n!q\210eb\210\201U p!)0\202_\210\307\211\203|\211@\201V \f@A@AA@$\210A\266\202\202_\210+\307\211 E A\201W >\203\324\201X \201F !\203\324\201Y \nF\201Z #\211\201Z =\203\305\201[ F\201\\ !#\262\201] F#\210\211\262\204\324\201^ \201W \"\201_ >\203\"\201X \201G !\203\"\201Y \nG\201Z #\211\201Z =\203\201[ G\201\\ !#\262\201] G#\210\211\262\204\"\201^ \201_ \"\201` >\203p\201X \201H !\203p\201Y \nH\201Z #\211\201Z =\203a\201[ H\201\\ !#\262\201] H#\210\211\262\204p\201^ \201` \"\201a 1\200\372\373C\"0\2021\n\316\201b C\201c 1'\fX\205#\n\203\304\316X\203\304\337\320\311U\203\252\306\202\277\340U\203\264\306\202\277\326U\203\276\341\202\277\342P#\210\f\327Y\205#\311 \340U\203\201d 1\376r\344!\203\345\345!\202\351\346\347\"q\210\350P\262\351\352 C\"\211\262)0\202\210\202\210\344!\203\353\314\"\262)\242 >\205#\337\354\355\356\"P$0\202+\210\202,\210\266\307\262+\201e \240\210)\266\202\266\210)\266\202)\266\202\207" [vc-handled-backends revert-buffer-in-progress-p tramp-message-show-message cl-struct-tramp-file-name-tags tramp-verbose tramp-file-name-regexp #3="" nil make-byte-code 0 "\300\205 \301\242\203 \302\303\301\242\"\207\302\304!\207" vconcat vector [message #1="%s" nil] 3 current-message message #1# tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 4 5 6 7 "%s..." format-message #2="Checking `vc-registered' for %s" (error) apply 1 #4="Warning: " #5="Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create #6="\n%s" append buffer-string process-get tramp-debug-message format #7="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update "\303\203 \306\303!\210\301\307\310\311\312\300\"\302\242D\3131\256 \fX\205\252 \203L \307X\203L \314\315\316U\2032 \317\202G \320U\203< \317\202G \321U\203F \322\202G \323P#\210\f\324Y\205\252 \316 \320U\203\211 \3251\204 r\326!\203k \327!\202o \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\210 \210\202\211 \210\326!\203\225 \335\336\"\262)\242#>\205\252 \314\337\340\341\"P$0\202\260 \210\342\207" [tramp-verbose tramp-message-show-message cancel-timer 3 "%s...%s" format-message #2# (error) apply message 0 #3# 1 2 #4# #5# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #6# append buffer-string process-get vector tramp-debug-message format #7# nil cl-struct-tramp-file-name-tags] 10 current-time tramp-vc-file-name-handler (debug error) tramp-run-real-handler vc-registered "Error in 1st pass of `vc-registered': %s" (error) (error) (error) file-name-handler-alist remote-file-name-inhibit-cache tramp-vc-registered-file-names tramp-vc-registered-read-file-names tramp-end-of-heredoc process-file-side-effects vc-bzr-program vc-git-program vc-hg-program (error) tramp-maybe-send-script tramp-get-file-exists-command "%s -r" tramp-get-test-command "tramp_vc_registered_read_file_names" (error) tramp-send-command "tramp_vc_registered_read_file_names <<'%s'\n%s\n%s\n" mapconcat tramp-shell-quote-argument "\n" read tramp-set-file-property Bzr boundp tramp-get-connection-property undef tramp-find-executable tramp-get-remote-path tramp-set-connection-property remq Git Hg (debug error) "Error in 2nd pass of `vc-registered': %s" (error) (error) "done"] 26 (#$ . 177186)]) #@139 Invoke remote-shell Tramp file name handler. Fall back to normal file name handler if no Tramp handler exists. (fn OPERATION &rest ARGS) (defalias 'tramp-sh-file-name-handler #[385 "\301\"\211\203! \302 \303\304\305\306\307!\310\"\311$\216\312A\")\262\202% \313\"\207" [tramp-sh-file-name-handler-alist assoc match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 apply tramp-run-real-handler] 10 (#$ . 182639)]) (add-hook 'tramp--startup-hook #[0 "\300\301\302\303#\207" [tramp-register-foreign-file-name-handler identity tramp-sh-file-name-handler append] 4]) #@98 Invoke special file name handler, which collects files to be handled. (fn OPERATION &rest ARGS) (defalias 'tramp-vc-file-name-handler #[385 "\303 \304\305\306\307\310!\311\"\312$\216\313\314\315#!\316\"\317!\203\374 \320!\211\242 >\2040 \321\322\323D\"\210\211A@\242 >\204A \321\322\323D\"\210\3248\242 >\204R \321\322\323D\"\210\3128\242 >\204d \321\322\323D\"\210\3258\242 >\204v \321\322\323D\"\210\3268\242 >\204\210 \321\322\323D\"\210\3278\242 >\204\234 \321\322\323 D\"\210\3308\203\301 \f\331>\203\301 \n\235\203\267 \n\210\202\275 \332\nC\"\333\202\367 \203\321 \f\334=\203\321 \305\202\367 \203\361 \303 \304\305\306\307\310!\335\"\312$\216\314\nA\")\262\202\367 \336 \"\266\210\202 \336\"\266\202)\207" [tramp-sh-file-name-handler-alist cl-struct-tramp-file-name-tags tramp-vc-registered-file-names match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 tramp-replace-environment-variables apply tramp-file-name-for-operation assoc tramp-tramp-file-p tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 4 5 6 7 (file-exists-p file-readable-p) append nil process-file [set-match-data evaporate] tramp-run-real-handler] 20 (#$ . 183254)]) #@78 Like `file-notify-add-watch' for Tramp files. (fn FILE-NAME FLAGS CALLBACK) (defalias 'tramp-sh-handle-file-notify-add-watch #[771 "\306!\262\307!\211\242>\204 \310\311\312D\"\210\211A@\242>\204' \310\311\312D\"\210\3138\242>\2048 \310\311\312D\"\210\3148\242>\204J \310\311\312D\"\210\3158\242>\204\\ \310\311\312D\"\210\3168\242>\204n \310\311\312D\"\210\3178\242>\204\202 \310\311\312 D\"\210\3208\321 !\322\211\211\211\211\323!\211\262\203\336 \324\262\325>\203\260 \326>\203\260 \327\202\303 \325>\203\273 \330\202\303 \326>\205\303 \331\262\332\333 \257\262\334\335\336\337\340#\"\262\202{\341!\211\262\203 \342\262\325>\203\375 \326>\203\375 \343\202\325>\203\344\202\326>\205\345\262\346 E\262\202{\347!\211\262\203Y\350\262\325>\203;\326>\203;\351\202N\325>\203F\352\202N\326>\205N\353\262D\262\202{ \354\355\356!C\322\211\f\357Y\203\201\211\203?\211\357\360\361\362! \363\216 \364 \210)r q\210\365 +C\36615\fX\2051 \203\302\314X\203\302\367\370\371U\203\250\372\202\275\373U\203\262\372\202\275\313U\203\274\374\202\275\375P#\210\f\315Y\2051\371 \373U\203\3761r\377!\203\343\201E !\202\353\201F \201G \"q\210\360P\262\201H \365 C\"\211\262)0\202\210\202\210\377!\203\201I \201J \"\262)\242>\2051\367\201K \201L \201M \"P$0\2029\210\202:\210\266\202\201 r\201N \201O !q\210p\201P \210\322\211@A\201Q \211B\201Q C D\201R \210\201S \201T !\210+\211 \364 \210\201U !\210)\266\210\211\204\217C\262\201V \262\203f\373\201V \201W \211\201X N\367\201Y #E!C\201Z 1_\fX\205[ \203\352\314X\203\352\367\370\371U\203\320\372\202\345\373U\203\332\372\202\345\313U\203\344\374\202\345\375P#\210\f\315Y\205[\371 \373U\2031\201[ 1,r\377!\203 \201E !\202\201F \201G \"q\210\360P\262\201H \365 C\"\211\262)0\2020\210\2021\210\377!\203A\201I \201J \"\262)\242>\205[\367\201K \201L \201M \"P$0\202c\210\202d\210\266\310\201\\ \367\201Y #!C\"\210*\266\367\201] \201^ !\361\201L \201_ \201^ !\"!$\262\377!\204\325 \354\201` \201a \201b \201c #\266\202C\322\211\f\357Y\203\331\211\203\227\211\357\360\361\362! \201d \216 \364 \210)r q\210\365 +C\201e 1\215\fX\205\211 \203\314X\203\367\370\371U\203\376\372\202\373U\203\372\202\313U\203\374\202\375P#\210\f\315Y\205\211\371 \373U\203_\201f 1Zr\377!\203;\201E !\202C\201F \201G \"q\210\360P\262\201H \365 C\"\211\262)0\202^\210\202_\210\377!\203o\201I \201J \"\262)\242>\205\211\367\201K \201L \201M \"P$0\202\221\210\202\222\210\266\202\331 r\201N \201O !q\210p\201P \210\322\211@A\201Q \211B\201Q C D\201R \210\201S \201T !\210+\211 \364 \210\201U !\210)\266\210\211\204\347C\262\201V \262\203\276\373\201V \201W \211\201X N\367\201Y #E!C\201g 1\267\fX\205\263 \203B\314X\203B\367\370\371U\203(\372\202=\373U\2032\372\202=\313U\203<\374\202=\375P#\210\f\315Y\205\263\371 \373U\203\211\201h 1\204r\377!\203e\201E !\202m\201F \201G \"q\210\360P\262\201H \365 C\"\211\262)0\202\210\210\202\211\210\377!\203\231\201I \201J \"\262)\242>\205\263\367\201K \201L \201M \"P$0\202\273\210\202\274\210\266\310\201\\ \367\201Y #!C\"*\266\204\202 \317\201i \201a \201b \201c #\266\202D\201j 1\235\fX\205\231 \203(\314X\203(\367\370\371U\203\372\202#\373U\203\372\202#\313U\203\"\374\202#\375P#\210\f\315Y\205\231\371 \373U\203o\201k 1jr\377!\203K\201E !\202S\201F \201G \"q\210\360P\262\201H \365 C\"\211\262)0\202n\210\202o\210\377!\203\201I \201J \"\262)\242>\205\231\367\201K \201L \201M \"P$0\202\241\210\202\242\210\266\201l \201J #\210\201l \201m #\210\201l \201n \n#\210\201o \322\"\210\201p \"\210\201q \201r \"\210\201s \371\"\204\334\201t !\204 \354\201u C\322\211\f\357Y\203\211\203\330\211\357\360\361\362! \201v \216 \364 \210)r q\210\365 +C\201w 1\316\fX\205\312 \203Y\314X\203Y\367\370\371U\203?\372\202T\373U\203I\372\202T\313U\203S\374\202T\375P#\210\f\315Y\205\312\371 \373U\203\240\201x 1\233r\377!\203|\201E !\202\204\201F \201G \"q\210\360P\262\201H \365 C\"\211\262)0\202\237\210\202\240\210\377!\203\260\201I \201J \"\262)\242>\205\312\367\201K \201L \201M \"P$0\202\322\210\202\323\210\266\202 r\201N \201O !q\210p\201P \210\322\211@A\201Q \211B\201Q C D\201R \210\201S \201T !\210+\211 \364 \210\201U !\210)\266\210\211\204(C\262\201V \262\203\377\373\201V \201W \211\201X N\367\201Y #E!C\201y 1\370\fX\205\364 \203\203\314X\203\203\367\370\371U\203i\372\202~\373U\203s\372\202~\313U\203}\374\202~\375P#\210\f\315Y\205\364\371 \373U\203\312\201z 1\305r\377!\203\246\201E !\202\256\201F \201G \"q\210\360P\262\201H \365 C\"\211\262)0\202\311\210\202\312\210\377!\203\332\201I \201J \"\262)\242>\205\364\367\201K \201L \201M \"P$0\202\374\210\202\375\210\266\310\201\\ \367\201Y #!C\"\210*\266)\266\206\207" [cl-struct-tramp-file-name-tags default-directory signal-hook-function tramp-message-show-message tramp-verbose standard-output expand-file-name tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-name-directory nil tramp-get-remote-inotifywait tramp-sh-inotifywait-process-filter change attribute-change "create,modify,move,moved_from,moved_to,move_self,delete,delete_self,attrib,ignored" "create,modify,move,moved_from,moved_to,move_self,delete,delete_self,ignored" "attrib,ignored" "-mq" "-e" mapcar #[257 "\300\301\302\303#!\207" [intern-soft replace-regexp-in-string "_" "-"] 6 "\n\n(fn X)"] split-string "," omit tramp-get-remote-gio-monitor tramp-sh-gio-monitor-process-filter (created changed changes-done-hint moved deleted attribute-changed) (created changed changes-done-hint moved deleted) (attribute-changed) "monitor" tramp-get-remote-gvfs-monitor-dir tramp-sh-gvfs-monitor-dir-process-filter (created changed changes-done-hint moved deleted attribute-changed) (created changed changes-done-hint moved deleted) (attribute-changed) file-notify-error "No file notification program found on %s" file-remote-p 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties start-file-process file-name-nondirectory " *%s*" "`%s' failed to start on remote host" " " mapconcat identity #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) "Run `%s', %S" (error) (error) process-put events watch-name set-process-query-on-exit-flag set-process-filter set-process-sentinel tramp-file-notify-process-sentinel tramp-accept-process-output process-live-p "Monitoring not supported for `%s'" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error)] 33 (#$ . 184518)]) #@94 Read output from "gio monitor" and add corresponding `file-notify' events. (fn PROC STRING) (defalias 'tramp-sh-gio-monitor-process-filter #[514 "\306\307\"r\310!q\210\311!)\306\312\"\211\203\275 \313\314C\3151\266 X\205\262 \n\203U \316X\203U \317\320\321U\203; \322\202P \323U\203E \322\202P \324U\203O \325\202P \326P#\210 \327Y\205\262 \321\323U\203\222 \3301\215 r\331!\203t \310!\202x \332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\221 \210\202\222 \210\331!\203\236 \306\337\"\262)\242 >\205\262 \317\340\341\342\"P$0\202\272 \210\202\273 \210\266\343\344D\3451` X\205\\\n\203\377 \316X\203\377 \317\320\321U\203\345 \322\202\372 \323U\203\357 \322\202\372 \324U\203\371 \325\202\372 \326P#\210 \327Y\205\\\321\323U\203<\34617r\331!\203 \310!\202\"\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202;\210\202<\210\331!\203H\306\337\"\262)\242 >\205\\\317\340\341\342\"P$0\202d\210\202e\210\266\211P\262\347\350\351#\262\347\352\353#\262\347\354\355#\262\356\357\360 \361#)\266\203\203\230\362!\210\347\363\364#\262\361\365\"\203\362\366\323\"\366\327\"\367\366\324 \"!CP\205\305PF\370\322\357\211\n$\262\211A@@\235\203\355\371\372 \373\"!\203\355\372 \373\"\374\375BB!\210\266\202\240G\321U\203\374\357\262\203\252\313\376C\3771\243 X\205\237\n\203@\316X\203@\317\320\321U\203&\322\202;\323U\2030\322\202;\324U\203:\325\202;\326P#\210 \327Y\205\237\321\323U\203\201@ 1zr\331!\203a\310!\202e\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202~\210\202\210\331!\203\213\306\337\"\262)\242 >\205\237\317\340\341\342\"P$0\202\247\210\202\250\210\266\201A \312#\207" [default-directory tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags inhibit-changing-match-data special-event-map process-get events process-buffer file-remote-p rest-string 10 "Previous string:\n%s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp tramp-get-connection-buffer dont-create "\n%s" append buffer-string vector tramp-debug-message format "(%d) # " 6 "%S\n%s" (error) (error) replace-regexp-in-string "attributes changed" "attribute-changed" "changes done" "changes-done-hint" "renamed to" "moved" "Monitoring not supported\\|No locations given" nil t string-match delete-process "\n\n" "\n" "^[^:]+:[[:space:]]\\([^:]+\\):[[:space:]]\\(attribute-changed\\|c\\(?:hange\\(?:d\\|s-done-hint\\)\\|reated\\)\\|deleted\\|moved\\|pre-unmount\\|unmounted\\)\\([[:space:]]\\([^:]+\\)\\)?$" match-string intern-soft replace-match functionp lookup-key [file-notify] file-notify (file-notify-callback) "Rest string:\n%s" (error) (error) process-put] 15 (#$ . 192023)]) #@99 Read output from "gvfs-monitor-dir" and add corresponding `file-notify' events. (fn PROC STRING) (defalias 'tramp-sh-gvfs-monitor-dir-process-filter #[514 "\305\306\"r\307!q\210\310!)\305\311\"\211\203\275 \312\313C\3141\266 X\205\262 \n\203U \315X\203U \316\317\320U\203; \321\202P \322U\203E \321\202P \323U\203O \324\202P \325P#\210 \326Y\205\262 \320\322U\203\222 \3271\215 r\330!\203t \307!\202x \331\332\"q\210\333P\262\334\335 C\"\211\262)0\202\221 \210\202\222 \210\330!\203\236 \305\336\"\262)\242 >\205\262 \316\337\340\341\"P$0\202\272 \210\202\273 \210\266\342\343D\3441` X\205\\\n\203\377 \315X\203\377 \316\317\320U\203\345 \321\202\372 \322U\203\357 \321\202\372 \323U\203\371 \324\202\372 \325P#\210 \326Y\205\\\320\322U\203<\34517r\330!\203 \307!\202\"\331\332\"q\210\333P\262\334\335 C\"\211\262)0\202;\210\202<\210\330!\203H\305\336\"\262)\242 >\205\\\316\337\340\341\"P$0\202d\210\202e\210\266\211P\262\346\347\350#\262\351\352\"\203\313\353\322\"\353\315\"\354\346\355\356\353\326\f\"\227#!CP\205\236PF\357\321\360\211\n$\262\211A@@\235\203\306\361\362\f\363\"!\203\306\362\f\363\"\364\365BB!\210\266\202tG\320U\203\325\360\262\203\201\312\366C\3671z X\205v\n\203\315X\203\316\317\320U\203\377\321\202\322U\203 \321\202\323U\203\324\202\325P#\210 \326Y\205v\320\322U\203V\3701Qr\330!\2038\307!\202<\331\332\"q\210\333P\262\334\335 C\"\211\262)0\202U\210\202V\210\330!\203b\305\336\"\262)\242 >\205v\316\337\340\341\"P$0\202~\210\202\210\266\371\311#\207" [default-directory tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags special-event-map process-get events process-buffer file-remote-p rest-string 10 "Previous string:\n%s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp tramp-get-connection-buffer dont-create "\n%s" append buffer-string vector tramp-debug-message format "(%d) # " 6 "%S\n%s" (error) (error) replace-regexp-in-string "ATTRIB CHANGED" "ATTRIBUTE_CHANGED" string-match "^[\n ]*Directory Monitor Event:[\n ]+Child = \\([^\n ]+\\)[\n ]+\\(Other = \\([^\n ]+\\)[\n ]+\\)?Event = \\([^[:blank:]]+\\)[\n ]+" match-string intern-soft "_" "-" replace-match nil functionp lookup-key [file-notify] file-notify (file-notify-callback) "Rest string:\n%s" (error) (error) process-put] 15 (#$ . 194800)]) #@94 Read output from "inotifywait" and add corresponding `file-notify' events. (fn PROC STRING) (defalias 'tramp-sh-inotifywait-process-filter #[514 "\306\307\"\310\311D\3121\245 X\205\241 \203D \313X\203D \314\315\316U\203* \317\202? \320U\2034 \317\202? \321U\203> \322\202? \323P#\210\324Y\205\241 \316\320U\203\201 \3251| r\326!\203c \327!\202g \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\200 \210\202\201 \210\326!\203\215 \306\335\"\262)\242\n>\205\241 \314\336\337\340\"P$0\202\251 \210\202\252 \210\266\341\342\343#\211\205\361\211@\344\345\"\204\224\346\347C\350\211\351Y\203\276\211\203\216\211\351\332\352\353! \354\216\f \355 \210)r\fq\210\334 +C\3561\204X\205\200 \203#\313X\203#\314\315\316U\203 \317\202 \320U\203\317\202 \321U\203 \322\202 \323P#\210\324Y\205\200\316\320U\203`\3571[r\326!\203B\327!\202F\330\331\"q\210\332P\262\333\334 C\"\211\262)0\202_\210\202`\210\326!\203l\306\335\"\262)\242\n>\205\200\314\336\337\340\"P$0\202\210\210\202\211\210\266\202\276 r\360\361!q\210p\362 \210\350\211@A\363\211B\363 C D\364 \210\365\366!\210+\211 \355 \210\367!\210)\266\210\211\204\312C\262\347\262\203\203\320\347\370\211\371N\314\372 #E!C\3731|X\205x \203\313X\203\314\315\316U\203\317\202\320U\203 \317\202\321U\203\322\202\323P#\210\324Y\205x\316\320U\203X\3741Sr\326!\203:\327!\202>\330\331\"q\210\332P\262\333\334 C\"\211\262)0\202W\210\202X\210\326!\203d\306\335\"\262)\242\n>\205x\314\336\337\340\"P$0\202\200\210\202\201\210\266\375\376\314\372#!C\"\210*\266\377\201F \341\201G \320\"\201H \343#\"\201G \313\"\206\273\201I \306\201J \"!E\211A@@\235\203\351\201K \201L E\201M \"!\203\351\201L E\201M \"\201N \201O BB!\210\210A\266\202\202\261 \262\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags signal-hook-function standard-output default-directory process-get events 6 "%S\n%s" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string vector tramp-debug-message format "(%d) # " split-string "[\n ]+" omit string-match "^[^[:blank:]]+[[:blank:]]+\\([^[:blank:]]+\\)\\([[:blank:]]+\\([^\n ]+\\)\\)?" file-notify-error "%s" nil 10 generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace (error) (error) get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show error-message-string error-message format-message (error) (error) signal substring-no-properties mapcar buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only special-event-map #[257 "\300\301\302\303\227#!\207" [intern-soft replace-regexp-in-string "_" "-"] 6 "\n\n(fn X)"] match-string "," file-name-nondirectory watch-name functionp lookup-key [file-notify] file-notify (file-notify-callback)] 21 (#$ . 197259)]) #@57 Like `file-system-info' for Tramp files. (fn FILENAME) (defalias 'tramp-sh-handle-file-system-info #[257 "\3031\203\304\305!!\211\242>\204 \306\307\310D\"\210\211A@\242>\204( \306\307\310D\"\210\3118\242>\2049 \306\307\310D\"\210\3128\242>\204K \306\307\310D\"\210\3138\242>\204] \306\307\310D\"\210\3148\242>\204o \306\307\310D\"\210\3158\242>\204\203 \306\307\310 D\"\210\3168\317!\205\314\320C\3211/ X\205+\n\203\316 \312X\203\316 \322\323\324U\203\264 \325\202\311 \326U\203\276 \325\202\311 \311U\203\310 \327\202\311 \330P#\210 \313Y\205+\324\326U\203 \3311r\332!\203\355 \333!\202\361 \334\335\"q\210\336P\262\337\340 C\"\211\262)0\202\n\210\202 \210\332!\203\341\342\"\262)\242>\205+\322\343\344\345\"P$0\2023\210\2024\210\266\346\344\347\317\f!\350!#\"\210r\334!q\210eb\210\351y\210\352\353!\205~\354\355\356\357\360\342 !\361\"\315\362%\363\364\326!!\363\364\326!!\363\364\311!!Z\363\364\312!!E\")\266\2100\207\210\351\207" [cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message (error) tramp-dissect-file-name expand-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-get-remote-df "file system info: %s" (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command "%s %s" tramp-shell-quote-argument nil looking-at "\\(?:^/[^[:space:]]*[[:space:]]\\)?[[:space:]]*\\([[:digit:]]+\\)[[:space:]]+\\([[:digit:]]+\\)[[:space:]]+\\([[:digit:]]+\\)" mapcar make-byte-code 257 "\211\301\300\302\303#_\207" vconcat [tramp-get-connection-property "df-blocksize" 0] "\n\n(fn D)" string-to-number match-string] 19 (#$ . 200360)]) #@141 Define in remote shell function NAME implemented as SCRIPT. Only send the definition if it has not already been done. (fn VEC SCRIPT NAME) (defalias 'tramp-maybe-send-script #[771 "\306\307!\310\311#\235?\2058\312\313\314\315\"C\3161\262 X\205\256 \203Q \317X\203Q \320\321\322U\2037 \323\202L \324U\203A \323\202L \325U\203K \326\202L \327P#\210\330Y\205\256 \322\324U\203\216 \3311\211 r\332!\203p \333!\202t \334\335\"q\210\336P\262\337\340 C\"\211\262)0\202\215 \210\202\216 \210\332!\203\232 \341\342\"\262)\242\n>\205\256 \320\343\344\345\"P$0\202\266 \210\202\267 \210\266\346C \205\333 \312\317^X\205\333 \347\314\315\"\311\211#\211\205\331 \350\317\351\352$\262\353\322\354\355\342\n $\356\"\357$\216\360\361\324\362\"\361\363\364\"#\262\365\311\366\367#)\266\203\203\370!\204\371\372\311\211\211 \357Y\203$\211\203\344\211\357\336\373\374! \375\216 \376 \210)r q\210\340 +C\3771\332X\205\326 \203w\317X\203w\320\321\322U\203]\323\202r\324U\203g\323\202r\325U\203q\326\202r\327P#\210\330Y\205\326\322\324U\203\266\201F 1\261r\332!\203\230\333!\202\234\334\335\"q\210\336P\262\337\340 C\"\211\262)0\202\265\210\202\266\210\332!\203\302\341\342\"\262)\242\n>\205\326\320\343\344\345\"P$0\202\336\210\202\337\210\266\202$@r\201G \201H !q\210p\201I \210@\311\211AB\366\211C\366 D E\201J \210\201K \201L !\210+\211 \376 \210\201M !\210)\266\210\211\2040C\262\365\262\203\361\324\365\201N \211\201O N\320\314 #E!C\201P 1\352X\205\346 \203\207\317X\203\207\320\321\322U\203m\323\202\202\324U\203w\323\202\202\325U\203\201\326\202\202\327P#\210\330Y\205\346\322\324U\203\306\201Q 1\301r\332!\203\250\333!\202\254\334\335\"q\210\336P\262\337\340 C\"\211\262)0\202\305\210\202\306\210\332!\203\322\341\342\"\262)\242\n>\205\346\320\343\344\345\"P$0\202\356\210\202\357\210\266\201R \201S \320\314#!C\"\210*\266\201T \344\201U \344\n\370 !\"#\201V $\210\201W \307!\310B#\201X \240\210)\266\202\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags inhibit-changing-match-data signal-hook-function standard-output tramp-get-connection-property tramp-get-connection-process "scripts" nil 5 "%s..." format-message #1="Sending script `%s'" (error) 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #5="\n%s" append buffer-string process-get vector tramp-debug-message format #6="(%d) # " "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\303\203 \306\303!\210\300\307\310\311\312\301\"\302\242D\3131\256 \fX\205\252 \203L \314X\203L \315\316\317U\2032 \320\202G \321U\203< \320\202G \322U\203F \323\202G \324P#\210\f\325Y\205\252 \317 \321U\203\211 \3261\204 r\327!\203k \330!\202o \331\332\"q\210\333P\262\334\335 C\"\211\262)0\202\210 \210\202\211 \210\327!\203\225 \336\337\"\262)\242$>\205\252 \315\340\341\342\"P$0\202\260 \210\343\207" vconcat [tramp-verbose tramp-message-show-message cancel-timer 5 "%s...%s" format-message #1# (error) 3 apply message 0 #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #5# append buffer-string process-get vector tramp-debug-message format #6# nil cl-struct-tramp-file-name-tags] 10 replace-regexp-in-string make-string 9 8 32 "%s" t string-match tramp-get-remote-perl file-error "No Perl available on remote host" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace (error) default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only (error) get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show error-message-string error-message (error) (error) signal substring-no-properties tramp-barf-unless-okay "%s () {\n%s\n}" "Script %s sending failed" tramp-set-connection-property "done"] 22 (#$ . 202192)]) #@132 Run `test' on the remote system, given a SWITCH and a FILENAME. Returns the exit code of the `test' program. (fn SWITCH FILENAME) (defalias 'tramp-run-test #[514 "\301!\211\242>\204 \302\303\304D\"\210\211A@\242>\204\" \302\303\304D\"\210\3058\242>\2043 \302\303\304D\"\210\3068\242>\204E \302\303\304D\"\210\3078\242>\204W \302\303\304D\"\210\3108\242>\204i \302\303\304D\"\210\3118\242>\204} \302\303\304 D\"\210\3128\313\314\315\316\f!\317!$\"\207" [cl-struct-tramp-file-name-tags tramp-dissect-file-name signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 tramp-send-command-and-check format "%s %s %s" tramp-get-test-command tramp-shell-quote-argument] 18 (#$ . 206351)]) #@264 Run `test'-like program on the remote system, given FILE1, FILE2. FORMAT-STRING contains the program name, switches, and place holders. Returns the exit code of the `test' program. Barfs if the methods, hosts, or files, disagree. (fn FORMAT-STRING FILE1 FILE2) (defalias 'tramp-run-test2 #[771 "\306\"\204h\307\310!\203 \202 !\211\242>\204\" \311\312\313D\"\210\211A@\242>\2043 \311\312\313D\"\210\3148\242>\204D \311\312\313D\"\210\3158\242>\204V \311\312\313D\"\210\3168\242>\204h \311\312\313D\"\210\3178\242>\204z \311\312\313D\"\210\3208\242>\204\216 \311\312\313 D\"\210\3218\322\323\324\211\211 \325Y\203\222\211\203b\211\325\326\327\330! \331\216\f \332 \210)r\fq\210\333 +C\3341X X\205T\n\203\367 \315X\203\367 \335\336\337U\203\335 \340\202\362 \341U\203\347 \340\202\362 \314U\203\361 \342\202\362 \343P#\210 \316Y\205T\337\341U\2034\3441/r\345!\203\346!\202\347\350\"q\210\326P\262\351\333 C\"\211\262)0\2023\210\2024\210\345!\203@\352\353\"\262)\242>\205T\335\354\355\356\"P$0\202\\\210\202]\210\266\202\222 r\357\360!q\210p\361 \210\324\211@A\362\211B\362 C D\363 \210\364\365!\210+\211 \332 \210\366!\210)\266\210\211\204\236C\262\367\262\203W\341\367\370\211\371N\335\372 #E!C\3731P X\205L\n\203\357\315X\203\357\335\336\337U\203\325\340\202\352\341U\203\337\340\202\352\314U\203\351\342\202\352\343P#\210 \316Y\205L\337\341U\203,\3741'r\345!\203\346!\202\347\350\"q\210\326P\262\351\333 C\"\211\262)0\202+\210\202,\210\345!\2038\352\353\"\262)\242>\205L\335\354\355\356\"P$0\202T\210\202U\210\266\311\375\335\372#!C\"\210*\266\f\307!\211\242>\204y\311\312\313D\"\210\211A@\242>\204\212\311\312\313D\"\210\3148\242>\204\233\311\312\313D\"\210\3158\242>\204\255\311\312\313D\"\210\3168\242>\204\277\311\312\313D\"\210\3178\242>\204\321\311\312\313D\"\210\3208\242>\204\345\311\312\313 D\"\210\3218\307\n!\211\242>\204\373\311\312\313D\"\210\211A@\242>\204\f\311\312\313D\"\210\3148\242>\204 \311\312\313D\"\210\3158\242>\204/\311\312\313D\"\210\3168\242>\204A\311\312\313D\"\210\3178\242>\204S\311\312\313D\"\210\3208\242>\204g\311\312\313 D\"\210\3218\376\355\377!\377!#\"\266\210\207" [cl-struct-tramp-file-name-tags signal-hook-function tramp-message-show-message tramp-verbose standard-output default-directory tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p signal wrong-type-argument tramp-file-name 2 3 4 5 6 7 file-error "tramp-run-test2 only implemented for same method, user, host" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) apply message 0 "" 1 "Warning: " "Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) substring-no-properties tramp-send-command-and-check tramp-shell-quote-argument buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only] 27 (#$ . 207080)]) #@532 Search for PROGNAME in $PATH and all directories mentioned in DIRLIST. First arg VEC specifies the connection, PROGNAME is the program to search for, and DIRLIST gives the list of directories to search. If IGNORE-TILDE is non-nil, directory names starting with `~' will be ignored. If IGNORE-PATH is non-nil, searches only in DIRLIST. Returns the absolute file name of PROGNAME, if found, and nil otherwise. This function expects to be in the right *tramp* buffer. (fn VEC PROGNAME DIRLIST &optional IGNORE-TILDE IGNORE-PATH) (defalias 'tramp-find-executable #[1283 "r\302!q\210\303\204> \304\305\306\307#\303\310\311#)\266\203\204> \312\313\314\"\"\210eb\210\315\310\316!)\262\203> \317P\262\211\204\235 \203k \303\211\203e @\262A\262\320\321\322H\"\204H \211B\262\202H \237\262\266\312\313\323\211\211 \324\325\326#\266\202 &\"\210db\210\327\330\303\310#\203\235 \331\303w\210\332\303w\210`\333 {\262\211\262)\207" [inhibit-changing-match-data tramp-end-of-heredoc tramp-get-connection-buffer nil "\\(?:SunOS 5\\.1[01]\\)" tramp-get-connection-property "uname" "" t string-match tramp-send-command format "which \\%s | wc -w" "^\\s-*1$" looking-at "\\" char-equal 126 0 "while read d; do if test -x $d/%s && test -f $d/%s; then echo tramp_executable $d/%s; break; fi; done <<'%s'\n%s\n%s" "\n" mapconcat identity search-backward "tramp_executable " "^ " " " point-at-eol] 20 (#$ . 210482)]) #@205 Set the remote environment PATH to existing directories. I.e., for each directory in `tramp-remote-path', it is tested whether it exists and if so, it is added to the environment variable PATH. (fn VEC) (defalias 'tramp-set-remote-path #[257 "\303\304\305!\306\307\310#\266\202\"\311\312\313#\211\313=\203& \314\315\316#\262\317\312#\210\211\262\206- \320\321\322\323\321\3241\315 X\205\311 \203l \325X\203l \326\327\330U\203R \331\202g \332U\203\\ \331\202g \333U\203f \334\202g \335P#\210\336Y\205\311 \330\332U\203\251 \3371\244 r\340!\203\213 \341!\202\217 \342\343\"q\210\344P\262\345\346 C\"\211\262)0\202\250 \210\202\251 \210\340!\203\265 \347\350\"\262)\242\n>\205\311 \326\351\303\352\"P$0\202\321 \210\202\322 \210\266GW\203\342 \353\"\202\376 \354\355!\"\262\356\321#\210\353\303\357\360!\"\"\210\361!\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags format "PATH=%s; export PATH" tramp-get-remote-path ":" mapconcat identity tramp-get-connection-property "pipe-buf" undef tramp-send-command-and-read "getconf PIPE_BUF / 2>/dev/null || echo nil" noerror tramp-set-connection-property 4096 nil 5 "Setting $PATH environment variable" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message "(%d) # " tramp-send-command tramp-make-tramp-file-name tramp-make-tramp-temp-file write-region ". %s" tramp-compat-file-local-name delete-file] 14 (#$ . 211927)]) #@192 Find a command on the remote host for checking if a file exists. Here, we are looking for a command which has zero exit status if the file exists and nonzero exit status otherwise. (fn VEC) (defalias 'tramp-find-file-exists-command #[257 "\306\307\310!\311\31210 \313\314\315!\"\211\262\205, \316\313\317#\"\205, \316\313\317#\"?0\2024 \210\2027 \204\240\3201\\ \321\211\262\205X \316\313\317#\"\205X \316\313\317#\"?0\202` \210\202c \204\240\3221\210 \323\211\262\205\204 \316\313\317#\"\205\204 \316\313\317#\"?0\202\214 \210\202\217 \204\240\3241\272 \313\325\326!\"\211\262\205\266 \316\313\317#\"\205\266 \316\313\317#\"?0\202\274 \210\311\204\240\327\330\311\211\211\n\331Y\203\276\211\203\216\211\331\332\333\334!\335\216 \336 \210)r q\210\337 +C\3401\204\nX\205\200 \203#\341X\203#\342\343\344U\203 \345\202 \346U\203\345\202 \347U\203 \350\202 \351P#\210\n\352Y\205\200\344\346U\203`\3531[r\354!\203B\355!\202F\356\357\"q\210\332P\262\360\337 C\"\211\262)0\202_\210\202`\210\354!\203l\361\362\"\262)\242\f>\205\200\342\363\313\364\"P$0\202\210\210\202\211\210\266\202\276 r\365\366!q\210p\367 \210\311\211@A\370\211B\370 C D\371 \210\372\373!\210+\211\336 \210\374!\210)\266\210\211\204\312C\262\375\262\203\211\346\375\376\211\377N\342\201E #E!C\201F 1\202\nX\205~ \203 \341X\203 \342\343\344U\203\345\202\346U\203\345\202\347U\203\350\202\351P#\210\n\352Y\205~\344\346U\203^\201G 1Yr\354!\203@\355!\202D\356\357\"q\210\332P\262\360\337 C\"\211\262)0\202]\210\202^\210\354!\203j\361\362\"\262)\242\f>\205~\342\363\313\364\"P$0\202\206\210\202\207\210\266\201H \201I \342\201E #!C\"\210*\266\207" [signal-hook-function tramp-message-show-message tramp-verbose standard-output cl-struct-tramp-file-name-tags default-directory "/" tramp-shell-quote-argument "/ this file does not exist " nil (error) format "%s -e" tramp-get-test-command tramp-send-command-and-check "%s %s" (error) "/bin/test -e" (error) "/usr/bin/test -e" (error) "%s -d" tramp-get-ls-command file-error "Couldn't find command to check if file exists" 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only format-message (error) (error) signal substring-no-properties] 20 (#$ . 213520)]) #@40 Find extra args for SHELL. (fn SHELL) (defalias 'tramp-get-sh-extra-args #[257 "\302\211\203+ \211\204+ \211A\262\242\262@\302\303\304#)\266\203\203 A\262\202 \207" [tramp-sh-extra-args inhibit-changing-match-data nil t string-match] 11 (#$ . 216402)]) #@35 Open shell SHELL. (fn VEC SHELL) (defalias 'tramp-open-shell #[514 "\306\307\310\311\"C\3121\243 X\205\237 \203B \313X\203B \314\315\316U\203( \317\202= \320U\2032 \317\202= \321U\203< \322\202= \323P#\210\324Y\205\237 \316\320U\203 \3251z r\326!\203a \327!\202e \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202~ \210\202 \210\326!\203\213 \335\336\"\262)\242\n>\205\237 \314\337\340\341\"P$0\202\247 \210\202\250 \210\266\342C \205\314 \306\313^X\205\314 \343\310\311\"\344\211#\211\205\312 \345\313\346\347$\262\350\316\351\352\336$\353\"\354$\216\355!\356\340\357 \f \360\361>\"\206\362 \317?;\203\340\362\363?!\"\202\f?\203 \364\202\f\317\363@! \206\317& \365#\210?;\203:\366?!\203:\367\340\370\363\366?!!\"\371?$\210\210\372\373!\374#\375\240\210)\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-terminal-type emacs-version tramp-version 5 "%s..." format-message #1="Opening remote shell `%s'" (error) 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #5="\n%s" append buffer-string process-get vector tramp-debug-message format #6="(%d) # " "failed" make-progress-reporter nil run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\303\203 \306\303!\210\300\307\310\311\312\301\"\302\242D\3131\256 \fX\205\252 \203L \314X\203L \315\316\317U\2032 \320\202G \321U\203< \320\202G \322U\203F \323\202G \324P#\210\f\325Y\205\252 \317 \321U\203\211 \3261\204 r\327!\203k \330!\202o \331\332\"q\210\333P\262\334\335 C\"\211\262)0\202\210 \210\202\211 \210\327!\203\225 \336\337\"\262)\242$>\205\252 \315\340\341\342\"P$0\202\260 \210\343\207" vconcat [tramp-verbose tramp-message-show-message cancel-timer 5 "%s...%s" format-message #1# (error) 3 apply message 0 #2# 1 2 #3# #4# 4 (error) processp process-buffer tramp-get-connection-buffer dont-create #5# append buffer-string process-get vector tramp-debug-message format #6# nil cl-struct-tramp-file-name-tags] 10 tramp-get-sh-extra-args tramp-send-command "exec env TERM='%s' INSIDE_EMACS='%s,tramp:%s' ENV=%s %s PROMPT_COMMAND='' PS1=%s PS2='' PS3='' %s %s" getenv-internal "ENV" "HISTFILE=%s" tramp-shell-quote-argument "HISTFILE='' HISTFILESIZE=0 HISTSIZE=0" t file-name-directory tramp-barf-unless-okay "(cd %s)" "`tramp-histfile-override' uses invalid file `%s'" tramp-set-connection-property tramp-get-connection-process "remote-shell" "done" tramp-remote-process-environment tramp-histfile-override tramp-end-of-output] 17 (#$ . 216677)]) #@72 Open a shell on the remote host which groks tilde expansion. (fn VEC) (defalias 'tramp-find-shell #[257 "r\304!q\210\305\306\"\307\310\311\312#\211\312=\203\313\314\315#\210\316\317 \307\315\320#)\266\203\204A \321\310\322\323#\307\315\320#)\266\203\203\324\325\326!\315\211%\206\324\327\326!\315\211%\206\330\331C\3321\375 X\205\371 \n\203\234 \333X\203\234 \334\335\336U\203\202 \323\202\227 \337U\203\214 \323\202\227 \330U\203\226 \340\202\227 \341P#\210 \342Y\205\371 \336\337U\203\331 \3431\324 r\344!\203\273 \345!\202\277 \346\347\"q\210\350P\262\351\317 C\"\211\262)0\202\330 \210\202\331 \210\344!\203\345 \352\353\"\262)\242 >\205\371 \334\354\355\356\"P$0\202\210\202\210\266\202\262\357\311#\210\211\262\262\211\230?\205\307\360\361C\3621\274 X\205\270\n\203[\333X\203[\334\335\336U\203A\323\202V\337U\203K\323\202V\330U\203U\340\202V\341P#\210 \342Y\205\270\336\337U\203\230\3631\223r\344!\203z\345!\202~\346\347\"q\210\350P\262\351\317 C\"\211\262)0\202\227\210\202\230\210\344!\203\244\352\353\"\262)\242 >\205\270\334\354\355\356\"P$0\202\300\210\202\301\210\266\364\"\266\202)\207" [inhibit-changing-match-data tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-buffer tramp-get-method-parameter tramp-remote-shell nil tramp-get-connection-property "remote-shell" undef tramp-send-command "echo ~root" t "^~root$" buffer-string string-match "\\(?:SunOS 5\\.1[01]\\)" "uname" "" tramp-find-executable "bash" tramp-get-remote-path "ksh" 2 "Couldn't find a remote shell which groks tilde expansion, using `%s'" (error) 3 apply message 0 1 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append process-get vector tramp-debug-message format "(%d) # " tramp-set-connection-property 5 "Starting remote shell `%s' for tilde expansion" (error) (error) tramp-open-shell] 15 (#$ . 219309)]) #@225 Wait for shell prompt and barf if none appears. Looks at process PROC to see if a shell prompt appears in TIMEOUT seconds. If not, it produces an error message with the given ERROR-ARGS. (fn PROC TIMEOUT &rest ERROR-ARGS) (defalias 'tramp-barf-if-no-shell-prompt #[642 "\302\303\"\3041 \305\306\307 ##0\202$ \210\310!\210\311\312\313!\314%\207" [shell-prompt-pattern tramp-shell-prompt-pattern process-get vector (error) tramp-wait-for-regexp format "\\(%s\\|%s\\)\\'" delete-process apply tramp-error-with-buffer tramp-get-connection-buffer file-error] 11 (#$ . 221325)]) #@161 Set up an interactive shell. Mainly sets the prompt and the echo correctly. PROC is the shell process to set up. VEC specifies the connection. (fn PROC VEC) (defalias 'tramp-open-connection-setup-interactive-shell #[514 "\306\307\310\311\"\"\210\211\312\313\314\3151\253 X\205\247 \f\203J \316X\203J \317\320\321U\2030 \322\202E \323U\203: \322\202E \324U\203D \325\202E \326P#\210 \327Y\205\247 \321\323U\203\207 \3301\202 r\331!\203i \332!\202m \333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\206 \210\202\207 \210\331!\203\223 \340\341\"\262)\242 >\205\247 \317\342\343\344\"P$0\202\257 \210\202\260 \210\266\345\346\306#\210\345\347\306#\210r\332!q\210eb\210\347\306 @\350!)\262\203\206\351\352\306#\210\211\312\353\314\3541y X\205u\f\203\316X\203\317\320\321U\203\376 \322\202\323U\203\322\202\324U\203\325\202\326P#\210 \327Y\205u\321\323U\203U\3551Pr\331!\2037\332!\202;\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202T\210\202U\210\331!\203a\340\341\"\262)\242 >\205u\317\342\343\344\"P$0\202}\210\202~\210\266\345\356\306#\210+\211\312\357\314\3601& X\205\"\f\203\305\316X\203\305\317\320\321U\203\253\322\202\300\323U\203\265\322\202\300\324U\203\277\325\202\300\326P#\210 \327Y\205\"\321\323U\203\3611\375r\331!\203\344\332!\202\350\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\210\202\210\331!\203\340\341\"\262)\242 >\205\"\317\342\343\344\"P$0\202*\210\202+\210\266\345\343\362\363\n!\"\306#\210\211\312\364\314\3651\327 X\205\323\f\203v\316X\203v\317\320\321U\203\\\322\202q\323U\203f\322\202q\324U\203p\325\202q\326P#\210 \327Y\205\323\321\323U\203\263\3661\256r\331!\203\225\332!\202\231\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\262\210\202\263\210\331!\203\277\340\341\"\262)\242 >\205\323\317\342\343\344\"P$0\202\333\210\202\334\210\266\367\370\314#\351\370\371\372\"#;\203\257\230\204\257\316\373D\3741\227 X\205\223\f\2036\316X\2036\317\320\321U\203 \322\2021\323U\203&\322\2021\324U\2030\325\2021\326P#\210 \327Y\205\223\321\323U\203s\3751nr\331!\203U\332!\202Y\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202r\210\202s\210\331!\203\340\341\"\262)\242 >\205\223\317\342\343\344\"P$0\202\233\210\202\234\210\266\376\306\211#\210\377\201D \201E !\"\210\312\201F \314\201G 1T X\205P\f\203\361\316X\203\361\317\320\321U\203\327\322\202\354\323U\203\341\322\202\354\324U\203\353\325\202\354\326P#\210 \327Y\205P\321\323U\2030\201H 1+r\331!\203\332!\202\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202/\210\2020\210\331!\203<\340\341\"\262)\242 >\205P\317\342\343\344\"P$0\202X\210\202Y\210\266r\332!q\210\201I \201J >\203\211\201K \314\306 @\201L #)\266\203\203\211\201I \211B\206\302\201M \201J >\203\265\201N \201O !\314\306 @\201L #)\266\203\203\265\201M \211B\206\302\201P !\206\302\201Q \211B\314\2119\203\316\211B\262@\206\326\201Q \262A\206\340\201Q \262\201R \201K \314\306 @\201L #)\266\203\203\201S \202\201T \"\262\345\201U \306#\210eb\210\201V \201W \314\306#\203*\201R \201X \"\262\201Y #\210\312\201Z D\201[ 1\332 X\205\326\f\203w\316X\203w\317\320\321U\203]\322\202r\323U\203g\322\202r\324U\203q\325\202r\326P#\210 \327Y\205\326\321\323U\203\266\201\\ 1\261r\331!\203\230\332!\202\234\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\265\210\202\266\210\331!\203\302\340\341\"\262)\242 >\205\326\317\342\343\344\"P$0\202\336\210\202\337\210\266)\345\201] \306#\210\367\201^ \201_ #\211\201_ =\203\337A\250\203 A\321V\203 A\202\325\312\201` \314\201a 1\262 X\205\256\f\203O\316X\203O\317\320\321U\2035\322\202J\323U\203?\322\202J\324U\203I\325\202J\326P#\210 \327Y\205\256\321\323U\203\216\201b 1\211r\331!\203p\332!\202t\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\215\210\202\216\210\331!\203\232\340\341\"\262)\242 >\205\256\317\342\343\344\"P$0\202\266\210\202\267\210\266\201c \314\306 @\201L #)\266\203\203\324\201d \202\325\321\262\351\201^ #\210\210\201e !\210\201f !\210\345\201g \306#\210\201h \314\306 @\201L #)\266\203\203\345\201i \306#\210\201j \314\306 @\201L #)\266\203\2031\345\201k \306#\210\2029\345\201l \306#\210\345\201m \306#\210\371\201n \201o #\211G\321U\204c\201p \201q #\210\351\201r #\210\210 \201s Y\203t\345\201t \306#\210\312\201u \314\201v 1 X\205\f\203\266\316X\203\266\317\320\321U\203\234\322\202\261\323U\203\246\322\202\261\324U\203\260\325\202\261\326P#\210 \327Y\205\321\323U\203\365\201w 1\360r\331!\203\327\332!\202\333\333\334\"q\210\335P\262\336\337 C\"\211\262)0\202\364\210\202\365\210\331!\203\340\341\"\262)\242 >\205\317\342\343\344\"P$0\202 \210\202 \210\266\314\211\201x \336\201O !C\201y B!\"!\211\203\205\211@\201z \201{ \201| #\262\211A\201{ \201} \201~ #\266\202\241\210\211A;\203x\211A\322\230\204x\343\201 @A#B\262\202~\211@B\262A\266\202\2025\210\211\203\247\345\343\201\200 C\201\201 \201} \201~ #\266\202C$\306#\210\205\303\345\343\201\202 \201\203 \201} \201~ #\266\202\"\306#\266\202\207" [tramp-initial-end-of-output case-fold-search tramp-end-of-output tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags t tramp-open-shell tramp-get-method-parameter tramp-remote-shell 5 "Setting up remote shell environment" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command "stty -inlcr -onlcr -echo kill '^U' erase '^H'" "echo foo" looking-at tramp-set-connection-property "remote-echo" "Remote echo still on. Ok." (error) (error) "stty icanon erase ^H cols 32767" "Setting shell prompt" (error) (error) "PS1=%s PS2='' PS3='' PROMPT_COMMAND=''" tramp-shell-quote-argument "Checking system information" (error) (error) tramp-get-connection-property "uname" tramp-send-command-and-read "echo \\\"`uname -sr`\\\"" "Connection reset, because remote host changed from `%s' to `%s'" (error) (error) tramp-cleanup-connection throw inhibit-changing-match-data tramp-chunksize tramp-remote-process-environment tramp-end-of-heredoc uname-changed tramp-maybe-open-connection "Determining coding system" (error) (error) utf-8-hfs coding-system-list "^Darwin" string-match utf-8 "utf-?8" tramp-get-remote-locale process-coding-system undecided coding-system-change-eol-conversion mac unix "(echo foo ; echo bar)" search-forward " " dos set-process-coding-system "Setting coding system to `%s' and `%s'" (error) (error) "set +o vi +o emacs" "chunksize" undef "Checking remote host type for `send-process-string' bug" (error) (error) "^FreeBSD" 500 tramp-set-remote-path tramp-find-shell "mesg n 2>/dev/null; biff n 2>/dev/null" "^IRIX64" "set +H" "BSD\\|Darwin" "stty tabs" "stty tab0" "stty iutf8 2>/dev/null" "echo \\\"`tty`\\\"" noerror process-put remote-tty "remote-tty" 9 "stty -a" "Setting default environment" (error) (error) reverse copy-sequence split-string "=" omit mapconcat identity "%s %s" "while read var val; do export $var=\"$val\"; done <<'%s'\n%s\n%s" "\n" "unset %s" " "] 17 (#$ . 221917)]) (autoload 'uudecode-decode-region "uudecode") #@797 List of local coding commands for inline transfer. Each item is a list that looks like this: (FORMAT ENCODING DECODING) FORMAT is a symbol describing the encoding/decoding format. It can be `b64' for base64 encoding, `uu' for uu encoding, or `pack' for simple packing. ENCODING and DECODING can be strings, giving commands, or symbols, giving functions. If they are strings, then they can contain the "%s" format specifier. If that specifier is present, the input file name will be put into the command line at that spot. If the specifier is not present, the input should be read from standard input. If they are functions, they will be called with two arguments, start and end of region, and are expected to replace the region contents with the encoded or decoded results, respectively. (defconst tramp-local-coding-commands (byte-code "\302\303\304\305\306\"\305 \306\"EE\207" [tramp-perl-pack tramp-perl-unpack (b64 base64-encode-region base64-decode-region) (uu tramp-uuencode-region uudecode-decode-region) pack format "perl"] 7) (#$ . 229471)) #@1022 List of remote coding commands for inline transfer. Each item is a list that looks like this: (FORMAT ENCODING DECODING [TEST]) FORMAT is a symbol describing the encoding/decoding format. It can be `b64' for base64 encoding, `uu' for uu encoding, or `pack' for simple packing. ENCODING and DECODING can be strings, giving commands, or symbols, giving variables. If they are strings, then they can contain the "%s" format specifier. If that specifier is present, the input file name will be put into the command line at that spot. If the specifier is not present, the input should be read from standard input. If they are variables, this variable is a string containing a Perl or Shell implementation for this functionality. This program will be transferred to the remote host, and it is available as shell function with the same name. A "%t" format specifier in the variable value denotes a temporary file. The optional TEST command can be used for further tests, whether ENCODING and DECODING are applicable. (defconst tramp-remote-coding-commands (byte-code "\301\302\303\304\305\306\307\310\311\312\313F\314BBBBBBBBB\207" [tramp-awk-coding-test (b64 "base64" "base64 -d -i") (b64 "base64" "base64 -d") (b64 "openssl enc -base64" "openssl enc -d -base64") (b64 "mimencode -b" "mimencode -u -b") (b64 "mmencode -b" "mmencode -u -b") (b64 "recode data..base64" "recode base64..data") (b64 tramp-perl-encode-with-module tramp-perl-decode-with-module) (b64 tramp-perl-encode tramp-perl-decode) b64 tramp-awk-encode tramp-awk-decode ((uu "uuencode xxx" "uudecode -o /dev/stdout" "test -c /dev/stdout") (uu "uuencode xxx" "uudecode -o -") (uu "uuencode xxx" "uudecode -p") (uu "uuencode xxx" tramp-uudecode) (pack tramp-perl-pack tramp-perl-unpack))] 12) (#$ . 230538)) #@144 Find an inline transfer encoding that works. Goes through the list `tramp-local-coding-commands' and `tramp-remote-coding-commands'. (fn VEC) (defalias 'tramp-find-inline-encoding #[257 "\212\306\307!\310\211\211\211\211\211\211\211\n\203`\211\204`\n\211A\262\f\242\262\3112\\@ A@\262\n\3128\262 ;\204\343 \313\314\fC\3151\331 \nX\205\325 \203x \316X\203x \317\320\321U\203^ \322\202s \323U\203h \322\202s \312U\203r \324\202s \325P#\210\n\326Y\205\325 \321\323U\203\265 \3271\260 r\330!\203\227 \331!\202\233 \332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\264 \210\202\265 \210\330!\203\301 \337\340\"\262)\242\f>\205\325 \317\341\342\343\"P$0\202\335 \210\202\336 \210\266\202\234 \313\344\fC\3451\205\nX\205\201 \203$\316X\203$\317\320\321U\203\n\322\202 \323U\203\322\202 \312U\203 \324\202 \325P#\210\n\326Y\205\201\321\323U\203a\3461\\r\330!\203C\331!\202G\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202`\210\202a\210\330!\203m\337\340\"\262)\242\f>\205\201\317\341\342\343\"P$0\202\211\210\202\212\210\266\347\n\310\211#\321U\204\234\350\311\310\"\210;\204N \313\351 C\3521D\nX\205@ \203\343\316X\203\343\317\320\321U\203\311\322\202\336\323U\203\323\322\202\336\312U\203\335\324\202\336\325P#\210\n\326Y\205@\321\323U\203 \3531r\330!\203\331!\202\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202 \210\202 \210\330!\203,\337\340\"\262)\242\f>\205@\317\341\342\343\"P$0\202H\210\202I\210\266\202 \313\354 C\3551\360\nX\205\354 \203\217\316X\203\217\317\320\321U\203u\322\202\212\323U\203\322\202\212\312U\203\211\324\202\212\325P#\210\n\326Y\205\354\321\323U\203\314\3561\307r\330!\203\256\331!\202\262\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\313\210\202\314\210\330!\203\330\337\340\"\262)\242\f>\205\354\317\341\342\343\"P$0\202\364\210\202\365\210\266\347 \310\211#\321U\204\350\311\310\"\210\211\205Y?\205Y\211A\262\242\262\3572U@\232\205TA@\262\3128\262\3168\262;\203\357 \313\360C\3611\331\nX\205\325 \203x\316X\203x\317\320\321U\203^\322\202s\323U\203h\322\202s\312U\203r\324\202s\325P#\210\n\326Y\205\325\321\323U\203\265\3621\260r\330!\203\227\331!\202\233\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\264\210\202\265\210\330!\203\301\337\340\"\262)\242\f>\205\325\317\341\342\343\"P$0\202\335\210\202\336\210\266\363\364#\204\357\350\357\310\"\2109\203\365\366 !\310\364 \367#)\266\203\203\370!\204\350\357\310\"\210;\204;\366!\367\371\"\2030\372\373\310\364$\262\202 \374\nJ#\210\262 \313\375\nC\3761\335\nX\205\331 \203|\316X\203|\317\320\321U\203b\322\202w\323U\203l\322\202w\312U\203v\324\202w\325P#\210\n\326Y\205\331\321\323U\203\271\3771\264r\330!\203\233\331!\202\237\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\270\210\202\271\210\330!\203\305\337\340\"\262)\242\f>\205\331\317\341\342\343\"P$0\202\341\210\202\342\210\266\363\342\201A \"\364#\204\370\350\357\310\"\210;\204\\\366!J\310\367\371\"\203\372\373\310\364$\262\202\201B \310\364 \367#)\266\203\203P\201C \201D @\201E !\"!\262\201F \201G \201H \201I !\"\"\262\374#\210\262\n\266 \313\201J C\201K 1\nX\205 \203\241\316X\203\241\317\320\321U\203\207\322\202\234\323U\203\221\322\202\234\312U\203\233\324\202\234\325P#\210\n\326Y\205 \321\323U\203\340\201L 1\333r\330!\203\302\331!\202\306\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\337\210\202\340\210\330!\203\354\337\340\"\262)\242\f>\205 \317\341\342\343\"P$0\202\210\202 \210\266\363\342\201M \f\f$\364#\204#\350\357\310\"\210r\332!q\210eb\210\201N \f!\364 \201O !)\262\204E\350\357\310\"\210)A@\262\3128\262\364\211\2620\210\202\266\2020\210\202 \211\205O \313\201P \nC\201Q 1\f\nX\205 \203\251\316X\203\251\317\320\321U\203\217\322\202\244\323U\203\231\322\202\244\312U\203\243\324\202\244\325P#\210\n\326Y\205\321\323U\203\350\201R 1\343r\330!\203\312\331!\202\316\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\347\210\202\350\210\330!\203\364\337\340\"\262)\242\f>\205\317\341\342\343\"P$0\202\210\202\210\266\201S \201T \n#\210 \313\201U C\201V 1\307\nX\205\303 \203d\316X\203d\317\320\321U\203J\322\202_\323U\203T\322\202_\312U\203^\324\202_\325P#\210\n\326Y\205\303\321\323U\203\243\201W 1\236r\330!\203\205\331!\202\211\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\242\210\202\243\210\330!\203\257\337\340\"\262)\242\f>\205\303\317\341\342\343\"P$0\202\313\210\202\314\210\266\201S \201X #\210 \313\201Y C\201Z 1\202\nX\205~ \203 \316X\203 \317\320\321U\203\322\202\323U\203\322\202\312U\203\324\202\325P#\210\n\326Y\205~\321\323U\203^\201[ 1Yr\330!\203@\331!\202D\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202]\210\202^\210\330!\203j\337\340\"\262)\242\f>\205~\317\341\342\343\"P$0\202\206\210\202\207\210\266\201S \201\\ #\210 \313\201] C\201^ 1= \nX\2059 \203\332\316X\203\332\317\320\321U\203\300\322\202\325\323U\203\312\322\202\325\312U\203\324\324\202\325\325P#\210\n\326Y\2059 \321\323U\203 \201_ 1 r\330!\203\373\331!\202\377\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202 \210\202 \210\330!\203% \337\340\"\262)\242\f>\2059 \317\341\342\343\"P$0\202A \210\202B \210\266\201S \201` #\266\213)\207" [tramp-local-coding-commands tramp-remote-coding-commands tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags inhibit-changing-match-data "xyzzy" tramp-get-connection-process nil wont-work-local 2 5 "Checking local encoding function `%s'" (error) 3 apply message 0 "" 1 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " "Checking local encoding command `%s' for sanity" (error) (error) tramp-call-local-coding-command throw "Checking local decoding function `%s'" (error) (error) "Checking local decoding command `%s' for sanity" (error) (error) wont-work-remote "Checking remote test command `%s'" (error) (error) tramp-send-command-and-check t "perl" symbol-name string-match tramp-get-remote-perl "-" replace-match "_" tramp-maybe-send-script "Checking remote encoding command `%s' for sanity" (error) (error) tramp-temp-name-prefix "%s </dev/null" "\\(^\\|[^%]\\)%t" make-temp-name expand-file-name tramp-get-remote-tmpdir format-spec format-spec-make 116 tramp-compat-file-local-name "Checking remote decoding command `%s' for sanity" (error) (error) "echo %s | %s | %s" regexp-quote looking-at "Using local encoding `%s'" (error) (error) tramp-set-connection-property "local-encoding" "Using local decoding `%s'" (error) (error) "local-decoding" "Using remote encoding `%s'" (error) (error) "remote-encoding" "Using remote decoding `%s'" (error) (error) "remote-decoding"] 24 (#$ . 232323)]) #@379 Call the local encoding or decoding command. If CMD contains "%s", provide input file INPUT there in command. Otherwise, INPUT is passed via standard input. INPUT can also be nil which means `/dev/null'. OUTPUT can be a string (which specifies a file name), or t (which means standard output and thus the current buffer), or nil (which means discard it). (fn CMD INPUT OUTPUT) (defalias 'tramp-call-local-coding-command #[771 "\303\304\205 \305\304\306\307#)\266\203?\205 \306=\205! \306\304\n\305\n\304\306\307#)\266\203\203= \310\n\n\"\202? ;\203L \311 P\202M \312P&\207" [tramp-encoding-shell inhibit-changing-match-data tramp-encoding-command-switch tramp-call-process nil "%s" t string-match format " >" ""] 17 (#$ . 239572)]) #@194 List of compress and decompress commands for inline transfer. Each item is a list that looks like this: (COMPRESS DECOMPRESS) COMPRESS or DECOMPRESS are strings with the respective commands. (defconst tramp-inline-compress-commands '(("env GZIP= gzip" "env GZIP= gzip -d") ("bzip2" "bzip2 -d") ("xz" "xz -d") ("zstd --rm" "zstd -d --rm") ("compress" "compress -d")) (#$ . 240337)) #@120 Find an inline transfer compress command that works. Goes through the list `tramp-inline-compress-commands'. (fn VEC) (defalias 'tramp-find-inline-compress #[257 "\212\305\306!\307\211\211\211\203\211\204\3102\211A\262\242\262@\262A@\262\311\312D\3131\313 X\205\307 \n\203j \314X\203j \315\316\317U\203P \320\202e \321U\203Z \320\202e \322U\203d \323\202e \324P#\210 \325Y\205\307 \317\321U\203\247 \3261\242 r\327!\203\211 \330!\202\215 \331\332\"q\210\333P\262\334\335 C\"\211\262)0\202\246 \210\202\247 \210\327!\203\263 \336\337\"\262)\242 >\205\307 \315\340\341\342\"P$0\202\317 \210\202\320 \210\266\343\344!r\211q\210\345\317\346\347\337!\350\"\322$\216\351\341\352 \353\354\355\n!\356#\353\354\355\n!\356#$\307\357#\317U\204\360\310\307\"\210eb\210\361!\357 \362!)\262\204 \360\310\307\"\210*\210\311\363D\3641\303 X\205\277\n\203b\314X\203b\315\316\317U\203H\320\202]\321U\203R\320\202]\322U\203\\\323\202]\324P#\210 \325Y\205\277\317\321U\203\237\3651\232r\327!\203\201\330!\202\205\331\332\"q\210\333P\262\334\335 C\"\211\262)0\202\236\210\202\237\210\327!\203\253\336\337\"\262)\242 >\205\277\315\340\341\342\"P$0\202\307\210\202\310\210\266\366\341\352 $\357#\204\340\360\310\307\"\210r\367!q\210eb\210\361!\357 \362!)\262\204\376\360\310\307\"\210)\357\211\2620\210\202\n \211\203l\311\370C\3711\255 X\205\251\n\203L\314X\203L\315\316\317U\2032\320\202G\321U\203<\320\202G\322U\203F\323\202G\324P#\210 \325Y\205\251\317\321U\203\211\3721\204r\327!\203k\330!\202o\331\332\"q\210\333P\262\334\335 C\"\211\262)0\202\210\210\202\211\210\327!\203\225\336\337\"\262)\242 >\205\251\315\340\341\342\"P$0\202\261\210\202\262\210\266\373\374#\210\311\375C\3761[ X\205W\n\203\372\314X\203\372\315\316\317U\203\340\320\202\365\321U\203\352\320\202\365\322U\203\364\323\202\365\324P#\210 \325Y\205W\317\321U\2037\37712r\327!\203\330!\202 \331\332\"q\210\333P\262\334\335 C\"\211\262)0\2026\210\2027\210\327!\203C\336\337\"\262)\242 >\205W\315\340\341\342\"P$0\202_\210\202`\210\266\373\201@ #\202$\373\374\307#\210\373\201@ \307#\210\322\201A \307\201B 1 X\205 \n\203\275\314X\203\275\315\316\317U\203\243\320\202\270\321U\203\255\320\202\270\322U\203\267\323\202\270\324P#\210 \325Y\205 \317\321U\203\374\201C 1\367r\327!\203\336\330!\202\342\331\332\"q\210\333P\262\334\335 C\"\211\262)0\202\373\210\202\374\210\327!\203\336\337\"\262)\242 >\205 \315\340\341\342\"P$0\202\"\210\307\266\204\266\207)\207" [tramp-inline-compress-commands tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags inhibit-changing-match-data "xyzzy" tramp-get-connection-process nil next 5 "Checking local compress commands `%s', `%s' for sanity" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat [buffer-name kill-buffer] tramp-call-local-coding-command "echo %s | %s | %s" mapconcat tramp-unquote-shell-quote-argument split-string " " t throw regexp-quote looking-at "Checking remote compress commands `%s', `%s' for sanity" (error) (error) tramp-send-command-and-check tramp-get-buffer "Using inline transfer compress command `%s'" (error) (error) tramp-set-connection-property "inline-compress" "Using inline transfer decompress command `%s'" (error) (error) "inline-decompress" "Couldn't find an inline transfer compress command" (error) (error)] 18 (#$ . 240727)]) #@67 Expands VEC according to `tramp-default-proxies-alist'. (fn VEC) (defalias 'tramp-compute-multi-hops #[257 "C\242 >\204 \306\307\310D\"\210\3118\206 \312\313\211\314\315\n\316#!\211\203 \211@\317!\320! \fQ;\205> \321\322!\323Q;\205I \321\322!\323Q\324\325\326#E\f\327\330C\3311\361 X\205\355 @\203\220 \332X\203\220 \333\334\335U\203v \312\202\213 \336U\203\200 \312\202\213 \337U\203\212 \340\202\213 \341P#\210 \342Y\205\355 \335 \336U\203\315 \3431\310 r\344!\203\257 \345!\202\263 \346\347\"q\210\350P\262\351\352 C\"\211\262)0\202\314 \210\202\315 \210\344!\203\331 \353\354\"\262)\242 >\205\355 \333\355\356\357\"P$0\202\365 \210\202\366 \210\266\360\300\"\210\361!\262 \266A\266\202\202\" \210\203A\203\362\300\"\210\262\203J\211A\262\242\262\363\3378!\262\363@!\2068\312\317@!\206A\312\313\326 B\364#)\266\203\203 \363A@!\206Y\312\320@!\206b\312\313\326 B\364#)\266\203\203 \211\204{\313\262\202 \365\366\367@\242 >\204\221\306\307\310 @D\"\210\337 @8\206\232\312\370\n@\242 >\204\255\306\307\310 @D\"\210\342 @8\206\266\312$\"\262\361!\211\242 >\204\313\306\307\310D\"\210\211A@\242 >\204\334\306\307\310D\"\210\3378\242 >\204\355\306\307\310D\"\210\3328\242 >\204\377\306\307\310D\"\210\3428\242 >\204\306\307\310D\"\210\3278\242 >\204#\306\307\310D\"\210\3718\242 >\2047\306\307\310 D\"\210\3118 B\262 \262\n\266\202 A\203\211\262\211A\262\242\211\262\203\211\372\373\"\203l\372\374\"\203R\375\376\242 >\204\201\306\307\310D\"\210A@#\210\202RC\206\217\312\262\211A\262\242\211\262\203\345\242 >\204\255\306\307\310D\"\210\3428\377\372\201D \"\235\204\332\313\326 B\364#)\266\203\204\332\375 \201E $\210\321\322!\323Q\266\202\202\222\210\207" [tramp-default-proxies-alist cl-struct-tramp-file-name-tags tramp-postfix-hop-regexp tramp-prefix-format tramp-postfix-host-format tramp-verbose signal wrong-type-argument tramp-file-name 7 "" nil reverse split-string omit tramp-file-name-host-port tramp-file-name-user-domain "^" regexp-quote "$" propertize tramp-ad-hoc t 5 "Add %S to `tramp-default-proxies-alist'" (error) 3 apply message 0 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " add-to-list tramp-dissect-file-name customize-save-variable eval string-match format-spec format-spec-make 117 104 6 tramp-get-method-parameter tramp-login-program tramp-copy-program tramp-user-error "Method `%s' is not supported for multi-hops." ("%h") tramp-message-show-message tramp-save-ad-hoc-proxies inhibit-changing-match-data tramp-local-host-regexp tramp-login-args "Host name `%s' does not match `%s'"] 23 (#$ . 244534)]) #@59 Return the Control* arguments of the local ssh. (fn VEC) (defalias 'tramp-ssh-controlmaster-options #[257 "\203 \306\307\310\311\"\"\204 \312\207 ;\203 \207\312\313\3141\263\315\316!\205\257\211\317\320\321C\3221\305 X\205\301 \f\203d \323X\203d \324\325\326U\203J \312\202_ \327U\203T \312\202_ \330U\203^ \331\202_ \332P#\210 \317Y\205\301 \326\327U\203\241 \3331\234 r\334!\203\203 \335!\202\207 \336\337\"q\210\340P\262\341\342 C\"\211\262)0\202\240 \210\202\241 \210\334!\203\255 \343\344\"\262)\242 >\205\301 \324\345\346\347\"P$0\202\311 \210\202\312 \210\266\350C\f\205\353 \317 \323^X\205\353 \351\321\352\211#\211\205\351 \353\323\354\355$\262\356\326\357\360\344#\361\"\362$\216\363\364!r\211q\210\356\326\365\360\344!\366\"\330$\216\367\316\352\313\352\370\371&\210eb\210\372\373\352\313#\203'\374*\210 G\326U?\205\246\363\364!r\211q\210\356\326\365\360\344!\375\"\330$\216\367\316\352\313\352\370\376\370\377\201@ &\n\210eb\210 \372\201A \352\313#\203h\201B \202k\201C P*\210\363\364!r\211q\210\356\326\365\360\344!\201D \"\330$\216\367\316\352\313\352\370\201E &\210eb\210\372\373\352\313#\205\243 \201F P\211*\262\201G \240\210)\266\2020\202\267\210\202\270\210) \207" [tramp-use-ssh-controlmaster-options tramp-ssh-controlmaster-options case-fold-search tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags assoc "%c" tramp-get-method-parameter tramp-login-args #2="" t (error) executable-find "ssh" 4 "%s..." #1="Computing ControlMaster options" (error) 3 apply message 0 1 2 #3="Warning: " #4="Tramp: " (error) processp process-buffer tramp-get-connection-buffer dont-create #5="\n%s" append buffer-string process-get vector tramp-debug-message format #6="(%d) # " "failed" make-progress-reporter nil run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\302\203 \306\302!\210\300\307\310\311\301\242D\3121\252 X\205\246 \f\203I \313X\203I \314\315\316U\203/ \317\202D \320U\2039 \317\202D \321U\203C \322\202D \323P#\210 \307Y\205\246 \316\320U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242 >\205\246 \314\336\337\340\"P$0\202\254 \210\341\207" vconcat [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags cancel-timer 4 "%s...%s" #1# (error) 3 apply message 0 #2# 1 2 #3# #4# (error) processp process-buffer tramp-get-connection-buffer dont-create #5# append buffer-string process-get vector tramp-debug-message format #6# nil] 10 generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] tramp-call-process "-o" "ControlMaster" search-forward-regexp "missing.+argument" "-o ControlMaster=auto" [buffer-name kill-buffer] "ConnectTimeout=1" "ControlPath=%C" "0.0.0.1" "unknown.+key" " -o ControlPath='tramp.%%r@%%h:%%p'" " -o ControlPath='tramp.%%C'" [buffer-name kill-buffer] "ControlPersist" " -o ControlPersist=no" "done"] 15 (#$ . 247400)]) #@118 Close the connection VEC after a session timeout. If there is just some editing, retry it after 5 seconds. (fn VEC) (defalias 'tramp-timeout-session #[257 "\203\276 \203\276 \306\n@\"\203\276 \211\307\310\307C\3111\260 X\205\254 \f\203O \312X\203O \313\314\315U\2035 \316\202J \317U\203? \316\202J \320U\203I \321\202J \322P#\210 \323Y\205\254 \315\317U\203\214 \3241\207 r\325!\203n \326!\202r \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\213 \210\202\214 \210\325!\203\230 \334\335\"\262)\242 >\205\254 \313\336\337\340\"P$0\202\264 \210\202\265 \210\266\341\307\342\343$\207\211\312\344\345\346\"C\3471a X\205]\f\203 \312X\203 \313\314\315U\203\346 \316\202\373 \317U\203\360 \316\202\373 \320U\203\372 \321\202\373 \322P#\210 \323Y\205]\315\317U\203=\35018r\325!\203 \326!\202#\327\330\"q\210\331P\262\332\333 C\"\211\262)0\202<\210\202=\210\325!\203I\334\335\"\262)\242 >\205]\313\336\337\340\"P$0\202e\210\202f\210\266\351\352\"\207" [tramp-locked tramp-locker tramp-current-connection tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-file-name-equal-p 5 "Cannot timeout session, trying it again in %s seconds." (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " run-at-time nil tramp-timeout-session "Timeout session %s" tramp-make-tramp-file-name localname (error) (error) tramp-cleanup-connection keep-debug] 11 (#$ . 250443)]) #@173 Maybe open a connection VEC. Does not do anything if a connection is already open, but re-opens the connection if a previous connection has died for some reason. (fn VEC) (defalias 'tramp-maybe-open-connection #[257 "\306!\204 \307\310\211\"\210\311!\312\313\314#\315!r\316!q\210`)\317!\204H \320 @\"\203H \321\322 A\2067 \323 !\324\n\206> \325!\"\204H \307\326\211\"\210\3271r\321\324\330!\322\312\331\324\325!#!\"\205n\317!\205n\332\333\334\211$\210\317!\205u \335\336\"?\205n\337\340\314\211\211 \336Y\203\204\211\203M\211\336\341\342\343! @\344\216@ @\345 \210)r@q\210\346 +C\3471C X\205?\f\203\341 \350X\203\341 \351\352\325U\203\307 \353\202\334 \354U\203\321 \353\202\334 \355U\203\333 \356\202\334 \357P#\210 \360Y\205?\325 \354U\203 \3611r\362!\203 \363!\202\316\364\"q\210\341P\262\365\346 C\"\211\262)0\202 \210\202 \210\362!\203*\366\367\"\262)\242A>\205?\351\370\371\372\"P$0\202G\210\202H\210\266\202\204Br\373\374!q\210p\375 \210B\314\211CD\334\211E\334 F G\376 \210\377\201W !\210+\211 @\345 \210\201X !\210)\266\210\211\204\222C\262\201Y \262\203X\354\201Y \201Z \211\201[ N\351\201\\ #E!C\201] 1Q X\205M\f\203\355\350X\203\355\351\352\325U\203\323\353\202\350\354U\203\335\353\202\350\355U\203\347\356\202\350\357P#\210 \360Y\205M\325 \354U\203,\201^ 1'r\362!\203\363!\202\316\364\"q\210\341P\262\365\346 C\"\211\262)0\202+\210\202,\210\362!\2038\366\367\"\262)\242A>\205M\351\370\371\372\"P$0\202U\210\202V\210\266\201_ \201` \351\201\\ #!C\"*\266\2040\202~\210\201a \334\"\210\314\211\262\210\201b 1\220\f\317!?\205\214\f\350\201c \242A>\204\250\201_ \201d \201e \nD\"\210\3558G\325U\203\360\371\201f \242A>\204\315\201_ \201d \201e \fD\"\210\360\n8\n\242A>\204\350\201_ \201d \201e D\"\210\nA@#\202F\371\201g \242A>\204 \201_ \201d \201e \fD\"\210\355\n8\n\242A>\204&\201_ \201d \201e D\"\210\360 8 \242A>\204A\201_ \201d \201e D\"\210 A@$C\201h 1\347 X\205\343\f\203\203\350X\203\203\351\352\325U\203i\353\202~\354U\203s\353\202~\355U\203}\356\202~\357P#\210 \360Y\205\343\325 \354U\203\302\201i 1\275r\362!\203\244\363!\202\250\316\364\"q\210\341P\262\365\346 C\"\211\262)0\202\301\210\202\302\210\362!\203\316\366\367\"\262)\242A>\205\343\351\370\371\372\"P$0\202\353\210\202\354\210\266\201j C\f\205\313\350 \350^X\205\313\201k \242A>\204\201_ \201d \201e D\"\210\3558G\325U\203`\371\201f \242A>\204=\201_ \201d \201e D\"\210\360 8 \242A>\204X\201_ \201d \201e \fD\"\210 A@#\202\266\371\201g \242A>\204{\201_ \201d \201e D\"\210\355 8 \242A>\204\226\201_ \201d \201e \fD\"\210\360\n8\n\242A>\204\261\201_ \201d \201e D\"\210\nA@$\314\211#\211\205\311\201l \350\201m \201n $\262\201o \325\201p \201q \367 #\201r \"\201s $\216\201t 2\203\f\203\376\362!\203\376\201u !\210\201v \201w H\"\210\201v \201x \201y !\"\210I;\203)\201v \201z I\"\210\202LI\203L\201v \201z !\210\201v \201{ \201| \"\210\201v \201} \201| \"\210\201v \201~ !\210\201v \201 J\"\210K;\204c\337\201\200 \314\211\211 \336Y\203x\211\203A\211\336\341\342\343! @\201\201 \216@ @\345 \210)r@q\210\346 +C\201\202 17 X\2053\f\203\323\350X\203\323\351\352\325U\203\271\353\202\316\354U\203\303\353\202\316\355U\203\315\356\202\316\357P#\210 \360Y\2053\325 \354U\203\201\203 1 r\362!\203\364\363!\202\370\316\364\"q\210\341P\262\365\346 C\"\211\262)0\202\210\202\210\362!\203 \366\367\"\262)\242A>\2053\351\370\371\372\"P$0\202;\210\202<\210\266\202xBr\373\374!q\210p\375 \210B\314\211CD\334\211E\334 F G\376 \210\377\201W !\210+\211 @\345 \210\201X !\210)\266\210\211\204\206C\262\201Y \262\203L\354\201Y \201Z \211\201[ N\351\201\\ #E!C\201\204 1E X\205A\f\203\341\350X\203\341\351\352\325U\203\307\353\202\334\354U\203\321\353\202\334\355U\203\333\356\202\334\357P#\210 \360Y\205A\325 \354U\203 \201\205 1r\362!\203\363!\202\316\364\"q\210\341P\262\365\346 C\"\211\262)0\202 \210\202 \210\362!\203,\366\367\"\262)\242A>\205A\351\370\371\372\"P$0\202I\210\202J\210\266\201_ \201` \351\201\\ #!C\"\210*\266\201\206 \201\207 !\201\210 !L M\314\211 N O\314 P\201\211 K!\201\212 \201\213 \201\214 N@! B\351\201\215 \201\216 !\316!\365KC\205\261\201\217 !Q\205\271QC#$)\201\220 \201\221 \"\210\201\222 \367#\210\201\222 \201\223 \201\224 #\210\201\225 \314\"\210 \323 B \201\226 \201Y \201\227 !\201\230 \201\231 \201\232 #\266\202C\201\233 1\243 X\205\237\f\203?\350X\203?\351\352\325U\203%\353\202:\354U\203/\353\202:\355U\2039\356\202:\357P#\210 \360Y\205\237\325 \354U\203~\201\234 1yr\362!\203`\363!\202d\316\364\"q\210\341P\262\365\346 C\"\211\262)0\202}\210\202~\210\362!\203\212\366\367\"\262)\242A>\205\237\351\370\371\372\"P$0\202\247\210\202\250\210\266\201\235 \336\201\236 K$\210\203K\f@\211\242A>\204\321\201_ \201d \201e D\"\210\211A@\242A>\204\351\201_ \201d \201e D\"\210\3558\242A>\204 \201_ \201d \201e D\"\210\3508\242A>\204 \201_ \201d \201e D\"\210\3608\242A>\2043 \201_ \201d \201e D\"\210\201\237 8\201\240 \201\241 \"\201\240 \201\242 \"\201\240 \201\243 \"\201\211 !\201\240 \n\201\244 \"\201\240 \201V \"\312\201\245 \201\246 !!\201\247 \201\250 #\211\201\250 =\203\260 \201\251 \201\252 R\201\212 \201\213 \201\214 N@!\"!\262\201\253 \201\245 \201\246 !!\201\247 #\210\211\262\314C\314\203\307 \203\307 \365\n\"\262 S\211\203\355 \211@\211\314\334 T\201\254 #)\266\203\203\346 \334\262A\266\202\202\311 \210 \262\201\253 \201\255 \201e \314\211\257#\210\201\240 \201\256 \"\203,\n\201\253 \201\257 \201\240 \201\256 \"#\210 \2062\n\353\262\f \206:\n\353\262\n\206B\n\353\262 \201\260 \201\261 \"\240\210\201\262 \242\"\262\201\260 \201\263 \201\264 \201\265 \201\266 \201\267 \201\230 Q&\n\240\210\211?\205\210\n\201\270 \201\230 \201\231 \201o \201\271 \201\272 \201q \367\n!\201\273 \"\201\274 \201\275 % \201\230 #\205\267\n\201\276 \260\262\350\201\277 C\201\300 1d X\205` \f\203 \350X\203 \351\352\325U\203\346\n\353\202\373\n\354U\203\360\n\353\202\373\n\355U\203\372\n\356\202\373\n\357P#\210 \360Y\205` \325 \354U\203? \201\301 1: r\362!\203! \363!\202% \316\364\"q\210\341P\262\365\346 C\"\211\262)0\202> \210\202? \210\362!\203K \366\367\"\262)\242A>\205` \351\370\371\372\"P$0\202h \210\202i \210\266\332 \334\211$\210\201\302 r\363!q\210d)^U \206\217 V%\210\350\201\303 C\201\304 1:\f X\2056\f\f\203\326 \350X\203\326 \351\352\325U\203\274 \353\202\321 \354U\203\306 \353\202\321 \355U\203\320 \356\202\321 \357P#\210 \360Y\2056\f\325 \354U\203\f\201\305 1\fr\362!\203\367 \363!\202\373 \316\364\"q\210\341P\262\365\346 C\"\211\262)0\202\f\210\202\f\210\362!\203!\f\366\367\"\262)\242A>\2056\f\351\370\371\372\"P$0\202>\f\210\202?\f\210\266\353\262A\262\202\266\201\306 \f!\210\312\201\257 \314#\203n\f\201l \312\201\257 \314#\314\201\307 $\210\201\310 \"\210\201\253 \201\311 \334#,\266\2050\201\312 \240\210)\266\2020\202\242\f\201a \334\"\210\201_ @A\"\262)\207" [process-environment tramp-current-connection tramp-connection-min-time-diff signal-hook-function tramp-message-show-message tramp-verbose tramp-connectable-p throw non-essential tramp-get-connection-process tramp-get-connection-property "process-name" nil copy-sequence tramp-get-connection-buffer process-live-p tramp-file-name-equal-p time-less-p time-since current-time seconds-to-time 0 suppress (file-error) 60 "last-cmd-time" tramp-send-command "echo are you awake" t tramp-wait-for-output 10 file-error "Awake did fail" "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message #3="" 1 2 #4="Warning: " #5="Tramp: " 4 (error) processp process-buffer dont-create append process-get vector tramp-debug-message format #6="(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks standard-output cl-struct-tramp-file-name-tags default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only tramp-terminal-type tramp-histfile-override tramp-initial-end-of-output tramp-encoding-shell tramp-process-connection-type process-connection-type process-adaptive-read-buffering process-coding-system-alist coding-system-for-read tramp-encoding-command-interactive tramp-temp-name-prefix tramp-restricted-shell-hosts-alist inhibit-changing-match-data tramp-actions-before-shell tramp-connection-timeout temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) signal substring-no-properties tramp-cleanup-connection (error quit) "%s..." wrong-type-argument tramp-file-name #1="Opening connection for %s using %s" #2="Opening connection for %s@%s using %s" (error) (error) "failed" make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update make-byte-code "\302\203 \306\302!\210\300\307\310\300\242 >\204 \311\312\313\300D\"\210\314\3008G\315U\203J \316\317\300\242 >\2042 \311\312\313\300D\"\210\320\3008\300\242 >\204C \311\312\313\300D\"\210\300A@#\202\200 \316\321\300\242 >\204Z \311\312\313\300D\"\210\314\3008\300\242 >\204k \311\312\313\300D\"\210\320\3008\300\242 >\204| \311\312\313\300D\"\210\300A@$\301\242D\3221 \fX\205 \203\275 \307X\203\275 \323\324\315U\203\243 \325\202\270 \326U\203\255 \325\202\270 \314U\203\267 \327\202\270 \330P#\210\f\320Y\205\315 \326U\203\372 \3311\365 r\332!\203\334 \333!\202\340 \334\335\"q\210\336P\262\337\340 C\"\211\262)0\202\371 \210\202\372 \210\332!\203\341\342\"\262)\242 >\205\323\343\316\344\"P$0\202 \210\345\207" vconcat [cl-struct-tramp-file-name-tags tramp-verbose tramp-message-show-message cancel-timer 3 "%s...%s" signal wrong-type-argument tramp-file-name 2 0 format #1# 4 #2# (error) apply message #3# 1 #4# #5# (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message #6# nil] 11 uname-changed delete-process setenv "TERM" "LC_ALL" tramp-get-local-locale "HISTFILE" "HISTFILESIZE" "0" "HISTSIZE" "PROMPT_COMMAND" "PS1" "`tramp-encoding-shell' not set" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) system-name tramp-compute-multi-hops tramp-ssh-controlmaster-options tramp-get-sh-extra-args eval temporary-file-directory standard-value start-process tramp-get-connection-name split-string set-process-sentinel tramp-process-sentinel process-put adjust-window-size-function ignore set-process-query-on-exit-flag 6 process-command " " mapconcat identity (error) (error) tramp-barf-if-no-shell-prompt "Couldn't find local shell prompt for %s" 5 tramp-get-method-parameter tramp-login-program tramp-login-args tramp-remote-shell tramp-async-args get-process tramp-buffer-name "temp-file" undef make-temp-name expand-file-name tramp-set-connection-property string-match "password-vector" tramp-session-timeout "session-timeout" format-spec-make 116 format-spec 104 117 112 99 108 "exec " 257 "\301\302\303\304\305\306\300!\307\"\310\311%\"\262\312\235?\205! \211\313\314\315#\266\202\207" [mapcar make-byte-code 257 "\301\300\242\"\207" vconcat vector [format-spec] 4 "\n\n(fn Y)" #3# " " mapconcat identity] 8 "\n\n(fn X)" " && exit || exit" "Sending command `%s'" (error) (error) tramp-process-actions "Found remote shell prompt on `%s'" (error) (error) tramp-set-connection-local-variables tramp-timeout-session tramp-open-connection-setup-interactive-shell "connected" "done"] 43 (#$ . 252059)]) #@331 Send the COMMAND to connection VEC. Erases temporary buffer before sending the command. If optional arg NEVEROPEN is non-nil, never try to open the connection. This is meant to be used from `tramp-maybe-open-connection' only. The function waits for output unless NOOUTPUT is set. (fn VEC COMMAND &optional NEVEROPEN NOOUTPUT) (defalias 'tramp-send-command #[1026 "\204 \304!\210\305!\306\307\310#\203; \311\312\313#\210\211\314\230\262\2042 \315\316\"\317\230\2032 \315\320\316#\262\321\322$\262\323\324C\3251\334 X\205\330 \n\203{ \326X\203{ \327\330\320U\203a \314\202v \331U\203k \314\202v \332U\203u \333\202v \334P#\210 \335Y\205\330 \320\331U\203\270 \3361\263 r\337!\203\232 \340!\202\236 \341\342\"q\210\343P\262\344\345 C\"\211\262)0\202\267 \210\202\270 \210\337!\203\304 \346\347\"\262)\242 >\205\330 \327\350\321\351\"P$0\202\340 \210\202\341 \210\266\352\"\210?\205\360 \353!\207" [tramp-echo-mark tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-maybe-open-connection tramp-get-connection-process tramp-get-connection-property "remote-echo" nil tramp-set-connection-property "check-remote-echo" t "" substring -1 "\n" 0 format "%s%s%s" 6 "%s" (error) 3 apply message 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message "(%d) # " tramp-send-string tramp-wait-for-output] 15 (#$ . 264052)]) #@67 Wait for output from remote command. (fn PROC &optional TIMEOUT) (defalias 'tramp-wait-for-output #[513 "\306\307!!\204\342\310!\210\311\312C\313\211\n\314Y\203\f\211\203\334 \211\314\315\316\317!\320\216 \321 \210)r q\210\322 +C\3231\322 \nX\205\316 \203q \324X\203q \325\326\327U\203W \330\202l \331U\203a \330\202l \332U\203k \333\202l \334P#\210\n\335Y\205\316 \327\331U\203\256 \3361\251 r\337!\203\220 \307!\202\224 \340\341\"q\210\315P\262\342\322 C\"\211\262)0\202\255 \210\202\256 \210\337!\203\272 \343\344\"\262)\242\f>\205\316 \325\345\346\347\"P$0\202\326 \210\202\327 \210\266\202\f r\350\351!q\210p\352 \210\313\211@A\353\211B\353 C D\354 \210\355\356!\210+\211\321 \210\357!\210)\266\210\211\204C\262\360\262\203\321\331\360\361\211\362N\325\363 #E!C\3641\312\nX\205\306 \203i\324X\203i\325\326\327U\203O\330\202d\331U\203Y\330\202d\332U\203c\333\202d\334P#\210\n\335Y\205\306\327\331U\203\246\3651\241r\337!\203\210\307!\202\214\340\341\"q\210\315P\262\342\322 C\"\211\262)0\202\245\210\202\246\210\337!\203\262\343\344\"\262)\242\f>\205\306\325\345\346\347\"P$0\202\316\210\202\317\210\266\366\367\325\363#!C\"\210*\266r\307!q\210\346\370\371E!F#\346\372\"\373#\211\203\"\353 Deb\210\374\375\376 \353#\203\331y\210e`|\210\377!\203 `d|\210)\202\361\203\311\201G ED\313\211\n\314Y\2031\211\203\211\314\315\316\317!\201H \216 \321 \210)r q\210\322 +C\201I 1\367\nX\205\363 \203\224\324X\203\224\325\326\327U\203z\330\202\217\331U\203\204\330\202\217\332U\203\216\333\202\217\334P#\210\n\335Y\205\363\327\331U\203\323\201J 1\316r\337!\203\265\307!\202\271\340\341\"q\210\315P\262\342\322 C\"\211\262)0\202\322\210\202\323\210\337!\203\337\343\344\"\262)\242\f>\205\363\325\345\346\347\"P$0\202\373\210\202\374\210\266\2021 r\350\351!q\210p\352 \210\313\211@A\353\211B\353 C D\354 \210\355\356!\210+\211\321 \210\357!\210)\266\210\211\204=C\262\360\262\203\372\331\360\361\211\362N\325\363 #E!C\201K 1\363\nX\205\357 \203\220\324X\203\220\325\326\327U\203v\330\202\213\331U\203\200\330\202\213\332U\203\212\333\202\213\334P#\210\n\335Y\205\357\327\331U\203\317\201L 1\312r\337!\203\261\307!\202\265\340\341\"q\210\315P\262\342\322 C\"\211\262)0\202\316\210\202\317\210\337!\203\333\343\344\"\262)\242\f>\205\357\325\345\346\347\"P$0\202\367\210\202\370\210\266\366\367\325\363#!C\"\210*\266\202\361\311\201M EC\313\211\n\314Y\203\211\203\347\211\314\315\316\317!\201N \216 \321 \210)r q\210\322 +C\201O 1\335\nX\205\331 \203z\324X\203z\325\326\327U\203`\330\202u\331U\203j\330\202u\332U\203t\333\202u\334P#\210\n\335Y\205\331\327\331U\203\271\201P 1\264r\337!\203\233\307!\202\237\340\341\"q\210\315P\262\342\322 C\"\211\262)0\202\270\210\202\271\210\337!\203\305\343\344\"\262)\242\f>\205\331\325\345\346\347\"P$0\202\341\210\202\342\210\266\202 r\350\351!q\210p\352 \210\313\211@A\353\211B\353 C D\354 \210\355\356!\210+\211\321 \210\357!\210)\266\210\211\204#C\262\360\262\203\340\331\360\361\211\362N\325\363 #E!C\201Q 1\331\nX\205\325 \203v\324X\203v\325\326\327U\203\\\330\202q\331U\203f\330\202q\332U\203p\333\202q\334P#\210\n\335Y\205\325\327\331U\203\265\201R 1\260r\337!\203\227\307!\202\233\340\341\"q\210\315P\262\342\322 C\"\211\262)0\202\264\210\202\265\210\337!\203\301\343\344\"\262)\242\f>\205\325\325\345\346\347\"P$0\202\335\210\202\336\210\266\366\367\325\363#!C\"\210*\266\266\202)\207" [signal-hook-function tramp-message-show-message tramp-verbose standard-output cl-struct-tramp-file-name-tags default-directory buffer-live-p process-buffer delete-process file-error "Process `%s' not available, try again" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp tramp-get-connection-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) signal substring-no-properties "[^#$\n]*%s\\(%s\\)? ?$" regexp-quote "\\(^\\| \\)%s" tramp-wait-for-regexp re-search-forward "^\\(.\\)+$" point-at-eol tramp-search-regexp buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only tramp-end-of-output tramp-device-escape-sequence-regexp "[[Remote prompt `%s' not found in %d secs]]" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error) "[[Remote prompt `%s' not found]]" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error)] 21 (#$ . 265559)]) #@442 Run COMMAND and check its exit status. Send `echo $?' along with the COMMAND for checking the exit status. If COMMAND is nil, just send `echo $?'. Return t if the exit status is 0, and nil otherwise. If the optional argument SUBSHELL is non-nil, the command is executed in a subshell, ie surrounded by parentheses. If DONT-SUPPRESS-ERR is non-nil, stderr won't be sent to /dev/null. (fn VEC COMMAND &optional SUBSHELL DONT-SUPPRESS-ERR) (defalias 'tramp-send-command-and-check #[1026 "\306\203\n \307\202 \310\211\203 \203 \311\202 \312\202 \310\313\203' \314\202( \310\260\"\210r\315!q\210\316\317!\204\320\321C\322\211\n\323Y\2038\211\203\211\323\324\325\326!\327\216 \330 \210)r q\210\331 +C\3321\376 \nX\205\372 \203\235 \333X\203\235 \334\335\336U\203\203 \310\202\230 \337U\203\215 \310\202\230 \340U\203\227 \341\202\230 \342P#\210\n\343Y\205\372 \336\337U\203\332 \3441\325 r\345!\203\274 \346!\202\300 \315\347\"q\210\324P\262\350\331 C\"\211\262)0\202\331 \210\202\332 \210\345!\203\346 \351\352\"\262)\242\f>\205\372 \334\353\354\355\"P$0\202\210\202\210\266\2028 r\356\357!q\210p\360 \210\322\211@A\361\211B\361 C D\362 \210\363\364!\210+\211\330 \210\365!\210)\266\210\211\204DC\262\366\262\203\375\337\366\367\211\370N\334\371 #E!C\3721\366\nX\205\362 \203\225\333X\203\225\334\335\336U\203{\310\202\220\337U\203\205\310\202\220\340U\203\217\341\202\220\342P#\210\n\343Y\205\362\336\337U\203\322\3731\315r\345!\203\264\346!\202\270\315\347\"q\210\324P\262\350\331 C\"\211\262)0\202\321\210\202\322\210\345!\203\336\351\352\"\262)\242\f>\205\362\334\353\354\355\"P$0\202\372\210\202\373\210\266\374\375\334\371#!C\"\210*\266\376\322w\210\377p!\336U\361 D\336\224d|\210*\207" [signal-hook-function tramp-message-show-message tramp-verbose standard-output cl-struct-tramp-file-name-tags default-directory tramp-send-command "( " "" "; " " 2>/dev/null; " "echo tramp_exit_status $?" " )" tramp-get-connection-buffer tramp-search-regexp "tramp_exit_status [0-9]+" file-error "Couldn't find exit status of `%s'" nil 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) 3 apply message 0 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) signal substring-no-properties "^ " read buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only] 20 (#$ . 270610)]) #@218 Run COMMAND, check exit status, throw error if exit status not okay. Similar to `tramp-send-command-and-check' but accepts two more arguments FMT and ARGS which are passed to `error'. (fn VEC COMMAND FMT &rest ARGS) (defalias 'tramp-barf-unless-okay #[899 "\300\"\206 \301\302\303%\207" [tramp-send-command-and-check apply tramp-error file-error] 10 (#$ . 273427)]) #@252 Run COMMAND and return the output, which must be a Lisp expression. If MARKER is a regexp, read the output after that string. In case there is no valid Lisp expression and NOERROR is nil, it raises an error. (fn VEC COMMAND &optional NOERROR MARKER) (defalias 'tramp-send-command-and-read #[1026 "\203 \3061 \307\"0\202 \210\310\207\311\312$\205r\313!q\210eb\210\211;\203\31416 \315!0\202\210\204\316\317\320 E\310\211\n\321Y\203>\211\203\211\321\322\323\324!\325\216 \326 \210)r q\210\320 +C\3271\nX\205 \203\243 \330X\203\243 \331\332\333U\203\211 \334\202\236 \335U\203\223 \334\202\236 \336U\203\235 \337\202\236 \340P#\210\n\341Y\205 \333\335U\203\340 \3421\333 r\343!\203\302 \344!\202\306 \313\345\"q\210\322P\262\346\320 C\"\211\262)0\202\337 \210\202\340 \210\343!\203\354 \347\350\"\262)\242\f>\205 \331\351\352\353\"P$0\202\210\202 \210\266\202> r\354\355!q\210p\356 \210\310\211@A\357\211B\357 C D\360 \210\361\362!\210+\211\326 \210\363!\210)\266\210\211\204JC\262\364\262\203\335\364\365\211\366N\331\367 #E!C\3701\374\nX\205\370 \203\233\330X\203\233\331\332\333U\203\201\334\202\226\335U\203\213\334\202\226\336U\203\225\337\202\226\340P#\210\n\341Y\205\370\333\335U\203\330\3711\323r\343!\203\272\344!\202\276\313\345\"q\210\322P\262\346\320 C\"\211\262)0\202\327\210\202\330\210\343!\203\344\347\350\"\262)\242\f>\205\370\331\351\352\353\"P$0\202 \210\202\210\266\372\373\331\367#!C\"*\266\204\210\3741.\375p!\315\376\377 \357#\203*\201E \310!\2100\202\210?\205\316\201F \320 D\310\211\n\321Y\203>\211\203\211\321\322\323\324!\201G \216 \326 \210)r q\210\320 +C\201H 1\nX\205 \203\241\330X\203\241\331\332\333U\203\207\334\202\234\335U\203\221\334\202\234\336U\203\233\337\202\234\340P#\210\n\341Y\205 \333\335U\203\340\201I 1\333r\343!\203\302\344!\202\306\313\345\"q\210\322P\262\346\320 C\"\211\262)0\202\337\210\202\340\210\343!\203\354\347\350\"\262)\242\f>\205 \331\351\352\353\"P$0\202\210\202 \210\266\202> r\354\355!q\210p\356 \210\310\211@A\357\211B\357 C D\360 \210\361\362!\210+\211\326 \210\363!\210)\266\210\211\204JC\262\364\262\203\335\364\365\211\366N\331\367 #E!C\201J 1 \nX\205\374 \203\235\330X\203\235\331\332\333U\203\203\334\202\230\335U\203\215\334\202\230\336U\203\227\337\202\230\340P#\210\n\341Y\205\374\333\335U\203\334\201K 1\327r\343!\203\276\344!\202\302\313\345\"q\210\322P\262\346\320 C\"\211\262)0\202\333\210\202\334\210\343!\203\350\347\350\"\262)\242\f>\205\374\331\351\352\353\"P$0\202\210\202\210\266\372\373\331\367#!C\"*\266\204)\207" [signal-hook-function tramp-message-show-message tramp-verbose standard-output cl-struct-tramp-file-name-tags default-directory (error) tramp-send-command-and-check nil tramp-barf-unless-okay "`%s' returns with error" tramp-get-connection-buffer (error) re-search-forward file-error "`%s' does not return the marker `%s': `%s'" buffer-string 10 "\n%s" generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer dont-create append process-get vector tramp-debug-message format "(%d) # " get-buffer-create "*debug tramp*" kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) (error) signal substring-no-properties (error) read "\\S-" point-at-eol buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only error "`%s' does not return a valid Lisp expression: `%s'" #[0 "\301!\207" [standard-output kill-buffer] 2] (error) (error) (error) (error)] 20 (#$ . 273807)]) #@162 Convert `file-attributes' ATTR generated by perl script, stat or ls. Convert file mode bits to string and set virtual device number. Return ATTR. (fn VEC ATTR) (defalias 'tramp-convert-file-attributes #[514 "\211\205\306\304 \305\306\307\310\311!\312\"\313$\216@;\203. \314@\"\203. \315\316\317\211@$\240\210\202 \3208\247\203C \3208\306W\203C AA \240\210\321\3208!\203] \3208\nX\203] AA\322\3208!\240\210\3138\247\203r \3138\306W\203r \313\233 \240\210\321\3138!\203\214 \3138\nX\203\214 \313\233\322\3138!\240\210\3238<\204\235 \323\233\324\3238!\240\210\3258<\204\256 \325\233\324\3258!\240\210\3268<\204\277 \326\233\324\3268!\240\210\3278\306W\203\315 \327\233\330\240\210\321\3278!\203\347 \3278\nX\203\347 \327\233\322\3278!\240\210\3318;\204\331\233\332\3318!\240\210@;\203\3318\306\333I\210\334\3318\317\335\314#)\266\203\203\335\240\210@:\203=\211@@;\205;\314\336@@\"\205;\337\340\341@@\"\342\"\240\210\343\233\3138\247\203S\3138\344\345\"U?\202\\\3138\344\346\"\230?\240\210\321\3478!\203\273\347\233\3501\265\3478\317\211\nX\203~\351!\202\257\352\353\"\262\353\245\262\nX\203\231\351!\351!B\202\257\352\354\"\262\354\245\262\351!\351!\351!BB\266\2030\202\271\210\355!\240\210\356\233\357!\240\210)\210\211\207" [tramp-display-escape-sequence-regexp tramp-unknown-id-integer most-positive-fixnum inhibit-changing-match-data match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 string-match replace-match "" nil 2 floatp round 4 seconds-to-time 5 6 7 -1 8 tramp-file-mode-from-int 108 "^d" t ".+ -> .\\(.+\\)." decode-coding-string match-string 1 utf-8 9 tramp-get-remote-gid integer string 10 (error) floor mod 65536 16777216 tramp-get-inode 11 tramp-get-device] 11 (#$ . 277741)]) #@71 Convert STRING to shell glob pattern which ignores case. (fn STRING) (defalias 'tramp-shell-case-fold #[257 "\300\301\302#\207" [mapconcat #[257 "\211\227\226\232\203\f \300!\207\301\302\227\226#\207" [vector format "[%c%c]"] 5 "\n\n(fn C)"] ""] 5 (#$ . 279580)]) #@82 Create a file name suitable for `scp', `pscp', or `nc' and workalikes. (fn VEC) (defalias 'tramp-make-copy-program-file-name #[257 "\211\242>\204 \303\304\305D\"\210\211A@\242>\204 \303\304\305D\"\210\3068\242>\2040 \303\304\305D\"\210\3078\310\311!! \312\313\314#)\266\203\203N \315\316\"\262\317\312\313\314#)\266\203\204c \320!\262\321\322\"\203n \211\202\207 G\323U\204\200 \315\324\325!$\202\207 \315\326\325!#\207" [cl-struct-tramp-file-name-tags tramp-ipv6-regexp inhibit-changing-match-data signal wrong-type-argument tramp-file-name 2 4 directory-file-name tramp-file-name-unquote-localname nil t string-match format "[%s]" "ftp$" tramp-shell-quote-argument tramp-get-method-parameter tramp-remote-copy-program 0 "%s@%s:%s" tramp-unquote-shell-quote-argument "%s:%s"] 12 (#$ . 279856)]) #@74 Return t if this is an out-of-band method, nil otherwise. (fn VEC SIZE) (defalias 'tramp-method-out-of-band-p #[514 "\301\302\"\205 \211\247\205 ?\206 \211V\206 \303\304#?\207" [tramp-copy-size-limit tramp-get-method-parameter tramp-copy-program tramp-get-inline-coding "remote-encoding"] 6 (#$ . 280693)]) #@103 Compile list of remote directories for PATH. Nonexistent directories are removed from spec. (fn VEC) (defalias 'tramp-get-remote-path #[257 "r\305!q\210\306!\210\307\310>\203 \311!\202 \312\313#\211\313=\203B\314!\315>\310>\205\336 \316\317\320#\206\336 \321\322\323C\3241\326 X\205\322 \n\203u \321X\203u \325\326\327U\203[ \330\202p \331U\203e \330\202p \332U\203o \333\202p \334P#\210 \335Y\205\322 \327\331U\203\262 \3361\255 r\337!\203\224 \340!\202\230 \305\341\"q\210\342P\262\343\344 C\"\211\262)0\202\261 \210\202\262 \210\337!\203\276 \345\346\"\262)\242 >\205\322 \325\347\350\351\"P$0\202\332 \210\202\333 \210\266\323\205\261\316\350\352\353\n\354\"\355\356\353 \357\"\360#\355\356\353\361\"\360#\362\f!%\320\363\f!$\206\261\332\364\365\3661\251 X\205\245\n\203H\321X\203H\325\326\327U\203.\330\202C\331U\2038\330\202C\332U\203B\333\202C\334P#\210 \335Y\205\245\327\331U\203\205\3671\200r\337!\203g\340!\202k\305\341\"q\210\342P\262\343\344 C\"\211\262)0\202\204\210\202\205\210\337!\203\221\345\346\"\262)\242 >\205\245\325\347\350\351\"P$0\202\255\210\202\256\210\266\365\203\315\343\370\206\275\330\371\372#A\"\241\210\373\315\"\262\203\350\343\370\206\331\330\371\372#A\"\241\210\373\310\"\262\262:\203@\203@A\235\211\262\203\365\240\210\202\360A\262\202\353\373\365\374\375\376\377\201@ \346!\201A \"\201B \201C %\"\"\266\205\262\201D \310>\203=\311!\202>\312#\210\211\262)\207" [tramp-remote-path tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-end-of-heredoc tramp-get-connection-buffer tramp-set-connection-local-variables tramp-get-connection-property tramp-own-remote-path tramp-get-connection-process "remote-path" undef copy-tree tramp-default-remote-path tramp-send-command-and-read "echo \\\"`getconf PATH 2>/dev/null`\\\"" noerror 3 "`getconf PATH' not successful, using default value \"%s\"." "/bin:/usr/bin" (error) apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " "%s %s %s 'echo %s \\\"$PATH\\\"'" tramp-get-method-parameter tramp-remote-shell mapconcat identity tramp-remote-shell-login " " tramp-remote-shell-args tramp-shell-quote-argument regexp-quote "Could not retrieve `tramp-own-remote-path'" nil (error) (error) split-string ":" omit delq mapcar make-byte-code 257 "\211;\205 \301\302\300\303#!\205 \211\207" vconcat [file-directory-p tramp-make-tramp-file-name nohop] 6 "\n\n(fn X)" tramp-set-connection-property] 17 (#$ . 281017)]) #@65 Determine remote locale, supporting UTF8 if possible. (fn VEC) (defalias 'tramp-get-remote-locale #[257 "\301\302\303#\211\303=\203Z \304\305\"\210\306\307r\310!q\210\203G eb\210\311\312\313@!\"\314 \307\315\316#)\266\203\203@ @\262\307\262\202 A\262\202 )\311\317\206O \320\"\266\202\262\321\302#\210\211\207" [inhibit-changing-match-data tramp-get-connection-property "locale" undef tramp-send-command "locale -a" ("en_US.utf8" "C.utf8" "en_US.UTF-8" "C.UTF-8") nil tramp-get-connection-buffer format "^%s ?$" regexp-quote buffer-string t string-match "LC_ALL=%s" "C" tramp-set-connection-property] 11 (#$ . 283705)]) #@42 Determine remote `ls' command. (fn VEC) (defalias 'tramp-get-ls-command #[257 "\306\307\310#\211\310=\203\364\311\312\313\3141\252 X\205\246 \203I \315X\203I \316\317\320U\203/ \321\202D \322U\2039 \321\202D \323U\203C \324\202D \325P#\210\326Y\205\246 \320\322U\203\206 \3271\201 r\330!\203h \331!\202l \332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\205 \210\202\206 \210\330!\203\222 \337\340\"\262)\242\n>\205\246 \316\341\342\343\"P$0\202\256 \210\202\257 \210\266\3442\345\211\205\211@\346!\313\203\371 \347\350\211%\211\262\203\371 \351\342\352\"\"\203\362 \351\342\353\"\"\203\355 \211\354P\262\355\344\"\210A\262\202\300 \266A\266\202\202\266 \2620\206\352\356\357\313\211\211\360Y\203\211\203\327\211\360\334\361\362! \363\216\f \364 \210)r\fq\210\336 +C\3651\315X\205\311 \203l\315X\203l\316\317\320U\203R\321\202g\322U\203\\\321\202g\323U\203f\324\202g\325P#\210\326Y\205\311\320\322U\203\251\3661\244r\330!\203\213\331!\202\217\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\250\210\202\251\210\330!\203\265\337\340\"\262)\242\n>\205\311\316\341\342\343\"P$0\202\321\210\202\322\210\266\202 r\367\370!q\210p\371 \210\313\211@A\350\211B\350 C D\372 \210\373\374!\210+\211 \364 \210\375!\210)\266\210\211\204C\262\376\262\203\324\322\376\377\211\201E N\316\201F #E!C\201G 1\315X\205\311 \203j\315X\203j\316\317\320U\203P\321\202e\322U\203Z\321\202e\323U\203d\324\202e\325P#\210\326Y\205\311\320\322U\203\251\201H 1\244r\330!\203\213\331!\202\217\332\333\"q\210\334P\262\335\336 C\"\211\262)0\202\250\210\202\251\210\330!\203\265\337\340\"\262)\242\n>\205\311\316\341\342\343\"P$0\202\321\210\202\322\210\266\201I \201J \316\201F #!C\"*\266\204\262\201K \307#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags signal-hook-function standard-output default-directory tramp-get-connection-property "ls" undef 5 "Finding a suitable `ls' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " ls-found ("ls" "gnuls" "gls") tramp-get-remote-path tramp-find-executable t tramp-send-command-and-check "%s -lnd /" "%s --color=never -al /dev/null" " --color=never" throw file-error "Couldn't find a proper `ls' command" 10 generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] backtrace (error) (error) get-buffer-create "*debug tramp*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only error-message format-message (error) (error) signal substring-no-properties tramp-set-connection-property] 18 (#$ . 284352)]) #@88 Return OPTION, if the remote `ls' command supports the OPTION option. (fn VEC OPTION) (defalias 'tramp-get-ls-command-with #[514 "\303\304P\305#\211\305=\203\334 \306\307C\3101\255 X\205\251 \203L \311X\203L \312\313\314U\2032 \315\202G \316U\203< \315\202G \317U\203F \320\202G \321P#\210\322Y\205\251 \314\316U\203\211 \3231\204 r\324!\203k \325!\202o \326\327\"q\210\330P\262\331\332 C\"\211\262)0\202\210 \210\202\211 \210\324!\203\225 \333\334\"\262)\242\n>\205\251 \312\335\336\337\"P$0\202\261 \210\202\262 \210\266\340\336\341\342!\"\"?\205\322 \340\336\343\342!#\"\205\322 \262\344\304P#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "ls" undef 5 "Checking, whether `ls %s' works" (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command-and-check "%s --help 2>&1 | grep -iq busybox" tramp-get-ls-command "%s %s -al /dev/null" tramp-set-connection-property] 13 (#$ . 287390)]) #@44 Determine remote `test' command. (fn VEC) (defalias 'tramp-get-test-command #[257 "\303\304\305#\211\305=\203\313 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\342\"\203\274 \304\202\303 \343\304\344!#\262\345\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "test" undef 5 "Finding a suitable `test' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command-and-check "test 0" tramp-find-executable tramp-get-remote-path tramp-set-connection-property] 12 (#$ . 288574)]) #@77 Check, whether the remote `test' command supports the -nt option. (fn VEC) (defalias 'tramp-get-test-nt-command #[257 "\302\303\304#\211\304=\203K \305\306\307\310!\"\"\210r\311!q\210eb\210\312!\313\314!)\262\2053 \306\315\310!\")\206C \305\306\316\310!\"\"\210\317\262\320\303#\210\211\207" [tramp-end-of-output inhibit-changing-match-data tramp-get-connection-property "test-nt" undef tramp-send-command format "( %s / -nt / )" tramp-get-test-command tramp-get-buffer regexp-quote t looking-at "%s %%s -nt %%s" "tramp_test_nt () {\n%s -n \"`find $1 -prune -newer $2 -print`\"\n}" "tramp_test_nt %s %s" tramp-set-connection-property] 8 (#$ . 289671)]) #@61 Determine remote command for file existing check. (fn VEC) (defalias 'tramp-get-file-exists-command #[257 "\303\304\305#\211\305=\203\274 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341!\262\342\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "file-exists" undef 5 "Finding command to check if file exists" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-file-exists-command tramp-set-connection-property] 12 (#$ . 290347)]) #@42 Determine remote `ln' command. (fn VEC) (defalias 'tramp-get-remote-ln #[257 "\303\304\305#\211\305=\203\300 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\304\342!#\262\343\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "ln" undef 5 "Finding a suitable `ln' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-set-connection-property] 12 (#$ . 291387)]) #@44 Determine remote `perl' command. (fn VEC) (defalias 'tramp-get-remote-perl #[257 "\303\304\305#\211\305=\203\306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\342\343!#\206\302 \341\304\343!#\211\203\323 \344\337\345\"\"\204\323 \310\262\211\203 \303\346\305#\211\305=\203\361 \344\337\347\"\"\262\350\346#\210\210\303\351\305#\211\305=\203\f\344\337\352\"\"\262\350\351#\210\210\211\262\262\350\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "perl" undef 5 "Finding a suitable `perl' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable "perl5" tramp-get-remote-path tramp-send-command-and-check "%s -e 'print \"Hello\n\";'" "perl-file-spec" "%s -e 'use File::Spec;'" tramp-set-connection-property "perl-cwd-realpath" "%s -e 'use Cwd \"realpath\";'"] 12 (#$ . 292404)]) #@44 Determine remote `stat' command. (fn VEC) (defalias 'tramp-get-remote-stat #[257 "\304\305\306#\211\306=\203\307\304\310\311#\312\313\314#)\266\203?\205\n\315\316\312\3171\277 X\205\273 \n\203^ \320X\203^ \321\322\323U\203D \311\202Y \324U\203N \311\202Y \325U\203X \326\202Y \327P#\210 \330Y\205\273 \323\324U\203\233 \3311\226 r\332!\203} \333!\202\201 \334\335\"q\210\336P\262\337\340 C\"\211\262)0\202\232 \210\202\233 \210\332!\203\247 \341\342\"\262)\242 >\205\273 \321\343\344\345\"P$0\202\303 \210\202\304 \210\266\346\305\347!#\312\203\350P\262\351\344\352\"\353#\262\211<\203\211@;\203\354@\312\313\314#)\266\203\203\211A@\250\204\312\262\266\202\262\355\305#\210\211\207" [inhibit-changing-match-data tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "stat" undef "\\(?:SunOS 5\\.1[01]\\)" "uname" "" nil t string-match 5 "Finding a suitable `stat' command" (error) 3 apply message 0 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path "env QUOTING_STYLE=locale " tramp-send-command-and-read "%s -c '(\"%%N\" %%s)' /" noerror "^\\(`/'\\|‘/’\\)$" tramp-set-connection-property] 12 (#$ . 293826)]) #@48 Determine remote `readlink' command. (fn VEC) (defalias 'tramp-get-remote-readlink #[257 "\303\304\305#\211\305=\203\321 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\304\342!#\211\205\307 \343\337\344\"\"\205\307 \211\262\262\345\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "readlink" undef 5 "Finding a suitable `readlink' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-send-command-and-check "%s --canonicalize-missing /" tramp-set-connection-property] 12 (#$ . 295237)]) #@118 Determine remote `trash' command. This command is returned only if `delete-by-moving-to-trash' is non-nil. (fn VEC) (defalias 'tramp-get-remote-trash #[257 "\205\307 \304\305\306#\211\306=\203\304 \307\310\311\3121\256 X\205\252 \n\203M \313X\203M \314\315\316U\2033 \317\202H \320U\203= \317\202H \321U\203G \322\202H \323P#\210 \324Y\205\252 \316\320U\203\212 \3251\205 r\326!\203l \327!\202p \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\211 \210\202\212 \210\326!\203\226 \335\336\"\262)\242 >\205\252 \314\337\340\341\"P$0\202\262 \210\202\263 \210\266\342\305\343!#\262\344\305#\210\211\262\207" [delete-by-moving-to-trash tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "trash" undef 5 "Finding a suitable `trash' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-set-connection-property] 12 (#$ . 296387)]) #@45 Determine remote `touch' command. (fn VEC) (defalias 'tramp-get-remote-touch #[257 "\304\305\306#\211\306=\203\351 \307\310\311\3121\252 X\205\246 \203I \313X\203I \314\315\316U\203/ \317\202D \320U\2039 \317\202D \321U\203C \322\202D \323P#\210\324Y\205\246 \316\320U\203\206 \3251\201 r\326!\203h \327!\202l \330\331\"q\210\332P\262\333\334 C\"\211\262)0\202\205 \210\202\206 \210\326!\203\222 \335\336\"\262)\242\n>\205\246 \314\337\340\341\"P$0\202\256 \210\202\257 \210\266\342\305\343!#\344\345 \346!\"!\203\336 \347\350\351\340\352\353\354!\355\n!$\"#\210\356!\210\266\202\262\347\305#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-temp-name-prefix tramp-get-connection-property "touch" undef 5 "Finding a suitable `touch' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path make-temp-name expand-file-name tramp-get-remote-tmpdir tramp-set-connection-property "touch-t" tramp-send-command-and-check "%s -t %s %s" format-time-string "%Y%m%d%H%M.%S" tramp-compat-file-local-name delete-file] 15 (#$ . 297530)]) #@42 Determine remote `df' command. (fn VEC) (defalias 'tramp-get-remote-df #[257 "\303\304\305#\211\305=\203\372 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\304\342!#\310\205\360 \343\337\344\337\345\"\211\262\"\"\203\330 \346\347\317#\210\211\202\360 \343\337\344\337\350\"\211\262\"\"\205\360 \346\347\351#\210\211\266\202\262\346\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "df" undef 5 "Finding a suitable `df' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-send-command-and-check "%s /" "%s --block-size=1 --output=size,used,avail" tramp-set-connection-property "df-blocksize" "%s -k" 1024] 12 (#$ . 298865)]) #@51 Determine remote `gio-monitor' command. (fn VEC) (defalias 'tramp-get-remote-gio-monitor #[257 "\303\304\305#\211\305=\203\302 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\342\343!\344\211%\262\345\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "gio-monitor" undef 5 "Finding a suitable `gio-monitor' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable "gio" tramp-get-remote-path t tramp-set-connection-property] 12 (#$ . 300160)]) #@56 Determine remote `gvfs-monitor-dir' command. (fn VEC) (defalias 'tramp-get-remote-gvfs-monitor-dir #[257 "\303\304\305#\211\305=\203\316 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\342\343!\344\211%\206\306 \341\304\343!\344\211%\262\345\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "gvfs-monitor-dir" undef 5 "Finding a suitable `gvfs-monitor-dir' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable "gvfs-monitor-dir.exe" tramp-get-remote-path t tramp-set-connection-property] 12 (#$ . 301229)]) #@51 Determine remote `inotifywait' command. (fn VEC) (defalias 'tramp-get-remote-inotifywait #[257 "\303\304\305#\211\305=\203\302 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\304\342!\343\211%\262\344\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "inotifywait" undef 5 "Finding a suitable `inotifywait' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path t tramp-set-connection-property] 12 (#$ . 302368)]) #@42 Determine remote `id' command. (fn VEC) (defalias 'tramp-get-remote-id #[257 "\303\304\305#\211\305=\203\375 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\3412\365 \342\211\205\362 \211@\343!\310\203\351 \344\345\211%\211\262\203\351 \346\337\347\"\"\203\342 \350\341\"\210A\262\202\300 \266A\266\202\202\266 \2620\262\351\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "id" undef 5 "Finding POSIX `id' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " id-found ("id" "gid") tramp-get-remote-path tramp-find-executable t tramp-send-command-and-check "%s -u" throw tramp-set-connection-property] 12 (#$ . 303431)]) #@82 Implement `tramp-get-remote-uid' for Tramp files using `id'. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-uid-with-id #[514 "\300\301\302\303!\304=\203 \305\202 \306\304=\203 \305\202 \307$\"\207" [tramp-send-command-and-read format "%s -u%s %s" tramp-get-remote-id integer "" "n" "| sed -e s/^/\\\"/ -e s/\\$/\\\"/"] 10 (#$ . 304670)]) #@91 Implement `tramp-get-remote-uid' for Tramp files using a Perl script. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-uid-with-perl #[514 "\300\301\302\303!\304=\203 \305\202 \306#\"\207" [tramp-send-command-and-read format "%s -le '%s'" tramp-get-remote-perl integer "print $>" "print \"\\\"\", scalar getpwuid($>), \"\\\"\""] 9 (#$ . 305026)]) #@46 Determine remote `python' command. (fn VEC) (defalias 'tramp-get-remote-python #[257 "\303\304\305#\211\305=\203\324 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\304\342!#\206\314 \341\343\342!#\206\314 \341\344\342!#\262\345\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "python" undef 5 "Finding a suitable `python' command" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path "python2" "python3" tramp-set-connection-property] 12 (#$ . 305384)]) #@86 Implement `tramp-get-remote-uid' for Tramp files using `python'. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-uid-with-python #[514 "\300\301\302\303!\304=\203 \305\202 \306#\"\207" [tramp-send-command-and-read format "%s -c \"%s\"" tramp-get-remote-python integer "import os; print (os.getuid())" "import os, pwd; print ('\\\"' + pwd.getpwuid(os.getuid())[0] + '\\\"')"] 9 (#$ . 306487)]) #@124 The uid of the remote connection VEC, in ID-FORMAT. ID-FORMAT valid values are `string' and `integer'. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-uid #[514 "\302\303\304\"\305#\211\305=\203h \3061: \307!\203 \310\"\2026 \311!\203, \312\"\2026 \313!\2056 \314\"0\202< \210\315\316=\203K \211\250\204K \202[ \317=\203Z \211;\204Z \202[ \211\262\262\320\303\304\"#\210\211\207" [tramp-unknown-id-integer tramp-unknown-id-string tramp-get-connection-property format "uid-%s" undef (error) tramp-get-remote-id tramp-get-remote-uid-with-id tramp-get-remote-perl tramp-get-remote-uid-with-perl tramp-get-remote-python tramp-get-remote-uid-with-python nil integer string tramp-set-connection-property] 8 (#$ . 306893)]) #@82 Implement `tramp-get-remote-gid' for Tramp files using `id'. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-gid-with-id #[514 "\300\301\302\303!\304=\203 \305\202 \306\304=\203 \305\202 \307$\"\207" [tramp-send-command-and-read format "%s -g%s %s" tramp-get-remote-id integer "" "n" "| sed -e s/^/\\\"/ -e s/\\$/\\\"/"] 10 (#$ . 307637)]) #@91 Implement `tramp-get-remote-gid' for Tramp files using a Perl script. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-gid-with-perl #[514 "\300\301\302\303!\304=\203 \305\202 \306#\"\207" [tramp-send-command-and-read format "%s -le '%s'" tramp-get-remote-perl integer "print ($)=~/(\\d+)/)" "print \"\\\"\", scalar getgrgid($)), \"\\\"\""] 9 (#$ . 307993)]) #@86 Implement `tramp-get-remote-gid' for Tramp files using `python'. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-gid-with-python #[514 "\300\301\302\303!\304=\203 \305\202 \306#\"\207" [tramp-send-command-and-read format "%s -c \"%s\"" tramp-get-remote-python integer "import os; print (os.getgid())" "import os, grp; print ('\\\"' + grp.getgrgid(os.getgid())[0] + '\\\"')"] 9 (#$ . 308363)]) #@124 The gid of the remote connection VEC, in ID-FORMAT. ID-FORMAT valid values are `string' and `integer'. (fn VEC ID-FORMAT) (defalias 'tramp-get-remote-gid #[514 "\302\303\304\"\305#\211\305=\203h \3061: \307!\203 \310\"\2026 \311!\203, \312\"\2026 \313!\2056 \314\"0\202< \210\315\316=\203K \211\250\204K \202[ \317=\203Z \211;\204Z \202[ \211\262\262\320\303\304\"#\210\211\207" [tramp-unknown-id-integer tramp-unknown-id-string tramp-get-connection-property format "gid-%s" undef (error) tramp-get-remote-id tramp-get-remote-gid-with-id tramp-get-remote-perl tramp-get-remote-gid-with-perl tramp-get-remote-python tramp-get-remote-gid-with-python nil integer string tramp-set-connection-property] 8 (#$ . 308769)]) #@75 Check, whether the remote `env' command supports the -u option. (fn VEC) (defalias 'tramp-get-env-with-u-option #[257 "\303\304\305#\211\305=\203\276 \306\307\310\3111\252 X\205\246 \203I \312X\203I \313\314\315U\203/ \316\202D \317U\2039 \316\202D \320U\203C \321\202D \322P#\210\323Y\205\246 \315\317U\203\206 \3241\201 r\325!\203h \326!\202l \327\330\"q\210\331P\262\332\333 C\"\211\262)0\202\205 \210\202\206 \210\325!\203\222 \334\335\"\262)\242\n>\205\246 \313\336\337\340\"P$0\202\256 \210\202\257 \210\266\341\342\343#\262\344\304#\210\211\207" [tramp-verbose tramp-message-show-message cl-struct-tramp-file-name-tags tramp-get-connection-property "env-u-option" undef 5 "Checking, whether `env -u' works" nil (error) 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 (error) processp process-buffer tramp-get-connection-buffer dont-create "\n%s" append buffer-string process-get vector tramp-debug-message format "(%d) # " tramp-send-command-and-check "env FOO=foo env -u FOO 2>/dev/null | grep -qv FOO" t tramp-set-connection-property] 12 (#$ . 309513)]) #@228 Return the compress command related to PROP. PROP is either `inline-compress' or `inline-decompress'. SIZE is the length of the file to be compressed. If no corresponding command is found, nil is returned. (fn VEC PROP SIZE) (defalias 'tramp-get-inline-compress #[771 "\250\2050 \211V\2050 \301\302!\303#\211\303=\203- \304!\210\301\302!\305#\262\306\302!#\210\211\262\207" [tramp-inline-compress-start-size tramp-get-connection-property tramp-get-connection-process undef tramp-find-inline-compress nil tramp-set-connection-property] 8 (#$ . 310620)]) #@487 Return the coding command related to PROP. PROP is either `remote-encoding', `remote-decoding', `local-encoding' or `local-decoding'. SIZE is the length of the file to be coded. Depending on SIZE, compression might be applied. If no corresponding command is found, nil is returned. Otherwise, either a string is returned which contains a `%s' mark to be used for the respective input or output file; or a Lisp function cell is returned to be applied on a buffer. (fn VEC PROP SIZE) (defalias 'tramp-get-inline-coding #[771 "\3021\231\303\304!\305#\211\305=\203& \306!\210\303\304!\307#\262\310\304!#\210\211\262\311\307\312\313#)\266\203\203= \314\202> \315\307\203w 9\203w \316\307\312\313#)\266\203\203w \317!\313\320\"\203m \321\322\307\312$\262\202[ \323J#\210\262\205\225\324#\262\211\203\347 9\203\347 \325\307\312\313#)\266\203\203\302 \326\327\330B\331\332\333\334\335 D\336\337\340\341\fDD\312\211\307\342\341DD\257\nEF\202\225\326\343\331\344\333\345\335\fD\346\347\340\341 DD\312\211\307\342\341DD\257\nE\350BF\202\2259\203\360 \202\225\211\203<\351\307\312\313#)\266\203\203<\352\353\307\312\313#)\266\203\203 \354=\203 \355\2026\353\307\312\313#)\266\203\2035\356\2026\357#\202\225\211\203c\352\353\307\312\313#)\266\203\203\\ \354=\203\\\360\202]\361#\202\225\351\307\312\313#)\266\203\203\221\353\307\312\313#)\266\203\203\212\352\362\"\202\225\352\363\"\202\225\352\364\"\266\2030\207\210\307\207" [inhibit-changing-match-data system-type (error) tramp-get-connection-property tramp-get-connection-process undef tramp-find-inline-encoding nil tramp-set-connection-property "encoding" t string-match "inline-compress" "inline-decompress" "remote" symbol-name "-" replace-match "_" tramp-maybe-send-script tramp-get-inline-compress "decompress" lambda (beg end) (beg end) let ((coding-system-for-write 'binary) (coding-system-for-read 'binary)) apply #'tramp-call-process-region quote (point-min) (point-max) car split-string cdr (beg end) ((coding-system-for-write 'binary) (coding-system-for-read 'binary)) #'tramp-call-process-region beg end ((point-min) (point-max)) "decoding" format "local" windows-nt "(%s | \"%s\")" "(%s | %s)" "(%s | %s >%%s)" "(%s <%%s | \"%s\")" "(%s <%%s | %s)" "%s" "%s >%%s" "%s <%%s"] 23 (#$ . 311194)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[0 "\300\301\302\"\207" [unload-feature tramp-sh force] 3] provide tramp-sh] 3)
Close
