ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/tramp-sh.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\301\307\310&\210\302\311\312\313\306\301\307\314&\210\302\315\316\317\306\301\307\320&\210\302\321\322\323\306\301\324\325\307\326& \207" [require tramp custom-declare-variable tramp-inline-compress-start-size 4096 "The minimum size of compressing where inline transfer.\nWhen inline transfer, compress transferred data of file\nwhose size is this value or above (up to `tramp-copy-size-limit').\nIf it is nil, no compression at all will be applied." :group :type (choice (const nil) integer) tramp-copy-size-limit 10240 "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 "dumb" "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 "~/.tramp_history" "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)
#@48 Escape sequences produced by the "ls" command.
(defconst tramp-color-escape-sequence-regexp "[[;0-9]+m" (#$ . 2172))
#@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) (#$ . 2297))
#@40 Prompt when establishing a connection.
(defconst tramp-initial-end-of-output "#$ " (#$ . 2636))
#@50 String used to recognize end of heredoc strings.
(defconst tramp-end-of-heredoc (md5 tramp-end-of-output) (#$ . 2738))
#@51 Whether to use `tramp-ssh-controlmaster-options'.
(custom-declare-variable 'tramp-use-ssh-controlmaster-options t '(#$ . 2863) :group 'tramp :version "24.4" :type 'boolean)
#@464 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 (#$ . 3043))
(byte-code "\303\304\305\"\210\303\304\306\"\210\303\304\307\"\210\303\304\310\"\210\303\304\311\"\210\303\304\312\"\210\303\304\313\"\210\303\304\314\"\210\303\304\315\"\210\303\304\316\"\210\303\304\317\"\210\303\304\320\"\210\303\304\321\"\210\303\304\322\"\210\303\304\323\"\210\303\304\324\325\326\327\330\331\332\333\334\335\336 #C\337BBBBBBBD\340BBB\"\210\303\304\341\342\326\343\344\345\346\335\336 #C\347BBBBBD\350BBB\"\210\303\304\351\352\326\353\354\355\356\357\360\335\336 #C\361BBBBBBBD\362BBB\"\210\303\304\363\364\326\365\366\367\370\371\372\335\336 #C\373BBBBBBBD\374BBB\"\210\303\304\375\"\210\303\376\n\377B\"\210\303\201@ \201A \201B B\"\210\303\201@ \201C \201D \201E E\"\207" [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 "/bin/sh") (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 "/bin/sh") (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 "/bin/sh") (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) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)) ("scpx" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("-t" "-t") ("%h") ("/bin/sh"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (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) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)) ("rsync" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("%h"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-copy-program "rsync") (tramp-copy-args (("-t" "%k") ("-r"))) (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 "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) ("remsh" (tramp-login-program "remsh") (tramp-login-args (("%h") ("-l" "%u"))) (tramp-remote-shell "/bin/sh") (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 "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)) ("sshx" (tramp-login-program "ssh") (tramp-login-args (("-l" "%u") ("-p" "%p") ("%c") ("-e" "none") ("-t" "-t") ("%h") ("/bin/sh"))) (tramp-async-args (("-q"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-gw-args (("-o" "GlobalKnownHostsFile=/dev/null") ("-o" "UserKnownHostsFile=/dev/null") ("-o" "StrictHostKeyChecking=no"))) (tramp-default-port 22)) ("telnet" (tramp-login-program "telnet") (tramp-login-args (("%h") ("%p") ("2>/dev/null"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-default-port 23)) ("nc" (tramp-login-program "telnet") (tramp-login-args (("%h") ("%p") ("2>/dev/null"))) (tramp-remote-shell "/bin/sh") (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"))) (tramp-default-port 23)) ("su" (tramp-login-program "su") (tramp-login-args (("-") ("%u"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (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\"\":"))) (tramp-login-env (("SHELL") ("/bin/sh"))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-connection-timeout 10)) ("ksu" (tramp-login-program "ksu") (tramp-login-args (("%u") ("-q"))) (tramp-remote-shell "/bin/sh") (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 "/bin/sh") (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'" (("/bin/sh") ("\"")) ((tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-default-port 22)) "plinkx" (tramp-login-program "plink") ("-load") ("%h") ("-t") ("\"") (("/bin/sh") ("\"")) ((tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))) "pscp" (tramp-login-program "plink") ("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") (("/bin/sh") ("\"")) ((tramp-remote-shell "/bin/sh") (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) (tramp-default-port 22)) "psftp" (tramp-login-program "plink") ("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") (("/bin/sh") ("\"")) ((tramp-remote-shell "/bin/sh") (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") ("-r"))) (tramp-copy-keep-date t) (tramp-copy-recursive t)) ("fcp" (tramp-login-program "fsh") (tramp-login-args (("%h") ("-l" "%u") ("sh" "-i"))) (tramp-remote-shell "/bin/sh") (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 "\\`\\(?: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")) (#$ . 10834))
#@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")) (#$ . 11046))
#@74 Default list of (FUNCTION FILE) pairs to be examined for telnet methods.
(defconst tramp-completion-function-alist-telnet '((tramp-parse-hosts "/etc/hosts")) (#$ . 11680))
#@70 Default list of (FUNCTION FILE) pairs to be examined for su methods.
(defconst tramp-completion-function-alist-su '((tramp-parse-passwd "/etc/passwd")) (#$ . 11858))
#@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) (#$ . 12030))
(byte-code "\300\301\302\"\210\303\304\305\306\307\301\310\311&\210\303\312\313\314\307\301\315\316\310\317& \210\303\320\321\322\307\301\310\323\324N\203. \325\202/ \326&\207" [eval-after-load tramp #[nil "\305\306\"\210\305\307\"\210\305\310 \"\210\305\311 \"\210\305\312 \"\210\305\313\"\210\305\314\"\210\305\315 \"\210\305\316 \"\210\305\317\n\"\210\305\320\n\"\210\305\321 \"\210\305\322 \"\210\305\323 \"\210\305\324\"\210\305\325 \"\210\305\326\f\"\210\305\327 \"\210\305\330 \"\210\305\331 \"\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-putty tramp-set-completion-function "rcp" "remcp" "scp" "scpx" "rsync" "rsh" "remsh" "ssh" "sshx" "telnet" "nc" "su" "sudo" "ksu" "krlogin" "plink" "plinkx" "pscp" "psftp" "fcp"] 3] custom-declare-variable tramp-remote-path '(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") "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 :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 `("TMOUT=0" "LC_CTYPE=''" ,(format "TERM=%s" tramp-terminal-type) ,(format "INSIDE_EMACS='%s,tramp:%s'" emacs-version tramp-version) "CDPATH=" "HISTORY=" "MAIL=" "MAILCHECK=" "MAILPATH=" "PAGER=cat" "autocorrect=" "correct=") "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 the PATH environment, which should\nnot be set here. Instead, it should be set via `tramp-remote-path'." :version "24.4" (repeat string) tramp-sh-extra-args '(("/bash\\'" . "-norc -noprofile")) "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." alist widget-type (alist :key-type string :value-type string) (repeat (cons string 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-process-alive-regexp tramp-action-process-alive)) (#$ . 15887))
#@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)) (#$ . 16870))
#@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" (#$ . 17303))
#@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;\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" (#$ . 17630))
#@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 'sub case {\n my $str = shift;\n if ($ARGV[2]) {\n return lc($str);\n }\n else {\n return $str;\n }\n}\nopendir(d, $ARGV[0]) || die(\"$ARGV[0]: $!\\nfail\\n\");\n@files = readdir(d); closedir(d);\nforeach $f (@files) {\n if (case(substr($f, 0, length($ARGV[1]))) eq case($ARGV[1])) {\n if (-d \"$ARGV[0]/$f\") {\n print \"$f/\\n\";\n }\n else {\n print \"$f\\n\";\n }\n }\n}\nprint \"ok\\n\"\n' \"$1\" \"$2\" \"$3\" 2>/dev/null" (#$ . 18861))
#@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.0 %%u t (%%u . %%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] >> 16 & 0xffff,\n $stat[1] & 0xffff\n);' \"$1\" \"$2\" 2>/dev/null" (#$ . 19618))
#@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.0 %%u t (%%u . %%u) (%%u . %%u))\\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] >> 16 & 0xffff,\n $stat[1] & 0xffff,\n $stat[0] >> 16 & 0xffff,\n $stat[0] & 0xffff);\n}\nprintf(\")\\n\");' \"$1\" \"$2\" 2>/dev/null" (#$ . 20837))
#@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" (#$ . 22609))
#@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" (#$ . 23007))
#@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-2017 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 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" (#$ . 23405))
#@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-2017 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" (#$ . 24693))
#@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{}, <>)'" (#$ . 26145))
#@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{}, <>)'" (#$ . 26362))
#@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}'" (#$ . 26584))
#@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}'" (#$ . 27415))
#@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" (#$ . 28072))
#@46 Marker in stat commands for file attributes.
(defconst tramp-stat-marker "/////" (#$ . 28275))
#@53 Quoted marker in stat commands for file attributes.
(defconst tramp-stat-quoted-marker "\\/\\/\\/\\/\\/" (#$ . 28376))
#@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 if %s \"$file\"; then\n echo \"(\\\"$file\\\" \\\"file-exists-p\\\" t)\"\n else\n echo \"(\\\"$file\\\" \\\"file-exists-p\\\" nil)\"\n fi\n if %s \"$file\"; then\n echo \"(\\\"$file\\\" \\\"file-readable-p\\\" t)\"\n else\n echo \"(\\\"$file\\\" \\\"file-readable-p\\\" nil)\"\n fi\ndone\necho \")\"" (#$ . 28502))
#@106 Alist of handler functions.
Operations not mentioned here will be handled by the normal Emacs functions.
(defconst tramp-sh-file-name-handler-alist '((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-recursive-delete-directory . tramp-sh-handle-dired-recursive-delete-directory) (dired-uncache . tramp-handle-dired-uncache) (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-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-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) (insert-file-contents-literally . tramp-sh-handle-insert-file-contents-literally) (load . tramp-handle-load) (make-auto-save-file-name . tramp-handle-make-auto-save-file-name) (make-directory . tramp-sh-handle-make-directory) (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-sh-handle-start-file-process) (substitute-in-file-name . tramp-handle-substitute-in-file-name) (unhandled-file-name-directory . tramp-handle-unhandled-file-name-directory) (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)) (#$ . 29173))
(add-to-list 'tramp-foreign-file-name-handler-alist '(identity . tramp-sh-file-name-handler) 'append)
#@472 Like `make-symbolic-link' for Tramp files.
If LINKNAME is a non-Tramp file, it is used verbatim as the target of
the symlink. If LINKNAME is a Tramp file, only the localname component is
used as the target of the symlink.
If LINKNAME is a Tramp file and the localname component is relative, then
it is expanded first, before the localname component is taken. Note that
this can give surprising results if the user/host for the source and
target of the symlink differ.
(defalias 'tramp-sh-handle-make-symbolic-link #[(filename linkname &optional ok-if-already-exists) "\306!\307 !\310 !\311 ! \312 ! \313 ! @\314 !\315\316
C\" A\211 B\204! \317\320\321 C D = E\321 FE\211 E\203E\322\323\324\325\326!! G\327\216G G\330 \210)rGq\210\331 +C C D H E\3321HIX\205\333 J\334\216F\203\257 H\335X\203\257 \336\337H\340U\203\221 \341\202\250 H\342U\203\234 \341\202\250 H\343U\203\247 \344\202\250 \345DPC#\210I\346Y\205 \347E!\203\311 \340 I\350E\351\321#E)H\342U\203\352 \340 Ir\352E!q\210D\323PD\353C\331 C\"C*\354E!\205 \336\355E\356\357H\"DPC$*0\202 \210\202\n\210,\202LI\322Y\203LK Lr\324\360!q\210p\361 \210LK\321\211MN\362\211O\362 P Q\363 \210\364\365!\210+\211 R G\330 \210\366R!\210+)E\203E\342\367\370=\211\371N\336\372DC#E!C C D H E\3731
HIX\205 \333 J\374\216F\203\267H\335X\203\267\336\337H\340U\203\231\341\202\260H\342U\203\244\341\202\260H\343U\203\257\344\202\260\345DPC#\210I\346Y\205\347E!\203\321\340 I\350E\351\321#E)H\342U\203\362\340 Ir\352E!q\210D\323PD\353C\331 C\"C*\354E!\205\336\355E\356\357H\"DPC$*0\202\210\202\210,\375=\336\372DC#C\"\210-\376!\203MS\203=S\247\203G\377\356\201U
\"!\204G \201V \201W
C C D = E\321 FE\211 E\203-E\322\323\324\325\326!! G\201X \216G G\330 \210)rGq\210\331 +C C D H E\201Y 1$HIX\205 \333 J\201Z \216F\203\316H\335X\203\316\336\337H\340U\203\260\341\202\307H\342U\203\273\341\202\307H\343U\203\306\344\202\307\345DPC#\210I\346Y\205 \347E!\203\350\340 I\350E\351\321#E)H\342U\203 \340 Ir\352E!q\210D\323PD\353C\331 C\"C*\354E!\205 \336\355E\356\357H\"DPC$*0\202(\210\202)\210,\202kI\322Y\203kK Lr\324\360!q\210p\361 \210LK\321\211MN\362\211O\362 P Q\363 \210\364\365!\210+\211 R G\330 \210\366R!\210+)E\2036E\342\367\370=\211\371N\336\372DC#E!C C D H E\201[ 10HIX\205,\333 J\201\\ \216F\203\332H\335X\203\332\336\337H\340U\203\274\341\202\323H\342U\203\307\341\202\323H\343U\203\322\344\202\323\345DPC#\210I\346Y\205+\347E!\203\364\340 I\350E\351\321#E)H\342U\203\340 Ir\352E!q\210D\323PD\353C\331 C\"C*\354E!\205+\336\355E\356\357H\"DPC$*0\2024\210\2025\210,\375=\336\372DC#C\"\210-\202M\201] !\210\201^ T!\203b\312\306\201_ T!!!T\201` \316
!\"\210\201`
\"\210\201a \356\201b \201c A!\"\"\205\244\201a \356\201d B\201c T!\201c \201e \201f
!P!$\".\207" [linkname l l-method l-user l-host l-localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-get-remote-ln tramp-run-real-handler file-name-directory file-error "Making a symbolic link. ln(1) does not exist on the remote host." nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal file-exists-p yes-or-no-p l-hop cwd ln arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf ok-if-already-exists filename "File %s already exists; make it a link anyway? " file-already-exists "File %s already exists" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] delete-file tramp-tramp-file-p expand-file-name tramp-flush-file-property tramp-send-command-and-check "cd %s" tramp-shell-quote-argument "%s -sf %s %s" "./" file-name-nondirectory] 11 (#$ . 32870)])
#@39 Like `file-truename' for Tramp files.
(defalias 'tramp-sh-handle-file-truename #[(filename) "\306\307\310\311!!\312 !\313 !\314 ! \315 ! \316 ! @\317\n \f\320
!\203?\n\321
\322\323$\211 A\323=\2039\n\324 B \325\326C C D E F\3271\344 EGX\205\340 \330 H\331\216I\203\216 E\332X\203\216 \333\334E\335U\203p \336\202\207 E\337U\203{ \336\202\207 E\340U\203\206 \341\202\207 \342DPC#\210G\325Y\205\337 \343F!\203\250 \335 G\344F\345\324#F)E\337U\203\311 \335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\337 \333\353F\306\354E\"DPC$*0\202\350 \210\202\351 \210,\355 !\203\356 \306\357\355 !\360
!#\"\210r\346 !q\210eb\210e\361 {B)\202p \362 !\203;\344 \363\324#\203;\344 \364\324#\203;\365 J\366#\210\367 \306\370\360
!\"\"B\202p \371\372
\373\"\324\335\374\324 K L M N O PO\203
MLW\203
O\211AO\242N \375\376\377\201[ \350\201\\ \201] B!NC#\373#C C D E F\201^ 1)EGX\205%\330 H\201_ \216I\203\323E\332X\203\323\333\334E\335U\203\265\336\202\314E\337U\203\300\336\202\314E\340U\203\313\341\202\314\342DPC#\210G\325Y\205$\343F!\203\355\335 G\344F\345\324#F)E\337U\203\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205$\333\353F\306\354E\"DPC$*0\202-\210\202.\210,\201` \317\n \f\377\201[ \350\201a \201] B!NC#\373#$!@KN\201b \230\203 \375\201c \324 C D E F\201d 1 EGX\205\330 H\201e \216I\203\263E\332X\203\263\333\334E\335U\203\225\336\202\254E\337U\203\240\336\202\254E\340U\203\253\341\202\254\342DPC#\210G\325Y\205\343F!\203\315\335 G\344F\345\324#F)E\337U\203\356\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\333\353F\306\354E\"DPC$*0\202
\210\202\210,\202PN\201f \230\203\334 \375\201g \324 C D E F\201h 1\314EGX\205\310\330 H\201i \216I\203vE\332X\203v\333\334E\335U\203X\336\202oE\337U\203c\336\202oE\340U\203n\341\202o\342DPC#\210G\325Y\205\307\343F!\203\220\335 G\344F\345\324#F)E\337U\203\261\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\307\333\353F\306\354E\"DPC$*0\202\320\210\202\321\210,B\211AB\210\202PK;\203 \375\201j KC C D E F\201k 1\225EGX\205\221\330 H\201l \216I\203?E\332X\203?\333\334E\335U\203!\336\2028E\337U\203,\336\2028E\340U\2037\341\2028\342DPC#\210G\325Y\205\220\343F!\203Y\335 G\344F\345\324#F)E\337U\203z\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\220\333\353F\306\354E\"DPC$*0\202\231\210\202\232\210,MTM\320K!\203\252\324B\201m K!\203\364\201n K\"\204\361 \201o \201p KC C D Q F\324 IF\211 F\203\270F\201q \347\201r \201s \201t !! R\201u \216R R\201v \210)rRq\210\351 +C C D E F\201w 1\257EGX\205\253\330 H\201x \216I\203YE\332X\203Y\333\334E\335U\203;\336\202RE\337U\203F\336\202RE\340U\203Q\341\202R\342DPC#\210G\325Y\205\252\343F!\203s\335 G\344F\345\324#F)E\337U\203\224\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\252\333\353F\306\354E\"DPC$*0\202\263\210\202\264\210,\202\fG\201q Y\203\fS Tr\201r \201y !q\210p\201z \210TS\324\211UV\201{ \211W\201{ X Y\201| \210\201} \201~ !\210+\211 Z R\201v \210\201 Z!\210+)F\203\337F\337\201\200 \201\201 Q\211\201\202 N\333\201\203 DC#E!C C D E F\201\204 1\331EGX\205\325\330 H\201\205 \216I\203\203E\332X\203\203\333\334E\335U\203e\336\202|E\337U\203p\336\202|E\340U\203{\341\202|\342DPC#\210G\325Y\205\324\343F!\203\235\335 G\344F\345\324#F)E\337U\203\276\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\324\333\353F\306\354E\"DPC$*0\202\335\210\202\336\210,\201Q Q\333\201\203 DC#C\"\210-
K\350\372K\373\"O\"\211O\202RNBBB\202PMLY\203I \201o \201\206 LC C D Q F\324 IF\211 F\203F\201q \347\201r \201s \201t !! R\201\207 \216R R\201v \210)rRq\210\351 +C C D E F\201\210 1EGX\205\330 H\201\211 \216I\203\261E\332X\203\261\333\334E\335U\203\223\336\202\252E\337U\203\236\336\202\252E\340U\203\251\341\202\252\342DPC#\210G\325Y\205\343F!\203\313\335 G\344F\345\324#F)E\337U\203\354\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\333\353F\306\354E\"DPC$*0\202 \210\202\f\210,\202dG\201q Y\203dS Tr\201r \201y !q\210p\201z \210TS\324\211UV\201{ \211W\201{ X Y\201| \210\201} \201~ !\210+\211 Z R\201v \210\201 Z!\210+)F\2037 F\337\201\200 \201\201 Q\211\201\202 N\333\201\203 DC#E!C C D E F\201\212 11 EGX\205- \330 H\201\213 \216I\203\333E\332X\203\333\333\334E\335U\203\275\336\202\324E\337U\203\310\336\202\324E\340U\203\323\341\202\324\342DPC#\210G\325Y\205, \343F!\203\365\335 G\344F\345\324#F)E\337U\203 \335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205, \333\353F\306\354E\"DPC$*0\2025 \210\2026 \210,\201Q Q\333\201\203 DC#C\"\210-\201] B!\211B\203b \377\201[ \336BB\373#\202c \373\211B\336\230\203n \373B. \325\201\214
BD C D E F\201\215 1$\nEGX\205 \n\330 H\201\216 \216I\203\316 E\332X\203\316 \333\334E\335U\203\260 \336\202\307 E\337U\203\273 \336\202\307 E\340U\203\306 \341\202\307 \342DPC#\210G\325Y\205 \n\343F!\203\350 \335 G\344F\345\324#F)E\337U\203 \n\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205 \n\333\353F\306\354E\"DPC$*0\202(\n\210\202)\n\210,B)A\201\217
\322A$\210A)\202;\324 B \325\326C C D E F\201\220 1\362\nEGX\205\356\n\330 H\201\221 \216I\203\234\nE\332X\203\234\n\333\334E\335U\203~\n\336\202\225\nE\337U\203\211\n\336\202\225\nE\340U\203\224\n\341\202\225\n\342DPC#\210G\325Y\205\355\n\343F!\203\266\n\335 G\344F\345\324#F)E\337U\203\327\n\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\355\n\333\353F\306\354E\"DPC$*0\202\366\n\210\202\367\n\210,\355 !\203 \356 \306\357\355 !\360
!#\"\210r\346 !q\210eb\210e\361 {B)\202~\362 !\203I \344 \363\324#\203I \344 \364\324#\203I \365 J\366#\210\367 \306\370\360
!\"\"B\202~\371\372
\373\"\324\335\374\324 K L M N O PO\203MLW\203O\211AO\242N \375\376\377\201[ \350\201\\ \201] B!NC#\373#C C D E F\201\222 17\fEGX\2053\f\330 H\201\223 \216I\203\341 E\332X\203\341 \333\334E\335U\203\303 \336\202\332 E\337U\203\316 \336\202\332 E\340U\203\331 \341\202\332 \342DPC#\210G\325Y\2052\f\343F!\203\373 \335 G\344F\345\324#F)E\337U\203 \f\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\2052\f\333\353F\306\354E\"DPC$*0\202;\f\210\202<\f\210,\201` \317\n \f\377\201[ \350\201a \201] B!NC#\373#$!@KN\201b \230\203
\375\201c \324 C D E F\201\224 1
EGX\205
\330 H\201\225 \216I\203\301\fE\332X\203\301\f\333\334E\335U\203\243\f\336\202\272\fE\337U\203\256\f\336\202\272\fE\340U\203\271\f\341\202\272\f\342DPC#\210G\325Y\205
\343F!\203\333\f\335 G\344F\345\324#F)E\337U\203\374\f\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205
\333\353F\306\354E\"DPC$*0\202
\210\202
\210,\202^ N\201f \230\203\352
\375\201g \324 C D E F\201\226 1\332
EGX\205\326
\330 H\201\227 \216I\203\204
E\332X\203\204
\333\334E\335U\203f
\336\202}
E\337U\203q
\336\202}
E\340U\203|
\341\202}
\342DPC#\210G\325Y\205\325
\343F!\203\236
\335 G\344F\345\324#F)E\337U\203\277
\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\325
\333\353F\306\354E\"DPC$*0\202\336
\210\202\337
\210,B\211AB\210\202^ K;\203 \375\201j KC C D E F\201\230 1\243EGX\205\237\330 H\201\231 \216I\203ME\332X\203M\333\334E\335U\203/\336\202FE\337U\203:\336\202FE\340U\203E\341\202F\342DPC#\210G\325Y\205\236\343F!\203g\335 G\344F\345\324#F)E\337U\203\210\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\236\333\353F\306\354E\"DPC$*0\202\247\210\202\250\210,MTM\320K!\203\270\324B\201m K!\203\201n K\"\204\377 \201o \201p KC C D Q F\324 IF\211 F\203\306F\201q \347\201r \201s \201t !! R\201\232 \216R R\201v \210)rRq\210\351 +C C D E F\201\233 1\275EGX\205\271\330 H\201\234 \216I\203gE\332X\203g\333\334E\335U\203I\336\202`E\337U\203T\336\202`E\340U\203_\341\202`\342DPC#\210G\325Y\205\270\343F!\203\201\335 G\344F\345\324#F)E\337U\203\242\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\270\333\353F\306\354E\"DPC$*0\202\301\210\202\302\210,\202G\201q Y\203S Tr\201r \201y !q\210p\201z \210TS\324\211UV\201{ \211W\201{ X Y\201| \210\201} \201~ !\210+\211 Z R\201v \210\201 Z!\210+)F\203\355F\337\201\200 \201\201 Q\211\201\202 N\333\201\203 DC#E!C C D E F\201\235 1\347EGX\205\343\330 H\201\236 \216I\203\221E\332X\203\221\333\334E\335U\203s\336\202\212E\337U\203~\336\202\212E\340U\203\211\341\202\212\342DPC#\210G\325Y\205\342\343F!\203\253\335 G\344F\345\324#F)E\337U\203\314\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\342\333\353F\306\354E\"DPC$*0\202\353\210\202\354\210,\201Q Q\333\201\203 DC#C\"\210-
K\350\372K\373\"O\"\211O\202` NBBB\202^ MLY\203W \201o \201\206 LC C D Q F\324 IF\211 F\203 F\201q \347\201r \201s \201t !! R\201\237 \216R R\201v \210)rRq\210\351 +C C D E F\201\240 1EGX\205\330 H\201\241 \216I\203\277E\332X\203\277\333\334E\335U\203\241\336\202\270E\337U\203\254\336\202\270E\340U\203\267\341\202\270\342DPC#\210G\325Y\205\343F!\203\331\335 G\344F\345\324#F)E\337U\203\372\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205\333\353F\306\354E\"DPC$*0\202\210\202\210,\202rG\201q Y\203rS Tr\201r \201y !q\210p\201z \210TS\324\211UV\201{ \211W\201{ X Y\201| \210\201} \201~ !\210+\211 Z R\201v \210\201 Z!\210+)F\203EF\337\201\200 \201\201 Q\211\201\202 N\333\201\203 DC#E!C C D E F\201\242 1?EGX\205;\330 H\201\243 \216I\203\351E\332X\203\351\333\334E\335U\203\313\336\202\342E\337U\203\326\336\202\342E\340U\203\341\341\202\342\342DPC#\210G\325Y\205:\343F!\203\335 G\344F\345\324#F)E\337U\203$\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205:\333\353F\306\354E\"DPC$*0\202C\210\202D\210,\201Q Q\333\201\203 DC#C\"\210-\201] B!\211B\203p\377\201[ \336BB\373#\202q\373\211B\336\230\203|\373B. \325\201\214
BD C D E F\201\244 12EGX\205.\330 H\201\245 \216I\203\334E\332X\203\334\333\334E\335U\203\276\336\202\325E\337U\203\311\336\202\325E\340U\203\324\341\202\325\342DPC#\210G\325Y\205-\343F!\203\366\335 G\344F\345\324#F)E\337U\203\335 Gr\346F!q\210D\347PD\350C\351 C\"C*\352F!\205-\333\353F\306\354E\"DPC$*0\2026\210\2027\210,B)$.\201\246 !\336\230\203L\373\202M\336#\207" [filename v method user host localname format "%s%s" tramp-dissect-file-name expand-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-make-tramp-file-name file-name-absolute-p tramp-get-file-property "file-truename" undef nil 4 "Finding true name for `%s'" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #3="" 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message "(%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 "perl-file-spec" "perl-cwd-realpath" tramp-maybe-send-script "tramp_perl_file_truename" tramp-send-command-and-read "tramp_perl_file_truename %s" 47 tramp-compat-split-string "/" 20 5 "Check %s" mapconcat hop value result arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message tramp-perl-file-truename symlink-target numchase-limit numchase thisstep steps directory-sep-char signal standard-output default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf identity (#3#) reverse (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] file-attributes (#3#) "." "Ignoring step `.'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] ".." "Processing step `..'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "Follow symlink to %s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-tramp-file-p tramp-equal-remote file-error "Symlink target `%s' on wrong host" 10 get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "Maximum number (%d) of symlinks exceeded" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "True name of `%s' is `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-set-file-property (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] file-name-nondirectory] 18 (#$ . 37692)])
#@39 Like `file-exists-p' for Tramp files.
(defalias 'tramp-sh-handle-file-exists-p #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314
!\203_ \315
\316\317$\211 \317=\203Y \315
\320\321$??\206O \315
\322\321$??\206O \323 \324\325\326 !\327
!#\"\330
\316$\210)\202\201 \315
\320\321$??\206\201 \315
\322\321$??\206\201 \323 \324\325\326 !\327
!#\".\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 hop value] 8 (#$ . 52056)])
#@41 Like `file-attributes' for Tramp files.
(defalias 'tramp-sh-handle-file-attributes #[(filename &optional id-format) "\204 \306\3071\264 \310\311\n!!\312 ! \313 ! \314 ! \315 ! \316 ! \317 !\203\203 \320 \321\322\"\323$\211 \323=\203} \212\324 \325 !\203T \326 #\202d \327 !\203c \330 #\202d \331\206m \332 #\") \333 \321\322\" $\210 )\202\260 \212\324 \325 !\203\225 \326 #\202\245 \327 !\203\244 \330 #\202\245 \331\206\256 \332 #\").0\207\210\331\207" [id-format last-coding-system-used filename v method user integer (error) tramp-dissect-file-name expand-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 host localname hop value] 7 (#$ . 52884)])
#@70 Implement `file-attributes' for Tramp files using the ls(1) command.
(defalias 'tramp-do-file-attributes-with-ls #[(vec localname &optional id-format) "\306\211\211\211\211\211\211\211\211 @ A BC\307\310DC E F G H\3111\303 GIX\205\277 \312 J\313\216K\203m G\314X\203m \315\316G\317U\203O \320\202f G\321U\203Z \320\202f G\322U\203e \323\202f \324FPE#\210I\325Y\205\276 \326H!\203\207 \317 I\327H\330\306#H)G\321U\203\250 \317 Ir\331H!q\210F\332PF\333E\334 C\"E*\335H!\205\276 \315\336H\337\340G\"FPE$*0\202\307 \210\202\310 \210,\341C\337\342\343C!\344D!#\"\204\355 \341C\337\345\346C!\344D!#\"\205\347C\337\350\351C!L\352=\203\353\202\354\355C!\203
\356\202\357C!\203\360\202\320\344D!%\"\210r\361C!q\210\362 \317V\205eb\210\3631<\364p!0\202~\211 MA@\365\232\205}\366\367MAA@\"\205}\364MAA@\317\321\224O! N\364\370\321MAA@\"!\211 O\371\245 PNP\\OP\371_Z+B)@\372\364p!!\364p!\364p!\364p!L\352=\203\252 \247\204\240\373\n\247\204\274\373\202\274 ;\204\263\372 !\n;\204\274\372\n!\364p!
\317H\374=B
\317H\375=AB\203\353\376\377!\210\355C!\203\344\364p!\202\352`\201Q {A\206\361\f \n\201R \201S \201T
\201U @\373\257\f). \207" [res-symlink-target res-size res-gid res-uid res-numlinks res-filemodes nil 5 "file attributes with ls: %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " 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-get-ls-command-with-quoting-style "--quoting-style=c" tramp-get-ls-command-with-w-option "-w" tramp-get-buffer buffer-size (invalid-read-syntax) read "Integer constant overflow in reader" string-match "^[0-9]+\\([0-9][0-9][0-9][0-9][0-9]\\)\\'" match-string 65536 symbol-name -1 108 100 search-forward "-> " res-inode dirp symlinkp vec localname arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message id-format err big small twiddle point-at-eol (0 0) (0 0) (0 0) t] 13 (#$ . 53936)])
#@66 Implement `file-attributes' for Tramp files using a Perl script.
(defalias 'tramp-do-file-attributes-with-perl #[(vec localname &optional id-format) "\306\307 C \3101\223 \f&X\205\217 \311 '\312\216(\203K \f\313X\203K \314\315\f\316U\2031 \317\202F \f\320U\203; \317\202F \f\321U\203E \322\202F \323 P\n#\210&\324Y\205\216 \325
!\203b \316 &\326
\327\330#)\f\320U\203} \316 &r\331
!q\210 \332P\333\n\334 C\"*\335
!\205\216 \314\336
\337\340\f\" P\n$*0\202\227 \210\202\230 \210,\341)\342#\210\343\337\344\345 !*#\"\207" [vec localname arguments fmt-string level vec-or-proc 5 "file attributes with perl: %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp 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 tramp-verbose save-match-data-internal tramp-message-show-message tramp-perl-file-attributes id-format] 6 (#$ . 56320)])
#@68 Implement `file-attributes' for Tramp files using stat(1) command.
(defalias 'tramp-do-file-attributes-with-stat #[(vec localname &optional id-format) "\306\307 C \3101\223 \f,X\205\217 \311 -\312\216.\203K \f\313X\203K \314\315\f\316U\2031 \317\202F \f\320U\203; \317\202F \f\321U\203E \322\202F \323 P\n#\210,\324Y\205\216 \325
!\203b \316 ,\326
\327\330#)\f\320U\203} \316 ,r\331
!q\210 \332P\333\n\334 C\"*\335
!\205\216 \314\336
\337\340\f\" P\n$*0\202\227 \210\202\230 \210,\341\337\342\343!\344 !\345!\344 !\346!/\2110\347=\203\272 \350\202\300 /\351/Q0\347=\203\313 \352\202\321 /\353/Q/\211\344 !1&\"\207" [vec localname arguments fmt-string level vec-or-proc 5 "file attributes with stat: %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command-and-read "( (%s %s || %s -h %s) && (%s -c '((%s%%N%s) %%h %s %s %%Xe0 %%Ye0 %%Ze0 %%se0 %s%%A%s t %%ie0 -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 "%ue0" "%U" "%ge0" "%G" tramp-verbose save-match-data-internal tramp-message-show-message tramp-stat-marker id-format tramp-stat-quoted-marker] 17 (#$ . 57513)])
#@50 Like `set-visited-file-modtime' for Tramp files.
(defalias 'tramp-sh-handle-set-visited-file-modtime #[(&optional time-list) "\306 \204 \307\310\311 \"\210\203 \312\313C\"\207\306 \314\315\n!\316 ! \317 ! \320 ! \"\321 ! #\322 ! $\323 %\324\n! &\325&8\206E \326 '\327\330!\203P \330J'\331\232\204a \312\313'C\"\210\202~ \332 \333\334\335 !\336#!#\"\210`\337 {&\340 #\341&$\210\327\330!\203\207 . \314\207" [time-list coding-system-used f v method user 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 tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop t file-attributes 5 (-1 65535) boundp last-coding-system-used (0 0) 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" host localname hop remote-file-name-inhibit-cache attr modtime] 7 (#$ . 59005)])
#@305 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.
(defalias 'tramp-sh-handle-verify-visited-file-modtime #[(&optional buf) "r\206 pq\210\306 \211\203 \307 \310=\204 \311\312 \313\314$\204# \315\202\254 \316 !\317\n!\320\n! \321\n! \322\n! %\323\n! &\315 '\324 ! (\325(8 )\307 *(\203y )\326\232\204y \327\330)*A:\204p *@*AD\202r *\"!\331W\202\252 (\203\246 \332\n\333\334\335\n!\336%!#\"\210r\337\n!q\210`\340 {()(\341\n%\342\343$\232\202\252 *\344\232.\n*\207" [buf f v method user host buffer-file-name visited-file-modtime 0 tramp-file-name-handler file-remote-p nil connected t tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-attributes 5 (0 0) abs tramp-time-diff 2 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" "" (-1 65535) localname hop remote-file-name-inhibit-cache attr modtime mt] 8 (#$ . 60070)])
#@40 Like `set-file-modes' for Tramp files.
(defalias 'tramp-sh-handle-set-file-modes #[(filename mode) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314 \315
!\"\210\314
\"\210\316 \317\320\321!\322
!#\323$.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property file-name-directory tramp-barf-unless-okay format "chmod %s %s" tramp-compat-decimal-to-octal tramp-shell-quote-argument "Error while changing file's mode %s" hop mode] 7 (#$ . 61375)])
#@40 Like `set-file-times' for Tramp files.
(defalias 'tramp-sh-handle-set-file-times #[(filename &optional time) "\306!\203\205 \307!\310 !\311 !\312 ! \313 ! \314 ! #\315 !\205\202 \316 \317
!\"\210\316
\"\210$\203= $\320\232\203B \321 \202D $\322 % $\323 \324\325%\203V \326\202W \327\315 !\330 \331\332#\203{ \324\333%\203r \334\335$\322#\202w \334\335$\"\"\202| \327\336
!%\"*.\207\337\332\340\332\211\211\341\334\335$\"\336!&\342U\207" [filename v method user host localname tramp-tramp-file-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-get-remote-touch tramp-flush-file-property file-name-directory (0 0) current-time t tramp-send-command-and-check format "%s %s %s %s" "env TZ=UTC" "" tramp-get-connection-property "touch-t" nil "-t %s" format-time-string "%Y%m%d%H%M.%S" tramp-shell-quote-argument tramp-call-process "touch" "-t" 0 hop time utc] 12 (#$ . 61980)])
#@191 Set the ownership for FILENAME.
If UID and GID are provided, these values are used; otherwise uid
and gid of the corresponding user is taken. Both parameters must
be non-negative integers.
(defalias 'tramp-set-file-uid-gid #[(filename &optional uid gid) "\306 !\203r \307 !\310\n!\311\n! \312\n! \313\n! $\314\n! %\315 \316U\203: \317\n!\203: \320$&'#\202m \321&!\203F &\206J \322\n\323\"\321'!\203V '\206Z \324\n\323\" ' &\325\n\326\327&'\330$!$\"*.\202\307 \3312\273 \332\333\334\335#\211 ()B )\336\216\321&!\203\221 &\206\224 \337\323!\321'!\203\240 '\206\243 \340\323! ' &\341\334\342\334\211\211\326\343&'#\330 !&-0\211 *\331=?\205\306 *))\207" [last-coding-system-used filename v method user host tramp-tramp-file-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 #1=#:timeout run-with-timer 5 nil #[nil "\300\301\211\"\207" [throw #1#] 3] #[nil "\301!\207" [-with-timeout-timer- cancel-timer] 2] tramp-get-local-uid tramp-get-local-gid tramp-call-process "chown" "%d:%d" localname hop uid gid -with-timeout-timer- with-timeout-timers -with-timeout-value-] 11 (#$ . 62970)])
#@55 Check, whether SELINUX is enabled on the remote host.
(defalias 'tramp-remote-selinux-p #[(vec) "\302\303!\304\305#\211\305=\203 \306\307\"\310\303!\304 #\210 )\207" [vec value tramp-get-connection-property tramp-get-connection-process "selinux-p" undef tramp-send-command-and-check "selinuxenabled" tramp-set-connection-property] 5 (#$ . 64351)])
#@46 Like `file-selinux-context' for Tramp files.
(defalias 'tramp-sh-handle-file-selinux-context #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! \"\314
!\203~ \315
\316\317$\211 #\317=\203x \320\321 $ %\322 !\203k \323 \324\325\326 !\327
!#\"\203k r\330 !q\210eb\210\331$\332 \333#\203j \334\335!\334\336!\334\337!\334\340!F%)%*#\341
\316#$\210#)\202\277 \320\321 $ %\322 !\203\274 \323 \324\325\326 !\327
!#\"\203\274 r\330 !q\210eb\210\331$\332 \333#\203\273 \334\335!\334\336!\334\337!\334\340!F%)%*.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 2 3 4 tramp-set-file-property hop value regexp context] 8 (#$ . 64711)])
#@50 Like `set-file-selinux-context' for Tramp files.
(defalias 'tramp-sh-handle-set-file-selinux-context #[(filename context) "\306!\307 !\310 !\311 ! \312 ! \313 ! :\205\304 \314 !\205\304 @;\205/ @ A@;\205; A@\315 8;\205G \315 8\316 8;\205S \316 8 \317 \320\321 \203i \320\322 \"\202j \323 \203w \320\324 \"\202x \323 \203\205 \320\325 \"\202\206 \323 \203\223 \320\326 \"\202\224 \323\327
!&\"\205\303 \203\273 \203\273 \203\273 \203\273 \330
\331 $\210\202\302 \330
\331\332$\210\333,.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-remote-selinux-p 2 3 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" undef t hop context range type role] 10 (#$ . 65848)])
#@51 Check, whether ACL is enabled on the remote host.
(defalias 'tramp-remote-acl-p #[(vec) "\302\303!\304\305#\211\305=\203 \306\307\"\310\303!\304 #\210 )\207" [vec value tramp-get-connection-property tramp-get-connection-process "acl-p" undef tramp-send-command-and-check "getfacl /" tramp-set-connection-property] 5 (#$ . 66828)])
#@34 Like `file-acl' for Tramp files.
(defalias 'tramp-sh-handle-file-acl #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314
!\203r \315
\316\317$\211 \317=\203l \320 !\205b \321 \322\323\324
!\"\"\205b r\325 !q\210db\210\326 \210deV\205a \327\330!\204] \331\330!\205a \330\332 !) \333
\316 $\210 )\202\247 \320 !\205\247 \321 \322\323\324
!\"\"\205\247 r\325 !q\210db\210\326 \210deV\205\246 \327\330!\204\242 \331\330!\205\246 \330\332 !).\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 subrp substring-no-properties functionp buffer-string tramp-set-file-property hop value] 7 (#$ . 67171)])
#@38 Like `set-file-acl' for Tramp files.
(defalias 'tramp-sh-handle-set-file-acl #[(filename acl-string) "\306\307!!\310 !\311 !\312 ! \313 ! \314 ! ;\203J \315 !\203J \316 \317\320\321
!%\"\210\322 \323\"\203J \324
\325$\210\326\202R \324
\327\330$\210\323.\207" [filename v method user host localname tramp-dissect-file-name expand-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 "file-acl-string" undef hop acl-string tramp-end-of-heredoc] 8 (#$ . 68125)])
#@43 Like `file-executable-p' for Tramp files.
(defalias 'tramp-sh-handle-file-executable-p #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314
!\203H \315
\316\317$\211 \317=\203B \320 \321\"\2068 \322\323\"\324
\316$\210)\202S \320 \321\"\206S \322\323\".\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 hop value] 6 (#$ . 68863)])
#@41 Like `file-readable-p' for Tramp files.
(defalias 'tramp-sh-handle-file-readable-p #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314
!\203H \315
\316\317$\211 \317=\203B \320 \321\"\2068 \322\323\"\324
\316$\210)\202S \320 \321\"\206S \322\323\".\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 hop value] 6 (#$ . 69501)])
#@48 Like `file-newer-than-file-p' for Tramp files.
(defalias 'tramp-sh-handle-file-newer-than-file-p #[(file1 file2) "\306!\204 \307\207\306 !\204 \310\207\212\311!\311 !\312 8\313\232\2046 \312\n8\314\232\2046 \315\316\312\n8\312 8\"V\202\215\317 \"\204d\320\321!\203H \202I ! \322\f! \323\f! @\324\f! A\325\f! B\326\f! C\f\327\330 D D E F G\307 HG\211 G\203JG\331\332\333\334\335!! I\336\216I I\337 \210)rIq\210\340 +C D E J G\3411AJKX\205=\342 L\343\216H\203\353 J\344X\203\353 \345\346J\315U\203\315 \347\202\344 J\350U\203\330 \347\202\344 J\351U\203\343 \352\202\344 \353EPD#\210K\354Y\205<\355G!\203\315 K\356G\357\307#G)J\350U\203&\315 Kr\360G!q\210E\332PE\361D\340 C\"D*\362G!\205<\345\363G\364\365J\"EPD$*0\202E\210\202F\210,\202\210K\331Y\203\210M Nr\333\366!q\210p\367 \210NM\307\211OP\310\211Q\310 R S\370 \210\371\372!\210+\211 T I\337 \210\373T!\210+)G\203SG\350\374\375F\211\376N\345\377ED#E!C D E J G\201U 1MJKX\205I\342 L\201V \216H\203\367J\344X\203\367\345\346J\315U\203\331\347\202\360J\350U\203\344\347\202\360J\351U\203\357\352\202\360\353EPD#\210K\354Y\205H\355G!\203\315 K\356G\357\307#G)J\350U\2032\315 Kr\360G!q\210E\332PE\361D\340 C\"D*\362G!\205H\345\363G\364\365J\"EPD$*0\202Q\210\202R\210,\201F F\345\377ED#C\"\210. \320! \322\f! \323\f! @\324\f! A\325\f! B\326\f! C\201W \201X \f! #.+\207" [file1 file2 fa2 fa1 v method file-exists-p nil t file-attributes 5 (0 0) (0 0) 0 tramp-time-diff tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-error "Files %s and %s must have same method, user, host" 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%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 user host localname hop arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-run-test2 tramp-get-test-nt-command] 11 (#$ . 70133)])
#@42 Like `file-directory-p' for Tramp files.
(defalias 'tramp-sh-handle-file-directory-p #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 !
G\314U\206L \315
!\203H \316
\317\320$\211 \320=\203B \321\322\"\323
\317$\210)\202L \321\322\".\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 0 file-name-absolute-p tramp-get-file-property "file-directory-p" undef tramp-run-test "-d" tramp-set-file-property hop value] 6 (#$ . 72939)])
#@41 Like `file-writable-p' for Tramp files.
(defalias 'tramp-sh-handle-file-writable-p #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314
!\203` \315
\316\317$\211 \317=\203Z \320!\203A \321 \322\"\206P \323\324\"\202P \323\325\326!\"\205P \323\324\326!\"\327
\316$\210)\202\203 \320!\203t \321 \322\"\206\203 \323\324\"\202\203 \323\325\326!\"\205\203 \323\324\326!\".\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 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 hop value] 6 (#$ . 73520)])
#@52 Like `file-ownership-preserved-p' for Tramp files.
(defalias 'tramp-sh-handle-file-ownership-preserved-p #[(filename &optional group) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314
!\203c \315
\316\317$\211 \317=\203] \320!\211 ?\206R \3218\322 \323\"U\205R ?\206R \3248\325 \323\"U)\326
\316$\210)\202\211 \320!\211 ?\206\210 \3218\322 \323\"U\205\210 ?\206\210 \3248\325 \323\"U).\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-name-absolute-p tramp-get-file-property "file-ownership-preserved-p" undef file-attributes 2 tramp-get-remote-uid integer 3 tramp-get-remote-gid tramp-set-file-property hop value attributes group] 6 (#$ . 74315)])
#@56 Like `directory-files-and-attributes' for Tramp files.
(defalias 'tramp-sh-handle-directory-files-and-attributes #[(directory &optional full match nosort id-format) "\204 \306\307 !\205\376 \310 !\311\312 !\313\n!\314\n! \315\n! \316\n! \"\317\n! #\320\"!\203| \321\n\"\322\323\"\324$\211 $\324=\203v \212\325\326\327\n!\203V \330\n\"#\202f \331\n!\203e \332\n\"#\202f \333\")$\334\n\"\322\323\"$$\210$)\202\240 \212\325\335\327\n!\203\216 \330\n\"#\202\236 \331\n!\203\235 \332\n\"#\202\236 \333\").! %\333\211 & '%\203\341 %\211A%\242'(\203\310 \336('@\"\203\253 )\203\327 '\310'@ \"\240\210'&B&\202\253 *\203\353 &\202\360 \337&\340\"\206\375 \341 )(*%+\207" [id-format directory v method user host integer file-directory-p expand-file-name copy-tree tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-name-absolute-p tramp-get-file-property format "directory-files-and-attributes-%s" undef mapcar #[#1=(x) "@\302 A\"B\207" [x v tramp-convert-file-attributes] 4] tramp-get-remote-stat tramp-do-directory-files-and-attributes-with-stat tramp-get-remote-perl tramp-do-directory-files-and-attributes-with-perl nil tramp-set-file-property #[#1# "@\302 A\"B\207" [x v tramp-convert-file-attributes] 4] string-match sort #[(x y) "@ @\231\207" [x y] 2] tramp-handle-directory-files-and-attributes localname hop value temp result item match full nosort] 8 (#$ . 75130)])
#@81 Implement `directory-files-and-attributes' for Tramp files using a Perl script.
(defalias 'tramp-do-directory-files-and-attributes-with-perl #[(vec localname &optional id-format) "\306\307 C \3101\223 \f=X\205\217 \311 >\312\216?\203K \f\313X\203K \314\315\f\316U\2031 \317\202F \f\320U\203; \317\202F \f\321U\203E \322\202F \323 P\n#\210=\324Y\205\216 \325
!\203b \316 =\326
\327\330#)\f\320U\203} \316 =r\331
!q\210 \332P\333\n\334 C\"*\335
!\205\216 \314\336
\337\340\f\" P\n$*0\202\227 \210\202\230 \210,\341@\342#\210\343\337\344\345 !A#\"\211 B;\203m\346B\330 < \330 ?
\211 \203y
\347\332\350\351\352!! C\353\216C C\354 \210)rCq\210\334 +C \3551p\f=X\205l\311 >\356\216?\203(\f\313X\203(\314\315\f\316U\203\317\202#\f\320U\203\317\202#\f\321U\203\"\322\202#\323 P\n#\210=\324Y\205k\325
!\203?\316 =\326
\327\330#)\f\320U\203Z\316 =r\331
!q\210 \332P\333\n\334 C\"*\335
!\205k\314\336
\337\340\f\" P\n$*0\202t\210\202u\210,\202\267=\347Y\203\267D Er\350\357!q\210p\360 \210ED\330\211FG\361\211H\361 I J\362 \210\363\364!\210+\211 K C\354 \210\365K!\210+)
\203a
\320\366\367<\211\370N\314\371 \n#E!C \3721[\f=X\205W\311 >\373\216?\203\f\313X\203\314\315\f\316U\203\371\317\202\f\320U\203\317\202\f\321U\203
\322\202\323 P\n#\210=\324Y\205V\325
!\203*\316 =\326
\327\330#)\f\320U\203E\316 =r\331
!q\210 \332P\333\n\334 C\"*\335
!\205V\314\336
\337\340\f\" P\n$*0\202_\210\202`\210,\374<\314\371 \n#C\"\210-B)\207" [vec localname arguments fmt-string level vec-or-proc 5 "directory-files-and-attributes with perl: %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp 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 10 get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal tramp-verbose save-match-data-internal tramp-message-show-message tramp-perl-directory-files-and-attributes id-format object standard-output default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf] 11 (#$ . 76639)])
#@83 Implement `directory-files-and-attributes' for Tramp files using stat(1) command.
(defalias 'tramp-do-directory-files-and-attributes-with-stat #[(vec localname &optional id-format) "\306\307 C \3101\223 \f/X\205\217 \311 0\312\2161\203K \f\313X\203K \314\315\f\316U\2031 \317\202F \f\320U\203; \317\202F \f\321U\203E \322\202F \323 P\n#\210/\324Y\205\216 \325
!\203b \316 /\326
\327\330#)\f\320U\203} \316 /r\331
!q\210 \332P\333\n\334 C\"*\335
!\205\216 \314\336
\337\340\f\" P\n$*0\202\227 \210\202\230 \210,\341\337\342\343 !\344!\345!\203\255 \346\202\270 \347!\203\267 \350\202\270 \317\351!2\211\211\2113\352=\203\313 \353\202\321 2\3542Q3\352=\203\334 \355\202\342 2\3562Q2\2114&\"\207" [vec localname arguments fmt-string level vec-or-proc 5 "directory-files-and-attributes with stat: %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command-and-read "cd %s && echo \"(\"; (%s %s -a | xargs %s -c '(%s%%n%s (%s%%N%s) %%h %s %s %%Xe0 %%Ye0 %%Ze0 %%se0 %s%%A%s t %%ie0 -1)' -- 2>/dev/null | sed -e 's/\"/\\\\\"/g' -e 's/%s/\"/g'); echo \")\"" tramp-shell-quote-argument tramp-get-ls-command tramp-get-ls-command-with-quoting-style "--quoting-style=shell" tramp-get-ls-command-with-w-option "-w" tramp-get-remote-stat integer "%ue0" "%U" "%ge0" "%G" tramp-verbose save-match-data-internal tramp-message-show-message tramp-stat-marker id-format tramp-stat-quoted-marker] 17 (#$ . 79527)])
#@51 Like `file-name-all-completions' for Tramp files.
(defalias 'tramp-sh-handle-file-name-all-completions #[(filename directory) "\306 \307\216\310\311 \"*?\205\205\312\313\n!!\314 ! \315 ! \316 ! @\317 ! A\320 ! B\321 \322\323C\2066 D C\324\325\322\326\327 G\330\331#\"\"@)\206\201\332 E\333 \334 !\203| \335 F\336#\210\337\340\341A!\341 !\342\343!\203n \343\202o \344J\203w \330\202x \345$\202\236 \337\346\341A!\347 ! G\345U\203\220 \350\202\226 \337\351\341 !\"\347 !\352 !&\"\210r\353 !q\210db\210\331y\210\354\355!\203\366\331y\210 \356\357`\360 {C G H I J\332 KJ\211 J\203\257J\361\362\363\364\365!! L\366\216L L\367 \210)rLq\210\370 +C G H M J\3711\246MNX\205\242\306 \372\216K\203@M\373X\203@\324\374M\345U\203 \375\2029M\330U\203+\375\2029M\376U\2036\377\2029\201W HPG#\210N\201X Y\205\241\201Y J!\203b\345 N\201Z J\201[ \332#J)M\330U\203\205\345 Nr\201\\ J!q\210H\362PH\325G\370 C\"G*\201] J!\205\241\324\201^ J\337\201_ M\"HPG$*0\202\252\210\202\253\210,\202\375N\361Y\203\375O Pr\363\201` !q\210p\201a \210PO\332\211QR\201b \211S\201b T U\201c \210\201d \201e !\210+\211 V L\367 \210\201f V!\210+)J\203\341J\330\201g \201h I\211\201i N\324\201j HG#E!C G H M J\201k 1\333MNX\205\327\306 \201l \216K\203uM\373X\203u\324\374M\345U\203U\375\202nM\330U\203`\375\202nM\376U\203k\377\202n\201W HPG#\210N\201X Y\205\326\201Y J!\203\227\345 N\201Z J\201[ \332#J)M\330U\203\272\345 Nr\201\\ J!q\210H\362PH\325G\370 C\"G*\201] J!\205\326\324\201^ J\337\201_ M\"HPG$*0\202\337\210\202\340\210,\201I I\324\201j HG#C\"\210-\202F\354\201m !\204F \356\201n \341A!\370 D G H I J\332 KJ\211 J\203J\361\362\363\364\365!! L\201o \216L L\367 \210)rLq\210\370 +C G H M J\201p 1\371MNX\205\365\306 \201q \216K\203\223M\373X\203\223\324\374M\345U\203s\375\202\214M\330U\203~\375\202\214M\376U\203\211\377\202\214\201W HPG#\210N\201X Y\205\364\201Y J!\203\265\345 N\201Z J\201[ \332#J)M\330U\203\330\345 Nr\201\\ J!q\210H\362PH\325G\370 C\"G*\201] J!\205\364\324\201^ J\337\201_ M\"HPG$*0\202\375\210\202\376\210,\202PN\361Y\203PO Pr\363\201` !q\210p\201a \210PO\332\211QR\201b \211S\201b T U\201c \210\201d \201e !\210+\211 V L\367 \210\201f V!\210+)J\2034J\330\201g \201h I\211\201i N\324\201j HG#E!C G H M J\201r 1.MNX\205*\306 \201s \216K\203\310M\373X\203\310\324\374M\345U\203\250\375\202\301M\330U\203\263\375\202\301M\376U\203\276\377\202\301\201W HPG#\210N\201X Y\205)\201Y J!\203\352\345 N\201Z J\201[ \332#J)M\330U\203
\345 Nr\201\\ J!q\210H\362PH\325G\370 C\"G*\201] J!\205)\324\201^ J\337\201_ M\"HPG$*0\2022\210\2023\210,\201I I\324\201j HG#C\"\210-\331y\345U\203Y`\360 {EBE\202F)\201t A\201u \201b $\210\201v \201w E\"\210\201t A P\201x E$)\"\".\207" [save-match-data-internal filename directory v method user match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] string-match "/" tramp-dissect-file-name expand-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop all-completions mapcar list apply append #[(x) "\305 \n\306 OP\307\310$\211 \205 \fC)\207" [v localname filename x cache-hit tramp-get-file-property 0 "file-name-all-completions" nil] 7] tramp-compat-number-sequence 1 -1 nil 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 %s %d" tramp-shell-quote-argument boundp read-file-name-completion-ignore-case completion-ignore-case 0 "(cd %s 2>&1 && (%s -a %s 2>/dev/null || %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 "." "-d %s*" tramp-get-test-command tramp-get-buffer looking-at "^fail$" file-error "tramp-sh-handle-file-name-all-completions: %s" point-at-eol 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 message "" 2 "Warning: " host localname hop remote-file-name-inhibit-cache tramp-completion-reread-directory-timeout result tramp-perl-file-name-all-completions arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer vectorp tramp-debug-message "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^ok$" "tramp-sh-handle-file-name-all-completions: internal error accessing `%s': `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-set-file-property "file-exists-p" mapc #[(entry) "\303 \nP\304\305$\207" [v localname entry tramp-set-file-property "file-exists-p" t] 5] "file-name-all-completions"] 15 (#$ . 81218)])
#@42 Like `add-name-to-file' for Tramp files.
(defalias 'tramp-sh-handle-add-name-to-file #[(filename newname &optional ok-if-already-exists) "\306 \"\204%\307\310!\203 \202 !\311\n!\312\n! \313\n! \314\n! @\315\n! A\n\316\317\320C B C = D\321 ED\211 D\203D\322\323\324\325\326!! F\327\216F F\330 \210)rFq\210\331 +C B C G D\3321GHX\205\333 I\334\216E\203\262 G\335X\203\262 \336\337G\340U\203\224 \341\202\253 G\342U\203\237 \341\202\253 G\343U\203\252 \344\202\253 \345CPB#\210H\346Y\205\347D!\203\314 \340 H\350D\351\321#D)G\342U\203\355 \340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205\336\355D\356\357G\"CPB$*0\202\f\210\202
\210,\202OH\322Y\203OJ Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203D\342\367\370=\211\371N\336\372CB#E!C B C G D\3731GHX\205\f\333 I\374\216E\203\272G\335X\203\272\336\337G\340U\203\234\341\202\263G\342U\203\247\341\202\263G\343U\203\262\344\202\263\345CPB#\210H\346Y\205 \347D!\203\324\340 H\350D\351\321#D)G\342U\203\365\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205 \336\355D\356\357G\"CPB$*0\202\210\202\210,\375=\336\372CB#C\"\210. \307! R\311R! S\312R! T\313R! U\314R! V\315R! W\307 ! X\311X! Y\312X! Z\313X! [\314X! \\\315X! ]R\205t\376R! ^_\247\203\225\377 !\203\225\201` \356\201a \"!\203\225X\316\201b C B C = D\321 ED\211 D\203~D\322\323\324\325\326!! F\201c \216F F\330 \210)rFq\210\331 +C B C G D\201d 1uGHX\205q\333 I\201e \216E\203 G\335X\203 \336\337G\340U\203\341\202G\342U\203\f\341\202G\343U\203\344\202\345CPB#\210H\346Y\205p\347D!\2039\340 H\350D\351\321#D)G\342U\203Z\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205p\336\355D\356\357G\"CPB$*0\202y\210\202z\210,\202\274H\322Y\203\274J Kr\324\360!q\210p\361 \210KJ\321\211LM\362\211N\362 O P\363 \210\364\365!\210+\211 Q F\330 \210\366Q!\210+)D\203\207D\342\367\370=\211\371N\336\372CB#E!C B C G D\201f 1\201GHX\205}\333 I\201g \216E\203+G\335X\203+\336\337G\340U\203
\341\202$G\342U\203\341\202$G\343U\203#\344\202$\345CPB#\210H\346Y\205|\347D!\203E\340 H\350D\351\321#D)G\342U\203f\340 Hr\352D!q\210C\323PC\353B\331 C\"B*\354D!\205|\336\355D\356\357G\"CPB$*0\202\205\210\202\206\210,\375=\336\372CB#C\"\210-_\203\242^\201h P^\201i X\201j \\!\"\210\201i X\\\"\210\201k R\356\201l ^\201m V!\201m \\!$\201n \201o $.
\207" [filename newname v method user host tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-error "add-name-to-file: %s" "only implemented for same method, same user, same host" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal tramp-get-remote-ln file-exists-p localname hop arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf v1 v1-method v1-user v1-host v1-localname v1-hop v2 v2-method v2-user v2-host v2-localname v2-hop ln ok-if-already-exists yes-or-no-p "File %s already exists; make it a new name anyway? " "add-name-to-file: file %s already exists" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] " -f" tramp-flush-file-property file-name-directory tramp-barf-unless-okay "%s %s %s" tramp-shell-quote-argument "error with add-name-to-file, see buffer `%s' for details" buffer-name] 11 (#$ . 86812)])
#@35 Like `copy-file' for Tramp files.
(defalias 'tramp-sh-handle-copy-file #[(filename newname &optional ok-if-already-exists keep-date preserve-uid-gid preserve-extended-attributes) "\306!\306 !\307!\204 \307 !\203 \310\311 \n \f
&\207
\203/ \312\313 \n \f
\257\"\207\f\203> \312\313 \n \f\257\"\207\312\313 \n F\"\207" [filename newname ok-if-already-exists keep-date preserve-uid-gid preserve-extended-attributes expand-file-name tramp-tramp-file-p tramp-do-copy-or-rename-file copy tramp-run-real-handler copy-file] 8 (#$ . 91335)])
#@40 Like `copy-directory' for Tramp files.
(defalias 'tramp-sh-handle-copy-directory #[(dirname newname &optional keep-date parents copy-contents) "\306!\306 !\307 \203 \202 ! \310\f! \311\f! \312\f! \313\f! \314\f! \204\214 \315\f\316\"\203\214 \203N \n\203N \310\307!!\310\307 !!\230\203\214 \317\320!!\317\320 !!\321 !\203q \322!\322 !\230\204q \320\322! \"\321\323 !!\204\201 \324\323 ! \"\210\325\326 $\210\202\251 \327\330 \203\240 \257\202\247 F\"\210\n\205\330 \307 ! \310\f! \311\f! \312\f! \313\f! \314\f! \331\f\323 !\"\210\331\f \"..\207" [dirname newname t2 t1 v method tramp-tramp-file-p tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-get-method-parameter tramp-copy-recursive directory-file-name expand-file-name file-directory-p 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-property user host localname hop copy-contents parents keep-date] 7 (#$ . 91887)])
#@37 Like `rename-file' for Tramp files.
(defalias 'tramp-sh-handle-rename-file #[(filename newname &optional ok-if-already-exists) "\303!\303 !\304!\204 \304 !\203 \305\306 \n\307\211&\207\310\311 \nE\"\207" [filename newname ok-if-already-exists expand-file-name tramp-tramp-file-p tramp-do-copy-or-rename-file rename t tramp-run-real-handler rename-file] 7 (#$ . 93019)])
#@748 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.
(defalias 'tramp-do-copy-or-rename-file #[(op filename newname &optional ok-if-already-exists keep-date preserve-uid-gid preserve-extended-attributes) "\306>\204 \307\310\"\210\311 !\311\n!\312\313\314 !!8 \205! \315\316 C\" @ A\317A\2031 \2022 \n! B\320B! C\321B! D\322B! E\323B! F\324B! GH\204b\325\n!\203bB\326\327\nC I J K L\330 ML\211 L\203EL\331\332\333\334\335!! N\336\216N N\337 \210)rNq\210\340 +C I J O L\3411<OPX\2058\342 Q\343\216M\203\346 O\344X\203\346 \315\345O\346U\203\310 \347\202\337 O\350U\203\323 \347\202\337 O\351U\203\336 \352\202\337 \353JPI#\210P\354Y\2057\355L!\203 \346 P\356L\357\330#L)O\350U\203!\346 Pr\360L!q\210J\332PJ\361I\340 C\"I*\362L!\2057\315\363L\364\365O\"JPI$*0\202@\210\202A\210,\202\203P\331Y\203\203R Sr\333\366!q\210p\367 \210SR\330\211TU\370\211V\370 W X\371 \210\372\373!\210+\211 Y N\337 \210\374Y!\210+)L\203PL\350\375\376K\211\377N\315\201k JI#E!C I J O L\201l 1JOPX\205F\342 Q\201m \216M\203\364O\344X\203\364\315\345O\346U\203\326\347\202\355O\350U\203\341\347\202\355O\351U\203\354\352\202\355\353JPI#\210P\354Y\205E\355L!\203\346 P\356L\357\330#L)O\350U\203/\346 Pr\360L!q\210J\332PJ\361I\340 C\"I*\362L!\205E\315\363L\364\365O\"JPI$*0\202N\210\202O\210,\201K K\315\201k JI#C\"\210-B\346\201n \364\201o \201p =\203z\201q \202}\201r \n$C I J O L\201s 1,OPX\205(\342 Q\201t \216M\203\326O\344X\203\326\315\345O\346U\203\270\347\202\317O\350U\203\303\347\202\317O\351U\203\316\352\202\317\353JPI#\210P\354Y\205'\355L!\203\360\346 P\356L\357\330#L)O\350U\203\346 Pr\360L!q\210J\332PJ\361I\340 C\"I*\362L!\205'\315\363L\364\365O\"JPI$*0\2020\210\2021\210,\201u M\205\223\346P\344^X\205\223\201v 1\221\201w \201x !\204]\201y \201x !\205y\201x \364\201o \201p =\203r\201q \202u\201r \n$!\211 Z\205\214\201z \344\201{ \201| Z$)0\202\223\210\330 [ \\\201} \216A\2036@\2036\317 ! ]\320]! ^\321]! _\322]! `\323]! a\324]! b\317\n! c\320c! d\321c! e\322c! f\323c! g\324c! h\201~ \n\"\203\201 \nHij&\210\2021\201\200 ]
\"\203'\201\200 c
\"\203'\201\201 \ni$\210\2021\201\202 \ni$\210.\f\202\205A\204@@\203\201\203 B!\203[\201 \nHij&\210\202\205\201\200 B
\"\203r\201\201 \ni$\210\202\205\201\202 \ni$\210\202\205\307\201\204 !\210\f\203\240\201\205 1\233\315\201\206 \n\fD\"0\202\237\210\202\240\210A\203\350\201\207 =\203\350\317 ! ]\320]! ^\321]! _\322]! `\323]! a\324]! b\201\210 ]\201\211 a!\"\210\201\210 ]a\"\210.@\205'\317\n! c\320c! d\321c! e\322c! f\323c! g\324c! h\201\210 c\201\211 g!\"\210\201\210 cg\".\201\212 \\.
\207" [op filename newname preserve-extended-attributes attributes length (copy rename) error "Unknown operation `%s', must be `copy' or `rename'" tramp-tramp-file-p 7 file-attributes file-truename apply file-extended-attributes tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-exists-p file-already-exists "File %s already exists" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 message 0 #6="" 1 2 #7="Warning: " #8="Tramp: " 4 processp tramp-get-connection-property #9="vector" tramp-get-connection-buffer append vectorp tramp-debug-message format #10="(%d) # " "*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 t2 t1 v method user host localname hop ok-if-already-exists arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf pr tm cookie v1 v1-method v1-user v1-host v1-localname v1-hop v2 v2-method v2-user v2-host v2-localname v2-hop keep-date preserve-uid-gid format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "%s..." #3="%s %s to %s" copy #4="Copying" #5="Renaming" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n\315=\203# \316\202$ \317 \f$
D ' ( ) *\3201\320 )+X\205\314 \321 ,\322\216-\203z )\323X\203z \324\325)\311U\203\\ \326\202s )\327U\203g \326\202s )\330U\203r \331\202s \332(P'#\210+\333Y\205\313 \334*!\203\224 \311 +\335*\336\337#*))\327U\203\265 \311 +r\340*!q\210(\341P(\342'\343 C\"'*\344*!\205\313 \324\345*\313\346)\"(P'$*0\202\322 \210\337,\207" [tm v op filename newname cookie subrp cancel-timer functionp 0 "%s...%s" format #3# copy #4# #5# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #6# 1 2 #7# #8# 4 processp tramp-get-connection-property #9# nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message #10# arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 8] tramp-equal-remote 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 rename tramp-flush-file-property file-name-directory "done"] 11 (#$ . 93405)])
#@248 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.
(defalias 'tramp-do-copy-or-rename-file-via-buffer #[(op filename newname keep-date) "\306\211\307\310\311\312\313\"B
\314\315\316!! \317\216rq\210\320\321!\210\322 !\210)rq\210\310\321\211 \321\323%\210. \203I \324
\325\326 !8\"\210\327
\330 !\"\210 \331=?\205] \332 !\207" [inhibit-file-name-handlers inhibit-file-name-operation jka-compr-inhibit coding-system-for-write coding-system-for-read newname binary t write-region epa-file-handler remq tramp-file-name-handler get-buffer-create generate-new-buffer-name " *temp file*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] set-buffer-multibyte nil insert-file-contents-literally 0 set-file-times 5 file-attributes set-file-modes tramp-default-file-modes copy delete-file #1# #2=#:temp-file filename keep-date op] 8 (#$ . 100003)])
#@460 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.
(defalias 'tramp-do-copy-or-rename-file-directly #[(op filename newname ok-if-already-exists keep-date preserve-uid-gid) "\306!\306 !\307\310!8\311! \312
\203 \202 ! @\313@! A\314@! B\315@! C\316@! D\317@! EF\320=\203M G\203M \321\202gF\320=\203X \322\202gF\323=\203c \324\202g@\325\326FC H I J K\327 LK\211 K\203KK\330\331\332\333\334!! M\335\216M M\336 \210)rMq\210\337 +C H I N K\3401BNOX\205>\341 P\342\216L\203\354 N\343X\203\354 \344\345N\346U\203\316 \347\202\345 N\350U\203\331 \347\202\345 N\351U\203\344 \352\202\345 \353IPH#\210O\354Y\205=\355K!\203\346 O\356K\357\327#K)N\350U\203'\346 Or\360K!q\210I\331PI\361H\337 C\"H*\362K!\205=\344\363K\364\365N\"IPH$*0\202F\210\202G\210,\202\211O\330Y\203\211Q Rr\332\366!q\210p\367 \210RQ\327\211ST\370\211U\370 V W\371 \210\372\373!\210+\211 X M\336 \210\374X!\210+)K\203VK\350\375\376J\211\377N\344\201k IH#E!C H I N K\201l 1PNOX\205L\341 P\201m \216L\203\372N\343X\203\372\344\345N\346U\203\334\347\202\363N\350U\203\347\347\202\363N\351U\203\362\352\202\363\353IPH#\210O\354Y\205K\355K!\203\346 O\356K\357\327#K)N\350U\2035\346 Or\360K!q\210I\331PI\361H\337 C\"H*\362K!\205K\344\363K\364\365N\"IPH$*0\202T\210\202U\210,\201J J\344\201k IH#C\"- Y
\203{\201n \201o \201D #\202| Z\f\203\220\201n \201o \201D #\202\221 [\201o
\203\236\202\237 ! \\\327 ]
\203i\f\203i\201p @\364\201q Y\201r Z!\201r [!$\"]r\201s @!q\210eb\210^\203\344\201t _\327\370#\204e]\204e\327@\325\201u \201v C H I J K `\201w a\201x \216\201y `!\203`\2062\355K!\203'\201z K!\2062\362K!\2052\360K! `\362K!\203@K\206O`\205Or`q\210\312Q!) b\201{ \216\344\201| KJIH%\210.\n)\202\222
\204q\f\203\222\327 c\201} Z!\205\270F\320=\204\234\201~ \302\201 Z!!\201\200 \201\201 !\"\346U\205\270\201\202 \201 [!!\205\270\201\203 [!\206\270\201\202 [!)\203\347F\320=\203\325\201\204 Z[d^G%\210\202\222\201\205 \201\206 Z[dE\"\210\202\222\201} \\ZP!\203M\201\202 \201 \\[P!!\203M\201\203 \\[P!\204\201\202 \\[P!\203M\201\207 F\\ZP\\[Pd^\370&\210\201\210 \\[P\201\211 \201\212 !\201\213 \201\212 !#\210\202\222Z\327 e f\327 c\201\214 \201\215 J\327 c\201\216 \201\217 !\203z\201\220 \201\217 \201\221 N@!\206/\201\222 \201\223 !\203\237\201\224 \201\223 !\204\230\201\225 \201\223 !\205/\201\223 \202/\201\226 \201\227 !\211 g\205\262\201\203 g!)\203\304\201\230 \201\226 \201\227 !!\202/\201\226 \201\231 !\211 g\205\327\201\203 g!)\203\351\201\230 \201\226 \201\231 !!\202/\201\226 \201\232 !\211 g\205\374\201\203 g!)\203\201\230 \201\226 \201\232 !!\202/\201\233 \201\234 !\203\"\201\230 \201\234 !\202/\345\201\235 !\210\201\230 \201\236 !)\" \\\201\237 f\370\" h\327 i\201\240 1j\201\224 \201\241 !\204Y\201\225 \201\241 !\205c\201\241 \\eh#\211i0\202\247\210\201\242 1\235\201\243 \\!hPie\203\213\201\244 i!\210\202\230\201\245 \347\327i\327\201\246 %\210\3270\202\241\210\202k\203\250\202k\210i. j\201\247 \216
\203\201\250 @\364\201q Y\201r Z!\201r j!$\201u \201s @!$\210\201\251 \\jP\201\200 \201\252 !\"\210\201\210 \\jP\201\211 \201\212 !\201\213 \201\212 !#\210\202V\f\203VF\320=\203!\201\204 Zj\370^G%\210\202/\201\205 \201\206 Zj\370E\"\210\201\251 j\201\200 \201\252 !\"\210\201\210 j\201\253 @\201\212 \"\201\254 @\201\212 \"#\210\f\203~\201\250 @\364\201\255 \201r j!\201r [!#\201u \201s @!$\210\202\221
\203\221\201\205 \201\206 j[dE\"\210*-\201\256 1\257^\205\253\201\257 \"\210\201\251 \n\"0\202\261\210\327.\n\207" [filename newname file-modes file-times t2 t1 tramp-tramp-file-p 5 file-attributes tramp-default-file-modes tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop copy "cp -f -p" "cp -f" rename "mv -f" file-error "Unknown operation `%s', must be `copy' or `rename'" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*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 v method user host localname hop op preserve-uid-gid arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf cmd localname1 localname2 prefix cmd-result keep-date tramp-operation-not-permitted-regexp buf #3=#:wconfig vec file-name-handler-alist ok-if-already-exists dir-flag f d extension result tmpfile format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-file-name-handler file-remote-p 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 #[nil "\301!\207" [#3# set-window-configuration] 2] bufferp process-buffer #[nil "\203, \203, \n\306U\204, \307 \204, \310 \203, \311\312\313\f
#\210\314!\210\315 \210\316\317!\210)\320\321\322\"\323\"@\232\205@ \324 \241\207" [buf tramp-message-show-message tramp-verbose enable-recursive-minibuffers fmt-string arguments 0 tramp-completion-mode-p current-message t apply message pop-to-buffer discard-input sit-for 30 butlast append nil 2 current-time vec tramp-current-connection] 4] tramp-error file-readable-p logand file-name-directory tramp-compat-octal-to-decimal "1000" file-writable-p file-directory-p tramp-compat-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 boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension (error) make-temp-file (file-already-exists) make-temp-name make-directory write-region silent #[nil "\3011 \302!0\207\210\303\207" [tmpfile (error) delete-file nil] 2] tramp-barf-unless-okay set-file-modes "0777" tramp-get-remote-uid tramp-get-remote-gid "cp -f -p %s %s" (error) set-file-times] 11 (#$ . 101093)])
#@78 Invoke `scp' program to copy.
The method used must be an out-of-band method.
(defalias 'tramp-do-copy-or-rename-file-out-of-band #[(op filename newname keep-date) "\306!\306\n!\307 \203 \202 \n! \310\211 @\310\211 A B\310\211 C D\310\211 E F\310\211 G H\310\211 I J\307 \203@ \202A \n! K\311K! L\312K! M\313K! N\314K! O\315K! P \203\222 \203\222\316! QOQ Q R\310 S\317\320J\310 S\321\322!\203\217 \323\322\324N@!\206\325\326!\203\246 \327\326!\204\241 \330\326!\205\326 \202\331\332!\211 T\205\263 \316T!)\203\277 \333\331\332!!\202\331\334!\211 T\205\314 \316T!)\203\330 \333\331\334!!\202\331\335!\211 T\205\345 \316T!)\203\361 \333\331\335!!\202\336\337!\203\375 \333\337!\202\340\341!\210\333\342!)\" U\343R\344\" V\310 W\34511\327\346!\204\"\330\346!\205*\346UQV#\211W0\202d\210\3471Z\350U!VPWQ\203L\351W!\210\202U\352\353\310W\310\354%\210\3100\202^\210\2022\203e\2022\210W. XQ\203y\317\355\n!X\"X\356\216\357YXZ$\210\357\360X\nZ$\210+\202,\311K![\312K!\206\245\361K\362\310#\\\363K!]\364K!@\211K\365OI\210 \203\305\366K!\202\310\367!G \203\325\366K!\202\356\367\316!\203\352\355!\355\n!\230\203\352\370\202\353\371\n!!H\313K!N\353C\372^N\"\203\373\374\375N\"!C\373\374\376N\"!N\312K!\206!\361K\362\310#M\377K\201} \"\203m\201~ \201 \201\200 \201\201 !\\!D\201\202 K\201\203 \310\211\211\201\204 ND&\201\205 U\203m\201~ \201 \201\200 \201\201 !\\!D\202>N\206s\353NM\206{\353MC\206\203\353C\201\206 \201\207 \361\201\210 K!\201\211 \353#\"E\201\212 \201\213 K!E\"F\201\206 \201\214 N\201\215 M\201\216 C\201\217 D\201\220 F\201\221 Z\203\322\201\222 \202\323\353&\fE\377K\201\223 \"\377K\201\224 \"B\201\225 \201\222 \377K\201\226 \"\310 _\211 `\203/`@_\201\227 @\201\230 \201\231 _\" a\353a\235\203 \201\232 \202\"a)\"@`A\211`\204\376\310_@*\"@\201\233 \310\201\230 \201\234 \377K\201\235 \"\"\"A\377K\201\236 \"I\377K\201} \"\310 _\211 `\203\227`@_\201\227 J\201\230 \201\237 _\" a\353a\235\203\210\201\240 \202\212a)\"J`A\211`\204f*\201\241
!\204$K\201\242 \201\243
C b c d e\310 fe\211 e\203\305e\201\244 \201\245 \201\246 \201\247 \201\250 !! g\201\251 \216g g\201\252 \210)rgq\210\201\253 +C b c h e\201\254 1\274hiX\205\270\201\255 j\201\256 \216f\203Jh\365X\203J\201\257 \340h\201\205 U\203(\353\202Ch\376U\2033\353\202Ch\375U\203@\201\260 \202C\201\261 cPb#\210i\201\262 Y\205\267\201\263 e!\203l\201\205 i\361e\201\264 \310#e)h\376U\203\227\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\267\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\300\210\202\301\210,\202i\201\244 Y\203k lr\201\246 \201\272 !q\210p\201\273 \210lk\310\211mn\344\211o\344 p q\201\274 \210\201\275 \201\276 !\210+\211 r g\201\252 \210\201\277 r!\210+)e\203e\376\201\300 \201\301 d\211\201\302 N\201\257 \201\303 cb#E!C b c h e\201\304 1\nhiX\205\201\255 j\201\305 \216f\203\230h\365X\203\230\201\257 \340h\201\205 U\203v\353\202\221h\376U\203\201\353\202\221h\375U\203\216\201\260 \202\221\201\261 cPb#\210i\201\262 Y\205\201\263 e!\203\272\201\205 i\361e\201\264 \310#e)h\376U\203\345\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\210\202\210,\201d d\201\257 \201\303 cb#C\"\210-I\203\372 \361K\201\306 IP\201\307 #\211 s\201\307 =\203_\201\310 KI\201\311 K!#s\201\312 K\201\306 IPs#\210s)\204\352K\201\242 \201\313 IC b c d e\310 fe\211 e\203\213e\201\244 \201\245 \201\246 \201\247 \201\250 !! g\201\314 \216g g\201\252 \210)rgq\210\201\253 +C b c h e\201\315 1\202hiX\205~\201\255 j\201\316 \216f\203h\365X\203\201\257 \340h\201\205 U\203\356\353\202 h\376U\203\371\353\202 h\375U\203\201\260 \202 \201\261 cPb#\210i\201\262 Y\205}\201\263 e!\2032\201\205 i\361e\201\264 \310#e)h\376U\203]\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205}\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\206\210\202\207\210,\202\333i\201\244 Y\203\333k lr\201\246 \201\272 !q\210p\201\273 \210lk\310\211mn\344\211o\344 p q\201\274 \210\201\275 \201\276 !\210+\211 r g\201\252 \210\201\277 r!\210+)e\203\326e\376\201\300 \201\301 d\211\201\302 N\201\257 \201\303 cb#E!C b c h e\201\317 1\320hiX\205\314\201\255 j\201\320 \216f\203^h\365X\203^\201\257 \340h\201\205 U\203<\353\202Wh\376U\203G\353\202Wh\375U\203T\201\260 \202W\201\261 cPb#\210i\201\262 Y\205\313\201\263 e!\203\200\201\205 i\361e\201\264 \310#e)h\376U\203\253\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\313\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\324\210\202\325\210,\201d d\201\257 \201\303 cb#C\"\210-\201\321 \371\201\227 ICJ \203 \201\322 GP\202 \201\323 HP\201\324 D#\201\222 #I\201\325 KI\"\210\201\326 2j \201\327 \201\330 \310\201\331 #\211 tuB u\201\332 \216\201\325 K\201\270 \201\333 D\"\"\210\201\334 K\310\"?\205h \201\325 K\201\270 \201\333 D\"\"\210\202J +0\211 v\201\326 =\203\371 K\201\242 \201\335 IC b c d e\310 fe\211 e\203\232\ne\201\244 \201\245 \201\246 \201\247 \201\250 !! g\201\336 \216g g\201\252 \210)rgq\210\201\253 +C b c h e\201\337 1\221\nhiX\205\215\n\201\255 j\201\340 \216f\203 \nh\365X\203 \n\201\257 \340h\201\205 U\203\375 \353\202\nh\376U\203\n\353\202\nh\375U\203\n\201\260 \202\n\201\261 cPb#\210i\201\262 Y\205\214\n\201\263 e!\203A\n\201\205 i\361e\201\264 \310#e)h\376U\203l\n\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\214\n\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\225\n\210\202\226\n\210,\202\352\ni\201\244 Y\203\352\nk lr\201\246 \201\272 !q\210p\201\273 \210lk\310\211mn\344\211o\344 p q\201\274 \210\201\275 \201\276 !\210+\211 r g\201\252 \210\201\277 r!\210+)e\203\345 e\376\201\300 \201\301 d\211\201\302 N\201\257 \201\303 cb#E!C b c h e\201\341 1\337 hiX\205\333 \201\255 j\201\342 \216f\203m h\365X\203m \201\257 \340h\201\205 U\203K \353\202f h\376U\203V \353\202f h\375U\203c \201\260 \202f \201\261 cPb#\210i\201\262 Y\205\332 \201\263 e!\203\217 \201\205 i\361e\201\264 \310#e)h\376U\203\272 \201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\332 \201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\343 \210\202\344 \210,\201d d\201\257 \201\303 cb#C\"\210-)\201\343 \201\344 ! wrwq\210\201\345 \216\201\346 \216\370 \203\f\202\f\n!\201\347 x! x k\201\312 K\201\350 \201\351 p!#\210\201\312 K\201\352 p#\210A\203@
\f\201\353 \201\354 A@AA@D b c h e\201\355 1$
hiX\205
\201\255 j\201\356 \216f\203\262\fh\365X\203\262\f\201\257 \340h\201\205 U\203\220\f\353\202\253\fh\376U\203\233\f\353\202\253\fh\375U\203\250\f\201\260 \202\253\f\201\261 cPb#\210i\201\262 Y\205
\201\263 e!\203\324\f\201\205 i\361e\201\264 \310#e)h\376U\203\377\f\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205
\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202(
\210\202)
\210,\201\357 A\211AA\242A\211AA\242\"\210\202?\f\201\227 @I\203a
\203W
\201\323 HP\202]
\201\322 GPC\202f
GHD\"@\201\257 \201\360 \201\361 K!\201\265 K!
\201\227 @\201\362 \201\363 \201\364 \201\365 \201\366 \201\363 \201\364 \201\367 \257\"% y\f\201\353 \201\300 \201\321 \371\201\370 y!\201\222 #C b c h e\201\371 1\206hiX\205\202\201\255 j\201\372 \216f\203h\365X\203\201\257 \340h\201\205 U\203\362
\353\202
h\376U\203\375
\353\202
h\375U\203\n\201\260 \202
\201\261 cPb#\210i\201\262 Y\205\201\201\263 e!\2036\201\205 i\361e\201\264 \310#e)h\376U\203a\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\201\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\212\210\202\213\210,\201\312 y\201\264 \f#\210\201\373 y\310\"\210z {\201\374 yK\310|$\210)db\210\201\375 \201\376 \310\344#\204O\f\201\242 \201\377 \201\321 \371\201\370 y!\201\222 #C b c d e\310 fe\211 e\203\360e\201\244 \201\245 \201\246 \201\247 \201\250 !! g\201 \216g g\201\252 \210)rgq\210\201\253 +C b c h e\2011\347hiX\205\343\201\255 j\201\216f\203uh\365X\203u\201\257 \340h\201\205 U\203S\353\202nh\376U\203^\353\202nh\375U\203k\201\260 \202n\201\261 cPb#\210i\201\262 Y\205\342\201\263 e!\203\227\201\205 i\361e\201\264 \310#e)h\376U\203\302\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\342\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\353\210\202\354\210,\202@i\201\244 Y\203@k lr\201\246 \201\272 !q\210p\201\273 \210lk\310\211mn\344\211o\344 p q\201\274 \210\201\275 \201\276 !\210+\211 r g\201\252 \210\201\277 r!\210+)e\203;e\376\201\300 \201\301 d\211\201\302 N\201\257 \201\303 cb#E!C b c h e\20115hiX\2051\201\255 j\201\216f\203\303h\365X\203\303\201\257 \340h\201\205 U\203\241\353\202\274h\376U\203\254\353\202\274h\375U\203\271\201\260 \202\274\201\261 cPb#\210i\201\262 Y\2050\201\263 e!\203\345\201\205 i\361e\201\264 \310#e)h\376U\203\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\2050\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\2029\210\202:\210,\201d d\201\257 \201\303 cb#C\"\210-\201\310w\210\201p!\201\205 U\204\356\201y\210\f\201\242 \201e\201 {C b c d e\310 fe\211 e\203\217e\201\244 \201\245 \201\246 \201\247 \201\250 !! g\201\n\216g g\201\252 \210)rgq\210\201\253 +C b c h e\201 1\206hiX\205\202\201\255 j\201\f\216f\203h\365X\203\201\257 \340h\201\205 U\203\362\353\202
h\376U\203\375\353\202
h\375U\203\n\201\260 \202
\201\261 cPb#\210i\201\262 Y\205\201\201\263 e!\2036\201\205 i\361e\201\264 \310#e)h\376U\203a\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\201\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\212\210\202\213\210,\202\337i\201\244 Y\203\337k lr\201\246 \201\272 !q\210p\201\273 \210lk\310\211mn\344\211o\344 p q\201\274 \210\201\275 \201\276 !\210+\211 r g\201\252 \210\201\277 r!\210+)e\203\332e\376\201\300 \201\301 d\211\201\302 N\201\257 \201\303 cb#E!C b c h e\201
1\324hiX\205\320\201\255 j\201\216f\203bh\365X\203b\201\257 \340h\201\205 U\203@\353\202[h\376U\203K\353\202[h\375U\203X\201\260 \202[\201\261 cPb#\210i\201\262 Y\205\317\201\263 e!\203\204\201\205 i\361e\201\264 \310#e)h\376U\203\257\201\205 ir\201\265 e!q\210c\201\245 Pc\201\227 b\201\253 C\"b*\201\266 e!\205\317\201\257 \201\267 e\201\270 \201\271 h\"cPb$*0\202\330\210\202\331\210,\201d d\201\257 \201\303 cb#C\"\210-.Z\203 B\204 \201\n\201\201!8\"\210Z\203B\204,\2011'\201\n\201!\"0\202+\210\202,\210Y\201=?\205N\201!\203F\201!\202N\201\201\".\207" [filename t1 newname t2 orig-vec copy-program tramp-tramp-file-p tramp-dissect-file-name nil tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-directory-p expand-file-name tramp-temp-name-prefix boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension t (error) make-temp-file (file-already-exists) make-temp-name make-directory write-region #4="" silent file-name-nondirectory #[nil "\3021 \203 \303\304\305 \"\306\"\202 \307 !0\207\210\310\207" [dir-flag tmpfile (error) tramp-compat-delete-directory expand-file-name ".." recursive delete-file nil] 4] tramp-do-copy-or-rename-file-out-of-band rename tramp-get-connection-property "login-as" tramp-file-name-real-host tramp-compute-multi-hops 3 tramp-make-copy-program-file-name shell-quote-argument file-name-directory identity string-match string-to-number match-string 2 1 tramp-get-method-parameter copy-args copy-env copy-keep-date port listener spec options source target remote-copy-program remote-copy-args v method user host localname hop dir-flag f file-name-handler-alist d prefix extension result tmpfile op keep-date tramp-current-method tramp-current-user tramp-current-host tramp-host-with-port-regexp x --dolist-tail-- y arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf value -with-timeout-timer- with-timeout-timers -with-timeout-value- #3=#:temp-buffer process-environment p tramp-rsh-end-of-line tramp-local-end-of-line tramp-actions-copy-out-of-band tramp-remote-copy-args number-to-string 50000 random 10000 tramp-call-process "nc" "-z" 0 format-spec-make 116 tramp-get-connection-process "temp-file" format-spec tramp-ssh-controlmaster-options 104 117 112 114 99 107 " " tramp-copy-program tramp-copy-keep-date delete tramp-copy-args append mapcar #[(z) "\302 \"\207" [z spec format-spec] 3] (" ") delq #[(x) "\301\302\"\303\235?\205 \304\305\306#\207" [x mapcar #[(y) "\302 \"\207" [y spec format-spec] 3] #4# mapconcat identity " "] 4] tramp-copy-env tramp-remote-copy-program #[(z) "\302 \"\207" [z spec format-spec] 3] (" ") executable-find file-error "Cannot find local copy program: %s" 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer vectorp tramp-debug-message format "(%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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "remote-copy-program-" undef tramp-find-executable tramp-get-remote-path tramp-set-connection-property "Cannot find remote listener: %s" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] mapconcat "<" ">" "&" tramp-send-command #5=#:timeout run-with-timer 60 #[nil "\300\301\211\"\207" [throw #5#] 3] #[nil "\301!\207" [-with-timeout-timer- cancel-timer] 2] "netstat -l | grep -q :%s" tramp-send-command-and-check "Listener process not running on remote host: `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#3# buffer-name kill-buffer] 2] #[nil "\302\303\304#\210\302\305\304#\210 \205 \306\304\"?\205 \307\310\311#\207" [v remote-copy-program tramp-set-connection-property "process-name" nil "process-buffer" tramp-send-command-and-check tramp-cleanup-connection keep-debug keep-password] 4] copy-sequence "process-name" buffer-name "process-buffer" 6 "%s=\"%s\"" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] setenv start-process-shell-command tramp-get-connection-name "&&" "echo" "tramp_exit_status" "0" "||" "1" process-command (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compat-set-process-query-on-exit-flag tramp-process-actions re-search-backward "tramp_exit_status [0-9]+" "Couldn't find exit status of `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^ " read -1 "Error copying: `%s'" point-at-eol #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] set-file-times 5 file-attributes (error) set-file-modes tramp-default-file-modes copy file-regular-p delete-file tramp-compat-delete-directory recursive] 16 (#$ . 108438)])
#@40 Like `make-directory' for Tramp files.
(defalias 'tramp-sh-handle-make-directory #[(dir &optional parents) "\306!\307!\310 !\311 !\312 ! \313 ! \314 ! \315 \316
!\"\210\212\317 \320\321\2032 \322\2023 \323\324
!#\325$.\207" [dir v method user host localname expand-file-name tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-directory-property file-name-directory tramp-barf-unless-okay format "%s %s" "mkdir -p" "mkdir" tramp-shell-quote-argument "Couldn't make directory %s" hop parents] 7 (#$ . 125268)])
#@42 Like `delete-directory' for Tramp files.
(defalias 'tramp-sh-handle-delete-directory #[(directory &optional recursive) "\306!\307!\310 !\311 !\312 ! \313 ! \314 ! \315 \316
!\"\210\317
\"\210\320 \321\322\2036 \323\2027 \324\325
!#\326$.\207" [directory v method user host localname expand-file-name tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property file-name-directory tramp-flush-directory-property tramp-barf-unless-okay format "cd / && %s %s" "rm -rf" "rmdir" tramp-shell-quote-argument "Couldn't delete %s" hop recursive] 7 (#$ . 125890)])
#@37 Like `delete-file' for Tramp files.
(defalias 'tramp-sh-handle-delete-file #[(filename &optional trash) "\306!\307!\310 !\311 !\312 ! \313 ! \314 ! \315 \316
!\"\210\315
\"\210\317 \320\321\2038 \322 !\2069 \323\324
!#\325$.\207" [filename v method user host localname expand-file-name tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property file-name-directory tramp-barf-unless-okay format "%s %s" tramp-get-remote-trash "rm -f" tramp-shell-quote-argument "Couldn't delete %s" hop trash] 7 (#$ . 126564)])
#@106 Recursively delete the directory given.
This is like `dired-recursive-delete-directory' for Tramp files.
(defalias 'tramp-sh-handle-dired-recursive-delete-directory #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! @\314!\204 \315\316C A B ; C\317 DC\211 C\203C\320\321\322\323\324!! E\325\216E E\326 \210)rEq\210\327 +C A B F C\3301\374 FGX\205\370 \331 H\332\216D\203\246 F\333X\203\246 \334\335F\336U\203\210 \337\202\237 F\340U\203\223 \337\202\237 F\341U\203\236 \342\202\237 \343BPA#\210G\344Y\205\367 \345C!\203\300 \336 G\346C\347\317#C)F\340U\203\341 \336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\367 \334\353C\354\355F\"BPA$*0\202 \210\202\210,\202CG\320Y\203CI Jr\322\356!q\210p\357 \210JI\317\211KL\360\211M\360 N O\361 \210\362\363!\210+\211 P E\326 \210\364P!\210+)C\203\nC\340\365\366;\211\367N\334\370BA#E!C A B F C\3711FGX\205 \331 H\372\216D\203\256F\333X\203\256\334\335F\336U\203\220\337\202\247F\340U\203\233\337\202\247F\341U\203\246\342\202\247\343BPA#\210G\344Y\205\377\345C!\203\310\336 G\346C\347\317#C)F\340U\203\351\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\377\334\353C\354\355F\"BPA$*0\202\210\202 \210,\373;\334\370BA#C\"\210-\374 \354\375\376
!\"\317\360$\210\377\201Q !\201R \"\210\201S \201T
!\"\210\201U
\"\210\314!\205K \315\201V C A B ; C\317 DC\211 C\2035C\320\321\322\323\324!! E\201W \216E E\326 \210)rEq\210\327 +C A B F C\201X 1,FGX\205(\331 H\201Y \216D\203\326F\333X\203\326\334\335F\336U\203\270\337\202\317F\340U\203\303\337\202\317F\341U\203\316\342\202\317\343BPA#\210G\344Y\205'\345C!\203\360\336 G\346C\347\317#C)F\340U\203\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205'\334\353C\354\355F\"BPA$*0\2020\210\2021\210,\202sG\320Y\203sI Jr\322\356!q\210p\357 \210JI\317\211KL\360\211M\360 N O\361 \210\362\363!\210+\211 P E\326 \210\364P!\210+)C\203>C\340\365\366;\211\367N\334\370BA#E!C A B F C\201Z 18FGX\2054\331 H\201[ \216D\203\342F\333X\203\342\334\335F\336U\203\304\337\202\333F\340U\203\317\337\202\333F\341U\203\332\342\202\333\343BPA#\210G\344Y\2053\345C!\203\374\336 G\346C\347\317#C)F\340U\203 \336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\2053\334\353C\354\355F\"BPA$*0\202<\210\202=\210,\373;\334\370BA#C\"-.\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-exists-p file-error "No such directory: %s" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal tramp-send-command "rm -rf %s" tramp-shell-quote-argument tramp-wait-for-output hop arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf tramp-get-connection-process 120 tramp-flush-file-property file-name-directory tramp-flush-directory-property "Failed to recursively delete %s" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 127196)])
#@45 Like `dired-compress-file' for Tramp files.
(defalias 'tramp-sh-handle-dired-compress-file #[(file &rest _ok-flag) "\306!\307 !\310 !\311 ! \312 ! \313 ! @\314
\"\210\212\315J\316 A BB\203I \316 C\317B@@
\"\203@ B@A\316BBAB)\202& \320!\203S \316\202\277A\203\207\321A8\203\207 \322\323\324\325\"C D E F G\3261FHX\205\n\327 I\330\216J\203\270 F\331X\203\270 \332\333F\322U\203\232 \334\202\261 F\335U\203\245 \334\202\261 F\321U\203\260 \336\202\261 \337EPD#\210H\340Y\205 \341G!\203\322 \322 H\342G\343\316#G)F\335U\203\363 \322 Hr\344G!q\210E\345PE\346D\347 C\"D*\350G!\205 \332\351G\324\352F\"EPD$*0\202\210\202\210,\353J\205M\322H\331^X\205M\3541K\355\356!\2043\357\356!\2059\356\324\325\"!\211 K\205F\360\331\361\362K$)0\202M\210\316 L M\363\216\364 \321A8\365\366
!Q\"\205\200\355\367!\204n\357\367!\203r\367!\210\317A@\"\210\322\211\224O\260\370M+\202\277 \322\323\324\371\"C D E F G\37216FHX\2052\327 I\373\216J\203\340F\331X\203\340\332\333F\322U\203\302\334\202\331F\335U\203\315\334\202\331F\321U\203\330\336\202\331\337EPD#\210H\340Y\2051\341G!\203\372\322 H\342G\343\316#G)F\335U\203\322 Hr\344G!q\210E\345PE\346D\347 C\"D*\350G!\2051\332\351G\324\352F\"EPD$*0\202:\210\202;\210,\353J\205u\322H\331^X\205u\3741s\355\356!\204[\357\356!\205a\356\324\371\"!\211 K\205n\360\331\361\362K$)0\202u\210\316 L M\375\216\364 \376\366
!P\"\205\273\355\367!\204\222\357\367!\203\226\367!\210\377\201N P!\203\250\201N P\202\273\377\201O P!\203\272\201O P\202\273\316\370M+. \207" [file v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-flush-file-property dired-compress-file-suffixes nil string-match file-symlink-p 2 0 "%s..." format #1="Uncompressing %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2="" 1 #3="Warning: " #4="Tramp: " 4 processp tramp-get-connection-property #5="vector" tramp-get-connection-buffer #6="\n%s" append buffer-string vectorp tramp-debug-message #7="(%d) # " "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n\" D $ %\3151\272 $&X\205\266 \316 '\317\216(\203j $\320X\203j \321\322$\311U\203N \323\202e $\324U\203Y \323\202e $\325U\203d \326\202e \327
P\f#\210&\330Y\205\265 \331%!\203\204 \311 &\332%\333\334#%)$\324U\203\241 \311 &r\335%!q\210
\336P\337\f\340 C\"*\341%!\205\265 \321\342%\313\343$\"
P\f$*0\202\274 \210\334,\207" [tm v file cookie arguments fmt-string subrp cancel-timer functionp 0 #8="%s...%s" format #1# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2# 1 2 #3# #4# 4 processp tramp-get-connection-property #5# nil tramp-get-connection-buffer #6# append buffer-string vectorp tramp-debug-message #7# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 6] tramp-send-command-and-check " " tramp-shell-quote-argument dired-remove-file "done" #9="Compressing %s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n\" D $ %\3151\272 $&X\205\266 \316 '\317\216(\203j $\320X\203j \321\322$\311U\203N \323\202e $\324U\203Y \323\202e $\325U\203d \326\202e \327
P\f#\210&\330Y\205\265 \331%!\203\204 \311 &\332%\333\334#%)$\324U\203\241 \311 &r\335%!q\210
\336P\337\f\340 C\"*\341%!\205\265 \321\342%\313\343$\"
P\f$*0\202\274 \210\334,\207" [tm v file cookie arguments fmt-string subrp cancel-timer functionp 0 #8# format #9# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #2# 1 2 #3# #4# 4 processp tramp-get-connection-property #5# nil tramp-get-connection-buffer #6# append buffer-string vectorp tramp-debug-message #7# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 6] "gzip -f " file-exists-p hop suffix suffixes case-fold-search arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message pr tm cookie ".gz" ".z"] 7 (#$ . 131268)])
#@42 Like `insert-directory' for Tramp files.
(defalias 'tramp-sh-handle-insert-directory #[(filename switches &optional wildcard full-directory-p) "\306! \204\n \307\310!\311\n!\312\n! \313\n! \314\n! @\315\n! A\316\317!\203: \320J\204: \321 BC$\202\333 ;\203C \322 !\323 \235\203T \324\n!\204T \325\323 \"B\203i \326\327@C\"B\326\330@C\"@C\204y \331 \235\204y \332 \333\"\334\335 \336#B\203\212 \336BQ\n\337\340 B\203\230 \341\202\231 \342C\203\242 \341\202\243 \342F D E F G\3431KFHX\205G\344 I\345\216J\203\365 F\346X\203\365 \347\350F\351U\203\327 \307\202\356 F\352U\203\342 \307\202\356 F\353U\203\355 \354\202\356 \355EPD#\210H\337Y\205F\356G!\203\351 H\357G\360\361#G)F\352U\2030\351 Hr\362G!q\210E\363PE\332D\364 C\"D*\365G!\205F\347\366G\367\370F\"EPD$*0\202O\210\202P\210,C\203t\371\n\367\372\373\n! B\203h@\202n\335@\374P!$\"\210\202\264\375\n\367\376\335\326\330@C\"!\"\377\335\326\330@C\"!$\210\371\n\367\372\373\n! B\204\245\326\327@C\"G\351U\203\251\307\202\261\335\326\327@C\"!$\"\210\214` K``}\210r\201Q \n!q\210\364 )c\210\201R y\210\201S \201T !\203\335\201U y\210\201S \201V !\203-\351\225\201W L\211 Mb\210`LW\203,K\201X p!\\K\201X p!\\ L NLf\201Y >\203(\201Z NL\201[ \201\\ $\210*\202\364*\201] b\210\201S \201^ !\203H\352y\210\351\224`|\210\2023\201_ \201` \357\n\201a \307#\"\204sKb\210\201b O\361\201\\ #\203s\201c \307!\210\202]\201d KdP\206\214\201e \201f !\205\214\201f J#\210B\204\330C\204\330db\210\201g !\203\261\201h \201i K\201j #b\210\201h \327!G\351U\203\301\374\202\304\327!K\201j #\210\201c \201k !\201\\ \"\210db*.\207" [filename switches v method user host expand-file-name "" tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop featurep ls-lisp ls-lisp-use-insert-directory-program tramp-handle-insert-directory split-string "--dired" tramp-get-ls-command-with-dired delete tramp-run-real-handler file-name-nondirectory file-name-directory "-d" append ("-d") mapconcat tramp-shell-quote-argument " " 4 "Inserting directory `ls %s %s', wildcard %s, fulldir %s" "yes" "no" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 1 2 "Warning: " "Tramp: " processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command "%s %s %s 2>/dev/null" tramp-get-ls-command "." tramp-barf-unless-okay "cd %s" "Couldn't `cd %s'" localname hop wildcard full-directory-p arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message beg end databeg start tramp-color-escape-sequence-regexp file-name-coding-system tramp-get-buffer -2 looking-at "//SUBDIRED//" -1 "//DIRED//\\s-+" point-at-eol read (10 32) put-text-property dired-filename t point-at-bol "//" string-match "color" "ls" re-search-forward replace-match decode-coding-region boundp default-file-name-coding-system file-symlink-p search-backward "->" noerror file-relative-name] 11 (#$ . 135724)])
#@161 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.
(defalias 'tramp-sh-handle-expand-file-name #[(name &optional dir) "\206 \206 \306\307\n!\204 \310!\nP\311\n!\204# \312\313\n\314D\"\207\315\n!\316 ! \317 ! \320 ! <\321 ! =\322 ! >\312\307=C\"\204M \323=P=\324\325=\"\203\263 \326\327=\"\326\330=\" ?\211 @\331\230\203v \324\332\f\"\203v @
P@\333 @\334#\211 A\334=\203\247 \335 \336\337\340@!\"\"\210r\341 !q\210eb\210`\342 {)A\343 @A#\210A)\211@?P=*\324\344=\"\203\307 \345\306\346\211=$=\202\263 \347\314 B\350\351!\203\332 \352\351\353N@!\206O\354\355!\203\361 \356\355!\204\354 \357\355!\205O\355 \202O\360\361!\211 C\205\376 \362C!)\203\n\310\360\361!!\202O\360\363!\211 C\205\362C!)\203#\310\360\363!!\202O\360\364!\211 C\2050\362C!)\203<\310\360\364!!\202O\365\366!\203H\310\366!\202O\367\370!\210\310\371!) D\372\f
<\373\312\313=C\"!>%.\207" [dir default-directory name v method user "/" file-name-absolute-p file-name-as-directory tramp-connectable-p tramp-run-real-handler expand-file-name nil tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop "~/" string-match "\\`\\(~[^/]*\\)\\(.*\\)\\'" match-string 1 2 "~" "\\`su\\(do\\)?\\'" 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 t 47 boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p "TMP" "TMPDIR" file-exists-p "c:/temp" message "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" tramp-make-tramp-file-name tramp-drop-volume-letter host localname hop fname uname value file-name-handler-alist d directory-sep-char] 9 (#$ . 138915)])
#@20 Flush file caches.
(defalias 'tramp-process-sentinel #[(proc event) "\306!\307>?\205\275 \310\311\312#\211\205\274 \313\314\nD %\3151\256
&X\205\252 \316 '\317\216(\203`
\320X\203` \321\322
\323U\203F \324\202[
\325U\203P \324\202[
\326U\203Z \327\202[ \330\fP #\210&\331Y\205\251 \332%!\203z \323 &\310%\311\312#%)
\325U\203\226 \323 &r\333%!q\210\f\334P\335 \336 C\"*\337%!\205\251 \321\340%\341\342
\"\fP $*0\202\262 \210\202\263 \210,\343!\210\344 \324\")\207" [proc vec event arguments fmt-string level process-status (run open) tramp-get-connection-property "vector" nil 5 "Sentinel called: `%S' `%s'" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-flush-connection-property tramp-flush-directory-property vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7 (#$ . 140910)])
#@44 Like `start-file-process' for Tramp files.
(defalias 'tramp-sh-handle-start-file-process #[(name buffer program &rest args) "\306\307!!\310 !\311 !\312 ! \313 ! \314 ! @A;\2056 \315\316A\"\2056 B@\317\230\2056 BG\320U\211 C\204A B\202v \321\211 DBA@GW\203r \315\322BA@D#\203r B\323\324\325\211BA@$C\241\210D\321\\\211D\202E )BA B\326\327\330\310 !\311 !\312 !\313 !$E# F\325\211 G HFB\325 I\211 J\203\345 J@\211I\331\332!\235\204\334 \315\333I\"\203\302 \334GIC\"G\202\334 \335 !\203\325 \334\336IDG\"G\202\334 IHBHJA\211J\204\241 \325IG* GA;\205;\326\337\340
!H\203 \326\341\342\340H\322#\"\202\n\343C\203\326\344K\"\202\343\342\340G\322#C\2030\326\345AB@K$\2029\342\340ABB\322#& LA?\206EM M\346N!\205R\347N! OP Q\350 D\325 RN\204i\351S!N\352Q!\203\201DTD\326\353PD#Q\202iQP\354 \355P#\210\354 \356N#\210r\357 !q\210\360\216\212\214\361\325d T U V\362 \210dd}\210\3632C\364 !\210~\210T`|\210dd}\210L\203\317\365 L\325\361$\202B\366\367 !\370\"?\205B \371\372PC W X Y Z\325 [Z\211 Z\203\354Z\373\374\375\376\377!! \\\201f \216\\ \\\201g \210)r\\q\210\201h +C W X ] Z\201i 1\343]^X\205\337\201j _\201k \216[\203y]\201l X\203y\201m \201n ]\350U\203U\343\202r]\201o U\203b\343\202r]\320U\203o\201p \202r\201q XPW#\210^\201r Y\205\336\201s Z!\203\233\350 ^\201t Z\201u \325#Z)]\201o U\203\300\350 ^r\357Z!q\210X\374PX\334W\201h C\"W*\201v Z!\205\336\201m \201w Z\326\201x ]\"XPW$*0\202\347\210\202\350\210,\2026^\373Y\2036 `r\375\201y !q\210p\201z \210`\325\211Ua\361\211V\361 b c\201{ \210\201| \201} !\210+\211 d \\\201g \210\201~ d!\210+)Z\203/Z\201o \201 \201\200 Y\211\201\201 N\201m \201\202 XW#E!C W X ] Z\201\203 1)]^X\205%\201j _\201\204 \216[\203\277]\201l X\203\277\201m \201n ]\350U\203\233\343\202\270]\201o U\203\250\343\202\270]\320U\203\265\201p \202\270\201q XPW#\210^\201r Y\205$\201s Z!\203\341\350 ^\201t Z\201u \325#Z)]\201o U\203\350 ^r\357Z!q\210X\374PX\334W\201h C\"W*\201v Z!\205$\201m \201w Z\326\201x ]\"XPW$*0\202-\210\202.\210,\201Y Y\201m \201\202 XW#C\"-0\210\367 ! e\201\205 1d\201\206 e\361\"\210\201\207 e!`\325\2230\202h\210\202i\210e.\207" [default-directory v method user host localname tramp-dissect-file-name expand-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop string-match "sh$" "-c" 2 250 " " replace-match " \\\\\n" nil format "PS1=%s %s" tramp-make-tramp-file-name default-toplevel-value process-environment "=" append tramp-get-env-with-u-option "-u" "cd %s && %s exec %s env %s %s" tramp-shell-quote-argument "unset %s &&" mapconcat "" "<<'%s'" "%s\n(\n%s\n) </dev/tty\n%s" buffer-live-p buffer-modified-p 0 generate-new-buffer get-process "%s<%d>" tramp-set-connection-property "process-name" "process-buffer" tramp-get-connection-buffer #[nil "\303\304 \"\203\" \3051 \306\307 !\310\"\210\311p!0\202 \210\202& \210\202& \312\n!\210\313 \314\310#\210\313 \315\310#\207" [tramp-temp-buffer-name v bmp string-match buffer-name (error) set-process-buffer tramp-get-connection-process nil kill-buffer set-buffer-modified-p tramp-set-connection-property "process-name" "process-buffer"] 4] t clear-visited-file-modtime suppress tramp-maybe-open-connection tramp-send-command tramp-compat-process-get tramp-get-connection-process remote-tty file-error "pty association is not supported for `%s'" 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" hop program args heredoc i tramp-initial-end-of-output prompt env uenv elt --dolist-tail-- tramp-end-of-heredoc command tramp-process-connection-type buffer bmp name name1 tramp-current-connection tramp-temp-buffer-name mark buffer-read-only buffer-undo-list arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal #1=#:old-dir buffer-file-name inhibit-modification-hooks inhibit-read-only #2=#:buf p #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 1 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" vectorp 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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) tramp-compat-set-process-query-on-exit-flag process-mark] 12 (#$ . 141966)])
#@38 Like `process-file' for Tramp files.
(defalias 'tramp-sh-handle-process-file #[(program &optional infile destination display &rest args) "\247\203 \306U\203 \307\310!\210\311 !\312\n!\313\n! \314\n! \315\n! 8\316\n! 9\317\211\211\211\211\211\211\211\211 : ; < = > ? @ A B\320\321CDB\322#B\317 E\211 F\203\236 F@\211E\323\324!\235\204\225 \325\326E\"\203{ \327AEC\"A\202\225 \330\n!\203\216 \327\331EDA\"A\202\225 E@B@FA\211F\204Z *A\203\261 \332\333\320\321A\322#B#B@\203\303 \332\334\320\321@\322#B#BG\204\316 \335?\202\336G!G\337 G\"\203 \311G!\312\n!\313\n! \314\n! \315\n! 8\316\n! 98.?\202\340\n!?\341 \f
?$>\342G>\343#\210?\203$\332\344B?#B\345!\2030;\202\311;\203=\346!;\202\311:\203\302\345@!\203P@;\202g@;\203_\346@!;\202g@\203gp;A@;\203\266A\336A@!\240\210\337 A@\"\203\245\311A@!\312\n!\313\n! \314\n! \315\n! 8\316\n! 98.=\202\311\340\n!=\341 \f
=$<\202\311A@\204\311\335=\202\311\203\311p;=\203\327\332\347B=#B\3501\3511 \352\216\353\n\332\354\3218!B#\343\211$\203\366\306\202\367\355\211:)00\2020\210\356\357\n!!\210\360\211:\202\210\356\357\n!!\210\355\211:\210<\203)\361<A@\343#\210>\2033\362>!\210\363\364!\203>\364J\203C\365\n\366\"\210:\360\232\203O\367 \202Q:.\207" [destination default-directory v method user host 0 error "Implementation does not handle immediate return" tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop nil mapconcat tramp-shell-quote-argument " " default-toplevel-value process-environment 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 copy-file t "%s <%s" bufferp get-buffer-create "%s 2>%s" (error) (quit) #[nil "\205! rq\210r\303 !q\210\304 )c\210)\n\205! \305\306\"\205! \307 \207" [outbuf v display tramp-get-connection-buffer buffer-string get-buffer-window t redisplay] 3] tramp-send-command-and-check "cd %s && %s" 1 kill-buffer tramp-get-connection-buffer -1 rename-file delete-file boundp process-file-side-effects tramp-flush-directory-property "" keyboard-quit localname hop ret outbuf tmpstderr stderr tmpinput input uenv env command program args elt --dolist-tail-- infile] 10 (#$ . 146691)])
#@41 Like `file-local-copy' for Tramp files.
(defalias 'tramp-sh-handle-file-local-copy #[(filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! @\314!\204 \315\316C A B ; C\317 DC\211 C\203C\320\321\322\323\324!! E\325\216E E\326 \210)rEq\210\327 +C A B F C\3301\374 FGX\205\370 \331 H\332\216D\203\246 F\333X\203\246 \334\335F\336U\203\210 \337\202\237 F\340U\203\223 \337\202\237 F\341U\203\236 \342\202\237 \343BPA#\210G\344Y\205\367 \345C!\203\300 \336 G\346C\347\317#C)F\340U\203\341 \336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\367 \334\353C\354\355F\"BPA$*0\202 \210\202\210,\202CG\320Y\203CI Jr\322\356!q\210p\357 \210JI\317\211KL\360\211M\360 N O\361 \210\362\363!\210+\211 P E\326 \210\364P!\210+)C\203\nC\340\365\366;\211\367N\334\370BA#E!C A B F C\3711FGX\205 \331 H\372\216D\203\256F\333X\203\256\334\335F\336U\203\220\337\202\247F\340U\203\233\337\202\247F\341U\203\246\342\202\247\343BPA#\210G\344Y\205\377\345C!\203\310\336 G\346C\347\317#C)F\340U\203\351\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\377\334\353C\354\355F\"BPA$*0\202\210\202 \210,\373;\334\370BA#C\"\210-\374\375\376!!8 Q\377 \201d Q# R\377 \201e Q# S\317 T U\317 V\201f \201g J\317 V\201h \201i !\203a\201j \201i \201k N@!\206\201l \201m !\203\206\201n \201m !\204\201o \201m !\205\201m \202\201p \201q !\211 W\205\231\201r W!)\203\253\201s \201p \201q !!\202\201p \201t !\211 W\205\276\201r W!)\203\320\201s \201p \201t !!\202\201p \201u !\211 W\205\343\201r W!)\203\365\201s \201p \201u !!\202\314\201v !\203\201s \201v !\202\335\201w !\210\201s \201x !)\" X\201y U\360\" Y\317 Z\201z 1O\201n \201{ !\204>\201o \201{ !\205H\201{ XTY#\211Z0\202\214\210\201| 1\202\201} X!YPZT\203p\201~ Z!\210\202}\201 \337\317Z\317\201\200 %\210\3170\202\206\210\202P\203\215\202P\210Z. [\201\201 1\n\n\201\202 !\204\253\201\203 Q\"\203\267\201\204 [\360\211$\202\nR\203\212 \333\201\205 \370\201\206 R#C A B F C\201\207 1vFGX\205r\331 H\201\210 \216D\203 F\333X\203 \334\335F\336U\203\337\202F\340U\203
\337\202F\341U\203\342\202\343BPA#\210G\344Y\205q\345C!\203:\336 G\346C\347\317#C)F\340U\203[\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205q\334\353C\354\355F\"BPA$*0\202z\210\202{\210,\201\211 D\205\315\333G\333^X\205\315\201\212 1\313\201n \201\213 !\204\247\201o \201\213 !\205\263\201\213 \370\201\206 R#!\211 \\\205\306\201\214 \333\201\215 \201\216 \\$)0\202\315\210\317 ] ^\201\217 \216\201\220 \354R\201\221
!\"\201\222 #\210\201\223 ^+ \333\201\205 \370\201\224 [S#C A B F C\201\225 1\247FGX\205\243\331 H\201\226 \216D\203QF\333X\203Q\334\335F\336U\2033\337\202JF\340U\203>\337\202JF\341U\203I\342\202J\343BPA#\210G\344Y\205\242\345C!\203k\336 G\346C\347\317#C)F\340U\203\214\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\242\334\353C\354\355F\"BPA$*0\202\253\210\202\254\210,\201\211 D\205\377\333G\333^X\205\377\201\227 1\375\201n \201\213 !\204\330\201o \201\213 !\205\345\201\213 \370\201\224 [S#!\211 \\\205\370\201\214 \333\201\215 \201\216 \\$)0\202\377\210\317 ] ^\201\230 \216\201o S!\203Z\317\201\231 _ V[\322\323\201\232 !! ` a\201\233 \216r`q\210\201\234 \317!\210\201\235 \201\236 !!\210Sed\"\210)r`q\210\201 \317\211a\317\336%\210.\202\346\317 T U\317 V\201f \201g J\317 V\201h \201i !\203\206\201j \201i \201k N@!\2069\201l \201m !\203\253\201n \201m !\204\244\201o \201m !\2059\201m \2029\201p \201q !\211 W\205\276\201r W!)\203\320\201s \201p \201q !!\2029\201p \201t !\211 W\205\343\201r W!)\203\365\201s \201p \201t !!\2029\201p \201u !\211 W\205\201r W!)\203\201s \201p \201u !!\2029\314\201v !\203,\201s \201v !\2029\335\201w !\210\201s \201x !)\" X\201y U\360\" Y\317 Z\201z 1t\201n \201{ !\204c\201o \201{ !\205m\201{ XTY#\211Z0\202\261\210\201| 1\247\201} X!YPZT\203\225\201~ Z!\210\202\242\201 \337\317Z\317\201\200 %\210\3170\202\253\210\202u\203\262\202u\210Z. b\317\201\231 _ Vr\201\236 !q\210\201 edb\317\201\237 %\210+\201\240 \216\201\241 Sb[#\210*\201\223 ^+\201\242 [\201\243 !\"\210\201\244 [!)\202\n \315\201\245 \nC A B ; C\317 DC\211 C\203\360C\320\321\322\323\324!! E\201\246 \216E E\326 \210)rEq\210\327 +C A B F C\201\247 1\347FGX\205\343\331 H\201\250 \216D\203\221F\333X\203\221\334\335F\336U\203s\337\202\212F\340U\203~\337\202\212F\341U\203\211\342\202\212\343BPA#\210G\344Y\205\342\345C!\203\253\336 G\346C\347\317#C)F\340U\203\314\336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\342\334\353C\354\355F\"BPA$*0\202\353\210\202\354\210,\202. G\320Y\203. I Jr\322\356!q\210p\357 \210JI\317\211KL\360\211M\360 N O\361 \210\362\363!\210+\211 P E\326 \210\364P!\210+)C\203\371 C\340\365\366;\211\367N\334\370BA#E!C A B F C\201\251 1\363 FGX\205\357 \331 H\201\252 \216D\203\235 F\333X\203\235 \334\335F\336U\203 \337\202\226 F\340U\203\212 \337\202\226 F\341U\203\225 \342\202\226 \343BPA#\210G\344Y\205\356 \345C!\203\267 \336 G\346C\347\317#C)F\340U\203\330 \336 Gr\350C!q\210B\321PB\351A\327 C\"A*\352C!\205\356 \334\353C\354\355F\"BPA$*0\202\367 \210\202\370 \210,\373;\334\370BA#C\"-0\202 \n c\201\253 [!\210\373c@cA\")\210\362\201\254 !\210[.\n\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-exists-p file-error "Cannot make local copy of non-existing file `%s'" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #6="" 1 2 #7="Warning: " #8="Tramp: " 4 processp tramp-get-connection-property #9="vector" tramp-get-connection-buffer append vectorp tramp-debug-message format #10="(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal 7 file-attributes file-truename tramp-get-inline-coding hop arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf size rem-enc loc-dec dir-flag f file-name-handler-alist d prefix extension result tmpfile pr tm cookie coding-system-for-write #3=#:temp-buffer #4=#:temp-file tmpfile2 err "remote-encoding" "local-decoding" expand-file-name tramp-temp-name-prefix boundp temporary-file-directory eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" "c:/temp" "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" file-name-extension (error) make-temp-file (file-already-exists) make-temp-name make-directory write-region silent (error quit) tramp-local-host-p tramp-method-out-of-band-p copy-file "%s..." #5="Encoding remote file `%s' with `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #\fD % & '\3151\300 &(X\205\274 \316 )\317\216*\203m &\311X\203m \320\321&\322U\203P \323\202g &\324U\203[ \323\202g &\325U\203f \326\202g \327%P
#\210(\330Y\205\273 \331'!\203\207 \322 (\332'\333\334#')&\324U\203\246 \322 (r\335'!q\210%\336P%\337
\340 C\"*\341'!\205\273 \320\342'\343\344&\"%P
$*0\202\302 \210\334,\207" [tm v filename rem-enc cookie arguments subrp cancel-timer functionp 3 #11="%s...%s" format-message #5# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 #6# 1 2 #7# #8# 4 processp tramp-get-connection-property #9# nil tramp-get-connection-buffer #13="\n%s" append buffer-string vectorp tramp-debug-message format #10# fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] tramp-barf-unless-okay tramp-shell-quote-argument "Encoding remote file failed" "done" #12="Decoding local file `%s' with `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #\fD % & '\3151\300 &(X\205\274 \316 )\317\216*\203m &\311X\203m \320\321&\322U\203P \323\202g &\324U\203[ \323\202g &\325U\203f \326\202g \327%P
#\210(\330Y\205\273 \331'!\203\207 \322 (\332'\333\334#')&\324U\203\246 \322 (r\335'!q\210%\336P%\337
\340 C\"*\341'!\205\273 \320\342'\343\344&\"%P
$*0\202\302 \210\334,\207" [tm v tmpfile loc-dec cookie arguments subrp cancel-timer functionp 3 #11# format-message #12# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 #6# 1 2 #7# #8# 4 processp tramp-get-connection-property #9# nil tramp-get-connection-buffer #13# append buffer-string vectorp tramp-debug-message format #10# fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] binary " *temp file*" #[nil "\301!\205 \302!\207" [#3# buffer-name kill-buffer] 2] set-buffer-multibyte insert-buffer-substring tramp-get-buffer no-message #[nil "\301!\207" [tmpfile2 delete-file] 2] tramp-call-local-coding-command set-file-modes tramp-default-file-modes tramp-set-file-uid-gid "Wrong method specification for `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] delete-file tramp-handle-file-local-copy-hook] 11 (#$ . 149124)])
#@56 Like `insert-file-contents-literally' for Tramp files.
(defalias 'tramp-sh-handle-insert-file-contents-literally #[(filename &optional visit beg end replace) "\306\211\307\211\310\311!\205\f \311K\312\313 \314\216\311\315M\210\313%.\207" [inhibit-file-name-operation inhibit-file-name-handlers find-buffer-file-type-function coding-system-for-write coding-system-for-read after-insert-file-functions nil no-conversion fboundp find-buffer-file-type (epa-file-handler image-file-handler jka-compr-handler) insert-file-contents #[nil "\203 \301M\207\302\301!\207" [find-buffer-file-type-function find-buffer-file-type fmakunbound] 2] #[(_filename) "\300\207" [t] 1] format-alist filename visit beg end replace] 7 (#$ . 159414)])
#@38 Like `write-region' for Tramp files.
(defalias 'tramp-sh-handle-write-region #[(start end filename &optional append visit lockname confirm) "\306!\307!\310 !\311 !\312 ! \313 ! \314 ! @A\203)\315!\203)\316\317\320\"!\204) \321\322\323 B C > D\323 ED\211 D\203D\324\325\326\327\330!! F\331\216F F\332 \210)rFq\210\333 +C B C G D\3341
GHX\205 \335 I\336\216E\203\267 G\337X\203\267 \340\341G\342U\203\231 \343\202\260 G\344U\203\244 \343\202\260 G\345U\203\257 \346\202\260 \347CPB#\210H\350Y\205\351D!\203\321 \342 H\352D\353\323#D)G\344U\203\362 \342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\340\357D\317\360G\"CPB$*0\202\210\202\210,\202TH\324Y\203TJ Kr\326\361!q\210p\362 \210KJ\323\211LM\363\211N\363 O P\364 \210\365\366!\210+\211 Q F\332 \210\367Q!\210+)D\203D\344\370\371>\211\372N\340\373CB#E!C B C G D\3741GHX\205\335 I\375\216E\203\277G\337X\203\277\340\341G\342U\203\241\343\202\270G\344U\203\254\343\202\270G\345U\203\267\346\202\270\347CPB#\210H\350Y\205\351D!\203\331\342 H\352D\353\323#D)G\344U\203\372\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\340\357D\317\360G\"CPB$*0\202\210\202\210,\376>\340\373CB#C\"\210-\345\377\201s \"8\206<\201t \201s \"\337\377\201s \"8\206O\201u \201s \" R S\201v !\203\226\323 T\201w \201x
!!\205w\201y
!\206w\201w
!)\203\226\201z \201{ UV
-\201| WA\257\"\210\202\344\212\201} !) X\323\211 Y T\201~ \201[ !\203\276\201 \201[ \201\200 N@!\206q\201\201 \201\202 !\203\343\201\203 \201\202 !\204\334\201\204 \201\202 !\205q\201\202 \202q\201\205 \201\206 !\211 Z\205\366\201y Z!)\203\201\207 \201\205 \201\206 !!\202q\201\205 \201\210 !\211 Z\205\201y Z!)\203-\201\207 \201\205 \201\210 !!\202q\201\205 \201\211 !\211 Z\205@\201y Z!)\203R\201\207 \201\205 \201\211 !!\202q\315\201\212 !\203d\201\207 \201\212 !\202q\341\201\213 !\210\201\207 \201\214 !) [\\\206\323\323 ] ^\323 T\306\201\215 J\323 T\201~ \201[ !\203\243\201 \201[ \201\200 N@!\206V\201\201 \201\202 !\203\310\201\203 \201\202 !\204\301\201\204 \201\202 !\205V\201\202 \202V\201\205 \201\206 !\211 Z\205\333\201y Z!)\203\355\201\207 \201\205 \201\206 !!\202V\201\205 \201\210 !\211 Z\205 \201y Z!)\203\201\207 \201\205 \201\210 !!\202V\201\205 \201\211 !\211 Z\205%\201y Z!)\2037\201\207 \201\205 \201\211 !!\202V\315\201\212 !\203I\201\207 \201\212 !\202V\341\201\213 !\210\201\207 \201\214 !)\" _\201\216 ^\363\" `\323 a\201\217 1\221\201\203 \201\220 !\204\200\201\204 \201\220 !\205\212\201\220 _]`#\211a0\202\316\210\201\221 1\304\201\222 _!`Pa]\203\262\201\223 a!\210\202\277\201{ \343\323a\323\201\224 %\210\3230\202\310\210\202\222\203\317\202\222\210a. b-\203\345\201\225 b\201\226 #\210\323\201\227 b\" c T\201\230 1\201z \201{ UVb-\201| WA\257\"0\202( d\323\\\201\231 b!\210\376d@dA\")\210\201~ \201o !\2039\201o JY*X\203W\201\232 b\201\233 X\206M\342\201\234 \201\235 !\"\"\210\201\236 \201\237 b!8 e\201\240 \201\241 e# f\201\240 \201\242 e# g\201v !\204\215\201\243 e\"\203\367U;\204\343V\206\231ddU\203\343U\206\244eeU\203\343\201\244 \201\245 \"\203\343b\\\201\246 1\312\201\225 b\363#0\202\337 d\323\\\201\231 b!\210\376d@dA\")\210\202\331\323\\\201\247 \216\201\225 b\363#\210)\202\331f\203\324
\201\250 \216\201\251 \201\252 ! hrhq\210\201\253 \216\201\254 \323!\210 \337\201\255 \373\201\256 bg#C B C G D\201\257 1\322GHX\205\316\335 I\201\260 \216E\203|G\337X\203|\340\341G\342U\203^\343\202uG\344U\203i\343\202uG\345U\203t\346\202u\347CPB#\210H\350Y\205\315\351D!\203\226\342 H\352D\353\323#D)G\344U\203\267\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\315\340\357D\317\360G\"CPB$*0\202\326\210\202\327\210,\201\261 E\205*\337H\337^X\205*\201\262 1(\201\203 \201\263 !\204\201\204 \201\263 !\205\201\263 \373\201\256 bg#!\211 i\205#\201\264 \337\201\265 \201\266 i$)0\202*\210\323 j k\201\267 \216\201\204 g!\203#\201\270 \323 T\201~ \201[ !\203Z\201 \201[ \201\200 N@!\206
\201\201 \201\202 !\203\201\203 \201\202 !\204x\201\204 \201\202 !\205
\201\202 \202
\201\205 \201\206 !\211 Z\205\222\201y Z!)\203\244\201\207 \201\205 \201\206 !!\202
\201\205 \201\210 !\211 Z\205\267\201y Z!)\203\311\201\207 \201\205 \201\210 !!\202
\201\205 \201\211 !\211 Z\205\334\201y Z!)\203\356\201\207 \201\205 \201\211 !!\202
\315\201\212 !\203 \201\207 \201\212 !\202
\341\201\213 !\210\201\207 \201\214 !) J l\201\271 b!\210ged\"\210*\2028\n\201\272 gb\363#\342U\2048\n \321\201\273 gD B C > D\323 ED\211 D\203! D\324\325\326\327\330!! F\201\274 \216F F\332 \210)rFq\210\333 +C B C G D\201\275 1 GHX\205 \335 I\201\276 \216E\203\302G\337X\203\302\340\341G\342U\203\244\343\202\273G\344U\203\257\343\202\273G\345U\203\272\346\202\273\347CPB#\210H\350Y\205 \351D!\203\334\342 H\352D\353\323#D)G\344U\203\375\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205 \340\357D\317\360G\"CPB$*0\202 \210\202 \210,\202_ H\324Y\203_ J Kr\326\361!q\210p\362 \210KJ\323\211LM\363\211N\363 O P\364 \210\365\366!\210+\211 Q F\332 \210\367Q!\210+)D\203*\nD\344\370\371>\211\372N\340\373CB#E!C B C G D\201\277 1$\nGHX\205 \n\335 I\201\300 \216E\203\316 G\337X\203\316 \340\341G\342U\203\260 \343\202\307 G\344U\203\273 \343\202\307 G\345U\203\306 \346\202\307 \347CPB#\210H\350Y\205 \n\351D!\203\350 \342 H\352D\353\323#D)G\344U\203 \n\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205 \n\340\357D\317\360G\"CPB$*0\202(\n\210\202)\n\210,\376>\340\373CB#C\"\210-\201\301 k+ \337\201\255 \373\201\302 f#C B C G D\201\303 1\367\nGHX\205\363\n\335 I\201\304 \216E\203\241\nG\337X\203\241\n\340\341G\342U\203\203\n\343\202\232\nG\344U\203\216\n\343\202\232\nG\345U\203\231\n\346\202\232\n\347CPB#\210H\350Y\205\362\n\351D!\203\273\n\342 H\352D\353\323#D)G\344U\203\334\n\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\362\n\340\357D\317\360G\"CPB$*0\202\373\n\210\202\374\n\210,\201\261 E\205N \337H\337^X\205N \201\305 1L \201\203 \201\263 !\204( \201\204 \201\263 !\2054 \201\263 \373\201\302 f#!\211 i\205G \201\264 \337\201\265 \201\266 i$)0\202N \210\323 j k\201\306 \216db\210n\204b \201\307 \210\201\310 \317f\201\311 P\201\312
!m\333 m%\"\210\201\313 \323\201\314 f%\210n\203\312
\364 \210\201\315 \201\316 b\363$\342U\203\312
\201\317 \317\201\320 \201\312
!\"\"\203\312
\333 r\201\321 !q\210\333 )\230\204\312
\321\201\314 fD B C > D\323 ED\211 D\203\263\fD\324\325\326\327\330!! F\201\322 \216F F\332 \210)rFq\210\333 +C B C G D\201\323 1\252\fGHX\205\246\f\335 I\201\324 \216E\203T\fG\337X\203T\f\340\341G\342U\2036\f\343\202M\fG\344U\203A\f\343\202M\fG\345U\203L\f\346\202M\f\347CPB#\210H\350Y\205\245\f\351D!\203n\f\342 H\352D\353\323#D)G\344U\203\217\f\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\245\f\340\357D\317\360G\"CPB$*0\202\256\f\210\202\257\f\210,\202\361\fH\324Y\203\361\fJ Kr\326\361!q\210p\362 \210KJ\323\211LM\363\211N\363 O P\364 \210\365\366!\210+\211 Q F\332 \210\367Q!\210+)D\203\274
D\344\370\371>\211\372N\340\373CB#E!C B C G D\201\325 1\266
GHX\205\262
\335 I\201\326 \216E\203`
G\337X\203`
\340\341G\342U\203B
\343\202Y
G\344U\203M
\343\202Y
G\345U\203X
\346\202Y
\347CPB#\210H\350Y\205\261
\351D!\203z
\342 H\352D\353\323#D)G\344U\203\233
\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\261
\340\357D\317\360G\"CPB$*0\202\272
\210\202\273
\210,\376>\340\373CB#C\"\210-\201\301 k.\202\331 \321\201\327 \nC B C > D\323 ED\211 D\203\302D\324\325\326\327\330!! F\201\330 \216F F\332 \210)rFq\210\333 +C B C G D\201\331 1\271GHX\205\265\335 I\201\332 \216E\203cG\337X\203c\340\341G\342U\203E\343\202\\G\344U\203P\343\202\\G\345U\203[\346\202\\\347CPB#\210H\350Y\205\264\351D!\203}\342 H\352D\353\323#D)G\344U\203\236\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\264\340\357D\317\360G\"CPB$*0\202\275\210\202\276\210,\202 H\324Y\203 J Kr\326\361!q\210p\362 \210KJ\323\211LM\363\211N\363 O P\364 \210\365\366!\210+\211 Q F\332 \210\367Q!\210+)D\203\313D\344\370\371>\211\372N\340\373CB#E!C B C G D\201\333 1\305GHX\205\301\335 I\201\334 \216E\203oG\337X\203o\340\341G\342U\203Q\343\202hG\344U\203\\\343\202hG\345U\203g\346\202h\347CPB#\210H\350Y\205\300\351D!\203\211\342 H\352D\353\323#D)G\344U\203\252\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\300\340\357D\317\360G\"CPB$*0\202\311\210\202\312\210,\376>\340\373CB#C\"\210-+Y\203\343Yo,\201\335 \201x
!\"\210\201\335
\"\210\323\363 p oq\363=\204 q;\2034\377\201s \" r\201\336 \201\337 r8!\210\345r8SU\2033\337r8RU\2033\323p)p\203C\201\340 SR#\210q\363=\204Uq\203Uq;\203
\342\201\341 C B C G D\201\342 1GHX\205\335 I\201\343 \216E\203\261G\337X\203\261\340\341G\342U\203\223\343\202\252G\344U\203\236\343\202\252G\345U\203\251\346\202\252\347CPB#\210H\350Y\205\351D!\203\313\342 H\352D\353\323#D)G\344U\203\354\342 Hr\354D!q\210C\325PC\355B\333 C\"B*\356D!\205\340\357D\317\360G\"CPB$*0\202 \210\202\f\210,\365\201\344 !.\n\207" [filename v method user host localname expand-file-name tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-exists-p y-or-n-p format "File %s exists; overwrite anyway? " file-error "File not overwritten" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #5="" 1 2 #6="Warning: " #7="Tramp: " 4 processp tramp-get-connection-property #8="vector" tramp-get-connection-buffer append vectorp tramp-debug-message #9="(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal tramp-compat-file-attributes hop confirm arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf gid uid file-name-handler-alist start end lockname modes coding-system-used d temporary-file-directory tramp-temp-buffer-file-name dir-flag f prefix extension result tmpfile file-coding-system-alist err size rem-dec loc-enc #3=#:temp-buffer pr tm cookie coding-system-for-read tramp-end-of-heredoc file-precious-flag last-coding-system-used need-chown visit file-attr 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 boundp eval standard-value fboundp temp-directory subrp functionp getenv "TEMP" file-name-as-directory "TMP" "TMPDIR" "c:/temp" "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" tramp-temp-name-prefix file-name-extension (error) make-temp-file (file-already-exists) make-temp-name make-directory silent copy-file ok tramp-find-file-name-coding-system-alist (error quit) delete-file set-file-modes logior tramp-compat-octal-to-decimal "0400" 7 file-attributes tramp-get-inline-coding "remote-decoding" "local-encoding" tramp-method-out-of-band-p tramp-get-method-parameter tramp-copy-keep-tmpfile (error quit) #[nil "\301!\207" [tmpfile delete-file] 2] #[nil "\301!\207" [tmpfile delete-file] 2] generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#3# buffer-name kill-buffer] 2] set-buffer-multibyte "%s..." #4="Encoding local file `%s' using `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) make-progress-reporter run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #\fD % & '\3151\300 &(X\205\274 \316 )\317\216*\203m &\311X\203m \320\321&\322U\203P \323\202g &\324U\203[ \323\202g &\325U\203f \326\202g \327%P
#\210(\330Y\205\273 \331'!\203\207 \322 (\332'\333\334#')&\324U\203\246 \322 (r\335'!q\210%\336P%\337
\340 C\"*\341'!\205\273 \320\342'\343\344&\"%P
$*0\202\302 \210\334,\207" [tm v tmpfile loc-enc cookie arguments subrp cancel-timer functionp 3 #10="%s...%s" format-message #4# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 #5# 1 2 #6# #7# 4 processp tramp-get-connection-property #8# nil tramp-get-connection-buffer #12="\n%s" append buffer-string vectorp tramp-debug-message format #9# fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] binary insert-file-contents-literally tramp-call-local-coding-command "Cannot write to `%s', local encoding command `%s' failed" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "done" #11="Decoding remote file `%s' using `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n #\fD % & '\3151\300 &(X\205\274 \316 )\317\216*\203m &\311X\203m \320\321&\322U\203P \323\202g &\324U\203[ \323\202g &\325U\203f \326\202g \327%P
#\210(\330Y\205\273 \331'!\203\207 \322 (\332'\333\334#')&\324U\203\246 \322 (r\335'!q\210%\336P%\337
\340 C\"*\341'!\205\273 \320\342'\343\344&\"%P
$*0\202\302 \210\334,\207" [tm v filename rem-dec cookie arguments subrp cancel-timer functionp 3 #10# format-message #11# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 #5# 1 2 #6# #7# 4 processp tramp-get-connection-property #8# nil tramp-get-connection-buffer #12# append buffer-string vectorp tramp-debug-message format #9# fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 7] 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 #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "Method `%s' should specify both encoding and decoding command or an scp program" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-flush-file-property set-visited-file-modtime 5 tramp-set-file-uid-gid "Wrote %s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-handle-write-region-hook] 11 (#$ . 160167)])
#@76 List used to collect file names, which are checked during `vc-registered'.
(defvar tramp-vc-registered-file-names nil (#$ . 175794))
#@39 Like `vc-registered' for Tramp files.
(defalias 'tramp-sh-handle-vc-registered #[(file) "\306\307\310\216 \203 \311 \312\313 \"\210\314\n!\315 ! \316 ! \317 ! @\320 ! A\321 ! B \322\323\324\325\n\"C C D E F\3261\334 EGX\205\330 \327 H\330\216I\203\206 E\322X\203\206 \331\312E\332U\203h \306\202 E\333U\203s \306\202 E\334U\203~ \335\202 \336DPC#\210G\337Y\205\327 \340F!\203\240 \332 G\341F\342\307#F)E\333U\203\301 \332 Gr\343F!q\210D\344PD\345C\346 C\"C*\347F!\205\327 \331\350F\351\352E\"DPC$*0\202\340 \210\202\341 \210,\353I\205\322G\322^X\205\3541\355\356!\204\357\356!\205\356\324\325\n\"!\211 J\205\360\322\361\362J$)0\202\210\307 K L\363\216\307\364 M\365BC N O P\3661<\367\370\nC\"0\202@\210\202A\210 \371\344PC C D E F\3721\356EGX\205\352\327 H\373\216I\203\230E\322X\203\230\331\312E\332U\203z\306\202\221E\333U\203\205\306\202\221E\334U\203\220\335\202\221\336DPC#\210G\337Y\205\351\340F!\203\262\332 G\341F\342\307#F)E\333U\203\323\332 Gr\343F!q\210D\344PD\345C\346 C\"C*\347F!\205\351\331\350F\351\352E\"DPC$*0\202\362\210\202\363\210,P\203m\374 \351Q\375 !\351\376\377 !\"#\201[ #\210\201\\ 1A\201] \351\201^ R\201_ \201` P\201a #R$\"\210r\343 !q\210eb\210\201b p!)0\202C\210\307\307 S\211 T\203lT@S\201c S@SA@SAA@$\210TA\211T\204L*+U\307\211 V O U\201d U>\203\306\201e \201W !\203\306\341 W\201f #\211 X\201f =\203\265\201g W\201h !#X\201i WX#\210X)\204\306\201j \201d U\"U\201k U>\203\201e \201Y !\203\341 Y\201f #\211 X\201f =\203\201g Y\201h !#X\201i YX#\210X)\204\201j \201k U\"U\201l U>\203b\201e \201Z !\203b\341 Z\201f #\211 X\201f =\203Q\201g Z\201h !#X\201i ZX#\210X)\204b\201j \201l U\"U\201m 1q\367\370\nC\"0\202s\210\307+\201n L.\f\207" [#1=#:current-message #2=#:with-temp-message file v method user #5="" nil #[nil "\205 \203
\302\303 \"\207\302\304!\207" [#2# #1# message #3="%s" nil] 3] current-message message #3# tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop 3 "%s..." format-message #4="Checking `vc-registered' for %s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply 0 1 2 #6="Warning: " #7="Tramp: " 4 processp tramp-get-connection-property #8="vector" tramp-get-connection-buffer #9="\n%s" append buffer-string vectorp tramp-debug-message format #10="(%d) # " "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n\" D % &\3151\272 %'X\205\266 \316 (\317\216)\203j %\311X\203j \320\321%\322U\203N \323\202e %\324U\203Y \323\202e %\325U\203d \326\202e \327
P\f#\210'\330Y\205\265 \331&!\203\204 \322 '\332&\333\334#&)%\324U\203\241 \322 'r\335&!q\210
\336P\337\f\340 C\"*\341&!\205\265 \320\342&\343\344%\"
P\f$*0\202\274 \210\334,\207" [tm v file cookie arguments fmt-string subrp cancel-timer functionp 3 "%s...%s" format-message #4# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 #5# 1 2 #6# #7# 4 processp tramp-get-connection-property #8# nil tramp-get-connection-buffer #9# append buffer-string vectorp tramp-debug-message format #10# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 6] current-time tramp-vc-file-name-handler (error) tramp-run-real-handler vc-registered 10 (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-maybe-send-script tramp-get-file-exists-command "%s -r" tramp-get-test-command host localname hop arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message pr tm cookie tramp-file-name-regexp file-name-handler-alist remote-file-name-inhibit-cache tramp-vc-registered-file-names tramp-vc-registered-read-file-names tramp-end-of-heredoc elt --dolist-tail-- vc-handled-backends process-file-side-effects vc-bzr-program value vc-git-program vc-hg-program "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 undef tramp-find-executable tramp-get-remote-path tramp-set-connection-property remq Git Hg (error) "done"] 10 (#$ . 175933)])
#@112 Invoke remote-shell Tramp file name handler.
Fall back to normal file name handler if no Tramp handler exists.
(defalias 'tramp-sh-file-name-handler #[(operation &rest args) "\203\346 \204\346\306\n\242\307\310\306 8\306 98\211 8\203\343 8\311\312\313\314\315!! :\316\216: :\317 \210)r:q\210\320 +C ; 8\3211\332 ;<X\205\326 \322 =\323\2169\203\212 ;\324X\203\212 \325\326;\327U\203n \330\202\205 ;\331U\203y \330\202\205 ;\332U\203\204 \333\202\205 \334\fP #\210<\335Y\205\325 \3368!\203\244 \327 <\3378\340\306#8);\331U\203\301 \327 <r\3418!q\210\f\312P\342 \320 C\"*\3438!\205\325 \325\3448\345\346;\"\fP $*0\202\336 \210\202\337 \210,\202!<\311Y\203!> ?r\313\347!q\210p\350 \210?>\306\211@A\351\211B\351 C D\352 \210\353\354!\210+\211 E :\317 \210\355E!\210+)8\203\3338\331\356\357
\211\360N\325\361\f #E!C ; 8\3621\325;<X\205\321\322 =\363\2169\203\205;\324X\203\205\325\326;\327U\203i\330\202\200;\331U\203t\330\202\200;\332U\203\333\202\200\334\fP #\210<\335Y\205\320\3368!\203\237\327 <\3378\340\306#8);\331U\203\274\327 <r\3418!q\210\f\312P\342 \320 C\"*\3438!\205\320\325\3448\345\346;\"\fP $*0\202\331\210\202\332\210,\305
\325\361\f #C\"\210- F\351\364\216\351\322 =\365\216\366GH\"\211 I\203 \325IAJ\"\202\367GJ\".\207" [tramp-locked tramp-locker tramp-current-connection arguments fmt-string signal nil file-error "Forbidden reentrant call of Tramp" 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] #[nil "\211\207" [tl tramp-locked] 2] #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] assoc tramp-run-real-handler vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf tl operation tramp-sh-file-name-handler-alist fn args] 11 (#$ . 180446)])
#@71 Invoke special file name handler, which collects files to be handled.
(defalias 'tramp-vc-file-name-handler #[(operation &rest args) "\306 \307\216\310\311\312 \n#!\313 \" \314
! \315! \316! \317! \320! \321! \f\203T \322>\203T \235\204P \323 C\" \324\202x \f\203b \325=\203b \326\202x \f\203t \306 \327\216\311\fA\n\"*\202x \330 \n\".\n\207" [save-match-data-internal operation args tramp-sh-file-name-handler-alist fn filename match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-replace-environment-variables apply tramp-file-name-for-operation assoc tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop (file-exists-p file-readable-p) append nil process-file 0 #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-run-real-handler v method user host localname hop tramp-vc-registered-file-names] 5 (#$ . 183057)])
#@47 Like `file-notify-add-watch' for Tramp files.
(defalias 'tramp-sh-handle-file-notify-add-watch #[(file-name flags _callback) "\306!\307!\310 !\311 !\312 ! \313 ! \314 ! @\315!\316\211\211\211\211 A B C D E F\317 !\211E\203m \320C\321G>\203O \322G>\203O \323\202b \321G>\203Z \324\202b \322G>\205b \325DE
DA\202\305\326 !\211E\203\256 \327C\321G>\203\213 \322G>\203\213 \330\202\236 \321G>\203\226 \331\202\236 \322G>\205\236 \332DE\333\334D
\257A\202\305 \335\336\337!C H I J K\316 LK\211 K\203\226K\340\341\342\343\344!! M\345\216M M\346 \210)rMq\210\347 +C H I N K\3501\215NOX\205\211\351 P\352\216L\2037N\353X\2037\354\355N\356U\203\357\2020N\360U\203$\357\2020N\361U\203/\362\2020\363IPH#\210O\364Y\205\210\365K!\203Q\356 O\366K\367\316#K)N\360U\203r\356 Or\370K!q\210I\341PI\371H\347 C\"H*\372K!\205\210\354\373K\374\375N\"IPH$*0\202\221\210\202\222\210,\202\340O\340Y\203\340F Qr\342\376!q\210p\377 \210QF\316\211RS\201X \211T\201X U V\201Y \210\201Z \201[ !\210+\211 W M\346 \210\201\\ W!\210+)K\203\263K\360\201] \201^ J\211\201_ N\354\201` IH#E!C H I N K\201a 1\255NOX\205\251\351 P\201b \216L\203WN\353X\203W\354\355N\356U\2039\357\202PN\360U\203D\357\202PN\361U\203O\362\202P\363IPH#\210O\364Y\205\250\365K!\203q\356 O\366K\367\316#K)N\360U\203\222\356 Or\370K!q\210I\341PI\371H\347 C\"H*\372K!\205\250\354\373K\374\375N\"IPH$*0\202\261\210\202\262\210,\201J J\354\201` IH#C\"\210-\354\201c \201d E!\201e \374\201f \201d E!\"!A$B\365B!\204 \335\201g \201h \201i A\201j #C H I J K\316 LK\211 K\203\343K\340\341\342\343\344!! M\201k \216M M\346 \210)rMq\210\347 +C H I N K\201l 1\332NOX\205\326\351 P\201m \216L\203\204N\353X\203\204\354\355N\356U\203f\357\202}N\360U\203q\357\202}N\361U\203|\362\202}\363IPH#\210O\364Y\205\325\365K!\203\236\356 O\366K\367\316#K)N\360U\203\277\356 Or\370K!q\210I\341PI\371H\347 C\"H*\372K!\205\325\354\373K\374\375N\"IPH$*0\202\336\210\202\337\210,\202-O\340Y\203-F Qr\342\376!q\210p\377 \210QF\316\211RS\201X \211T\201X U V\201Y \210\201Z \201[ !\210+\211 W M\346 \210\201\\ W!\210+)K\203 K\360\201] \201^ J\211\201_ N\354\201` IH#E!C H I N K\201n 1\372NOX\205\366\351 P\201o \216L\203\244N\353X\203\244\354\355N\356U\203\206\357\202\235N\360U\203\221\357\202\235N\361U\203\234\362\202\235\363IPH#\210O\364Y\205\365\365K!\203\276\356 O\366K\367\316#K)N\360U\203\337\356 Or\370K!q\210I\341PI\371H\347 C\"H*\372K!\205\365\354\373K\374\375N\"IPH$*0\202\376\210\202\377\210,\201J J\354\201` IH#C\"-\202@ \201p \201q \201h \201i A\201j #BD H I N K\201r 1\325NOX\205\321\351 P\201s \216L\203N\353X\203\354\355N\356U\203a\357\202xN\360U\203l\357\202xN\361U\203w\362\202x\363IPH#\210O\364Y\205\320\365K!\203\231\356 O\366K\367\316#K)N\360U\203\272\356 Or\370K!q\210I\341PI\371H\347 C\"H*\372K!\205\320\354\373K\374\375N\"IPH$*0\202\331\210\202\332\210,\201t B\367 #\210\201u B\201D D#\210\201u B\201v
#\210\201w B\316\"\210\201x BC\"\210\201y B\360\"\210\201z B!\201{ >\204> \335\201| C H I J K\316 LK\211 K\203K\340\341\342\343\344!! M\201} \216M M\346 \210)rMq\210\347 +C H I N K\201~ 1NOX\205\351 P\201 \216L\203\260N\353X\203\260\354\355N\356U\203\222\357\202\251N\360U\203\235\357\202\251N\361U\203\250\362\202\251\363IPH#\210O\364Y\205\365K!\203\312\356 O\366K\367\316#K)N\360U\203\353\356 Or\370K!q\210I\341PI\371H\347 C\"H*\372K!\205\354\373K\374\375N\"IPH$*0\202\n\210\202 \210,\202YO\340Y\203YF Qr\342\376!q\210p\377 \210QF\316\211RS\201X \211T\201X U V\201Y \210\201Z \201[ !\210+\211 W M\346 \210\201\\ W!\210+)K\203,K\360\201] \201^ J\211\201_ N\354\201` IH#E!C H I N K\201\200 1&NOX\205\"\351 P\201\201 \216L\203\320N\353X\203\320\354\355N\356U\203\262\357\202\311N\360U\203\275\357\202\311N\361U\203\310\362\202\311\363IPH#\210O\364Y\205!\365K!\203\352\356 O\366K\367\316#K)N\360U\203 \356 Or\370K!q\210I\341PI\371H\347 C\"H*\372K!\205!\354\373K\374\375N\"IPH$*0\202*\210\202+\210,\201J J\354\201` IH#C\"\210-B.\f\207" [file-name v method user host localname expand-file-name tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-name-directory nil tramp-get-remote-gvfs-monitor-dir tramp-sh-gvfs-monitor-dir-process-filter change attribute-change (created changed changes-done-hint moved deleted attribute-changed) (created changed changes-done-hint moved deleted) (attribute-changed) tramp-get-remote-inotifywait tramp-sh-inotifywait-process-filter "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" file-notify-error "No file notification program found on %s" file-remote-p 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*debug tramp*" kill-all-local-variables hop sequence p filter events command default-directory flags arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf t erase-buffer run-hooks temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] start-file-process file-name-nondirectory generate-new-buffer " *%s*" "`%s' failed to start on remote host" mapconcat identity " " #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 6 "Run `%s', %S" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-set-connection-property tramp-compat-process-put watch-name tramp-compat-set-process-query-on-exit-flag set-process-filter tramp-accept-process-output process-status (run open) "Monitoring not supported for `%s'" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 184068)])
#@79 Read output from "gvfs-monitor-dir" and add corresponding file-notify events.
(defalias 'tramp-sh-gvfs-monitor-dir-process-filter #[(proc string) "r\306!q\210\307 !)\310\302\"\n\203\274 \311\312\nC > ?\3131\266 >@X\205\262 \314 A\315\216B\203f >\316X\203f \317\320>\321U\203J \322\202a >\323U\203U \322\202a >\324U\203` \325\202a \326
P\f#\210@\327Y\205\261 \330?!\203\200 \321 @\331?\332\333#?)>\323U\203\235 \321 @r\334?!q\210
\335P\336\f\337 C\"*\340?!\205\261 \317\341?\342\343>\"
P\f$*0\202\272 \210\202\273 \210,\344\345CD > ?\3461`>@X\205\\\314 A\347\216B\203>\316X\203\317\320>\321U\203\364 \322\202 >\323U\203\377 \322\202 >\324U\203\n\325\202 \326
P\f#\210@\327Y\205[\330?!\203*\321 @\331?\332\333#?)>\323U\203G\321 @r\334?!q\210
\335P\336\f\337 C\"*\340?!\205[\317\341?\342\343>\"
P\f$*0\202d\210\202e\210,\nCPC\350\351\352C#C\353\354C\"\203\200\355!\210\353\356C\"\203\364\357\323C\" D\357\316C\" E\360\350\361\362\357\327C\"\227#! DPE\205\260 EPF F\363\322\333\211C$CFA@\364\235\203\323D\310\365\"\230\203\323\355!\210FA@\310\366\"\235\203\360\367\370!\204\353\371\370!\203\360\370F!\210+\202\200CG\321U\203\377\333CC\203\255\311\372CC > ?\3731\247>@X\205\243\314 A\374\216B\203W>\316X\203W\317\320>\321U\203;\322\202R>\323U\203F\322\202R>\324U\203Q\325\202R\326
P\f#\210@\327Y\205\242\330?!\203q\321 @\331?\332\333#?)>\323U\203\216\321 @r\334?!q\210
\335P\336\f\337 C\"*\340?!\205\242\317\341?\342\343>\"
P\f$*0\202\253\210\202\254\210,\375\302C#*\207" [proc default-directory rest-string remote-prefix arguments fmt-string process-buffer file-remote-p tramp-compat-process-get 10 "Previous string:\n%s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " 6 "%S\n%s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compat-replace-regexp-in-string "ATTRIB CHANGED" "ATTRIBUTE_CHANGED" string-match "Monitoring not supported" delete-process "^[\n
]*Directory Monitor Event:[\n
]+Child = \\([^\n
]+\\)[\n
]+\\(Other = \\([^\n
]+\\)[\n
]+\\)?Event = \\([^[:blank:]]+\\)[\n
]+" match-string intern-soft "_" "-" replace-match (moved deleted) watch-name events subrp file-notify-callback functionp "Rest string:\n%s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compat-process-put level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message string file file1 object] 8 (#$ . 191076)])
#@74 Read output from "inotifywait" and add corresponding file-notify events.
(defalias 'tramp-sh-inotifywait-process-filter #[(proc string) "\306\307 D \3101\224 \f@X\205\220 \311 A\312\216B\203L \f\313X\203L \314\315\f\316U\2032 \317\202G \f\320U\203< \317\202G \f\321U\203F \322\202G \323 P\n#\210@\324Y\205\217 \325
!\203c \316 @\326
\327\330#)\f\320U\203~ \316 @r\331
!q\210 \332P\333\n\334 C\"*\335
!\205\217 \314\336
\337\340\f\" P\n$*0\202\230 \210\202\231 \210,\341 \342\343#\330 C\211 D\205\276D@C\344\345C\"\204q\346\347CC < \330 B
\211 \203}
\350\332\351\352\353!! E\354\216E E\355 \210)rEq\210\334 +C \3561t\f@X\205p\311 A\357\216B\203,\f\313X\203,\314\315\f\316U\203\317\202'\f\320U\203 \317\202'\f\321U\203&\322\202'\323 P\n#\210@\324Y\205o\325
!\203C\316 @\326
\327\330#)\f\320U\203^\316 @r\331
!q\210 \332P\333\n\334 C\"*\335
!\205o\314\336
\337\340\f\" P\n$*0\202x\210\202y\210,\202\273@\350Y\203\273F Gr\351\360!q\210p\361 \210GF\330\211HI\362\211J\362 K L\363 \210\364\365!\210+\211 M E\355 \210\366M!\210+)
\203e
\320\347\367<\211\370N\314\371 \n#E!C \3721_\f@X\205[\311 A\373\216B\203\f\313X\203\314\315\f\316U\203\375\317\202\f\320U\203\317\202\f\321U\203\322\202\323 P\n#\210@\324Y\205Z\325
!\203.\316 @\326
\327\330#)\f\320U\203I\316 @r\331
!q\210 \332P\333\n\334 C\"*\335
!\205Z\314\336
\337\340\f\" P\n$*0\202c\210\202d\210,\374<\314\371 \n#C\"\210-\375\376\341\377\320C\"\201O \343#\"\377\313C\"E\211 NA@\201P \232\203\230\201Q !\210\201R \201S !\204\254\201T \201S !\203\263\201S N!\210)DA\211D\204\250 \330*\207" [proc string arguments fmt-string level vec-or-proc 6 "%S\n%s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " split-string "[\n
]+" omit-nulls string-match "^[^[:blank:]]+[[:blank:]]+\\([^[:blank:]]+\\)+\\([[:blank:]]+\\([^\n
]+\\)\\)?" file-notify-error "%s" 10 get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal mapcar #[(x) "\301\302\303\304\227#!\207" [x intern-soft tramp-compat-replace-regexp-in-string "_" "-"] 5] match-string tramp-verbose save-match-data-internal tramp-message-show-message line --dolist-tail-- standard-output default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf object "," ignored delete-process subrp file-notify-callback functionp] 11 (#$ . 193883)])
#@119 Define in remote shell function NAME implemented as SCRIPT.
Only send the definition if it has not already been done.
(defalias 'tramp-maybe-send-script #[(vec script name) "\306\307!\310\311#\n \235?\205 \312\313\314\315\n\"C @\3161\254
AX\205\250 \317 B\320\216C\203^
\321X\203^ \322\323
\324U\203D \325\202Y
\326U\203N \325\202Y
\327U\203X \330\202Y \331\fP #\210A\332Y\205\247 \333@!\203x \324 A\306@\334\311#@)
\326U\203\224 \324 Ar\335@!q\210\f\336P\337 \340 C\"*\341@!\205\247 \322\342@\343\344
\"\fP $*0\202\260 \210\202\261 \210,\345C\205\353 \312A\321^X\205\353 \3461\351 \347\350!\204\321 \351\350!\205\327 \350\314\315\n\"!\211 D\205\344 \352\321\353\354D$)0\202\353 \210\311 E F\355\216\356\357\326\360\"\357\361\362\"G#G\363\364G\"\203\365\365!\204\365\366\367\311 H @\311 C@\211 @\203\336@\370\336\371\372\373!! I\374\216I I\375 \210)rIq\210\340 +C @\3761\325
AX\205\321\317 B\377\216C\203\207
\321X\203\207\322\323
\324U\203m\325\202\202
\326U\203w\325\202\202
\327U\203\201\330\202\202\331\fP #\210A\332Y\205\320\333@!\203\241\324 A\306@\334\311#@)
\326U\203\275\324 Ar\335@!q\210\f\336P\337 \340 C\"*\341@!\205\320\322\342@\343\344
\"\fP $*0\202\331\210\202\332\210,\202,A\370Y\203,J Kr\371\201R !q\210p\201S \210KJ\311\211LM\201T \211N\201T O P\201U \210\201V \201W !\210+\211 Q I\375 \210\201X Q!\210+)@\203\347@\326\364\201Y H\211\201Z N\322\314\f #E!C @\201[ 1\341
AX\205\335\317 B\201\\ \216C\203\223
\321X\203\223\322\323
\324U\203y\325\202\216
\326U\203\203\325\202\216
\327U\203\215\330\202\216\331\fP #\210A\332Y\205\334\333@!\203\255\324 A\306@\334\311#@)
\326U\203\311\324 Ar\335@!q\210\f\336P\337 \340 C\"*\341@!\205\334\322\342@\343\344
\"\fP $*0\202\345\210\202\346\210,\201H H\322\314\f #C\"\210-\201] \343\201^ \n\343G\365!\"#\201_ \n$\210\201` \307!\310\n B#\201a F+)\207" [vec scripts name arguments fmt-string level tramp-get-connection-property tramp-get-connection-process "scripts" nil 5 "%s..." format-message #1="Sending script `%s'" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp #5="vector" tramp-get-connection-buffer #6="\n%s" append buffer-string vectorp tramp-debug-message format #7="(%d) # " "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n\" D & '\3151\272 &(X\205\266 \316 )\317\216*\203j &\320X\203j \321\322&\323U\203N \324\202e &\325U\203Y \324\202e &\326U\203d \327\202e \330
P\f#\210(\331Y\205\265 \332'!\203\204 \323 (\333'\334\335#')&\325U\203\241 \323 (r\336'!q\210
\337P\340\f\341 C\"*\342'!\205\265 \321\343'\344\345&\"
P\f$*0\202\274 \210\335,\207" [tm vec name cookie arguments fmt-string subrp cancel-timer functionp 5 "%s...%s" format-message #1# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #2# 1 2 #3# #4# 4 processp tramp-get-connection-property #5# nil tramp-get-connection-buffer #6# append buffer-string vectorp tramp-debug-message format #7# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 6] tramp-compat-replace-regexp-in-string make-string 9 8 32 string-match "%s" tramp-get-remote-perl file-error "No Perl available on remote host" 10 get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message pr tm cookie script signal standard-output default-directory #8=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #9=#:buf "*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 (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-barf-unless-okay "%s () {\n%s\n}" "Script %s sending failed" tramp-set-connection-property "done"] 11 (#$ . 196979)])
#@110 Run `test' on the remote system, given a SWITCH and a FILENAME.
Returns the exit code of the `test' program.
(defalias 'tramp-run-test #[(switch filename) "\306!\307 !\310 !\311 ! \312 ! \313 ! \314 \315\316\317 !\320
!$\".\207" [filename v method user host localname tramp-dissect-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop tramp-send-command-and-check format "%s %s %s" tramp-get-test-command tramp-shell-quote-argument hop switch] 8 (#$ . 201334)])
#@232 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.
(defalias 'tramp-run-test2 #[(format-string file1 file2) "\306 \"\204$\307\310!\203 \202 !\311\n!\312\n! \313\n! \314\n! ?\315\n! @\n\316\317\320 A B < C\320 DC\211 C\203C\321\322\323\324\325!! E\326\216E E\327 \210)rEq\210\330 +C A B F C\3311FGX\205\332 H\333\216D\203\261 F\334X\203\261 \335\336F\337U\203\223 \340\202\252 F\341U\203\236 \340\202\252 F\342U\203\251 \343\202\252 \344BPA#\210G\345Y\205\346C!\203\313 \337 G\347C\350\320#C)F\341U\203\354 \337 Gr\351C!q\210B\322PB\352A\330 C\"A*\353C!\205\335\354C\355\356F\"BPA$*0\202 \210\202\f\210,\202NG\321Y\203NI Jr\323\357!q\210p\360 \210JI\320\211KL\361\211M\361 N O\362 \210\363\364!\210+\211 P E\327 \210\365P!\210+)C\203C\341\366\367<\211\370N\335\371BA#E!C A B F C\3721FGX\205 \332 H\373\216D\203\271F\334X\203\271\335\336F\337U\203\233\340\202\262F\341U\203\246\340\202\262F\342U\203\261\343\202\262\344BPA#\210G\345Y\205\n\346C!\203\323\337 G\347C\350\320#C)F\341U\203\364\337 Gr\351C!q\210B\322PB\352A\330 C\"A*\353C!\205\n\335\354C\355\356F\"BPA$*0\202\210\202\210,\374<\335\371BA#C\"\210. \307! Q\311Q! R\312Q! S\313Q! T\314Q! U\315Q! V\307! W\311W! X\312W! Y\313W! Z\314W! [\315W! \\\375Q\355]\376U!\376[!#\".\f\207" [file1 file2 v method user host tramp-equal-remote tramp-dissect-file-name tramp-tramp-file-p tramp-file-name-method tramp-file-name-user tramp-file-name-host tramp-file-name-localname tramp-file-name-hop file-error "tramp-run-test2 only implemented for same method, user, host" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal tramp-send-command-and-check tramp-shell-quote-argument localname hop arguments fmt-string vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf v1 v1-method v1-user v1-host v1-localname v1-hop v2 v2-method v2-user v2-host v2-localname v2-hop format-string] 11 (#$ . 201879)])
#@471 Searches 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.
(defalias 'tramp-find-executable #[(vec progname dirlist &optional ignore-tilde ignore-path) "r\306!q\210\307\n\204, \310\311\312\313\314#\"\204, \315\316\317 \"\"\210eb\210\320\321!\203, \322 P \204\214 \f\203_ \307\211 !\203Y !@!A!\323\324
\325H\"\2049
B \2029 \237!*\315\316\326 \211\211\"\327\330!\331#\"&\"\210db\210\332\333\307\334#\203\214 \335\307w\210\336\307w\210`\337 { *\207" [vec result ignore-path progname ignore-tilde d tramp-get-connection-buffer nil string-match "\\(?:SunOS 5\\.1[01]\\)" tramp-get-connection-property "uname" "" tramp-send-command format "which \\%s | wc -w" looking-at "^\\s-*1$" "\\" 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" mapconcat identity "\n" search-backward "tramp_executable " t "^ " " " point-at-eol newdl dirlist tramp-end-of-heredoc] 12 (#$ . 204868)])
#@196 Sets 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.
(defalias 'tramp-set-remote-path #[(vec) "\306\307\310 \3111\216
X\205\212 \312 '\313\216(\203I \314X\203I \315\316 \317U\203/ \320\202D \321U\2039 \320\202D \322U\203C \323\202D \324\nP #\210
\325Y\205\211 \326\f!\203^ \317 \327\f\330\310#) \321U\203x \317 r\331\f!q\210\n\332P\333 \334 C\"*\335\f!\205\211 \315\336\f\337\340 \"\nP $*0\202\222 \210\202\223 \210,\341\337\342\343\344\345!\346#\"\"\207" [vec arguments fmt-string level vec-or-proc tramp-verbose 5 "Setting $PATH environment variable" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command "PATH=%s; export PATH" mapconcat identity tramp-get-remote-path ":" save-match-data-internal tramp-message-show-message] 8 (#$ . 206267)])
#@182 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.
(defalias 'tramp-find-file-exists-command #[(vec) "\306\307\310!\311\3121/ \313\314\315 !\"\211\205+ \316 \313\317\n#\"\205+ \316 \313\317 #\"?0\2023 \210\2026 \204\234\3201X \321\211\205T \316 \313\317\n#\"\205T \316 \313\317 #\"?0\202\\ \210\202_ \204\234\3221\201 \323\211\205} \316 \313\317\n#\"\205} \316 \313\317 #\"?0\202\205 \210\202\210 \204\234\3241\257 \313\325\326 !\"\211\205\253 \316 \313\317\n#\"\205\253 \316 \313\317 #\"?0\202\261 \210\311\204\234 \327\330\311 @ A\311 BA\211 A\203\215A\331\332\333\334\335!! C\336\216C C\337 \210)rCq\210\340 +C D A\3411\204DEX\205\200\342 F\343\216B\2034D\344X\2034\345\346D\347U\203\350\202/D\351U\203#\350\202/D\352U\203.\353\202/\354
P\f#\210E\355Y\205\356A!\203N\347 E\357A\360\311#A)D\351U\203k\347 Er\361A!q\210
\332P\362\f\340 C\"*\363A!\205\345\364A\313\365D\"
P\f$*0\202\210\210\202\211\210,\202\313E\331Y\203\313G Hr\333\366!q\210p\367 \210HG\311\211IJ\370\211K\370 L M\371 \210\372\373!\210+\211 N C\337 \210\374N!\210+)A\203\214A\351\375\376@\211\377N\345\201O
\f#E!C D A\201P 1\206DEX\205\202\342 F\201Q \216B\2036D\344X\2036\345\346D\347U\203\350\2021D\351U\203%\350\2021D\352U\2030\353\2021\354
P\f#\210E\355Y\205\201\356A!\203P\347 E\357A\360\311#A)D\351U\203m\347 Er\361A!q\210
\332P\362\f\340 C\"*\363A!\205\201\345\364A\313\365D\"
P\f$*0\202\212\210\202\213\210,\201@ @\345\201O
\f#C\"\210-+\207" [result nonexistent existing vec arguments fmt-string "/" 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" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message "(%d) # " "*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 signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 207443)])
#@20 Opens shell SHELL.
(defalias 'tramp-open-shell #[(vec shell) "\306\307\310\311 \"C \3121\226 \f;X\205\222 \313 <\314\216=\203N \f\315X\203N \316\317\f\320U\2034 \321\202I \f\322U\203> \321\202I \f\323U\203H \324\202I \325 P\n#\210;\326Y\205\221 \327
!\203e \320 ;\330
\331\332#)\f\322U\203\200 \320 ;r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\221 \316\340
\341\342\f\" P\n$*0\202\232 \210\202\233 \210,\343=\205\325 \306;\315^X\205\325 \3441\323 \345\346!\204\273 \347\346!\205\301 \346\310\311 \"!\211 >\205\316 \350\315\351\352>$)0\202\325 \210\332 ? @\353\216A\332\211 B C DD\203 B\204 D\211AD\242C\354C@ \"\203\345 CAB\202\345 \355\341\356E;\203 \341\357\360E!\"\202'E\203&\361\202'\321\360F! B\2062\321%\362#\210E;\203S\363E!\203S\364\341\365\360\363E!!\"\366E$\210+\367\370!\371 #\372@+\207" [vec shell arguments fmt-string level vec-or-proc 5 "%s..." format-message #1="Opening remote shell `%s'" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #2="" 1 2 #3="Warning: " #4="Tramp: " 4 processp tramp-get-connection-property #5="vector" nil tramp-get-connection-buffer #6="\n%s" append buffer-string vectorp tramp-debug-message format #7="(%d) # " "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313\314\n\" D & '\3151\272 &(X\205\266 \316 )\317\216*\203j &\320X\203j \321\322&\323U\203N \324\202e &\325U\203Y \324\202e &\326U\203d \327\202e \330
P\f#\210(\331Y\205\265 \332'!\203\204 \323 (\333'\334\335#')&\325U\203\241 \323 (r\336'!q\210
\337P\340\f\341 C\"*\342'!\205\265 \321\343'\344\345&\"
P\f$*0\202\274 \210\335,\207" [tm vec shell cookie arguments fmt-string subrp cancel-timer functionp 5 "%s...%s" format-message #1# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 #2# 1 2 #3# #4# 4 processp tramp-get-connection-property #5# nil tramp-get-connection-buffer #6# append buffer-string vectorp tramp-debug-message format #7# level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 6] string-match tramp-send-command "exec env ENV='' %s PROMPT_COMMAND='' PS1=%s PS2='' PS3='' %s %s" "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-verbose save-match-data-internal tramp-message-show-message pr tm cookie tramp-sh-extra-args extra-args item alist tramp-histfile-override tramp-end-of-output] 9 (#$ . 210411)])
#@63 Opens a shell on the remote host which groks tilde expansion.
(defalias 'tramp-find-shell #[(vec) "r\306!q\210\307\310\"\311\312\313\314#\211\314=\203\376 \315\316\317#\210\320\321\322 \"\2042 \320\323\312\324\325#\"\203\366 \326\327\330!\317\211%\206\367 \326\331\330!\317\211%\206\367 \n\332\333\nC 6 7\3341\355 68X\205\351 \335 9\336\216:\203\235 6\337X\203\235 \340\3416\342U\203\201 \325\202\230 6\343U\203\214 \325\202\230 6\332U\203\227 \344\202\230 \345
P\f#\2108\346Y\205\350 \3477!\203\267 \342 8\3127\350\311#7)6\343U\203\324 \342 8r\3517!q\210
\352P\353\f\322 C\"*\3547!\205\350 \340\3557\356\3576\"
P\f$*0\202\361 \210\202\362 \210,\202\367 \n\360\313 #\210 )\211\n\230?\205\264\361\362 C 6 7\3631\25268X\205\246\335 9\364\216:\203Z6\337X\203Z\340\3416\342U\203>\325\202U6\343U\203I\325\202U6\332U\203T\344\202U\345
P\f#\2108\346Y\205\245\3477!\203t\342 8\3127\350\311#7)6\343U\203\221\342 8r\3517!q\210
\352P\353\f\322 C\"*\3547!\205\245\340\3557\356\3576\"
P\f$*0\202\256\210\202\257\210,\365 \"+\207" [vec shell default-shell value arguments fmt-string tramp-get-buffer tramp-get-method-parameter tramp-remote-shell nil tramp-get-connection-property "remote-shell" undef tramp-send-command "echo ~root" t string-match "^~root$" buffer-string "\\(?: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) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 1 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append vectorp tramp-debug-message format "(%d) # " tramp-set-connection-property 5 "Starting remote shell `%s' for tilde expansion" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-open-shell level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 8 (#$ . 213217)])
#@189 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.
(defalias 'tramp-barf-if-no-shell-prompt #[(proc timeout &rest error-args) "\306\307\310#\3111 \312\n\313\314 \f##0\202% \210\315!\210\316\317\320 ! \321
%)\207" [proc vec timeout shell-prompt-pattern tramp-shell-prompt-pattern error-args tramp-get-connection-property "vector" nil (error) tramp-wait-for-regexp format "\\(%s\\|%s\\)\\'" delete-process apply tramp-error-with-buffer tramp-get-connection-buffer file-error] 7 (#$ . 215261)])
#@146 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.
(defalias 'tramp-open-connection-setup-interactive-shell #[(proc vec) "\306\307 \310 \311\"\"\210 \312\313\314 @ A\3151\255 @BX\205\251 \316 C\317\216D\203] @\320X\203] \321\322@\323U\203A \324\202X @\325U\203L \324\202X @\326U\203W \327\202X \330
P\f#\210B\331Y\205\250 \332A!\203w \323 B\333A\334\314#A)@\325U\203\224 \323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205\250 \321\342A\343\344@\"
P\f$*0\202\261 \210\202\262 \210,\345 \346\306#\210\345 \347\306#\210r\350E!q\210eb\210\351\347!\203\203\352E\353\306#\210 \312\354\314 @ A\3551w@BX\205s\316 C\356\216D\203'@\320X\203'\321\322@\323U\203 \324\202\"@\325U\203\324\202\"@\326U\203!\327\202\"\330
P\f#\210B\331Y\205r\332A!\203A\323 B\333A\334\314#A)@\325U\203^\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205r\321\342A\343\344@\"
P\f$*0\202{\210\202|\210,\345 \357\306#\210+ \312\360\314 @ A\3611%@BX\205!\316 C\362\216D\203\325@\320X\203\325\321\322@\323U\203\271\324\202\320@\325U\203\304\324\202\320@\326U\203\317\327\202\320\330
P\f#\210B\331Y\205 \332A!\203\357\323 B\333A\334\314#A)@\325U\203\f\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205 \321\342A\343\344@\"
P\f$*0\202)\210\202*\210,\345 \343\363\364\n!\"\306#\210 \312\365\314 @ A\3661\327@BX\205\323\316 C\367\216D\203\207@\320X\203\207\321\322@\323U\203k\324\202\202@\325U\203v\324\202\202@\326U\203\201\327\202\202\330
P\f#\210B\331Y\205\322\332A!\203\241\323 B\333A\334\314#A)@\325U\203\276\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205\322\321\342A\343\344@\"
P\f$*0\202\333\210\202\334\210,\333 \370\314#\352 \370\371 \372\"# F\211 G;\203\267GF\230\204\267 \320\373GFD @ A\3741\240@BX\205\234\316 C\375\216D\203P@\320X\203P\321\322@\323U\2034\324\202K@\325U\203?\324\202K@\326U\203J\327\202K\330
P\f#\210B\331Y\205\233\332A!\203j\323 B\333A\334\314#A)@\325U\203\207\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205\233\321\342A\343\344@\"
P\f$*0\202\244\210\202\245\210,\376 \306\211#\210\377\201T \201U !\"\210 \312\201V \314 @ A\201W 1^@BX\205Z\316 C\201X \216D\203@\320X\203\321\322@\323U\203\362\324\202 @\325U\203\375\324\202 @\326U\203\327\202 \330
P\f#\210B\331Y\205Y\332A!\203(\323 B\333A\334\314#A)@\325U\203E\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205Y\321\342A\343\344@\"
P\f$*0\202b\210\202c\210,r\350E!q\210\201Y \201Z !\203\201[ \201\\ >\203\227\201] \201^ \201_ !\"\203\227\201[ \211B\206\271\201` \201a !\204\253\201b \201a !\203\264\201a E!\206\271\201c \211B\314\211 H I\211 J9\203\314J\211BJJ@\206\325\201c IJA\206\340\201c H\201d H\201] \201e F\"\203\371\201f \202\374\201g \"H\345 \201h \306#\210eb\210\201i \201j \314\306#\203!\201d I\201k \"I\201] \201e F\"\203@\201l \201\\ >\203@\201l \211IH\201` \201m !\204T\201b \201m !\203]\201m IH\"\210 \312\201n IHD @ A\201o 1@BX\205\316 C\201p \216D\203\270@\320X\203\270\321\322@\323U\203\234\324\202\263@\325U\203\247\324\202\263@\326U\203\262\327\202\263\330
P\f#\210B\331Y\205\332A!\203\322\323 B\333A\334\314#A)@\325U\203\357\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205\321\342A\343\344@\"
P\f$*0\202\f\210\202
\210.\202&\201i \201j \314\306#\203&\345 \201q \306#\210)\345 \201r \306#\210\333E\201s \201t #\211 K\201t =\203!L\250\203UL\323V\203UL\202 \312\201u \314 @ A\201v 1\374@BX\205\370\316 C\201w \216D\203\254@\320X\203\254\321\322@\323U\203\220\324\202\247@\325U\203\233\324\202\247@\326U\203\246\327\202\247\330
P\f#\210B\331Y\205\367\332A!\203\306\323 B\333A\334\314#A)@\325U\203\343\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205\367\321\342A\343\344@\"
P\f$*0\202 \210\202\210,\201] \201x F\"\203\201y \202\323K\352E\201s K#\210)\201z !\210\201{ !\210\345 \201| \306#\210\201] \201} F\"\203J\345 \201~ \306#\210\201] \201 F\"\203a\345 \201\200 \306#\210\202i\345 \201\201 \306#\210\345 \201\202 \306#\210\371 \201\203 \201\204 #\211 MG\323U\204\217\201\205 E\201\206 M#\210)B\201\207 Y\203\241\345 \201\210 \306#\210 \312\201\211 \314 @ A\201\212 1H@BX\205D\316 C\201\213 \216D\203\370@\320X\203\370\321\322@\323U\203\334\324\202\363@\325U\203\347\324\202\363@\326U\203\362\327\202\363\330
P\f#\210B\331Y\205C\332A!\203\323 B\333A\334\314#A)@\325U\203/\323 Br\335A!q\210
\336P\337\f\340 C\"*\341A!\205C\321\342A\343\344@\"
P\f$*0\202L\210\202M\210,\337\201_ !C\201\214 N!\"\314\211\211 O P Q\211 R\203\272\201\215 R@\201\216 \"\211O\201\217 \201\220 OA\201\216 #\241\210OA;\203\251OA\324\230\204\251\343\201\221 O@OA#PBP\202\261O@QBQRA\211R\204kP\203\331\345 \343\201\222 S\201\217 \201\220 P\201\223 #S$\306#\210Q\205\363\345 \343\201\224 \201\217 \201\220 Q\201\225 #\"\306#.\207" [tramp-initial-end-of-output case-fold-search tramp-end-of-output vec arguments fmt-string t tramp-open-shell tramp-get-method-parameter tramp-remote-shell 5 "Setting up remote shell environment" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command "stty -inlcr -onlcr -echo kill '^U' erase '^H'" "echo foo" process-buffer looking-at tramp-set-connection-property "remote-echo" "Remote echo still on. Ok." (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "stty icanon erase ^H cols 32767" "Setting shell prompt" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "PS1=%s PS2='' PS3='' PROMPT_COMMAND=''" tramp-shell-quote-argument "Checking system information" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "uname" tramp-send-command-and-read "echo \\\"`uname -sr`\\\"" "Connection reset, because remote host changed from `%s' to `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-cleanup-connection throw level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message proc uname old-uname cs-encode cs-decode cs value tramp-chunksize tty tramp-remote-process-environment item vars unset env tramp-end-of-heredoc uname-changed tramp-maybe-open-connection "Determining coding system" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] featurep mule utf-8 coding-system-list string-match "utf-?8" tramp-get-remote-locale subrp process-coding-system functionp undecided tramp-compat-coding-system-change-eol-conversion "^Darwin" mac unix "echo foo ; echo bar" search-forward "
" dos utf-8-hfs set-buffer-process-coding-system "Setting coding system to `%s' and `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "stty -onlcr" "set +o vi +o emacs" "chunksize" undef "Checking remote host type for `send-process-string' bug" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^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 tramp-compat-process-put remote-tty 9 "stty -a" "Setting default environment" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] copy-sequence tramp-compat-split-string "=" mapconcat identity "%s %s" "while read var val; do export $var=$val; done <<'%s'\n%s\n%s" "\n" "unset %s" " "] 10 (#$ . 215902)])
(autoload 'uudecode-decode-region "uudecode")
#@796 List of local coding commands for inline transfer.
Each item is a list that looks like this:
(FORMAT ENCODING DECODING)
FORMAT is 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) (#$ . 223935))
#@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) (#$ . 225001))
#@134 Find an inline transfer encoding that works.
Goes through the list `tramp-local-coding-commands' and
`tramp-remote-coding-commands'.
(defalias 'tramp-find-inline-encoding #[(vec) "\212\306\307 !\310\211\211\211\211\211\211\211 @ A B C D E FF\203\265\n\204\265F\211AF\242\3112\261\f@G H \"\fA@C\312\f8BC;\204 \313\314CC I J K L\3151\372 KMX\205\366 \316 N\317\216O\203\244 K\320X\203\244 \321\322K\323U\203\206 \324\202\235 K\325U\203\221 \324\202\235 K\312U\203\234 \326\202\235 \327JPI#\210M\330Y\205\365 \331L!\203\276 \323 M\332L\333\310#L)K\325U\203\337 \323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205\365 \321\341L\342\343K\"JPI$*0\202\376 \210\202\377 \210,\202\306 \313\344CC I J K L\3451\260KMX\205\254\316 N\346\216O\203ZK\320X\203Z\321\322K\323U\203<\324\202SK\325U\203G\324\202SK\312U\203R\326\202S\327JPI#\210M\330Y\205\253\331L!\203t\323 M\332L\333\310#L)K\325U\203\225\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205\253\321\341L\342\343K\"JPI$*0\202\264\210\202\265\210,\347C\310\211#\323U\204\306\350\311\310\"\210B;\204\202 \313\351BC I J K L\3521yKMX\205u\316 N\353\216O\203#K\320X\203#\321\322K\323U\203\324\202 K\325U\203\324\202 K\312U\203\326\202 \327JPI#\210M\330Y\205t\331L!\203=\323 M\332L\333\310#L)K\325U\203^\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205t\321\341L\342\343K\"JPI$*0\202}\210\202~\210,\202E \313\354BC I J K L\3551/KMX\205+\316 N\356\216O\203\331K\320X\203\331\321\322K\323U\203\273\324\202\322K\325U\203\306\324\202\322K\312U\203\321\326\202\322\327JPI#\210M\330Y\205*\331L!\203\363\323 M\332L\333\310#L)K\325U\203\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205*\321\341L\342\343K\"JPI$*0\2023\210\2024\210,\347B\310\211#\323U\204E\350\311\310\"\210H\205\257\n?\205\257H\211AH\242\3572\253\" @\232\205\252 A@A\312 8@\320 8\211;\2035 \313\360
C I J K L\3611\"KMX\205 \316 N\362\216O\203\314K\320X\203\314\321\322K\323U\203\256\324\202\305K\325U\203\271\324\202\305K\312U\203\304\326\202\305\327JPI#\210M\330Y\205 \331L!\203\346\323 M\332L\333\310#L)K\325U\203\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205 \321\341L\342\343K\"JPI$*0\202&\210\202'\210,\363
\364#\2045\350\357\310\"\210A9\203P\365\366\367A!\"\203P\370 !\204P\350\357\310\"\210A;\204~\367A! P\365\371P\"\203p\372\373\310\364P$P\202\\\374 AJP#\210PA) \313\375AC I J K L\3761+KMX\205'\316 N\377\216O\203\325K\320X\203\325\321\322K\323U\203\267\324\202\316K\325U\203\302\324\202\316K\312U\203\315\326\202\316\327JPI#\210M\330Y\205&\331L!\203\357\323 M\332L\333\310#L)K\325U\203\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205&\321\341L\342\343K\"JPI$*0\202/\210\2020\210,\363 \342\201T A\"\364#\204D\350\357\310\"\210@;\204\257\367@!@J\310 Q R P\365\371P\"\203l\372\373\310\364P$P\202X\365\201U R\"\203\242\201V \201W S\201X !\"!Q\201Y R\201Z \201[ \201\\ \201] Q\201^ #\"\"R\374 RP#\210P@+ \313\201_ @C I J K L\201` 1bKMX\205^\316 N\201a \216O\203\fK\320X\203\f\321\322K\323U\203\356\324\202K\325U\203\371\324\202K\312U\203\326\202\327JPI#\210M\330Y\205]\331L!\203&\323 M\332L\333\310#L)K\325U\203G\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205]\321\341L\342\343K\"JPI$*0\202f\210\202g\210,\363 \342\201b EA@$\364#\204\350\357\310\"\210r\201c !q\210eb\210\201d \201e E!!\204\234\350\357\310\"\210) A@A\312 8@\364\2110\210\202E*0\210\202 \n\205\314 \313\201f CC I J K L\201g 1lKMX\205h\316 N\201h \216O\203K\320X\203\321\322K\323U\203\370\324\202K\325U\203\324\202K\312U\203\326\202\327JPI#\210M\330Y\205g\331L!\2030\323 M\332L\333\310#L)K\325U\203Q\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205g\321\341L\342\343K\"JPI$*0\202p\210\202q\210,\201i D\201j C#\210 \313\201k BC I J K L\201l 11KMX\205-\316 N\201m \216O\203\333K\320X\203\333\321\322K\323U\203\275\324\202\324K\325U\203\310\324\202\324K\312U\203\323\326\202\324\327JPI#\210M\330Y\205,\331L!\203\365\323 M\332L\333\310#L)K\325U\203\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205,\321\341L\342\343K\"JPI$*0\2025\210\2026\210,\201i D\201n B#\210 \313\201o AC I J K L\201p 1\366KMX\205\362\316 N\201q \216O\203\240K\320X\203\240\321\322K\323U\203\202\324\202\231K\325U\203\215\324\202\231K\312U\203\230\326\202\231\327JPI#\210M\330Y\205\361\331L!\203\272\323 M\332L\333\310#L)K\325U\203\333\323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205\361\321\341L\342\343K\"JPI$*0\202\372\210\202\373\210,\201i D\201r A#\210 \313\201s @C I J K L\201t 1\273 KMX\205\267 \316 N\201u \216O\203e K\320X\203e \321\322K\323U\203G \324\202^ K\325U\203R \324\202^ K\312U\203] \326\202^ \327JPI#\210M\330Y\205\266 \331L!\203 \323 M\332L\333\310#L)K\325U\203\240 \323 Mr\334L!q\210J\335PJ\336I\337 C\"I*\340L!\205\266 \321\341L\342\343K\"JPI$*0\202\277 \210\202\300 \210,\201i D\201v @#.\f\207" [tramp-local-coding-commands vec found ritem litem rem-test "xyzzy" tramp-get-connection-process nil wont-work-local 2 5 "Checking local encoding function `%s'" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " "Checking local encoding command `%s' for sanity" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-call-local-coding-command throw "Checking local decoding function `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "Checking local decoding command `%s' for sanity" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] wont-work-remote "Checking remote test command `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-send-command-and-check t string-match "perl" symbol-name tramp-get-remote-perl "-" replace-match "_" tramp-maybe-send-script "Checking remote encoding command `%s' for sanity" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] rem-dec rem-enc loc-dec loc-enc p magic local-commands tramp-remote-coding-commands remote-commands arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message name tmpfile value 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-file-name-handler file-remote-p localname "Checking remote decoding command `%s' for sanity" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "echo %s | %s | %s" tramp-get-buffer looking-at regexp-quote "Using local encoding `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-set-connection-property "local-encoding" "Using local decoding `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "local-decoding" "Using remote encoding `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "remote-encoding" "Using remote decoding `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "remote-decoding"] 12 (#$ . 226786)])
#@356 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).
(defalias 'tramp-call-local-coding-command #[(cmd input output) "\305\306 \205 \307\310\n\"?\205 \311=\205 \311\306\f\307\310\n\"\203' \312\n \"\202( \n ;\2033 \313 P\2024 \314P&\207" [tramp-encoding-shell input cmd output tramp-encoding-command-switch tramp-call-process nil string-match "%s" t format " >" ""] 10 (#$ . 234512)])
#@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 '(("gzip" "gzip -d") ("bzip2" "bzip2 -d") ("xz" "xz -d") ("compress" "compress -d")) (#$ . 235212))
#@110 Find an inline transfer compress command that works.
Goes through the list `tramp-inline-compress-commands'.
(defalias 'tramp-find-inline-compress #[(vec) "\212\306\307 !\310\211\211\211 : ; <<\203\321\n\204\321\3112\315<\211A<\242\211@
A@ \312\313\f D = > ? @\3141\335 ?AX\205\331 \315 B\316\216C\203\207 ?\317X\203\207 \320\321?\322U\203i \323\202\200 ?\324U\203t \323\202\200 ?\325U\203 \326\202\200 \327>P=#\210A\330Y\205\330 \331@!\203\241 \322 A\332@\333\310#@)?\324U\203\302 \322 Ar\334@!q\210>\335P>\336=\337 C\"=*\340@!\205\330 \320\341@\342\343?\">P=$*0\202\341 \210\202\342 \210,\344\342D\345>\203\360 \346\202\361 \347;\f $\310\211#\322U\204\350\311\310\"\210 \312\351\f D = > ? @\3521\260?AX\205\254\315 B\353\216C\203Z?\317X\203Z\320\321?\322U\203<\323\202S?\324U\203G\323\202S?\325U\203R\326\202S\327>P=#\210A\330Y\205\253\331@!\203t\322 A\332@\333\310#@)?\324U\203\225\322 Ar\334@!q\210>\335P>\336=\337 C\"=*\340@!\205\253\320\341@\342\343?\">P=$*0\202\264\210\202\265\210,\354 \342\347;\f $\355#\204\311\350\311\310\"\210\355\2110\210\202 \n\203I \312\356\fC = > ? @\3571\201?AX\205}\315 B\360\216C\203+?\317X\203+\320\321?\322U\203
\323\202$?\324U\203\323\202$?\325U\203#\326\202$\327>P=#\210A\330Y\205|\331@!\203E\322 A\332@\333\310#@)?\324U\203f\322 Ar\334@!q\210>\335P>\336=\337 C\"=*\340@!\205|\320\341@\342\343?\">P=$*0\202\205\210\202\206\210,\361:\362\f#\210 \312\363 C = > ? @\3641:?AX\2056\315 B\365\216C\203\344?\317X\203\344\320\321?\322U\203\306\323\202\335?\324U\203\321\323\202\335?\325U\203\334\326\202\335\327>P=#\210A\330Y\2055\331@!\203\376\322 A\332@\333\310#@)?\324U\203 \322 Ar\334@!q\210>\335P>\336=\337 C\"=*\340@!\2055\320\341@\342\343?\">P=$*0\202>\210\202?\210,\361:\366 #\202\361:\362\310#\210\361:\366\310#\210 \325\367\310 = > ? @\3701?AX\205\376\315 B\371\216C\203\254?\317X\203\254\320\321?\322U\203\216\323\202\245?\324U\203\231\323\202\245?\325U\203\244\326\202\245\327>P=#\210A\330Y\205\375\331@!\203\306\322 A\332@\333\310#@)?\324U\203\347\322 Ar\334@!q\210>\335P>\336=\337 C\"=*\340@!\205\375\320\341@\342\343?\">P=$*0\202\210\310,.\207" [tramp-inline-compress-commands vec found decompress compress item "xyzzy" tramp-get-connection-process nil next 5 "Checking local compress commands `%s', `%s' for sanity" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-call-local-coding-command (windows-nt) "echo %s | \"%s\" | \"%s\"" "echo %s | %s | %s" throw "Checking remote compress commands `%s', `%s' for sanity" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-send-command-and-check t "Using inline transfer compress command `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-set-connection-property "inline-compress" "Using inline transfer decompress command `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "inline-decompress" "Couldn't find an inline transfer compress command" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] p magic commands arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message system-type] 8 (#$ . 235553)])
#@90 Expands VEC according to `tramp-default-proxies-alist'.
Gateway hops are already opened.
(defalias 'tramp-compute-multi-hops #[(vec) "C\306!\206 \307\310\211 \311\312\f@\313#!\310\211 A\203$A@\314 !\315 !B CQ D E\316\317D;\205C \320D!E;\205M \320E! E F G H I\3211\366 HJX\205\362 \322 K\323\216L\203\240 H\324X\203\240 \325\326H\327U\203\202 \307\202\231 H\330U\203\215 \307\202\231 H\331U\203\230 \332\202\231 \333GPF#\210J\334Y\205\361 \335I!\203\272 \327 J\336I\337\310#I)H\330U\203\333 \327 Jr\340I!q\210G\341PG\342F\343 C\"F*\344I!\205\361 \325\345I\346\347H\"GPF$*0\202\372 \210\202\373 \210,\350\351D;\205\320D!E;\205\320E! E\"\210\352 !+AA\211A\204! *\f\2034M\2034\353\351)\"\210)\n\203\304\n\211A\242\354\331 8!\355\354 @!\206P\307\315
@!\206X\307\"\2037\355\354 A@!\206f\307\314
@!\206n\307\"\2037 \204|\310\211\2028\356 \357\360\314
@!\206\210\307\361\315
@!\206\221\307$\"\352 ! N\362N! O\314N! P\315N! Q\363N! R\306N! SN
B).\2027\364\365!\203V\364\366!\203V\355\346\36756#\362
@!\"\203V
\211A\242
\211A\242 T U\370T!\204\371\372TC F G V I\310 LI\211 I\203\342I\373\341\374\375\376!! W\377\216W W\201c \210)rWq\210\343 +C F G H I\201d 1\331HJX\205\325\322 K\201e \216L\203\203H\324X\203\203\325\326H\327U\203e\307\202|H\330U\203p\307\202|H\331U\203{\332\202|\333GPF#\210J\334Y\205\324\335I!\203\235\327 J\336I\337\310#I)H\330U\203\276\327 Jr\340I!q\210G\341PG\342F\343 C\"F*\344I!\205\324\325\345I\346\347H\"GPF$*0\202\335\210\202\336\210,\2022J\373Y\2032X Yr\374\201f !q\210p\201g \210YX\310\211Z[\201h \211\\\201h ] ^\201i \210\201j \201k !\210+\211 _ W\201c \210\201l _!\210+)I\203I\330\201m \201n V\211\201o N\325\201p GF#E!C F G H I\201q 1\377HJX\205\373\322 K\201r \216L\203\251H\324X\203\251\325\326H\327U\203\213\307\202\242H\330U\203\226\307\202\242H\331U\203\241\332\202\242\333GPF#\210J\334Y\205\372\335I!\203\303\327 J\336I\337\310#I)H\330U\203\344\327 Jr\340I!q\210G\341PG\342F\343 C\"F*\344I!\205\372\325\345I\346\347H\"GPF$*0\202\210\202\210,\201V V\325\201p GF#C\"\210-\201s \362T!\314T!\201t \201u !\2046\201v \201u !\205?\201u UT#\310\211%
B\327 J\201w
@\307\201x T$\210+
A\203\247
\n\211A\242\211\203\247\201y \201z \"\203}\201y \201{ \"\203]\371\201| \362 !C F G V I\310 LI\211 I\203oI\373\341\374\375\376!! W\201} \216W W\201c \210)rWq\210\343 +C F G H I\201~ 1fHJX\205b\322 K\201 \216L\203H\324X\203\325\326H\327U\203\362\307\202 H\330U\203\375\307\202 H\331U\203\332\202 \333GPF#\210J\334Y\205a\335I!\203*\327 J\336I\337\310#I)H\330U\203K\327 Jr\340I!q\210G\341PG\342F\343 C\"F*\344I!\205a\325\345I\346\347H\"GPF$*0\202j\210\202k\210,\202\277J\373Y\203\277X Yr\374\201f !q\210p\201g \210YX\310\211Z[\201h \211\\\201h ] ^\201i \210\201j \201k !\210+\211 _ W\201c \210\201l _!\210+)I\203\222I\330\201m \201n V\211\201o N\325\201p GF#E!C F G H I\201\200 1\214HJX\205\210\322 K\201\201 \216L\2036H\324X\2036\325\326H\327U\203\307\202/H\330U\203#\307\202/H\331U\203.\332\202/\333GPF#\210J\334Y\205\207\335I!\203P\327 J\336I\337\310#I)H\330U\203q\327 Jr\340I!q\210G\341PG\342F\343 C\"F*\344I!\205\207\325\345I\346\347H\"GPF$*0\202\220\210\202\221\210,\201V V\325\201p GF#C\"\210-\202]
@ `\362`! a\315`! D
A\204\376\201\202 \201y `\201\203 \"\235\204\376\355bD\"\204\376`\371\201\204 DaD F G V I\310 LI\211 I\203\311I\373\341\374\375\376!! W\201\205 \216W W\201c \210)rWq\210\343 +C F G H I\201\206 1\300HJX\205\274\322 K\201\207 \216L\203jH\324X\203j\325\326H\327U\203L\307\202cH\330U\203W\307\202cH\331U\203b\332\202c\333GPF#\210J\334Y\205\273\335I!\203\204\327 J\336I\337\310#I)H\330U\203\245\327 Jr\340I!q\210G\341PG\342F\343 C\"F*\344I!\205\273\325\345I\346\347H\"GPF$*0\202\304\210\202\305\210,\202J\373Y\203X Yr\374\201f !q\210p\201g \210YX\310\211Z[\201h \211\\\201h ] ^\201i \210\201j \201k !\210+\211 _ W\201c \210\201l _!\210+)I\203\354I\330\201m \201n V\211\201o N\325\201p GF#E!C F G H I\201\210 1\346HJX\205\342\322 K\201\211 \216L\203\220H\324X\203\220\325\326H\327U\203r\307\202\211H\330U\203}\307\202\211H\331U\203\210\332\202\211\333GPF#\210J\334Y\205\341\335I!\203\252\327 J\336I\337\310#I)H\330U\203\313\327 Jr\340I!q\210G\341PG\342F\343 C\"F*\344I!\205\341\325\345I\346\347H\"GPF$*0\202\352\210\202\353\210,\201V V\325\201p GF#C\"\210-+
-\207" [vec proxy choices item hops target-alist tramp-file-name-hop "" nil reverse split-string omit tramp-file-name-user tramp-file-name-host 5 "Add proxy (\"%s\" \"%s\" \"%s\")" regexp-quote (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " add-to-list tramp-default-proxies-alist tramp-dissect-file-name customize-save-variable eval string-match format-spec format-spec-make 117 104 tramp-file-name-method tramp-file-name-localname boundp tramp-gw-tunnel-method tramp-gw-socks-method "^\\(%s\\|%s\\)$" tramp-file-name-port file-error "Connection `%s' is not supported for gateway access." 10 get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] tramp-postfix-hop-regexp --dolist-tail-- tramp-prefix-format tramp-postfix-host-format host user arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message tramp-save-ad-hoc-proxies l l-method l-user l-host l-localname l-hop hop gw signal standard-output default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf v method tramp-local-host-regexp backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] vector subrp tramp-gw-open-connection functionp tramp-set-file-property "gateway" tramp-get-method-parameter tramp-login-program tramp-copy-program "Method `%s' is not supported for multi-hops." #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] ("%h") tramp-login-args "Host `%s' looks like a remote host, `%s' can only use the local host" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 239244)])
#@49 Return the Control* arguments of the local ssh.
(defalias 'tramp-ssh-controlmaster-options #[(vec) "\203 \306\307\310 \311\"\"\204 \312\207\n;\203 \n\207\312\313\3141\246 \315\316!\205\242 \317\320! r\fq\210\321\216\322 \316\323\313\323\324\325&\210eb\210\326\327\323\313#\203G \330+\nG\331U?\205\242 \317\320! r
q\210\332\216\322 \316\323\313\323\324\333\334&\210eb\210\n\326\335\323\313#\203v \336\202w \337P+\317\320! #r#q\210\340\216\322 \316\323\313\323\324\341&\210eb\210\326\327\323\313#\205\241 \n\342P\211+0\202\252 \210\202\253 \210)\n\207" [tramp-use-ssh-controlmaster-options vec tramp-ssh-controlmaster-options case-fold-search #1=#:temp-buffer #2=#:temp-buffer assoc "%c" tramp-get-method-parameter tramp-login-args "" t (error) executable-find "ssh" generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] tramp-call-process nil "-o" "ControlMaster" search-forward-regexp "missing.+argument" "-o ControlMaster=auto" 0 #[nil "\301!\205 \302!\207" [#2# buffer-name kill-buffer] 2] "ControlPath=%C" "0.0.0.1" "unknown.+key" " -o ControlPath='tramp.%%r@%%h:%%p'" " -o ControlPath='tramp.%%C'" #[nil "\301!\205 \302!\207" [#3=#:temp-buffer buffer-name kill-buffer] 2] "ControlPersist" " -o ControlPersist=no" #3#] 9 (#$ . 246459)])
#@163 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.
(defalias 'tramp-maybe-open-connection #[(vec) "\306!\210\307!\310\311\312#\313 !r\314!q\210`)\211 \203- \315\f!\203- \316\f!\317>\204O \320\321\312\"\322\"
@\232\203O \323\324
A\"@\206F \325V\204O \326\327\211\"\210\3301\231\323\324 \310\f\331\332#\"\333V\205\225\f\205\225\315\f!\205\225\316\f!\334>\205\225\335\336\337\211$\210\316\f!\340>\205\206 \341\f\342\"?\205\225\343\344\312 A B C D\312 ED\211 D\203oD\342\345\346\347\350!! F\351\216F F\352 \210)rFq\210\353 +C A B G D\3541fGHX\205b\355 I\356\216E\203G\357X\203\360\361G\325U\203\362 \362\202 G\363U\203\375 \362\202 G\322U\203\364\202 \365BPA#\210H\366Y\205a\315D!\203*\325 H\310D\367\312#D)G\363U\203K\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205a\360\371D\372\373G\"BPA$*0\202j\210\202k\210,\202\261H\342Y\203\261J Kr\346\374!q\210p\375 \210KJ\312\211LM\337\211N\337 O P\376 \210\377\201\201 !\210+\211 Q F\352 \210\201\202 Q!\210+)D\203\204D\363\201\203 \201\204 C\211\201\205 N\360\201\206 BA#E!C A B G D\201\207 1~GHX\205z\355 I\201\210 \216E\203(G\357X\203(\360\361G\325U\203\n\362\202!G\363U\203\362\202!G\322U\203 \364\202!\365BPA#\210H\366Y\205y\315D!\203B\325 H\310D\367\312#D)G\363U\203c\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205y\360\371D\372\373G\"BPA$*0\202\202\210\202\203\210,\201C C\360\201\206 BA#C\"-0\202\244\210\201\211 \337\"\210\312\211\210\201\212 1}
\f\205\274\315\f!\205\274\316\f!\201\213 >?\205y
\201\214 \201\215 !\203\330\201\215 J\203\330\326\201\215 \211\"\210\357\201\216 \201\217 !G\325U\203\372\372\201\220 \201\221 !\201\222 !#\202\372\201\223 \201\217 !\201\221 !\201\222 !$C A B G D\201\224 1\272GHX\205\266\355 I\201\225 \216E\203dG\357X\203d\360\361G\325U\203F\362\202]G\363U\203Q\362\202]G\322U\203\\\364\202]\365BPA#\210H\366Y\205\265\315D!\203~\325 H\310D\367\312#D)G\363U\203\237\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205\265\360\371D\372\373G\"BPA$*0\202\276\210\202\277\210,\201\226 E\205:\357H\357^X\205:\201\227 18\201\230 \201\231 !\204\353\201\232 \201\231 !\205 \201\231 \201\217 !G\325U\203 \372\201\220 \201\221 !\201\222 !#\202 \372\201\223 \201\217 !\201\221 !\201\222 !$!\211 R\2053\201\233 \357\201\234 \201\235 R$)0\202:\210\312 S T\201\236 \216\201\237 2s
\f\203X\315\f!\203X\201\240 \f!\210\201\241 \201\242 U\"\210\201\241 \201\243 \201\244 !\"\210V;\203\202\201\241 \201\245 V\"\210\202\245V\203\245\201\241 \201\245 !\210\201\241 \201\246 \201\247 \"\210\201\241 \201\250 \201\247 \"\210\201\241 \201\251 !\210\201\241 \201\252 W\"\210X;\204\321\343\201\253 \312 A B C D\312 ED\211 D\203\252D\342\345\346\347\350!! F\201\254 \216F F\352 \210)rFq\210\353 +C A B G D\201\255 1\241GHX\205\235\355 I\201\256 \216E\203KG\357X\203K\360\361G\325U\203-\362\202DG\363U\2038\362\202DG\322U\203C\364\202D\365BPA#\210H\366Y\205\234\315D!\203e\325 H\310D\367\312#D)G\363U\203\206\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205\234\360\371D\372\373G\"BPA$*0\202\245\210\202\246\210,\202\354H\342Y\203\354J Kr\346\374!q\210p\375 \210KJ\312\211LM\337\211N\337 O P\376 \210\377\201\201 !\210+\211 Q F\352 \210\201\202 Q!\210+)D\203\277D\363\201\203 \201\204 C\211\201\205 N\360\201\206 BA#E!C A B G D\201\257 1\271GHX\205\265\355 I\201\260 \216E\203cG\357X\203c\360\361G\325U\203E\362\202\\G\363U\203P\362\202\\G\322U\203[\364\202\\\365BPA#\210H\366Y\205\264\315D!\203}\325 H\310D\367\312#D)G\363U\203\236\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205\264\360\371D\372\373G\"BPA$*0\202\275\210\202\276\210,\201C C\360\201\206 BA#C\"\210-\201\261 ! Y\201\262 ! Z[ \\\312\211 ] ^\312 _\201\214 \201\263 !\203\201\264 \201\263 \201\265 N@!\206\272\201\266 \201\267 !\203*\201\230 \201\267 !\204#\201\232 \201\267 !\205\272\201\267 \202\272\201\270 \201\271 !\211 `\205=\201\272 `!)\203O\201\273 \201\270 \201\271 !!\202\272\201\270 \201\274 !\211 `\205b\201\272 `!)\203t\201\273 \201\270 \201\274 !!\202\272\201\270 \201\275 !\211 `\205\207\201\272 `!)\203\231\201\273 \201\270 \201\275 !!\202\272\201\276 \201\277 !\203\255\201\273 \201\277 !\202\272\361\201\300 !\210\201\273 \201\301 !) J\360\201\302 \201\303 !\314!a\203\326XaD\202\331XC$) \201\304 \f\367#\210\201\305 \f\201\306 \"\210\201\307 \f\312\"\210\320\321\312\"\322\"\324 B\201\310 b\201\311 \201\203 \201\312 \201\313 \201\314 \f!\201\315 #C A B G D\201\316 1\307GHX\205\303\355 I\201\317 \216E\203qG\357X\203q\360\361G\325U\203S\362\202jG\363U\203^\362\202jG\322U\203i\364\202j\365BPA#\210H\366Y\205\302\315D!\203\213\325 H\310D\367\312#D)G\363U\203\254\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205\302\360\371D\372\373G\"BPA$*0\202\313\210\202\314\210,\201\320 \f\342\201\321 X$\210Y\203`
Y@ c\201\222 c! d\201\217 c! e\201\221 c! f\312 g\201\322 c\201\323 \" h\201\322 c\201\324 \" i\201\322 c\201\325 \" j\201\322 c\201\326 \" k\201\322 c\201 \" l\201\322 c\201\327 \" m\325 H\201\330 c\362\201\331 \312$)\211 n\205[ \201\222 n! on\205h \201\217 n! pn\205u \201\332 n! qh r\310\201\333 \201\334 !!\201\335 \201\336 #\211 s\201\336 =\203\207\n\201\337 \201\340 t\312 _\201\214 \201\263 !\203\272 \201\264 \201\263 \201\265 N@!\206o\n\201\266 \201\267 !\203\337 \201\230 \201\267 !\204\330 \201\232 \201\267 !\205o\n\201\267 \202o\n\201\270 \201\271 !\211 `\205\362 \201\272 `!)\203\n\201\273 \201\270 \201\271 !!\202o\n\201\270 \201\274 !\211 `\205\n\201\272 `!)\203)\n\201\273 \201\270 \201\274 !!\202o\n\201\270 \201\275 !\211 `\205<\n\201\272 `!)\203N\n\201\273 \201\270 \201\275 !!\202o\n\201\276 \201\277 !\203b\n\201\273 \201\277 !\202o\n\361\201\300 !\210\201\273 \201\301 !)\"!s\201\304 \201\333 \201\334 !!\201\335 s#\210s) u\312\211 v w \203\243\nk\203\243\n\321ki\"in\203\277\n\201\304 \f\201\331 \337#\210m\203\277\n\321mi\"i\201\341 xf\"\203\334\n\201\342 \322f\"g\201\342 \363f\"fy\312 z\211 {\203 {@z\201\341 zb\"\203\372\n\337w{A\211{\204\347\n*o\206 d|p\206 e}q\206 fbj\203Z \201\343 \201\344 j\"jj\203R \372\201\345 j\211Aj\242\201\346 j\211Aj\242!r$r\202/ \201\347 rPrf\206` \362fe\206h \362eg\206p \362g\201\350 \201\351 u\"v\201\352 Zv\"Z\201\350 \201\353 f\201\354 e\201\355 g\201\356 Z&vw?\205\253 \201\357 r\201\315 \201\312 \201\360 i\201\315 #w\205\304 \201\361 \260r\357\201\362 rC A B G D\201\363 1{\fGHX\205w\f\355 I\201\364 \216E\203%\fG\357X\203%\f\360\361G\325U\203\f\362\202 \fG\363U\203\f\362\202 \fG\322U\203 \f\364\202 \f\365BPA#\210H\366Y\205v\f\315D!\203?\f\325 H\310D\367\312#D)G\363U\203`\f\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205v\f\360\371D\372\373G\"BPA$*0\202\f\210\202\200\f\210,\335r\337\211$\210\201\365 \f\n~l\206\230\f%\210\357\201\366 fC A B G D\201\367 1M
GHX\205I
\355 I\201\370 \216E\203\367\fG\357X\203\367\f\360\361G\325U\203\331\f\362\202\360\fG\363U\203\344\f\362\202\360\fG\322U\203\357\f\364\202\360\f\365BPA#\210H\366Y\205H
\315D!\203
\325 H\310D\367\312#D)G\363U\2032
\325 Hr\314D!q\210B\345PB\321A\353 C\"A*\370D!\205H
\360\371D\372\373G\"BPA$*0\202Q
\210\202R
\210.\362ZYA\211Y\204\336\201\371 \f\"\210\201\304 \f\201\372 \337#.0\201\373 T+0\202\221
\200\201\211 \337\"\210\201C \200@\200A\"),\207" [vec process-environment pos process-name p tramp-current-connection tramp-check-proper-method-and-host tramp-get-connection-process tramp-get-connection-property "process-name" nil copy-sequence tramp-get-connection-buffer processp process-status (run open) butlast append 2 tramp-time-diff current-time 0 throw suppress (file-error) "last-cmd-time" (0 0 0) 60 (run open) tramp-send-command "echo are you awake" t (run open) tramp-wait-for-output 10 file-error "Awake did fail" "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message #5="" 1 #6="Warning: " #7="Tramp: " 4 #8="vector" vectorp tramp-debug-message format #9="(%d) # " "*debug tramp*" kill-all-local-variables erase-buffer run-hooks tramp-connection-min-time-diff arguments fmt-string signal vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf pr tm cookie tramp-terminal-type tramp-histfile-override tramp-initial-end-of-output tramp-encoding-shell target-alist options tramp-process-connection-type process-connection-type process-adaptive-read-buffering coding-system-for-read file-name-handler-alist d tramp-encoding-command-interactive tramp-current-host hop l-method l-user l-host l-port login-program login-args login-env async-args connection-timeout gw-args gw g-method g-user g-host command value tramp-temp-name-prefix tmpfile spec r-shell tramp-host-with-port-regexp tramp-restricted-shell-hosts-alist elt --dolist-tail-- tramp-current-method tramp-current-user tramp-actions-before-shell tramp-connection-timeout err temp-buffer-setup-hook internal-temp-output-buffer-show "%s" error-message-string error-message format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-cleanup-connection (error quit) (run open) boundp non-essential "%s..." tramp-file-name-user #3="Opening connection for %s using %s" tramp-file-name-host tramp-file-name-method #4="Opening connection for %s@%s using %s" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "failed" (error) subrp make-progress-reporter functionp run-at-time 0.1 tramp-progress-reporter-update #[nil "\203 \306\307!\204 \310\307!\203 \307!\210 \311\312\313 !G\314U\203, \315\316\317 !\320 !#\2028 \315\321\313 !\317 !\320 !$\nD (\3221\317
)X\205\313 \323 *\324\216+\203\201
\311X\203\201 \325\326
\314U\203g \327\202|
\330U\203q \327\202|
\331U\203{ \332\202| \333\fP #\210)\334Y\205\312 \335(!\203\233 \314 )\336(\337\340#()
\330U\203\267 \314 )r\341(!q\210\f\342P\343 \344 C\"*\345(!\205\312 \325\346(\315\347
\"\fP $*0\202\321 \210\340,\207" [tm vec cookie arguments fmt-string level subrp cancel-timer functionp 3 "%s...%s" tramp-file-name-user 0 format #3# tramp-file-name-host tramp-file-name-method #4# (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message #5# 1 2 #6# #7# 4 processp tramp-get-connection-property #8# nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message #9# vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message] 9] uname-changed delete-process setenv "TERM" "LC_ALL" tramp-get-local-locale "HISTFILE" "HISTFILESIZE" "0" "HISTSIZE" "PROMPT_COMMAND" "PS1" "`tramp-encoding-shell' not set" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compute-multi-hops tramp-ssh-controlmaster-options temporary-file-directory eval standard-value fboundp temp-directory getenv "TEMP" file-directory-p file-name-as-directory "TMP" "TMPDIR" file-exists-p "c:/temp" "Neither `temporary-file-directory' nor `temp-directory' is defined -- using /tmp." "/tmp" start-process tramp-get-connection-name tramp-set-connection-property set-process-sentinel tramp-process-sentinel tramp-compat-set-process-query-on-exit-flag system-name 6 mapconcat identity process-command " " (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-barf-if-no-shell-prompt "Couldn't find local shell prompt for %s" tramp-get-method-parameter tramp-login-program tramp-login-args tramp-login-env tramp-async-args tramp-gw-args tramp-get-file-property "gateway" tramp-file-name-real-host get-process tramp-buffer-name "temp-file" undef make-temp-name expand-file-name string-match match-string mapcar #[(x) "\301\302\"\303\235?\205 \304\305\306#\207" [x mapcar #[(y) "\302 \"\207" [y spec format-spec] 3] #5# mapconcat identity " "] 4] "%s=%s %s" tramp-shell-quote-argument "env " format-spec-make 116 format-spec 104 117 112 99 "exec " #[(x) "\301\302\"\303\235?\205 \304\305\306#\207" [x mapcar #[(y) "\302 \"\207" [y spec format-spec] 3] #5# mapconcat identity " "] 4] " && exit || exit" "Sending command `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-process-actions "Found remote shell prompt on `%s'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-open-connection-setup-interactive-shell "connected" "done"] 11 (#$ . 247765)])
#@284 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.
(defalias 'tramp-send-command #[(vec command &optional neveropen nooutput) "\204 \306 !\210\307 !\310\n\311\312#\2035 \313\n\314\315#\210 \316\230\204. \317\312O\320\230\203. \321\317O\322\323\f \f$ \324\325 C , - .\3261\334 -/X\205\330 \327 0\330\2161\203\211 -\331X\203\211 \332\333-\321U\203l \316\202\203 -\334U\203w \316\202\203 -\335U\203\202 \336\202\203 \337,P
#\210/\340Y\205\327 \341.!\203\243 \321 /\310.\342\312#.)-\334U\203\302 \321 /r\343.!q\210,\344P,\345
\346 C\"*\347.!\205\327 \332\350.\322\351-\",P
$*0\202\340 \210\202\341 \210,\352 \"\2102?\205\360 \353\n!)\207" [neveropen vec p command tramp-echo-mark arguments tramp-maybe-open-connection tramp-get-connection-process tramp-get-connection-property "remote-echo" nil tramp-set-connection-property "check-remote-echo" t "" -1 "\n" 0 format "%s%s%s" 6 "%s" (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message "(%d) # " tramp-send-string tramp-wait-for-output fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message nooutput] 6 (#$ . 261078)])
#@38 Wait for output from remote command.
(defalias 'tramp-wait-for-output #[(proc &optional timeout) "\306\307!!\204\321\310!\210\311\312C \313 \f\211 \203\330 \f\314\315\316\317\320!! @\321\216@ @\322 \210)r@q\210\323 +C A \3241\317 ABX\205\313 \325 C\326\216
\203\205 A\327X\203\205 \330\331A\332U\203i \333\202\200 A\334U\203t \333\202\200 A\335U\203 \336\202\200 \337\nP #\210B\340Y\205\312 \341\f!\203\234 \332 B\342\f\343\313#)A\334U\203\270 \332 Br\344\f!q\210\n\315P\345 \323 C\"*\346\f!\205\312 \330\347\f\350\351A\"\nP $*0\202\323 \210\202\324 \210,\202B\314Y\203D Er\316\352!q\210p\353 \210ED\313\211FG\354\211H\354 I J\355 \210\356\357!\210+\211 K @\322 \210\360K!\210+)\f\203\306\f\334\361\362 \211\363N\330\364\n #E!C A \3651\300ABX\205\274\325 C\366\216
\203vA\327X\203v\330\331A\332U\203Z\333\202qA\334U\203e\333\202qA\335U\203p\336\202q\337\nP #\210B\340Y\205\273\341\f!\203\215\332 B\342\f\343\313#)A\334U\203\251\332 Br\344\f!q\210\n\315P\345 \323 C\"*\346\f!\205\273\330\347\f\350\351A\"\nP $*0\202\304\210\202\305\210,\303 \330\364\n #C\"\210-r\307!q\210\350\367\370L!\" M\350\371M\" N\372ON#\211 P\203 \313 Feb\210\373\374\375 \354#\203\n\334y\210e`|\210db\210\376M\313\354#\210`d|\210)\202\310O\203\366\311\377LOD \313 \f\211 \203\366\f\314\315\316\317\320!! @\201Q \216@ @\322 \210)r@q\210\323 +C A \201R 1\355ABX\205\351\325 C\201S \216
\203\243A\327X\203\243\330\331A\332U\203\207\333\202\236A\334U\203\222\333\202\236A\335U\203\235\336\202\236\337\nP #\210B\340Y\205\350\341\f!\203\272\332 B\342\f\343\313#)A\334U\203\326\332 Br\344\f!q\210\n\315P\345 \323 C\"*\346\f!\205\350\330\347\f\350\351A\"\nP $*0\202\361\210\202\362\210,\2024B\314Y\2034D Er\316\352!q\210p\353 \210ED\313\211FG\354\211H\354 I J\355 \210\356\357!\210+\211 K @\322 \210\360K!\210+)\f\203\350\f\334\361\362 \211\363N\330\364\n #E!C A \201T 1\342ABX\205\336\325 C\201U \216
\203\230A\327X\203\230\330\331A\332U\203|\333\202\223A\334U\203\207\333\202\223A\335U\203\222\336\202\223\337\nP #\210B\340Y\205\335\341\f!\203\257\332 B\342\f\343\313#)A\334U\203\313\332 Br\344\f!q\210\n\315P\345 \323 C\"*\346\f!\205\335\330\347\f\350\351A\"\nP $*0\202\346\210\202\347\210,\303 \330\364\n #C\"\210-\202\310\311\201V LC \313 \f\211 \203\313\f\314\315\316\317\320!! @\201W \216@ @\322 \210)r@q\210\323 +C A \201X 1\302ABX\205\276\325 C\201Y \216
\203xA\327X\203x\330\331A\332U\203\\\333\202sA\334U\203g\333\202sA\335U\203r\336\202s\337\nP #\210B\340Y\205\275\341\f!\203\217\332 B\342\f\343\313#)A\334U\203\253\332 Br\344\f!q\210\n\315P\345 \323 C\"*\346\f!\205\275\330\347\f\350\351A\"\nP $*0\202\306\210\202\307\210,\202 B\314Y\203 D Er\316\352!q\210p\353 \210ED\313\211FG\354\211H\354 I J\355 \210\356\357!\210+\211 K @\322 \210\360K!\210+)\f\203\275\f\334\361\362 \211\363N\330\364\n #E!C A \201Z 1\267ABX\205\263\325 C\201[ \216
\203mA\327X\203m\330\331A\332U\203Q\333\202hA\334U\203\\\333\202hA\335U\203g\336\202h\337\nP #\210B\340Y\205\262\341\f!\203\204\332 B\342\f\343\313#)A\334U\203\240\332 Br\344\f!q\210\n\315P\345 \323 C\"*\346\f!\205\262\330\347\f\350\351A\"\nP $*0\202\273\210\202\274\210,\303 \330\364\n #C\"\210-P,\207" [proc arguments fmt-string signal vec-or-proc tramp-message-show-message buffer-live-p process-buffer delete-process file-error "Process `%s' not available, try again" nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" tramp-get-connection-buffer append vectorp tramp-debug-message format "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "[^#$\n]*%s
?$" regexp-quote "\\(^\\| \\)%s" tramp-wait-for-regexp re-search-forward "^\\(.\\)+$" point-at-eol re-search-backward "[[Remote prompt `%s' not found in %d secs]]" standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf tramp-end-of-output regexp regexp1 timeout found #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "[[Remote prompt `%s' not found]]" #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 262644)])
#@390 Run COMMAND and check its exit status.
Sends `echo $?' along with the COMMAND for checking the exit status.
If COMMAND is nil, just sends `echo $?'. Returns 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.
(defalias 'tramp-send-command-and-check #[(vec command &optional subshell dont-suppress-err) "\306 \203\n \307\202 \310\n\211\203 \203 \311\202 \312\202 \310\313 \203& \314\202' \310\260\"\210r\315!q\210db\210\316\317\320\321#\204\322\323\nC < ?\320 @?\211 ?\203?\324\325\326\327\330!! A\331\216A A\332 \210)rAq\210\333 +C B ?\3341
BCX\205 \335 D\336\216@\203\275 B\337X\203\275 \340\341B\342U\203\241 \310\202\270 B\343U\203\254 \310\202\270 B\344U\203\267 \345\202\270 \346
P\f#\210C\347Y\205\350?!\203\327 \342 C\351?\352\320#?)B\343U\203\364 \342 Cr\315?!q\210
\325P\353\f\333 C\"*\354?!\205\340\355?\356\357B\"
P\f$*0\202\210\202\210,\202TC\324Y\203TE Fr\326\360!q\210p\361 \210FE\320\211GH\321\211I\321 J K\362 \210\363\364!\210+\211 L A\332 \210\365L!\210+)?\203?\343\366\367<\211\370N\340\371
\f#E!C B ?\3721 BCX\205\335 D\373\216@\203\271B\337X\203\271\340\341B\342U\203\235\310\202\264B\343U\203\250\310\202\264B\344U\203\263\345\202\264\346
P\f#\210C\347Y\205\350?!\203\323\342 C\351?\352\320#?)B\343U\203\360\342 Cr\315?!q\210
\325P\353\f\333 C\"*\354?!\205\340\355?\356\357B\"
P\f$*0\202
\210\202\210,\374<\340\371
\f#C\"\210-\375\320w\210\376p!\342U\320 G\342\224d|\210*\207" [vec subshell command dont-suppress-err arguments fmt-string tramp-send-command "( " "" "; " " 2>/dev/null; " "echo tramp_exit_status $?" " )" tramp-get-connection-buffer re-search-backward "tramp_exit_status [0-9]+" nil t file-error "Couldn't find exit status of `%s'" 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace buffer-string (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" append vectorp tramp-debug-message format "(%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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal "^ " read vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf] 11 (#$ . 267808)])
#@185 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'.
(defalias 'tramp-barf-unless-okay #[(vec command fmt &rest args) "\304 \"\206 \305\306\307\n %\207" [vec command fmt args tramp-send-command-and-check apply tramp-error file-error] 6 (#$ . 270699)])
#@209 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.
(defalias 'tramp-send-command-and-read #[(vec command &optional noerror marker) "\203 \306 \n\"\202 \307 \n\310\n$\205 r\311 !q\210eb\210 ;\203\3121- \313 !0\202\210\204 \314\315\n \316 E 9 @\317 A@\211 @\203@\320\321\322\323\324!! B\325\216B B\326 \210)rBq\210\316 +C C @\3271CDX\205\330 E\331\216A\203\266 C\332X\203\266 \333\334C\335U\203\232 \336\202\261 C\337U\203\245 \336\202\261 C\340U\203\260 \341\202\261 \342
P\f#\210D\343Y\205\344@!\203\320 \335 D\345@\346\317#@)C\337U\203\355 \335 Dr\311@!q\210
\321P\347\f\316 C\"*\350@!\205\333\351@\352\353C\"
P\f$*0\202\n\210\202 \210,\202MD\320Y\203MF Gr\322\354!q\210p\355 \210GF\317\211HI\356\211J\356 K L\357 \210\360\361!\210+\211 M B\326 \210\362M!\210+)@\203@\337\363\3649\211\365N\333\366
\f#E!C C @\3671CDX\205\376\330 E\370\216A\203\262C\332X\203\262\333\334C\335U\203\226\336\202\255C\337U\203\241\336\202\255C\340U\203\254\341\202\255\342
P\f#\210D\343Y\205\375\344@!\203\314\335 D\345@\346\317#@)C\337U\203\351\335 Dr\311@!q\210
\321P\347\f\316 C\"*\350@!\205\375\333\351@\352\353C\"
P\f$*0\202\210\202\210,\3719\333\366
\f#C\"-\210\3721,\373p!\313\374\375 \356#\203(\376\317!\2100\202 \210?\205 \314\377\n\316 D 9 @\317 A@\211 @\203@\320\321\322\323\324!! B\201N \216B B\326 \210)rBq\210\316 +C C @\201O 1 CDX\205\330 E\201P \216A\203\273C\332X\203\273\333\334C\335U\203\237\336\202\266C\337U\203\252\336\202\266C\340U\203\265\341\202\266\342
P\f#\210D\343Y\205\344@!\203\325\335 D\345@\346\317#@)C\337U\203\362\335 Dr\311@!q\210
\321P\347\f\316 C\"*\350@!\205\333\351@\352\353C\"
P\f$*0\202\210\202\210,\202RD\320Y\203RF Gr\322\354!q\210p\355 \210GF\317\211HI\356\211J\356 K L\357 \210\360\361!\210+\211 M B\326 \210\362M!\210+)@\203@\337\363\3649\211\365N\333\366
\f#E!C C @\201Q 1 CDX\205\330 E\201R \216A\203\273C\332X\203\273\333\334C\335U\203\237\336\202\266C\337U\203\252\336\202\266C\340U\203\265\341\202\266\342
P\f#\210D\343Y\205\344@!\203\325\335 D\345@\346\317#@)C\337U\203\362\335 Dr\311@!q\210
\321P\347\f\316 C\"*\350@!\205\333\351@\352\353C\"
P\f$*0\202\210\202\210,\3719\333\366
\f#C\"-)\207" [noerror vec command marker arguments fmt-string tramp-send-command-and-check 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 nil 10 "\n%s" get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp tramp-get-connection-property "vector" append vectorp tramp-debug-message format "(%d) # " "*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) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] signal (error) read "\\S-" point-at-eol error "`%s' does not return a valid Lisp expression: `%s'" vec-or-proc tramp-message-show-message standard-output level tramp-verbose save-match-data-internal default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf #[nil "\301!\207" [standard-output kill-buffer] 2] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3]] 11 (#$ . 271092)])
#@147 Convert `file-attributes' ATTR generated by perl script, stat or ls.
Convert file mode bits to string and set virtual device number.
Return ATTR.
(defalias 'tramp-convert-file-attributes #[(vec attr) "\205\271@;\203 \303 @\"\203 \304\305\306\211@$\240\210\202\n \3078\247\2034 \3078\310W\2034 AA\311\240\210\312\3078!\203Y \3078\313\314!\203J \314J\202K \315X\203Y AA\316\3078!\240\210\3178\247\203n \3178\310W\203n \317\233\311\240\210\312\3178!\203\223 \3178\313\314!\203\204 \314J\202\205 \315X\203\223 \317\233\316\3178!\240\210\3208<\204\256 \320\233\321\3208\322\"\321\323\3208\322\"!D\240\210\3248<\204\311 \324\233\321\3248\322\"\321\323\3248\322\"!D\240\210\3258<\204\344 \325\233\321\3258\322\"\321\323\3258\322\"!D\240\210\3268\310W\203\362 \326\233\311\240\210\312\3268!\203\3268\313\314!\203\314J\202 \315X\203\326\233\316\3268!\240\210\3278;\2045\327\233\330\3278!\240\210@;\2035\3278\310\331I\210\303\332\3278\"\203B\333\240\210@:\203h@@;\203d\303\334@@\"\203d\335\336@@\"\240\210\202h\306\240\210\337\233\3178\247\203~\3178\340\n\341\"U?\202\207\3178\340\n\342\"\230?\240\210\3438<\204\260\343\233\3441\252\321\3438\322\"\321\323\3438\322\"!B0\202\256\210\345\n!\240\210\346\233\347\n!\240\210\207" [attr tramp-color-escape-sequence-regexp vec string-match replace-match "" nil 2 0 -1 floatp boundp most-positive-fixnum 134217727 round 3 4 floor 65536 mod 5 6 7 8 tramp-file-mode-from-int 108 "^d" t ".+ -> .\\(.+\\)." match-string 1 9 tramp-get-remote-gid integer string 10 (error) tramp-get-inode 11 tramp-get-device] 6 (#$ . 275083)])
#@59 Converts STRING to shell glob pattern which ignores case.
(defalias 'tramp-shell-case-fold #[(string) "\301\302\303#\207" [string mapconcat #[(c) "\227\226\232\203\f \301!\207\302\303\227\226#\207" [c vector format "[%c%c]"] 4] ""] 4 (#$ . 276725)])
#@72 Create a file name suitable for `scp', `pscp', or `nc' and workalikes.
(defalias 'tramp-make-copy-program-file-name #[(vec) "\306!\307!\310!\311! \312
\n\"\203 \313\314\n\"\312\315\f\"\204' \316 !\317\320\"\2032 \202K G\321U\204D \322\313\323 \n $!\202K \322\313\324\n #!,\207" [vec localname host user method tramp-ipv6-regexp tramp-file-name-method tramp-file-name-user tramp-file-name-real-host tramp-file-name-localname string-match format "[%s]" "ftp$" tramp-shell-quote-argument tramp-get-method-parameter tramp-remote-copy-program 0 shell-quote-argument "%s@%s:%s" "%s:%s"] 6 (#$ . 276987)])
#@59 Return t if this is an out-of-band method, nil otherwise.
(defalias 'tramp-method-out-of-band-p #[(vec size) "\303\304\"\205 \247\205 \n?\206 \nV\206 \305\306 #?\207" [vec size tramp-copy-size-limit tramp-get-method-parameter tramp-copy-program tramp-get-inline-coding "remote-encoding"] 4 (#$ . 277605)])
(defalias 'tramp-get-remote-path #[(vec) "\306\307>\203
\310 !\202 \311\312#\211\312=\2034\313!\314 > \307 > \f\205\343 \315 \316\317#\206\343 \320\321\322C = > ? @\3231\334 ?AX\205\330 \324 B\325\216C\203\206 ?\320X\203\206 \326\327?\330U\203h \331\202 ?\332U\203s \331\202 ?\333U\203~ \334\202 \335>P=#\210A\336Y\205\327 \337@!\203\240 \330 A\306@\340\341#@)?\332U\203\301 \330 Ar\342@!q\210>\343P>\344=\345 C\"=*\346@!\205\327 \326\347@\350\351?\">P=$*0\202\340 \210\202\341 \210,\322 D
\205\301\315 \350\352\353 \354\"\355\356\353 \357\"\360#\355\356\353 \361\"\360#\362E!%\317\363E!$\206\301 \333\364\341 = > ? @\3651\272?AX\205\266\324 B\366\216C\203d?\320X\203d\326\327?\330U\203F\331\202]?\332U\203Q\331\202]?\333U\203\\\334\202]\335>P=#\210A\336Y\205\265\337@!\203~\330 A\306@\340\341#@)?\332U\203\237\330 Ar\342@!q\210>\343P>\344=\345 C\"=*\346@!\205\265\326\347@\350\351?\">P=$*0\202\276\210\202\277\210,\341 F\f\203\334\f\344\367D\206\320\331\370\"\fA\"\241\210\371\314 \"
\203\365
\344\367F\206\351\331\370\"
A\"\241\210\371\307 \" \211:\203\f@\203\f@\fA\235\211\203
\341\240\210\202\374\fA\211\202\370\371\341\372\373 \"\"-\374\307>\203/\310 !\2020 \311\n#\210\n)\207" [tramp-remote-path vec value remote-path elt1 elt2 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) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" nil tramp-get-connection-buffer "\n%s" append buffer-string vectorp 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'" (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-compat-split-string ":" delq mapcar #[(x) ";\205 \302\303\304 !\305 !\306 !$!\205 \207" [x vec file-directory-p tramp-make-tramp-file-name tramp-file-name-method tramp-file-name-user tramp-file-name-host] 6] tramp-set-connection-property arguments fmt-string level vec-or-proc tramp-verbose save-match-data-internal tramp-message-show-message default-remote-path tramp-end-of-heredoc own-remote-path] 12])
(defalias 'tramp-get-remote-locale #[(vec) "\304\305\306#\211\306=\203Q \307\310\"\210\311\312r\313!q\210 \203@ eb\210\314\315\316\317 @!\"\320 \"\2039 @\312\211\202 A\211\204 )\315\321\n\206H \322\"*\323\305 #\210 )\207" [vec value locale candidates tramp-get-connection-property "locale" undef tramp-send-command "locale -a" ("en_US.utf8" "C.utf8" "en_US.UTF-8") nil tramp-get-connection-buffer string-match format "^%s
?$" regexp-quote buffer-string "LC_ALL=%s" "C" tramp-set-connection-property] 6])
(defalias 'tramp-get-ls-command #[(vec) "\306\307\310#\211\310=\203\331\311\312\313 \3141\236 \f@X\205\232 \315 A\316\216B\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210@\330Y\205\231 \331
!\203m \322 @\306
\332\313#)\f\324U\203\210 \322 @r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\3432\n\344\313 C\211 D\205D@C\345!\313 E\211 F\203\375 \346CF\347\211%\211E\203\375 \350\341\351E\"\"\203\364 \350\341\352E\"\"\203\356 E\353PE\354\343E\"\210FA\211F\204\303 *DA\211D\204\262 \313*0\206\320\355\356\313 G \313 B
\211 \203\323
\357\334\360\361\362!! H\363\216H H\364 \210)rHq\210\336 +C \3651\312\f@X\205\306\315 A\366\216B\203\202\f\317X\203\202\320\321\f\322U\203h\323\202}\f\324U\203r\323\202}\f\325U\203|\326\202}\327 P\n#\210@\330Y\205\305\331
!\203\231\322 @\306
\332\313#)\f\324U\203\264\322 @r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\305\320\340
\341\342\f\" P\n$*0\202\316\210\202\317\210,\202@\357Y\203I Jr\360\367!q\210p\370 \210JI\313\211KL\347\211M\347 N O\371 \210\372\373!\210+\211 P H\364 \210\374P!\210+)
\203\301
\324\375\376G\211\377N\320\201Q \n#E!C \201R 1\273\f@X\205\267\315 A\201S \216B\203s\f\317X\203s\320\321\f\322U\203Y\323\202n\f\324U\203c\323\202n\f\325U\203m\326\202n\327 P\n#\210@\330Y\205\266\331
!\203\212\322 @\306
\332\313#)\f\324U\203\245\322 @r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\266\320\340
\341\342\f\" P\n$*0\202\277\210\202\300\210,\201G G\320\201Q \n#C\"-\201T \307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "ls" undef 5 "Finding a suitable `ls' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp 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 get-buffer-create generate-new-buffer-name " *string-output*" #[nil "\301!\207" [standard-output kill-buffer] 2] backtrace (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "*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 tramp-verbose save-match-data-internal tramp-message-show-message cmd --dolist-tail-- result dl signal standard-output default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf format-message (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-set-connection-property] 11])
(defalias 'tramp-get-ls-command-with-dired #[(vec) "\306 \307\216\310 \311\312#\211\312=\203\277 \313\314\315 (\3161\251
)X\205\245 \306 \317\216*\203[
\320X\203[ \321\322
\323U\203A \324\202V
\325U\203K \324\202V
\326U\203U \327\202V \330\fP #\210)\331Y\205\244 \332(!\203u \323 )\310(\333\315#()
\325U\203\221 \323 )r\334(!q\210\f\335P\336 \337 C\"*\340(!\205\244 \321\341(\342\343
\"\fP $*0\202\255 \210\202\256 \210,\344 \342\345\346 !\"\"\347 \311\n#\210\n+\207" [save-match-data-internal vec value arguments fmt-string level match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-get-connection-property "ls-dired" undef 5 "Checking, whether `ls --dired' works" nil (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command-and-check "%s --dired -al /dev/null" tramp-get-ls-command tramp-set-connection-property vec-or-proc tramp-verbose tramp-message-show-message] 7])
(defalias 'tramp-get-ls-command-with-quoting-style #[(vec) "\306 \307\216\310 \311\312#\211\312=\203\277 \313\314\315 (\3161\251
)X\205\245 \306 \317\216*\203[
\320X\203[ \321\322
\323U\203A \324\202V
\325U\203K \324\202V
\326U\203U \327\202V \330\fP #\210)\331Y\205\244 \332(!\203u \323 )\310(\333\315#()
\325U\203\221 \323 )r\334(!q\210\f\335P\336 \337 C\"*\340(!\205\244 \321\341(\342\343
\"\fP $*0\202\255 \210\202\256 \210,\344 \342\345\346 !\"\"\347 \311\n#\210\n+\207" [save-match-data-internal vec value arguments fmt-string level match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-get-connection-property "ls-quoting-style" undef 5 "Checking, whether `ls --quoting-style=shell' works" nil (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command-and-check "%s --quoting-style=shell -al /dev/null" tramp-get-ls-command tramp-set-connection-property vec-or-proc tramp-verbose tramp-message-show-message] 7])
(defalias 'tramp-get-ls-command-with-w-option #[(vec) "\306 \307\216\310 \311\312#\211\312=\203\277 \313\314\315 (\3161\251
)X\205\245 \306 \317\216*\203[
\320X\203[ \321\322
\323U\203A \324\202V
\325U\203K \324\202V
\326U\203U \327\202V \330\fP #\210)\331Y\205\244 \332(!\203u \323 )\310(\333\315#()
\325U\203\221 \323 )r\334(!q\210\f\335P\336 \337 C\"*\340(!\205\244 \321\341(\342\343
\"\fP $*0\202\255 \210\202\256 \210,\344 \342\345\346 !\"\"\347 \311\n#\210\n+\207" [save-match-data-internal vec value arguments fmt-string level match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] tramp-get-connection-property "ls-w-option" undef 5 "Checking, whether `ls -w' works" nil (error) #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command-and-check "%s -alw" tramp-get-ls-command tramp-set-connection-property vec-or-proc tramp-verbose tramp-message-show-message] 7])
(defalias 'tramp-get-test-command #[(vec) "\306\307\310#\211\310=\203\275 \311\312\313 \3141\236 \f(X\205\232 \315 )\316\216*\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210(\330Y\205\231 \331
!\203m \322 (\306
\332\313#)\f\324U\203\210 \322 (r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\344\"\203\257 \307\202\266 \345\307\346!#\347\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "test" undef 5 "Finding a suitable `test' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-send-command-and-check "test 0" tramp-find-executable tramp-get-remote-path tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message] 7])
(defalias 'tramp-get-test-nt-command #[(vec) "\303\304\305#\211\305=\203C \306\307\310\311!\"\"\210r\312!q\210eb\210\313\314\n!!\205- \307\315\311!\")\206< \306\307\316\311!\"\"\210\317\320\304 #\210 )\207" [vec value tramp-end-of-output tramp-get-connection-property "test-nt" undef tramp-send-command format "( %s / -nt / )" tramp-get-test-command tramp-get-buffer looking-at regexp-quote "%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] 7])
(defalias 'tramp-get-file-exists-command #[(vec) "\306\307\310#\211\310=\203\256 \311\312\313 \3141\236 \f%X\205\232 \315 &\316\216'\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210%\330Y\205\231 \331
!\203m \322 %\306
\332\313#)\f\324U\203\210 \322 %r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343!\344\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "file-exists" undef 5 "Finding command to check if file exists" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-file-exists-command tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message] 7])
(defalias 'tramp-get-remote-ln #[(vec) "\306\307\310#\211\310=\203\262 \311\312\313 \3141\236 \f&X\205\232 \315 '\316\216(\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210&\330Y\205\231 \331
!\203m \322 &\306
\332\313#)\f\324U\203\210 \322 &r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!#\345\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "ln" undef 5 "Finding a suitable `ln' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message] 7])
(defalias 'tramp-get-remote-perl #[(vec) "\306\307\310#\211\310=\203\375 \311\312\313 \3141\236 \f,X\205\232 \315 -\316\216.\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210,\330Y\205\231 \331
!\203m \322 ,\306
\332\313#)\f\324U\203\210 \322 ,r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\344\345!#\206\265 \343\307\345!#\211 /\203\363 \306\346\310#\211\310=\203\326 \347\341\350/\"\"\351\346 #\210)\306\352\310#\211\310=\203\362 \347\341\353/\"\"\351\352 #\210)/)\351\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "perl" undef 5 "Finding a suitable `perl' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable "perl5" tramp-get-remote-path "perl-file-spec" tramp-send-command-and-check "%s -e 'use File::Spec;'" tramp-set-connection-property "perl-cwd-realpath" "%s -e 'use Cwd \"realpath\";'" tramp-verbose save-match-data-internal tramp-message-show-message result] 7])
(defalias 'tramp-get-remote-stat #[(vec) "\306\307\310#\211\310=\203\351 \311\312\313 \3141\236 \f+X\205\232 \315 ,\316\216-\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210+\330Y\205\231 \331
!\203m \322 +\306
\332\313#)\f\324U\203\210 \322 +r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!#\313 .\211 /\203\337 \345\341\346/\"\347#\211.<\203\334 .@;\203\334 \350\351.@\"\203\334 .A@\250\204\337 \313//*\352\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "stat" undef 5 "Finding a suitable `stat' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-send-command-and-read "%s -c '(\"%%N\" %%s)' /" noerror string-match "^`/'$" tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message tmp result] 7])
(defalias 'tramp-get-remote-readlink #[(vec) "\306\307\310#\211\310=\203\306 \311\312\313 \3141\236 \f(X\205\232 \315 )\316\216*\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210(\330Y\205\231 \331
!\203m \322 (\306
\332\313#)\f\324U\203\210 \322 (r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!#\211 +\205\276 \345\341\346+\"\"\205\276 +)\347\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "readlink" undef 5 "Finding a suitable `readlink' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-send-command-and-check "%s --canonicalize-missing /" tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message result] 7])
(defalias 'tramp-get-remote-trash #[(vec) "\306\307\310#\211\310=\203\262 \311\312\313 \3141\236 \f&X\205\232 \315 '\316\216(\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210&\330Y\205\231 \331
!\203m \322 &\306
\332\313#)\f\324U\203\210 \322 &r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!#\345\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "trash" undef 5 "Finding a suitable `trash' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message] 7])
(defalias 'tramp-get-remote-touch #[(vec) "\306\307\310#\211\310=\203\341 \311\312\313 \3141\236 \f2X\205\232 \315 3\316\2164\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\2102\330Y\205\231 \331
!\203m \322 2\306
\332\313#)\f\324U\203\210 \322 2r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!#\345\3465\347!\"! 6\211 7\203\327 \350\351\352\341\3537\354\355!\356\3576\360#$\"#\210\3616!\2107*\350\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "touch" undef 5 "Finding a suitable `touch' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp 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-file-name-handler file-remote-p localname delete-file tramp-verbose save-match-data-internal tramp-message-show-message tramp-temp-name-prefix tmpfile result] 14])
(defalias 'tramp-get-remote-gvfs-monitor-dir #[(vec) "\306\307\310#\211\310=\203\264 \311\312\313 \3141\236 \f'X\205\232 \315 (\316\216)\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210'\330Y\205\231 \331
!\203m \322 '\306
\332\313#)\f\324U\203\210 \322 'r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!\345\211%\346\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "gvfs-monitor-dir" undef 5 "Finding a suitable `gvfs-monitor-dir' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path t tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message] 7])
(defalias 'tramp-get-remote-inotifywait #[(vec) "\306\307\310#\211\310=\203\264 \311\312\313 \3141\236 \f'X\205\232 \315 (\316\216)\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210'\330Y\205\231 \331
!\203m \322 '\306
\332\313#)\f\324U\203\210 \322 'r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!\345\211%\346\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "inotifywait" undef 5 "Finding a suitable `inotifywait' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path t tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message] 7])
(defalias 'tramp-get-remote-id #[(vec) "\306\307\310#\211\310=\203 \311\312\313 \3141\236 \f,X\205\232 \315 -\316\216.\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210,\330Y\205\231 \331
!\203m \322 ,\306
\332\313#)\f\324U\203\210 \322 ,r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\3432\371 \344\313 /\211 0\205\367 0@/\345!\313 1\211 2\203\354 \346/2\347\211%\2111\203\354 \350\341\3511\"\"\203\343 \352\3431\"\2102A\2112\204\303 *0A\2110\204\262 \313*0\353\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "id" undef 5 "Finding POSIX `id' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp 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 tramp-verbose save-match-data-internal tramp-message-show-message cmd --dolist-tail-- result dl] 7])
(defalias 'tramp-get-remote-uid-with-id #[(vec id-format) "\302\303\304\305! \306\232\203 \307\202 \310 \306\232\203 \307\202 \311$\"\207" [vec id-format tramp-send-command-and-read format "%s -u%s %s" tramp-get-remote-id integer "" "n" "| sed -e s/^/\\\"/ -e s/\\$/\\\"/"] 8])
(defalias 'tramp-get-remote-uid-with-perl #[(vec id-format) "\302\303\304\305! \306\232\203 \307\202 \310#\"\207" [vec id-format tramp-send-command-and-read format "%s -le '%s'" tramp-get-remote-perl integer "print $>" "print \"\\\"\", scalar getpwuid($>), \"\\\"\""] 7])
(defalias 'tramp-get-remote-python #[(vec) "\306\307\310#\211\310=\203\306 \311\312\313 \3141\236 \f(X\205\232 \315 )\316\216*\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210(\330Y\205\231 \331
!\203m \322 (\306
\332\313#)\f\324U\203\210 \322 (r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\307\344!#\206\277 \343\345\344!#\206\277 \343\346\344!#\347\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "python" undef 5 "Finding a suitable `python' command" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp tramp-debug-message format "(%d) # " tramp-find-executable tramp-get-remote-path "python2" "python3" tramp-set-connection-property tramp-verbose save-match-data-internal tramp-message-show-message] 7])
(defalias 'tramp-get-remote-uid-with-python #[(vec id-format) "\302\303\304\305! \306\232\203 \307\202 \310#\"\207" [vec id-format 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] + '\\\"')"] 7])
(defalias 'tramp-get-remote-uid #[(vec id-format) "\304\305\306 \"\307#\211\307=\203h \3101; \311!\203 \312 \"\2027 \313!\203- \314 \"\2027 \315!\2057 \316 \"0\202= \210\317 \320\232\203M \250\204M \321\202] \322\232\203\\ ;\204\\ \323\202] )\324\305\306 \"\n#\210\n)\207" [vec id-format value res 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 -1 string "UNKNOWN" tramp-set-connection-property] 6])
(defalias 'tramp-get-remote-gid-with-id #[(vec id-format) "\302\303\304\305! \306\232\203 \307\202 \310 \306\232\203 \307\202 \311$\"\207" [vec id-format tramp-send-command-and-read format "%s -g%s %s" tramp-get-remote-id integer "" "n" "| sed -e s/^/\\\"/ -e s/\\$/\\\"/"] 8])
(defalias 'tramp-get-remote-gid-with-perl #[(vec id-format) "\302\303\304\305! \306\232\203 \307\202 \310#\"\207" [vec id-format tramp-send-command-and-read format "%s -le '%s'" tramp-get-remote-perl integer "print ($)=~/(\\d+)/)" "print \"\\\"\", scalar getgrgid($)), \"\\\"\""] 7])
(defalias 'tramp-get-remote-gid-with-python #[(vec id-format) "\302\303\304\305! \306\232\203 \307\202 \310#\"\207" [vec id-format 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] + '\\\"')"] 7])
(defalias 'tramp-get-remote-gid #[(vec id-format) "\304\305\306 \"\307#\211\307=\203h \3101; \311!\203 \312 \"\2027 \313!\203- \314 \"\2027 \315!\2057 \316 \"0\202= \210\317 \320\232\203M \250\204M \321\202] \322\232\203\\ ;\204\\ \323\202] )\324\305\306 \"\n#\210\n)\207" [vec id-format value res 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 -1 string "UNKNOWN" tramp-set-connection-property] 6])
(defalias 'tramp-get-env-with-u-option #[(vec) "\306\307\310#\211\310=\203\260 \311\312\313 \3141\236 \f'X\205\232 \315 (\316\216)\203V \f\317X\203V \320\321\f\322U\203< \323\202Q \f\324U\203F \323\202Q \f\325U\203P \326\202Q \327 P\n#\210'\330Y\205\231 \331
!\203m \322 '\306
\332\313#)\f\324U\203\210 \322 'r\333
!q\210 \334P\335\n\336 C\"*\337
!\205\231 \320\340
\341\342\f\" P\n$*0\202\242 \210\202\243 \210,\343\344\345#\346\307 #\210 )\207" [vec value arguments fmt-string level vec-or-proc tramp-get-connection-property "env-u-option" undef 5 "Checking, whether `env -u' works" nil (error) match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 3 apply message 0 "" 1 2 "Warning: " "Tramp: " 4 processp "vector" tramp-get-connection-buffer "\n%s" append buffer-string vectorp 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 tramp-verbose save-match-data-internal tramp-message-show-message] 7])
#@208 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.
(defalias 'tramp-get-inline-compress #[(vec prop size) "\250\205/ V\205/ \305\306\n! \307#\211 \307=\203- \310\n!\210\305\306\n! \311#\312\306\n! \f#\210\f)\207" [tramp-inline-compress-start-size size vec prop value tramp-get-connection-property tramp-get-connection-process undef tramp-find-inline-compress nil tramp-set-connection-property] 5 (#$ . 305764)])
#@467 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.
(defalias 'tramp-get-inline-coding #[(vec prop size) "\3061B\307\310! \311#\211\311=\203& \312!\210\307\310! \313#\314\310! \n#\210\n)\315\316 \"\2033 \317\2024 \320\313 \211 \203m
9\203m \315\321 \"\203m \322
! 9\315\3239\"\203a \324\325\313\3269$9\202M \327
J9#\2109)
\205?\330\f:#\211\203\310
9\203\310 \315\331\f\"\203\250 \332\333
\334B\335\336\337\340\341\342\343\344 DD\326\211\313\345\344 DD\257\nEF\202?\332\346\335\347\337\350\351\352\343\344 DD\326\211\313\345\344 DD\257\nE
\353BF\202?
9\203\321
\202? \203\315\354 \"\203\355\315\356 \"\203\357 ;\357>\203\357 \360\202\373 \315\356 \"\203\372 \361\202\373 \362
#\202? \203 \355\315\356 \"\203;\363>\203\364\202\365
#\202?\315\354 \"\203;\315\356 \"\2034\355\366
\"\202?\355\367
\"\202?\355\370
\"+0\207\210\313\207" [vec prop value compress prop1 coding (error) tramp-get-connection-property tramp-get-connection-process undef tramp-find-inline-encoding nil tramp-set-connection-property string-match "encoding" "inline-compress" "inline-decompress" "remote" symbol-name "-" replace-match "_" t 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) (default-directory (tramp-compat-temporary-file-directory))) apply 'tramp-call-process-region (point-min) (point-max) car split-string cdr (beg end) ((coding-system-for-write 'binary) (coding-system-for-read 'binary) (default-directory (tramp-compat-temporary-file-directory))) 'tramp-call-process-region beg end ((point-min) (point-max)) "decoding" format "local" (windows-nt) "(%s | \"%s\")" "(%s | %s)" "(%s | %s >%%s)" (windows-nt) "(%s <%%s | \"%s\")" "(%s <%%s | %s)" "%s" "%s >%%s" "%s <%%s" name size system-type] 18 (#$ . 306343)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook tramp-unload-hook #[nil "\300\301\302\"\207" [unload-feature tramp-sh force] 3] provide tramp-sh] 3)
Kontol Shell Bypass