vim또는 sed 치환

잠깐 동안 생각해 봤는데, 단순한 regular expression 치환으론 힘들 것 같습니다.

적어도 awk, perl등을 써야 가능할 것 같은데.. 요청하신 vim, sed는 제가 서툴기 때문에, Emacs에서는 아래 코드를 $HOME/.emacs와 같은 곳에 넣어두고, 해당하는 패턴이 있는 줄에서 M-x my-substitute<RET>를 실행하면 됩니다.

(defun my-substitute (point)
  (interactive "d")
  (let (src dst begin end pos)
    (save-excursion 
      (beginning-of-line)
      (and (re-search-forward
            "^\\([a-z]+\\)\\([ \\t]*{[ \\t]*\\)\\([a-z]+[ \\t]*;[ \\t]*\\)* }"
            nil t)
           (setq src (buffer-substring-no-properties
                      (match-beginning 1) (match-end 1))
                 pos (match-end 2)
                 begin (match-beginning 0)
                 end (match-end 0)))

      (and src
           (progn
             (goto-char pos)
             (while (re-search-forward "\\([a-z]+\\)[ \\t]*;[ \\t]*" nil t)
               (setq dst (append dst
                                 (cons (match-string-no-properties 1) nil))))

             (and dst
                  (progn (delete-region begin end)
                         (mapcar (lambda (dst)
                                   (insert (format "%s->%s\n" src dst))) dst)
                         (delete-char 1)
                         (setq pos (point)))))))
    (and dst
         (progn (push-mark begin)
                (goto-char pos)))))