branch: externals/vc-hgcmd
commit 15c2c27dd25f5219de6dfb7abc5d412486861684
Author: muffinmad <andreyk....@gmail.com>
Commit: muffinmad <andreyk....@gmail.com>
Communication with tty process
For remote files process communication type is tty instead of pipe.
In this case prepend each character in binary data with ^V (literal next).
Also send "\n" after data so tty process can read it.
---
vc-hgcmd.el | 20 ++++++++++++++------
1 file changed, 14 insertions(+), 6 deletions(-)
diff --git a/vc-hgcmd.el b/vc-hgcmd.el
index 19a1cae..7175fc8 100644
--- a/vc-hgcmd.el
+++ b/vc-hgcmd.el
@@ -250,6 +250,8 @@ Insert output to process buffer and check if amount of data
is enought to parse
;; TODO parse encoding
(while (not (vc-hgcmd--read-output))
(accept-process-output process 0.1 nil t))
+ ;; send \n after command data so tty process can read data
+ (process-send-string process "runcommand\n")
(set-process-filter process #'vc-hgcmd--cmdserver-process-filter)
process)))))
@@ -308,20 +310,26 @@ Insert 'Running command' and display buffer text if
COMMAND"
(when window (set-window-start window window-start))))
buffer))
-(defun vc-hgcmd--prepare-command-to-send (command)
- "Prepare COMMAND to send to hg process."
- (let ((args (mapconcat #'identity command "\0")))
- (concat (bindat-pack '((l u32)) `((l . ,(length args)))) args)))
+(defun vc-hgcmd--prepare-command-to-send (command tty)
+ "Prepare COMMAND to send to hg process. Escape each character in binary data
with ^V if TTY."
+ (let* ((args (mapconcat #'identity command "\0"))
+ (binary-data (bindat-pack '((l u32)) `((l . ,(length args))))))
+ (concat (if tty
+ (mapconcat #'identity (mapcar (lambda (c) (concat "\x16"
(char-to-string c))) binary-data) "")
+ binary-data)
+ args)))
(defun vc-hgcmd--run-command (cmd)
"Run hg CMD."
(let* ((buffer (vc-hgcmd--process-buffer))
- (process (get-buffer-process buffer)))
+ (process (get-buffer-process buffer))
+ (tty (process-tty-name process)))
(with-current-buffer buffer
(while vc-hgcmd--current-command
(accept-process-output process 0.1 nil t))
(setq vc-hgcmd--current-command cmd)
- (process-send-string process (concat "runcommand\n"
(vc-hgcmd--prepare-command-to-send (vc-hgcmd--command-command cmd))))
+ ;; send \n after command data so tty process can read data
+ (process-send-string process (concat (vc-hgcmd--prepare-command-to-send
(vc-hgcmd--command-command cmd) tty) "runcommand\n"))
(when (vc-hgcmd--command-wait cmd)
(while vc-hgcmd--current-command
(accept-process-output process 0.1 nil t))))))
