;;; DO NOT MODIFY THIS FILE (if (featurep 'tramp-loaddefs) (error "Feature tramp-loaddefs already loaded")) ;;;### (autoloads (tramp-shell-quote-argument tramp-time-diff tramp-clear-passwd tramp-read-passwd tramp-make-tramp-temp-file tramp-local-host-p tramp-check-cached-permissions tramp-get-local-gid tramp-get-local-uid tramp-file-mode-from-int tramp-mode-string-to-int tramp-parse-putty tramp-parse-netrc tramp-parse-passwd tramp-parse-hosts tramp-parse-sknownhosts tramp-parse-shostkeys tramp-parse-sconfig tramp-parse-shosts tramp-parse-rhosts tramp-completion-mode-p tramp-set-completion-function tramp-tramp-file-p tramp-default-host-alist tramp-default-user-alist tramp-default-method-alist) "tramp" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp") (defvar tramp-methods nil "\ Alist of methods for remote files. This is a list of entries of the form (NAME PARAM1 PARAM2 ...). Each NAME stands for a remote access method. Each PARAM is a pair of the form (KEY VALUE). The following KEYs are defined: * `tramp-remote-shell' This specifies the shell to use on the remote host. This MUST be a Bourne-like shell. It is normally not necessary to set this to any value other than \"/bin/sh\": Tramp wants to use a shell which groks tilde expansion, but it can search for it. Also note that \"/bin/sh\" exists on all Unixen, this might not be true for the value that you decide to use. You Have Been Warned. * `tramp-remote-shell-login' This specifies the arguments to let `tramp-remote-shell' run as a login shell. It defaults to (\"-l\"), but some shells, like ksh, require another argument. See `tramp-connection-properties' for a way to overwrite the default value. * `tramp-remote-shell-args' For implementation of `shell-command', this specifies the arguments to let `tramp-remote-shell' run a single command. * `tramp-login-program' This specifies the name of the program to use for logging in to the remote host. This may be the name of rsh or a workalike program, or the name of telnet or a workalike, or the name of su or a workalike. * `tramp-login-args' This specifies the list of arguments to pass to the above mentioned program. Please note that this is a list of list of arguments, that is, normally you don't want to put \"-a -b\" or \"-f foo\" here. Instead, you want a list (\"-a\" \"-b\"), or (\"-f\" \"foo\"). There are some patterns: \"%h\" in this list is replaced by the host name, \"%u\" is replaced by the user name, \"%p\" is replaced by the port number, and \"%%\" can be used to obtain a literal percent character. If a list containing \"%h\", \"%u\" or \"%p\" is unchanged during expansion (i.e. no host or no user specified), this list is not used as argument. By this, arguments like (\"-l\" \"%u\") are optional. \"%t\" is replaced by the temporary file name produced with `tramp-make-tramp-temp-file'. \"%k\" indicates the keep-date parameter of a program, if exists. \"%c\" adds additional `tramp-ssh-controlmaster-options' options for the first hop. * `tramp-login-env' A list of environment variables and their values, which will be set when calling `tramp-login-program'. * `tramp-async-args' When an asynchronous process is started, we know already that the connection works. Therefore, we can pass additional parameters to suppress diagnostic messages, in order not to tamper the process output. * `tramp-copy-program' This specifies the name of the program to use for remotely copying the file; this might be the absolute filename of scp or the name of a workalike program. It is always applied on the local host. * `tramp-copy-args' This specifies the list of parameters to pass to the above mentioned program, the hints for `tramp-login-args' also apply here. * `tramp-copy-env' A list of environment variables and their values, which will be set when calling `tramp-copy-program'. * `tramp-remote-copy-program' The listener program to be applied on remote side, if needed. * `tramp-remote-copy-args' The list of parameters to pass to the listener program, the hints for `tramp-login-args' also apply here. Additionally, \"%r\" could be used here and in `tramp-copy-args'. It denotes a randomly chosen port for the remote listener. * `tramp-copy-keep-date' This specifies whether the copying program when the preserves the timestamp of the original file. * `tramp-copy-keep-tmpfile' This specifies whether a temporary local file shall be kept for optimization reasons (useful for \"rsync\" methods). * `tramp-copy-recursive' Whether the operation copies directories recursively. * `tramp-default-port' The default port of a method is needed in case of gateway connections. Additionally, it is used as indication which method is prepared for passing gateways. * `tramp-gw-args' As the attribute name says, additional arguments are specified here when a method is applied via a gateway. * `tramp-tmpdir' A directory on the remote host for temporary files. If not specified, \"/tmp\" is taken as default. * `tramp-connection-timeout' This is the maximum time to be spent for establishing a connection. In general, the global default value shall be used, but for some methods, like \"su\" or \"sudo\", a shorter timeout might be desirable. What does all this mean? Well, you should specify `tramp-login-program' for all methods; this program is used to log in to the remote site. Then, there are two ways to actually transfer the files between the local and the remote side. One way is using an additional scp-like program. If you want to do this, set `tramp-copy-program' in the method. Another possibility for file transfer is inline transfer, i.e. the file is passed through the same buffer used by `tramp-login-program'. In this case, the file contents need to be protected since the `tramp-login-program' might use escape codes or the connection might not be eight-bit clean. Therefore, file contents are encoded for transit. See the variables `tramp-local-coding-commands' and `tramp-remote-coding-commands' for details. So, to summarize: if the method is an out-of-band method, then you must specify `tramp-copy-program' and `tramp-copy-args'. If it is an inline method, then these two parameters should be nil. Methods which are fit for gateways must have `tramp-default-port' at least. Notes: When using `su' or `sudo' the phrase \"open connection to a remote host\" sounds strange, but it is used nevertheless, for consistency. No connection is opened to a remote host, but `su' or `sudo' is started on the local host. You should specify a remote host `localhost' or the name of the local host. Another host name is useful only in combination with `tramp-default-proxies-alist'.") (defvar tramp-default-method-alist nil "\ Default method to use for specific host/user pairs. This is an alist of items (HOST USER METHOD). The first matching item specifies the method to use for a file name which does not specify a method. HOST and USER are regular expressions or nil, which is interpreted as a regular expression which always matches. If no entry matches, the variable `tramp-default-method' takes effect. If the file name does not specify the user, lookup is done using the empty string for the user name. See `tramp-methods' for a list of possibilities for METHOD.") (defvar tramp-default-user-alist nil "\ Default user to use for specific method/host pairs. This is an alist of items (METHOD HOST USER). The first matching item specifies the user to use for a file name which does not specify a user. METHOD and USER are regular expressions or nil, which is interpreted as a regular expression which always matches. If no entry matches, the variable `tramp-default-user' takes effect. If the file name does not specify the method, lookup is done using the empty string for the method name.") (defvar tramp-default-host-alist nil "\ Default host to use for specific method/user pairs. This is an alist of items (METHOD USER HOST). The first matching item specifies the host to use for a file name which does not specify a host. METHOD and HOST are regular expressions or nil, which is interpreted as a regular expression which always matches. If no entry matches, the variable `tramp-default-host' takes effect. If the file name does not specify the method, lookup is done using the empty string for the method name.") (defconst tramp-local-host-regexp (concat "\\`" (regexp-opt (list "localhost" "localhost6" (system-name) "127.0.0.1" "::1") t) "\\'") "\ Host names which are regarded as local host.") (defconst tramp-prefix-domain-format "%" "\ String matching delimiter between user and domain names.") (defconst tramp-prefix-domain-regexp (regexp-quote tramp-prefix-domain-format) "\ Regexp matching delimiter between user and domain names. Derived from `tramp-prefix-domain-format'.") (defvar tramp-foreign-file-name-handler-alist nil "\ Alist of elements (FUNCTION . HANDLER) for foreign methods handled specially. If (FUNCTION FILENAME) returns non-nil, then all I/O on that file is done by calling HANDLER.") (autoload 'tramp-tramp-file-p "tramp" "\ Return t if NAME is a string with Tramp file name syntax. arguments: (NAME) " nil nil) (autoload 'tramp-set-completion-function "tramp" "\ Sets the list of completion functions for METHOD. FUNCTION-LIST is a list of entries of the form (FUNCTION FILE). The FUNCTION is intended to parse FILE according its syntax. It might be a predefined FUNCTION, or a user defined FUNCTION. For the list of predefined FUNCTIONs see `tramp-completion-function-alist'. Example: (tramp-set-completion-function \"ssh\" \\='((tramp-parse-sconfig \"/etc/ssh_config\") (tramp-parse-sconfig \"~/.ssh/config\"))) arguments: (METHOD FUNCTION-LIST) " nil nil) (autoload 'tramp-completion-mode-p "tramp" "\ Check, whether method / user name / host name completion is active. arguments: () " nil nil) (autoload 'tramp-parse-rhosts "tramp" "\ Return a list of (user host) tuples allowed to access. Either user or host may be nil. arguments: (FILENAME) " nil nil) (autoload 'tramp-parse-shosts "tramp" "\ Return a list of (user host) tuples allowed to access. User is always nil. arguments: (FILENAME) " nil nil) (autoload 'tramp-parse-sconfig "tramp" "\ Return a list of (user host) tuples allowed to access. User is always nil. arguments: (FILENAME) " nil nil) (autoload 'tramp-parse-shostkeys "tramp" "\ Return a list of (user host) tuples allowed to access. User is always nil. arguments: (DIRNAME) " nil nil) (autoload 'tramp-parse-sknownhosts "tramp" "\ Return a list of (user host) tuples allowed to access. User is always nil. arguments: (DIRNAME) " nil nil) (autoload 'tramp-parse-hosts "tramp" "\ Return a list of (user host) tuples allowed to access. User is always nil. arguments: (FILENAME) " nil nil) (autoload 'tramp-parse-passwd "tramp" "\ Return a list of (user host) tuples allowed to access. Host is always \"localhost\". arguments: (FILENAME) " nil nil) (autoload 'tramp-parse-netrc "tramp" "\ Return a list of (user host) tuples allowed to access. User may be nil. arguments: (FILENAME) " nil nil) (autoload 'tramp-parse-putty "tramp" "\ Return a list of (user host) tuples allowed to access. User is always nil. arguments: (REGISTRY-OR-DIRNAME) " nil nil) (autoload 'tramp-mode-string-to-int "tramp" "\ Converts a ten-letter `drwxrwxrwx'-style mode string into mode bits. arguments: (MODE-STRING) " nil nil) (autoload 'tramp-file-mode-from-int "tramp" "\ Turn an integer representing a file mode into an ls(1)-like string. arguments: (MODE) " nil nil) (autoload 'tramp-get-local-uid "tramp" "\ arguments: (ID-FORMAT) " nil nil) (autoload 'tramp-get-local-gid "tramp" "\ arguments: (ID-FORMAT) " nil nil) (autoload 'tramp-check-cached-permissions "tramp" "\ Check `file-attributes' caches for VEC. Return t if according to the cache access type ACCESS is known to be granted. arguments: (VEC ACCESS) " nil nil) (autoload 'tramp-local-host-p "tramp" "\ Return t if this points to the local host, nil otherwise. arguments: (VEC) " nil nil) (autoload 'tramp-make-tramp-temp-file "tramp" "\ Create a temporary file on the remote host identified by VEC. Return the local name of the temporary file. arguments: (VEC) " nil nil) (autoload 'tramp-read-passwd "tramp" "\ Read a password from user (compat function). Consults the auth-source package. Invokes `password-read' if available, `read-passwd' else. arguments: (PROC &optional PROMPT) " nil nil) (autoload 'tramp-clear-passwd "tramp" "\ Clear password cache for connection related to VEC. arguments: (VEC) " nil nil) (autoload 'tramp-time-diff "tramp" "\ Return the difference between the two times, in seconds. T1 and T2 are time values (as returned by `current-time' for example). arguments: (T1 T2) " nil nil) (autoload 'tramp-shell-quote-argument "tramp" "\ Similar to `shell-quote-argument', but groks newlines. Only works for Bourne-like shells. arguments: (S) " nil nil) ;;;*** ;;;### (autoloads (tramp-adb-parse-device-names tramp-adb-file-name-handler tramp-adb-prompt tramp-adb-connect-if-not-connected tramp-adb-program) "tramp-adb" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp-adb") (defvar tramp-adb-program "adb" "\ Name of the Android Debug Bridge program.") (defvar tramp-adb-connect-if-not-connected nil "\ Try to run `adb connect' if provided device is not connected currently. It is used for TCP/IP devices.") (defconst tramp-adb-method "adb" "\ *When this method name is used, forward all calls to Android Debug Bridge.") (defvar tramp-adb-prompt "^\\(?:[[:digit:]]*|?\\)?\\(?:[[:alnum:];[]*@[[:alnum:]]*[^#\\$]*\\)?[#\\$][[:space:]]" "\ Regexp used as prompt in almquist shell.") (add-to-list 'tramp-methods (backquote ((\, tramp-adb-method) (tramp-tmpdir "/data/local/tmp") (tramp-default-port 5555)))) (add-to-list 'tramp-default-host-alist (backquote ((\, tramp-adb-method) nil ""))) (eval-after-load 'tramp '(tramp-set-completion-function tramp-adb-method '((tramp-adb-parse-device-names "")))) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-adb-file-name-p 'tramp-adb-file-name-handler)) (defsubst tramp-adb-file-name-p (filename) "\ Check if it's a filename for ADB." (let ((v (tramp-dissect-file-name filename))) (string= (tramp-file-name-method v) tramp-adb-method))) (autoload 'tramp-adb-file-name-handler "tramp-adb" "\ Invoke the ADB handler for OPERATION. First arg specifies the OPERATION, second arg is a list of arguments to pass to the OPERATION. arguments: (OPERATION &rest ARGS) " nil nil) (autoload 'tramp-adb-parse-device-names "tramp-adb" "\ Return a list of (nil host) tuples allowed to access. arguments: (_IGNORE) " nil nil) ;;;*** ;;;### (autoloads (tramp-parse-connection-properties tramp-list-connections tramp-cache-print tramp-flush-connection-property tramp-connection-property-p tramp-set-connection-property tramp-get-connection-property tramp-flush-directory-property tramp-flush-file-property tramp-set-file-property tramp-get-file-property tramp-connection-properties) "tramp-cache" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp-cache") (defvar tramp-cache-data (make-hash-table :test 'equal) "\ Hash table for remote files properties.") (defvar tramp-connection-properties nil "\ List of static connection properties. Every entry has the form (REGEXP PROPERTY VALUE). The regexp matches remote file names. It can be nil. PROPERTY is a string, and VALUE the corresponding value. They are used, if there is no matching entry for PROPERTY in `tramp-cache-data'. For more details see the info pages.") (autoload 'tramp-get-file-property "tramp-cache" "\ Get the PROPERTY of FILE from the cache context of KEY. Returns DEFAULT if not set. arguments: (KEY FILE PROPERTY DEFAULT) " nil nil) (autoload 'tramp-set-file-property "tramp-cache" "\ Set the PROPERTY of FILE to VALUE, in the cache context of KEY. Returns VALUE. arguments: (KEY FILE PROPERTY VALUE) " nil nil) (autoload 'tramp-flush-file-property "tramp-cache" "\ Remove all properties of FILE in the cache context of KEY. arguments: (KEY FILE) " nil nil) (autoload 'tramp-flush-directory-property "tramp-cache" "\ Remove all properties of DIRECTORY in the cache context of KEY. Remove also properties of all files in subdirectories. arguments: (KEY DIRECTORY) " nil nil) (autoload 'tramp-get-connection-property "tramp-cache" "\ Get the named PROPERTY for the connection. KEY identifies the connection, it is either a process or a vector. If the value is not set for the connection, returns DEFAULT. arguments: (KEY PROPERTY DEFAULT) " nil nil) (autoload 'tramp-set-connection-property "tramp-cache" "\ Set the named PROPERTY of a connection to VALUE. KEY identifies the connection, it is either a process or a vector. PROPERTY is set persistent when KEY is a vector. arguments: (KEY PROPERTY VALUE) " nil nil) (autoload 'tramp-connection-property-p "tramp-cache" "\ Check whether named PROPERTY of a connection is defined. KEY identifies the connection, it is either a process or a vector. arguments: (KEY PROPERTY) " nil nil) (autoload 'tramp-flush-connection-property "tramp-cache" "\ Remove all properties identified by KEY. KEY identifies the connection, it is either a process or a vector. arguments: (KEY) " nil nil) (autoload 'tramp-cache-print "tramp-cache" "\ Print hash table TABLE. arguments: (TABLE) " nil nil) (autoload 'tramp-list-connections "tramp-cache" "\ Return a list of all known connection vectors according to `tramp-cache'. arguments: () " nil nil) (autoload 'tramp-parse-connection-properties "tramp-cache" "\ Return a list of (user host) tuples allowed to access for METHOD. This function is added always in `tramp-get-completion-function' for all methods. Resulting data are derived from connection history. arguments: (METHOD) " nil nil) ;;;*** ;;;### (autoloads (tramp-bug tramp-version tramp-cleanup-all-buffers tramp-cleanup-all-connections tramp-cleanup-this-connection tramp-cleanup-connection) "tramp-cmds" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp-cmds") (autoload 'tramp-cleanup-connection "tramp-cmds" "\ Flush all connection related objects. This includes password cache, file cache, connection cache, buffers. KEEP-DEBUG non-nil preserves the debug buffer. KEEP-PASSWORD non-nil preserves the password cache. When called interactively, a Tramp connection has to be selected. arguments: (VEC &optional KEEP-DEBUG KEEP-PASSWORD) " t nil) (autoload 'tramp-cleanup-this-connection "tramp-cmds" "\ Flush all connection related objects of the current buffer's connection. arguments: () " t nil) (autoload 'tramp-cleanup-all-connections "tramp-cmds" "\ Flush all Tramp internal objects. This includes password cache, file cache, connection cache, buffers. arguments: () " t nil) (autoload 'tramp-cleanup-all-buffers "tramp-cmds" "\ Kill all remote buffers. arguments: () " t nil) (autoload 'tramp-version "tramp-cmds" "\ Print version number of tramp.el in minibuffer or current buffer. arguments: (ARG) " t nil) (autoload 'tramp-bug "tramp-cmds" "\ Submit a bug report to the Tramp developers. arguments: () " t nil) ;;;*** ;;;### (autoloads (tramp-efs-file-name-handler) "tramp-efs" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp-efs") (defconst tramp-efs-method "ftp" "\ Name of the method invoking EFS.") (when (featurep 'xemacs) (add-to-list 'tramp-methods (cons tramp-efs-method nil)) (add-to-list 'tramp-default-method-alist (list "\\`ftp\\." nil tramp-efs-method)) (add-to-list 'tramp-default-method-alist (list nil "\\`\\(anonymous\\|ftp\\)\\'" tramp-efs-method))) (eval-after-load 'tramp '(tramp-set-completion-function tramp-efs-method '((tramp-parse-netrc "~/.netrc")))) (autoload 'tramp-efs-file-name-handler "tramp-efs" "\ Invoke the EFS handler for OPERATION. First arg specifies the OPERATION, second args is a list of arguments to pass to the OPERATION. arguments: (OPERATION &rest ARGS) " nil nil) (defsubst tramp-efs-file-name-p (filename) "\ Check if it's a filename that should be forwarded to EFS." (when (string-match (nth 0 tramp-file-name-structure) filename) (string= (tramp-file-name-method (tramp-dissect-file-name filename)) tramp-efs-method))) (when (featurep 'xemacs) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-efs-file-name-p 'tramp-efs-file-name-handler))) ;;;*** ;;;### (autoloads (tramp-sh-file-name-handler tramp-sh-extra-args tramp-remote-process-environment tramp-remote-path tramp-use-ssh-controlmaster-options tramp-histfile-override tramp-terminal-type tramp-copy-size-limit tramp-inline-compress-start-size) "tramp-sh" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp-sh") (defvar tramp-inline-compress-start-size 4096 "\ The minimum size of compressing where inline transfer. When inline transfer, compress transferred data of file whose size is this value or above (up to `tramp-copy-size-limit'). If it is nil, no compression at all will be applied.") (defvar tramp-copy-size-limit 10240 "\ The maximum file size where inline copying is preferred over an out-of-the-band copy. If it is nil, out-of-the-band copy will be used without a check.") (defvar tramp-terminal-type "dumb" "\ Value of TERM environment variable for logging in to remote host. Because Tramp wants to parse the output of the remote shell, it is easily confused by ANSI color escape sequences and suchlike. Often, shell init files conditionalize this setup based on the TERM environment variable.") (defvar tramp-histfile-override ".tramp_history" "\ When invoking a shell, override the HISTFILE with this value. When setting to a string, it redirects the shell history to that file. Be careful when setting to \"/dev/null\"; this might result in undesired results when using \"bash\" as shell. The value t, the default value, unsets any setting of HISTFILE, and sets both HISTFILESIZE and HISTSIZE to 0. If you set this variable to nil, however, the *override* is disabled, so the history will go to the default storage location, e.g. \"$HOME/.sh_history\".") (defconst tramp-color-escape-sequence-regexp "[[;0-9]+m" "\ Escape sequences produced by the \"ls\" command.") (defconst tramp-initial-end-of-output "#$ " "\ Prompt when establishing a connection.") (defvar tramp-use-ssh-controlmaster-options t "\ Whether to use `tramp-ssh-controlmaster-options'.") (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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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")))) (add-to-list 'tramp-methods '("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")))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-methods '("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")))) (add-to-list 'tramp-methods (backquote ("plink" (tramp-login-program "plink") (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") ((\, (format "env 'TERM=%s' 'PROMPT_COMMAND=' 'PS1=%s'" tramp-terminal-type tramp-initial-end-of-output))) ("/bin/sh") ("\""))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c")) (tramp-default-port 22)))) (add-to-list 'tramp-methods (backquote ("plinkx" (tramp-login-program "plink") (tramp-login-args (("-load") ("%h") ("-t") ("\"") ((\, (format "env 'TERM=%s' 'PROMPT_COMMAND=' 'PS1=%s'" tramp-terminal-type tramp-initial-end-of-output))) ("/bin/sh") ("\""))) (tramp-remote-shell "/bin/sh") (tramp-remote-shell-login ("-l")) (tramp-remote-shell-args ("-c"))))) (add-to-list 'tramp-methods (backquote ("pscp" (tramp-login-program "plink") (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") ((\, (format "env 'TERM=%s' 'PROMPT_COMMAND=' 'PS1=%s'" tramp-terminal-type tramp-initial-end-of-output))) ("/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)))) (add-to-list 'tramp-methods (backquote ("psftp" (tramp-login-program "plink") (tramp-login-args (("-l" "%u") ("-P" "%p") ("-ssh") ("-t") ("%h") ("\"") ((\, (format "env 'TERM=%s' 'PROMPT_COMMAND=' 'PS1=%s'" tramp-terminal-type tramp-initial-end-of-output))) ("/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)))) (add-to-list 'tramp-methods '("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))) (add-to-list 'tramp-default-method-alist (backquote ((\, tramp-local-host-regexp) "\\`root\\'" "su"))) (add-to-list 'tramp-default-user-alist (backquote ((\, (concat "\\`" (regexp-opt '("su" "sudo" "ksu")) "\\'")) nil "root"))) (add-to-list 'tramp-default-user-alist (backquote ((\, (concat "\\`" (regexp-opt '("rcp" "remcp" "rsh" "telnet" "nc" "krlogin" "fcp")) "\\'")) nil (\, (user-login-name))))) (defconst tramp-completion-function-alist-rsh '((tramp-parse-rhosts "/etc/hosts.equiv") (tramp-parse-rhosts "~/.rhosts")) "\ Default list of (FUNCTION FILE) pairs to be examined for rsh 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")) "\ Default list of (FUNCTION FILE) pairs to be examined for ssh methods.") (defconst tramp-completion-function-alist-telnet '((tramp-parse-hosts "/etc/hosts")) "\ Default list of (FUNCTION FILE) pairs to be examined for telnet methods.") (defconst tramp-completion-function-alist-su '((tramp-parse-passwd "/etc/passwd")) "\ Default list of (FUNCTION FILE) pairs to be examined for su methods.") (defconst tramp-completion-function-alist-putty (backquote ((tramp-parse-putty (\, (if (memq system-type '(windows-nt)) "HKEY_CURRENT_USER\\Software\\SimonTatham\\PuTTY\\Sessions" "~/.putty/sessions"))))) "\ Default list of (FUNCTION REGISTRY) pairs to be examined for putty sessions.") (eval-after-load 'tramp '(progn (tramp-set-completion-function "rcp" tramp-completion-function-alist-rsh) (tramp-set-completion-function "remcp" tramp-completion-function-alist-rsh) (tramp-set-completion-function "scp" tramp-completion-function-alist-ssh) (tramp-set-completion-function "scpx" tramp-completion-function-alist-ssh) (tramp-set-completion-function "rsync" tramp-completion-function-alist-ssh) (tramp-set-completion-function "rsh" tramp-completion-function-alist-rsh) (tramp-set-completion-function "remsh" tramp-completion-function-alist-rsh) (tramp-set-completion-function "ssh" tramp-completion-function-alist-ssh) (tramp-set-completion-function "sshx" tramp-completion-function-alist-ssh) (tramp-set-completion-function "telnet" tramp-completion-function-alist-telnet) (tramp-set-completion-function "nc" tramp-completion-function-alist-telnet) (tramp-set-completion-function "su" tramp-completion-function-alist-su) (tramp-set-completion-function "sudo" tramp-completion-function-alist-su) (tramp-set-completion-function "ksu" tramp-completion-function-alist-su) (tramp-set-completion-function "krlogin" tramp-completion-function-alist-rsh) (tramp-set-completion-function "plink" tramp-completion-function-alist-ssh) (tramp-set-completion-function "plinkx" tramp-completion-function-alist-putty) (tramp-set-completion-function "pscp" tramp-completion-function-alist-ssh) (tramp-set-completion-function "psftp" tramp-completion-function-alist-ssh) (tramp-set-completion-function "fcp" tramp-completion-function-alist-ssh))) (defvar 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. For every remote host, this variable will be set buffer local, keeping the list of existing directories on that host. You can use `~' in this list, but when searching for a shell which groks tilde expansion, all directory names starting with `~' will be ignored. `Default Directories' represent the list of directories given by the command \"getconf PATH\". It is recommended to use this entry on top of this list, because these are the default directories for POSIX compatible commands. On remote hosts which do not offer the getconf command (like cygwin), the value \"/bin:/usr/bin\" is used instead of. `Private Directories' are the settings of the $PATH environment, as given in your `~/.profile'.") (defvar tramp-remote-process-environment (backquote ("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. Each element should be a string of the form ENVVARNAME=VALUE. An entry ENVVARNAME= disables the corresponding environment variable, which might have been set in the init files like ~/.profile. Special handling is applied to the PATH environment, which should not be set here. Instead, it should be set via `tramp-remote-path'.") (defvar tramp-sh-extra-args '(("/bash\\'" . "-norc -noprofile")) "\ Alist specifying extra arguments to pass to the remote shell. Entries are (REGEXP . ARGS) where REGEXP is a regular expression matching the shell file name and ARGS is a string specifying the arguments. This variable is only used when Tramp needs to start up another shell for tilde expansion. The extra arguments should typically prevent the shell from reading its init file.") (add-to-list 'tramp-foreign-file-name-handler-alist '(identity . tramp-sh-file-name-handler) 'append) (autoload 'tramp-sh-file-name-handler "tramp-sh" "\ Invoke remote-shell Tramp file name handler. Fall back to normal file name handler if no Tramp handler exists. arguments: (OPERATION &rest ARGS) " nil nil) ;;;*** ;;;### (autoloads (tramp-smb-file-name-handler tramp-smb-winexe-shell-command-switch tramp-smb-winexe-shell-command tramp-smb-winexe-program tramp-smb-conf tramp-smb-acl-program tramp-smb-program) "tramp-smb" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp-smb") (defconst tramp-smb-method "smb" "\ Method to connect SAMBA and M$ SMB servers.") (unless (memq system-type '(cygwin windows-nt)) (add-to-list 'tramp-methods (backquote ((\, tramp-smb-method) (tramp-remote-shell "") (tramp-tmpdir "/C$/Temp"))))) (add-to-list 'tramp-default-method-alist (backquote (nil (\, tramp-prefix-domain-regexp) (\, tramp-smb-method)))) (add-to-list 'tramp-default-user-alist (backquote ((\, (concat "\\`" tramp-smb-method "\\'")) nil nil))) (eval-after-load 'tramp '(tramp-set-completion-function tramp-smb-method '((tramp-parse-netrc "~/.netrc")))) (defvar tramp-smb-program "smbclient" "\ Name of SMB client to run.") (defvar tramp-smb-acl-program "smbcacls" "\ Name of SMB acls to run.") (defvar tramp-smb-conf "/dev/null" "\ Path of the smb.conf file. If it is nil, no smb.conf will be added to the `tramp-smb-program' call, letting the SMB client use the default one.") (defvar tramp-smb-winexe-program "winexe" "\ Name of winexe client to run. If it isn't found in the local $PATH, the absolute path of winexe shall be given. This is needed for remote processes.") (defvar tramp-smb-winexe-shell-command "powershell.exe" "\ Shell to be used for processes on remote machines. This must be Powershell V2 compatible.") (defvar tramp-smb-winexe-shell-command-switch "-file -" "\ Command switch used together with `tramp-smb-winexe-shell-command'. This can be used to disable echo etc.") (defsubst tramp-smb-file-name-p (filename) "\ Check if it's a filename for SMB servers." (string= (tramp-file-name-method (tramp-dissect-file-name filename)) tramp-smb-method)) (autoload 'tramp-smb-file-name-handler "tramp-smb" "\ Invoke the SMB related OPERATION. First arg specifies the OPERATION, second arg is a list of arguments to pass to the OPERATION. arguments: (OPERATION &rest ARGS) " nil nil) (unless (memq system-type '(cygwin windows-nt)) (add-to-list 'tramp-foreign-file-name-handler-alist (cons 'tramp-smb-file-name-p 'tramp-smb-file-name-handler))) ;;;*** ;;;### (autoloads (tramp-uuencode-region) "tramp-uu" "/home/steve/programming/xe-packages/xemacs-packages/tramp/lisp/tramp-uu") (autoload 'tramp-uuencode-region "tramp-uu" "\ UU-encode the region between BEG and END. arguments: (BEG END) " nil nil) ;;;*** (defconst tramp-version "2.2.13" "\ This version of Tramp.") (defconst tramp-bug-report-address "tramp-devel@gnu.org" "\ Email address to send bug reports to.") (defconst tramp-version "2.2.11" "\ This version of Tramp.") (defconst tramp-bug-report-address "tramp-devel@gnu.org" "\ Email address to send bug reports to.") (provide 'tramp-loaddefs)