29 lines
1008 B
EmacsLisp
29 lines
1008 B
EmacsLisp
|
;;; (compile "emacs -q --no-site-lisp --script tmp-empty-fun.el src/spicelib/devices/mos1/mos1dest.c")
|
||
|
|
|
||
|
|
(defun drop(file base)
|
||
|
|
(with-temp-file file
|
||
|
|
(insert-file-contents-literally file)
|
||
|
|
(while (re-search-forward (concat (rx bol (* any) bow)
|
||
|
|
(regexp-quote base)
|
||
|
|
(rx eow (* any) "\n"))
|
||
|
|
nil t)
|
||
|
|
(replace-match ""))))
|
||
|
|
|
||
|
|
(defun moan(file)
|
||
|
|
(unless (string-match "ChangeLog" file)
|
||
|
|
(message "remnant found in %s" file)))
|
||
|
|
|
||
|
|
|
||
|
|
(let* ((file (car argv))
|
||
|
|
(dir (file-name-directory file))
|
||
|
|
(base (file-name-nondirectory file)))
|
||
|
|
(message "processing %s" file)
|
||
|
|
(mapcar (lambda (process-file)
|
||
|
|
(drop process-file base))
|
||
|
|
(ignore-errors
|
||
|
|
(process-lines "git" "grep" "-l" base
|
||
|
|
"--" dir "*.vcxproj")))
|
||
|
|
(mapcar #'moan
|
||
|
|
(ignore-errors
|
||
|
|
(process-lines "git" "grep" "-l" (file-name-base file)))))
|