72 |
;; In the Tramp CVS repository, the version numer is auto-frobbed from |
;; In the Tramp CVS repository, the version numer is auto-frobbed from |
73 |
;; the Makefile, so you should edit the top-level Makefile to change |
;; the Makefile, so you should edit the top-level Makefile to change |
74 |
;; the version number. |
;; the version number. |
75 |
(defconst tramp-version "2.0.16" |
(defconst tramp-version "2.0.17" |
76 |
"This version of tramp.") |
"This version of tramp.") |
77 |
|
|
78 |
(defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org" |
(defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org" |
5258 |
multi-method method user host 9 |
multi-method method user host 9 |
5259 |
"Checking local encoding command `%s' for sanity" loc-enc) |
"Checking local encoding command `%s' for sanity" loc-enc) |
5260 |
(unless (zerop (tramp-call-local-coding-command |
(unless (zerop (tramp-call-local-coding-command |
5261 |
loc-enc null-device null-device)) |
loc-enc nil nil)) |
5262 |
(throw 'wont-work nil))) |
(throw 'wont-work nil))) |
5263 |
(when (stringp loc-dec) |
(when (stringp loc-dec) |
5264 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
5265 |
multi-method method user host 9 |
multi-method method user host 9 |
5266 |
"Checking local decoding command `%s' for sanity" loc-dec) |
"Checking local decoding command `%s' for sanity" loc-dec) |
5267 |
(unless (zerop (tramp-call-local-coding-command |
(unless (zerop (tramp-call-local-coding-command |
5268 |
loc-dec null-device null-device)) |
loc-dec nil nil)) |
5269 |
(throw 'wont-work nil))) |
(throw 'wont-work nil))) |
5270 |
;; CCC: At this point, maybe we should check that the output |
;; CCC: At this point, maybe we should check that the output |
5271 |
;; of the commands is correct. But for the moment we will |
;; of the commands is correct. But for the moment we will |
5293 |
"Call the local encoding or decoding command. |
"Call the local encoding or decoding command. |
5294 |
If CMD contains \"%s\", provide input file INPUT there in command. |
If CMD contains \"%s\", provide input file INPUT there in command. |
5295 |
Otherwise, INPUT is passed via standard input. |
Otherwise, INPUT is passed via standard input. |
5296 |
OUTPUT specifies a filename or t, which means to standard output |
INPUT can also be nil which means `/dev/null'. |
5297 |
\(and thus, the current buffer)." |
OUTPUT can be a string (which specifies a filename), or t (which |
5298 |
|
means standard output and thus the current buffer), or nil (which |
5299 |
|
means discard it)." |
5300 |
(call-process |
(call-process |
5301 |
tramp-encoding-shell ;program |
tramp-encoding-shell ;program |
5302 |
(unless (string-match "%s" cmd) ;input file |
(unless (and input (string-match "%s" cmd)) |
5303 |
input) |
input) ;input |
5304 |
(if (eq output t) t nil) ;output |
(if (eq output t) t nil) ;output |
5305 |
nil ;redisplay |
nil ;redisplay |
5306 |
tramp-encoding-command-switch |
tramp-encoding-command-switch |
5307 |
;; actual shell command |
;; actual shell command |
5308 |
(concat |
(concat |
5309 |
(if (string-match "%s" cmd) (format cmd input) cmd) |
(if (string-match "%s" cmd) (format cmd input) cmd) |
5310 |
(if (stringp output) (concat "> " output) nil)))) |
(if (stringp output) (concat "> " output) "")))) |
5311 |
|
|
5312 |
(defun tramp-maybe-open-connection (multi-method method user host) |
(defun tramp-maybe-open-connection (multi-method method user host) |
5313 |
"Maybe open a connection to HOST, logging in as USER, using METHOD. |
"Maybe open a connection to HOST, logging in as USER, using METHOD. |