2

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

python
2+3

到目前为止，我尝试了以下方法，但均未成功：

1.让eshell进程使用process-send-string和accept-process-output：

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

但是我一直无法获得eshell进程。当前缓冲区为 eshell 时(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))

这种方法的问题是在 python 子进程启动之前发送了“2+3”。无论我睡觉的时间长短，都会发生这种情况。似乎睡眠冻结了所有 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"])

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

为什么这么简单的事情会变得这么复杂？感谢您的任何输入

4

1 回答 1

1

我明白你在说什么，但这似乎并不是真正的“Emacs”做事方式。您可以在 python 模式下打开一个缓冲区并将区域说 2+2 发送到 python 解释器。或者你可以做

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

或者查看 python-mode 的源代码，特别是这个函数：

(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-mode 负责获取/启动所需的进程，在本例中为 python 解释器。

于 2013-11-15T02:47:58.873 回答