* memo :
なんか最近Lisp書いてないので書き捨ててみた
C++用
update : 2007-03-01 (Thu) 12:26:55
C++用
(defun foo ()
(interactive)
(let ((l nil))
(save-excursion
(goto-char (point-min))
(while (scan-buffer "\\bstd::\\(\\sw\\|\\s_\\)+" :regexp t :no-dup t)
(pushnew (match-string 0) l :test #'string=)))
(dolist (x l)
(insert (format nil "using ~a;~%" x)))))
(defun bar ()
(interactive)
(perform-replace "\\bstd::\\(\\(\\sw\\|\\s_\\)+\\)" "\\1" nil t nil nil))
update : 2007-03-01 (Thu) 12:26:55
Source of Nothingness
NANRI
NANRI