在Emacs中保存編譯 - 執行C++程序的單一快捷方式？

Question

我一直在想方法來有效地保存一個程序，編譯它，然後在emacs中運行它。我只在其中部分成功。

我使用smart-compile.el使工作更容易（http://emacswiki.org/emacs/smart-compile.el）。 在我已經編輯了C++相關部分到下面，以便程序編譯並運行時，我輸入M-x smart-compile RET後跟RET。

(defcustom smart-compile-alist '(
    ;; g++-3 is used instead of g++ as the latter does not 
    ;; work in Windows. Also '&& %n' is added to run the 
    ;; compiled object if the compilation is successful 
    ("\\.[Cc]+[Pp]*\\'" . "g++-3 -O2 -Wall -pedantic -Werror 
    -Wreturn-type %f -lm -o %n && %n") 
    .. 

舉個例子，一個程序sqrt.cpp，智能編譯自動生成下面的編譯命令：

g++-3 -O2 -Wall -pedantic -Werror -Wreturn-type sqrt.cpp -lm -o sqrt && sqrt 

這工作只要我的.cpp沒有任何cin聲明。對於使用cin語句的代碼，控制檯窗口顯示用戶應該輸入數據的點。但是我無法輸入任何內容，編譯狀態一直處於停滯狀態。

爲了使用戶輸入工作的代碼，我必須刪除&& FILENAME部分，然後在emacs的eshell中手動運行./FILENAME。

我在Windows上運行emacs 24.3。我已經安裝了Cygwin，並將其bin添加到Windows環境變量Path（這就是爲什麼g ++ -3編譯有效）。

如果有人能指導我如何使用單個命令在emacs中保存編譯運行用戶輸入所需的.cpp程序，我將不勝感激。或者至少我需要如何修改上面的g ++ - 3命令來編譯+運行用戶輸入程序。

謝謝！

Answer 1

Emacs是可編程的，所以如果某件事需要兩個步驟，您可以編寫一個組合它們的命令。該simples代碼應該是這樣的：

(defun save-compile-execute() 
    (interactive) 
    (smart-compile 1)       ; step 1: compile 
    (let ((exe (smart-compile-string "%n"))) ; step 2: run in *eshell* 
    (with-current-buffer "*eshell*" 
     (goto-char (point-max)) 
     (insert exe) 
     (eshell-send-input)) 
    (switch-to-buffer-other-window "*eshell*"))) 

上面的代碼很簡單，但它有一個缺陷：它不會等待編譯完成。由於smart-compile不支持標誌同步編輯，這必須通過暫時鉤住compilation-finish-functions，這使得代碼更復雜的實現：

(require 'cl) ; for lexical-let 

(defun do-execute (exe) 
    (with-current-buffer "*eshell*" 
    (goto-char (point-max)) 
    (insert exe) 
    (eshell-send-input)) 
    (switch-to-buffer-other-window "*eshell*")) 

(defun save-compile-execute() 
    (interactive) 
    (lexical-let ((exe (smart-compile-string "./%n")) 
       finish-callback) 
    ;; when compilation is done, execute the program 
    ;; and remove the callback from 
    ;; compilation-finish-functions 
    (setq finish-callback 
      (lambda (buf msg) 
      (do-execute exe) 
      (setq compilation-finish-functions 
        (delq finish-callback compilation-finish-functions)))) 
    (push finish-callback compilation-finish-functions)) 
    (smart-compile 1)) 

該命令可以的Mxsave-compile-executeRET運行或通過綁定到一個鍵。