如何使用Emacs Lisp检查文件是否存在？

Question

我希望emacs标记在打开时以只读方式生成的文件.我遗漏的部分难题是如何检查文件是否"存在".我目前有以下内容:

;;
;; get file extension
;;
(defun get-ext (file-name)
  (car (cdr (split-string file-name "\\."))))

;; 
;; get the base name of the file
;;
(defun base-name (file-name)
  (car (split-string file-name "\\.")))

;;
;; if an 'lzz' file exists for this header, mark it as read only
;;
(defun mark-read-only ()
  (if (string= (get-ext (cur-file)) "h")
      (if ( ??file-exists??? (concat (base-name (cur-file)) ".lzz") )
          (toggle-read-only))))

我可以用什么来"??? file-exists ???"？

一旦我找到了这个,我就会在适当的钩子上添加"mark-read-only"(我认为是find-file-hook).

背景

我们使用lzz作为代码生成器来简化我们的C/C++开发过程.简而言之,lzz采用单个输入文件(看起来非常像C/C++)并根据需要生成头文件和源文件.

默认情况下,LZZ包括#line指令,使调试器指向原始源,而不是生成的源代码,但为了减小编译依赖我们通常禁用头文件这些指令.结果是,在调试模板或内联函数时,调试器通常指向生成的头文件而不是原始源文件.

这不是什么大问题,但是,最近我发现在调试时我会快速修改显示的文件,然后我会重建.当然,这通常意味着我所做的更改会因为我编辑的文件生成而消失,因此在库重建期间更改会被"吹走".

解

感谢大家的帮助和评论.特别感谢cobbal指出要使用的正确功能.

这是生成的代码(此处也基于其他评论进行更新):

(defun cur-file ()
  "Return the filename (without directory) of the current buffer"
  (file-name-nondirectory (buffer-file-name (current-buffer)))
  )

(defun mark-generated-as-read-only ()
  "Mark generated source files as read only.
Mark generated files (lzz or gz) read only to avoid accidental updates."
  (if
      (or (string= (file-name-extension (cur-file)) "h")
          (string= (file-name-extension (cur-file)) "cpp"))
      (cond
       (
        (file-exists-p (concat (file-name-sans-extension (cur-file)) ".lzz"))
        (toggle-read-only))
       (
        (file-exists-p (concat (file-name-sans-extension (cur-file)) ".gz") )
        (toggle-read-only))
       )
    )
  )

Answer 1

尝试 file-exists-p

"如果文件文件名存在,则返回t(无论你是否可以阅读它.)"

Answer 2

• 根据您的需要,您可能需要file-readable-p而不是file-exists-p.

• Apropos只会让你到目前为止. Icicles提供了apropos完成和渐进式完成,让您可以轻松地找到命令,函数,变量等名称,这些名称以任意顺序匹配子部分(是file-exists-p或exists-file-p？).

Answer 3

使用f.el现代库进行文件和目录操作.您可以使用f-exists?,f-file?,f-directory?和许多其他谓词.该库比标准函数更好,因为它是一个名称空间下您需要的每个文件相关函数.