从slip向shell发送命令

Question

我正在编写一个elisp函数，它将命令发送到现有的shell缓冲区，等待命令完成，然后发送另一个命令。例如，我想发送:

python
2+3

到目前为止，我已经尝试了以下操作，但没有成功:

1。让shell进程使用process-send-string和accept-process-output:

(process-send-string eshell-proc "python")
(accept-process-output eshell-proc 100)

但是我一直无法得到shell进程。当当前缓冲区为shell时，(get-buffer-process (current-buffer))返回nil。

2。在缓冲区中插入命令，使用(eshell-send-input)，并在发送下一个命令之前休眠一会儿:

(progn 
(insert "python")
(eshell-send-input)
(sleep-for 1)
(insert "2+3")
(eshell-send-input))

这种方法的问题是"2+3"在python子进程启动之前被发送。不管我睡了多长时间，这种情况都会发生。似乎睡眠会冻结emacs的所有子进程。

3。使用eshell-gather-process-output:如果我使用:

(eshell-gather-process-output "/usr/bin/python" nil)

或

(eshell-gather-process-output "/usr/bin/python" (list "somearg"))

我得到Debugger entered--Lisp error: (wrong-type-argument arrayp nil)

但是如果我使用:

(eshell-gather-process-output "/usr/bin/python" (vector "somearg"))

我得到Debugger entered--Lisp error: (wrong-type-argument listp ["somearg"])

所以我真的很困惑，这个命令期望什么类型的参数。我还没能找到一个使用这个命令的例子。

为什么如此简单的事情变得如此复杂?感谢您的输入

Answer 1

我明白你在说什么，但这似乎并不是真正的"Emacs"做事的方式。你可以在python模式下打开一个缓冲区，然后把2+2这样的区域发送给python解释器。或者你可以输入

(python-shell-send-string "2 + 2")

或者查看python模式的源代码，特别是这个函数:

(defun python-shell-send-string (string &optional process msg)
  "Send STRING to inferior Python PROCESS.
When MSG is non-nil messages the first line of STRING."
  (interactive "sPython command: ")
  (let ((process (or process (python-shell-get-or-create-process)))
      (lines (split-string string "n" t)))
  (and msg (message "Sent: %s..." (nth 0 lines)))
  (if (> (length lines) 1)
      (let* ((temporary-file-directory
            (if (file-remote-p default-directory)
                (concat (file-remote-p default-directory) "/tmp")
              temporary-file-directory))
           (temp-file-name (make-temp-file "py"))
           (file-name (or (buffer-file-name) temp-file-name)))
      (with-temp-file temp-file-name
        (insert string)
        (delete-trailing-whitespace))
      (python-shell-send-file file-name process temp-file-name))
  (comint-send-string process string)
  (when (or (not (string-match "n$" string))
            (string-match "n[ t].*n?$" string))
    (comint-send-string process "n")))))

与您希望从Emacs向其发送命令的进程连接的过程将类似。如果您深入研究上述函数的代码，您将看到python模式负责获取/启动所需的进程，在本例中是python解释器。