如何使用 emacs 以编程方式创建/更新 TAGS 文件？

Question

emacs 是否有任何插件可以自动更新我的 C 项目中的 TAGS 文件（例如在缓冲区保存或访问时）或在不存在 TAGS 文件时创建一个新文件？

我在 Windows 上运行（没有 Cygwin），所以所有花哨的 shell 脚本都没有帮助。 我希望有一个不使用任何外部脚本的本机 emacs 解决方案。

我已经尝试过 build-tags.el 和 etags-table.el 但这些都没有真正起作用（我想要的方式） 。

还有其他想法吗？

Answer 1

etags-update 可能对您的情况有所帮助。 我没有测试它，但根据自述文件：

etags-update.el 是一个 Emacs 全局次要模式，可在保存文件时更新您的 TAGS。

我在 用于构建 TAGS 文件的 Emacswiki 页面上找到了它

Answer 2

以下是我为 C 项目生成 TAGS 文件的方法：

1. Mx cd YOUR_DIRECTORY
2. M-x compile
3. find 。 -名称“*。[chCH]”-打印| etags -

这将在当前目录中为所有子目录和文件创建一个 TAGS 文件。

这是一个执行完全相同操作的 emacs 函数：

(defun compile-tags ()
  "compile etags for the current project"
  (interactive)
  (cd "YOUR_DIRECTORY")
  (compile "find . -name \"*.[chCH]\" -print | etags -"))

注意：如果您在 Windows 上，则需要安装 cygwin 并确保 c:\cygwin\bin 在您的路径中，以便您获得在您的路径中find。 另请确保 emacs bin 目录位于您的路径中，以便您也可以获得 etags 。

Answer 3

为什么不将 ctags 的执行添加到您的构建脚本中？ 当你编译时（最多）你实际上只需要一个新的标签文件。 我倾向于每天晚上编写一个计划任务来构建标签文件。 看起来效果很好。

Answer 4

试试我的“ctags.el”[1] 模块。

配置示例：

(setq tags-revert-without-query t)
(global-set-key (kbd "<f5>") 'ctags-create-or-update-tags-table)

然后只需按 即可更新或创建您的 TAGS 文件。 那个功能
在当前目录及其父目录中查找文件 TAGS，如果有 TAG
找不到文件，它会询问您在哪里创建新文件。

这是一个新库，可能存在错误等，因此欢迎任何帮助。

[1] https://bitbucket.org/semente/ctags.el/

Answer 5

我在日常工作中使用语义 + gnu 全局的组合。 GNU Global 的数据库每天更新一次，而语义使用它们进行基本导航，并动态重新解析更改的文件。

您可以在我关于 Cedet 的文章中找到有关这些软件包的更多信息

Answer 6

这可能会让您接近（未经测试）：

(defvar my-auto-update-tags-alist
  (list '("/some/path/to/TAGS" "command_to_build_tags")
        '("/another/path/to/TAGS" "another_build_command")))

(defun my-auto-update-tags ()
  "Automatically update TAGS files"
  (tags-table-check-computed-list)
  (let ((filename (buffer-file-name))
        build-cmd)
    (mapc (lambda (tag-file)
            (set-buffer tag-file)
            (when (member filename (tags-table-files))
              (setq build-cmd (cdr (assoc tag-file my-auto-update-tags-alist)))
              (when build-cmd
                (call-process build-cmd nil 0))))
          tags-table-computed-list)))

(add-hook 'after-save-hook 'my-auto-update-tags)

它仅适用于已经在 TAGS 文件中的文件（我是否提到过它未经测试？）。 如果您添加新文件，您必须在第一次自己重新生成 TAGS 文件。 调用过程部分应该异步工作，因此可能需要一些时间才能真正重建 TAGS 文件（如果这甚至有效的话；）

Answer 7

安装 find-and-ctags (https://github.com/redguardtoo/find-and-ctags< /a>），然后将以下代码插入到 ~/.emacs 中，

(defun my-setup-develop-environment ()
  (interactive)

  ;; you can use `find-and-ctags-current-full-filename-match-pattern-p' instead
  (when (find-and-ctags-current-path-match-pattern-p "/MYPROJ")
    (setq-local tags-table-list
                (list (find-and-ctags-run-ctags-if-needed "~/workspace/MYPROJ" ; project directory
               '(("-not -size +64k" "--exclude=*.min.js") ; (find-opts ctags-opts)
                                                            ;; you may add more find-opts ctags-opts pair HERE to run find&ctags again to APPEND to same TAGS file
                                                            ;; ctags-opts must contain "-a" to append
                                                            ;; (find-opts "-a")
                                                            )))))

  ;; for other projects
  ;; insert NEW `when' statements here
  )
(add-hook 'prog-mode-hook 'my-setup-develop-environment) ; prog-mode require emacs24+
(add-hook 'lua-mode-hook 'my-setup-develop-environment) ; lua-mode does NOT inherit from prog-mode

;; OPTIONAL
(add-hook 'after-save-hook 'find-and-ctags-auto-update-tags)

它适用于 Windows，您只需将“~/workspace/MYPROJ”替换为“C:/workspace/MYPROJ”即可。 CTags 可执行文件可以是任何版本，因为生成的 TAGS 仅包含相对路径。