Emacs에서 .h의 프로토 타입 함수를 자동으로 삽입

Question

해당 .cc 파일을 열 때 .h에서 프로토 타입 함수를 자동으로 삽입하도록 emacs를 어떻게 구성합니까?

Answer 1

내가 멤버-기능 패키지를 사용하여 더 많은 C++ 코딩을 수행 할 때 내가이 일에 사용되는 것과 같은 것을 가지고

(require 'member-function) 

;;expand member functions automatically when entering a cpp file 
(defun c-file-enter() 
    "Expands all member functions in the corresponding .h file" 
    (let* ((c-file (buffer-file-name (current-buffer))) 
     (h-file-list (list (concat (substring c-file 0 -3) "h") 
          (concat (substring c-file 0 -3) "hpp") 
          (concat (substring c-file 0 -1) "h") 
          (concat (substring c-file 0 -1) "hpp")))) 
    (if (or (equal (substring c-file -2) ".c") 
      (equal (substring c-file -4) ".cpp")) 
     (mapcar (lambda (h-file) 
        (if (file-exists-p h-file) 
         (expand-member-functions h-file c-file))) 
       h-file-list)))) 

(add-hook 'c++-mode-hook c-file-enter) 

당신은에서 회원-functions.el을 찾을 수 있습니다 : http://www.emacswiki.org/emacs/member-functions.el

Answer 2

난 당신이 CEDET의 상원 의원 "복사 태그"로 autoinsert 패키지를 결합 할 수 있다고 생각하지만,이 파일, 그것의 힘 구문 분석을 열 몇 elisp 프로그래밍을 필요로하고 반복하는 기능 이상의 태그 ...

비록 전체를 .h로 복사하고 싶다면 elisp도 포함되지만 더 쉬울 것입니다. auto-insert 함수를 통해 빈 파일을 삽입 한 다음 변수의 두 번째 요소 인 .h 파일 내용을 복사해야합니다 . 나는이 다시 잠시 해킹 쓴

(defun my-auto-insert-h-content() 
    (when buffer-file-name 
    (let ((h-filename (concat (file-name-sans-extension buffer-file-name) ".h"))) 
     (when (file-exists-p h-filename) 
     (goto-char (point-min)) 
     (insert-file-contents h-filename))))) 

Answer 3

가 큰 아니다 ...하지만 출발점이 될 수있다 : 함수 뭔가처럼 보일 것이다. 이를 사용하려면 함수 구현을 삽입 할 .cc 파일에서 시작하여 .h 파일로 전환하고 함수 정의로 이동 한 다음 M-x my-c-make-function-from-prototype으로 이동합니다. 물론 키에 바인딩되어 있습니다.

(require 'ffap) 
(defun my-c-make-function-from-prototype() 
    "Turn a function prototype into a skeleton implementation." 
    (interactive) 
    (let (ret-val fcn-name args const namespaces start-of-fcn) 
    (save-excursion 
     (end-of-line) 
     (c-beginning-of-statement 1) 
     (beginning-of-line) 
     (when (re-search-forward 
      "\\s-*\\(.*\\)\\s-+\\([-a-zA-Z0-9_!=<>~]+\\)\\s-*[(]" nil t) 
     (setq ret-val (match-string 1)) 
     (setq ret-val (replace-regexp-in-string "\\(virtual\\|static\\)\\s-*" "" ret-val)) 
     (setq fcn-name (match-string 2)) 
     (when (re-search-forward "\\([^)]*\\)[)]" nil t) 
      (setq args (match-string 1)) 
      (setq args (replace-regexp-in-string "\\s-*=.+?," "," args)) 
      (setq args (replace-regexp-in-string "\\s-*=.+?)" ")" args)) 
      (setq args (replace-regexp-in-string "\\s-*=.+?$" "" args)) 
      (if (looking-at "\\s-*const") 
       (setq const " const") 
      (setq const "")) 
      (condition-case nil 
       (while 't 
       (backward-up-list 1) 
       (when (re-search-backward 
        "\\(class\\|namespace\\|struct\\)\\s-+\\([a-zA-Z0-9_]+\\)" nil t) 
        (setq namespaces (concat (match-string 2) "::" namespaces)))) 
      (error nil))))) 
    ;; Switch to other file and insert implementation 
    (ff-get-other-file) 
    (setq start-of-fcn (point)) 
    (insert (concat ret-val (unless (string= ret-val "") "\n") namespaces fcn-name "(" args ")" const)) 
    (insert "\n{\n/** @todo Fill in this function. */\n}\n") 
    (unless (eobp) 
     (insert "\n")) 
    (indent-region start-of-fcn (point) nil) 
    (goto-char start-of-fcn) 
    (when (fboundp 'doxymacs-insert-function-comment) 
     (doxymacs-insert-function-comment))))