37 lines
1.3 KiB
EmacsLisp
37 lines
1.3 KiB
EmacsLisp
;;; (load (buffer-file-name))
|
|
|
|
(require 'cl-lib)
|
|
|
|
(defun enum-NSRCS ()
|
|
(goto-char (point-min))
|
|
(while (re-search-forward (rx (*? (any "\n" space))
|
|
(group "/* finally, the number of noise sources */")
|
|
(*? (any "\n" space))
|
|
(group (*? alnum) "NSRCS")
|
|
(*? (any "\n" space))
|
|
"};"
|
|
(? (*? (any "\n" space))
|
|
"/* the number of "
|
|
(+? print)
|
|
" noise sources" (*? space) "*/"
|
|
(*? space))
|
|
)
|
|
nil t)
|
|
(let ((p0 (copy-marker (match-beginning 0)))
|
|
(p1 (copy-marker (match-end 0))))
|
|
(replace-match "\n \\1\n \\2\n};")
|
|
(indent-region p0 p1))))
|
|
|
|
(cl-loop with files = (process-lines "git" "grep"
|
|
"-l" "-e" "NSRCS")
|
|
for file in files
|
|
do
|
|
(progn
|
|
(with-temp-file file
|
|
(insert-file-contents file)
|
|
(c-mode)
|
|
(setq c-file-style "BSD")
|
|
(setq c-basic-offset 4)
|
|
(enum-NSRCS))))
|
|
|