Re: Need help writing file-visiting macro

[drkm <usenet@fgeorges.org>]

rgb writes:

> (defun my-open-complementary-file ()
>   "If buffer-file-name ends in .h open .mdl and vise versa."
>   (interactive)
>   (if buffer-file-name
>      (if (string-match "\\(\\`.*\\.\\)mdl\\'" (buffer-file-name))
>          (find-file (concat (match-string 1 (buffer-file-name))"h"))
>        (if (string-match ".*\\.h\\'" (buffer-file-name))
>            (find-file (concat (match-string 1
> (buffer-file-name))"mdl"))
>          (message "Buffer's filename doesn't end in .mdl or .h")))
>     (message "Buffer is not visiting a file")))

  Or more precisely like this (to use '_Impl.c' instead of '.h'):

    (defun my-open-complementary-file ()
      "If buffer-file-name ends in _Impl.c open .mdl and vise versa."
      (interactive)
      (let ((buf    (buffer-file-name))
            (mdl-re "\\`\\(.+\\)\\.mdl\\'")
            (c-re   "\\`\\(.+\\)_Impl\\.c\\'"))
        (if buf
            (if (string-match mdl-re buf)
                (find-file (concat (match-string 1 buf) "_Impl.c"))
              (if (string-match c-re buf)
                  (find-file (concat (match-string 1 buf) ".mdl"))
                (error "Filename doesn't end in .mdl or _Impl.c: %s" buf)))
          (error "Buffer is not visiting a file"))))

--drkm