2944 |
filename |
filename |
2945 |
(tramp-get-decoding-function multi-method method user host)) |
(tramp-get-decoding-function multi-method method user host)) |
2946 |
(set-buffer tmpbuf) |
(set-buffer tmpbuf) |
2947 |
|
;; Douglas Gray Stephens <DGrayStephens@slb.com> |
2948 |
|
;; says that we need to strip tramp_exit_status |
2949 |
|
;; line from the output here. Go to point-max, |
2950 |
|
;; search backward for tramp_exit_status, delete |
2951 |
|
;; between point and point-max if found. |
2952 |
(let ((coding-system-for-write 'no-conversion)) |
(let ((coding-system-for-write 'no-conversion)) |
2953 |
(funcall (tramp-get-decoding-function |
(funcall (tramp-get-decoding-function |
2954 |
multi-method method user host) |
multi-method method user host) |
4194 |
(error "Couldn't find remote `%s' prompt." shell)) |
(error "Couldn't find remote `%s' prompt." shell)) |
4195 |
(tramp-message |
(tramp-message |
4196 |
9 "Setting remote shell prompt...") |
9 "Setting remote shell prompt...") |
4197 |
|
;; Douglas Gray Stephens <DGrayStephens@slb.com> says that we |
4198 |
|
;; must use "\n" here, not tramp-rsh-end-of-line. Kai left the |
4199 |
|
;; last tramp-rsh-end-of-line, Douglas wanted to replace that, |
4200 |
|
;; as well. |
4201 |
(process-send-string nil (format "PS1='%s%s%s'; PS2=''; PS3=''%s" |
(process-send-string nil (format "PS1='%s%s%s'; PS2=''; PS3=''%s" |
4202 |
tramp-rsh-end-of-line |
tramp-rsh-end-of-line |
4203 |
tramp-end-of-output |
tramp-end-of-output |
4204 |
tramp-rsh-end-of-line |
tramp-rsh-end-of-line |
4205 |
tramp-rsh-end-of-line)) |
tramp-rsh-end-of-line)) |
4206 |
(tramp-wait-for-output) |
(tramp-wait-for-output) |
4207 |
(tramp-message |
(tramp-message |
4208 |
9 "Setting remote shell prompt...done") |
9 "Setting remote shell prompt...done") |
|
;; (tramp-send-command multi-method method user host "echo hello") |
|
|
;; (tramp-message 5 "Waiting for remote `%s' to start up..." shell) |
|
|
;; (unless (tramp-wait-for-output 5) |
|
|
;; (unless (tramp-wait-for-output 5) |
|
|
;; (pop-to-buffer (buffer-name)) |
|
|
;; (error "Couldn't start remote `%s', see buffer `%s' for details" |
|
|
;; shell (buffer-name)))) |
|
|
;; (tramp-message 5 "Waiting for remote `%s' to start up...done" shell) |
|
4209 |
) |
) |
4210 |
(t (tramp-message 5 "Remote `%s' groks tilde expansion, good" |
(t (tramp-message 5 "Remote `%s' groks tilde expansion, good" |
4211 |
(tramp-get-remote-sh multi-method method)))))) |
(tramp-get-remote-sh multi-method method)))))) |
4936 |
(buffer-name))) |
(buffer-name))) |
4937 |
(erase-buffer) |
(erase-buffer) |
4938 |
(tramp-message 9 "Setting shell prompt") |
(tramp-message 9 "Setting shell prompt") |
4939 |
|
;; Douglas Gray Stephens <DGrayStephens@slb.com> says that we must |
4940 |
|
;; use "\n" here, not tramp-rsh-end-of-line. |
4941 |
(tramp-send-command |
(tramp-send-command |
4942 |
multi-method method user host |
multi-method method user host |
4943 |
(format "PS1='%s%s%s'; PS2=''; PS3=''" |
(format "PS1='%s%s%s'; PS2=''; PS3=''" |
4944 |
tramp-rsh-end-of-line |
tramp-rsh-end-of-line |
4945 |
tramp-end-of-output |
tramp-end-of-output |
4946 |
tramp-rsh-end-of-line)) |
tramp-rsh-end-of-line)) |
4947 |
(tramp-wait-for-output) |
(tramp-wait-for-output)) |
|
;; (tramp-send-command multi-method method user host "echo hello") |
|
|
;; (tramp-message 9 "Waiting for remote `%s' to come up..." |
|
|
;; (tramp-get-remote-sh multi-method method)) |
|
|
;; (unless (tramp-wait-for-output 5) |
|
|
;; (unless (tramp-wait-for-output 5) |
|
|
;; (pop-to-buffer (buffer-name)) |
|
|
;; (error "Couldn't set remote shell prompt. See buffer `%s' for details" |
|
|
;; (buffer-name)))) |
|
|
;; (tramp-message 7 "Waiting for remote `%s' to come up...done" |
|
|
;; (tramp-get-remote-sh multi-method method)) |
|
|
) |
|
4948 |
|
|
4949 |
(defun tramp-post-connection (multi-method method user host) |
(defun tramp-post-connection (multi-method method user host) |
4950 |
"Prepare a remote shell before being able to work on it. |
"Prepare a remote shell before being able to work on it. |