regex - 正则表达式替换中的Emacs正则表达式组

Question

我在文件中有一堆C宏，像NEXT( pL )这样的东西被扩展为( ( pL ) -> next )
我想删除其中大部分，因为它们是不必要的。

我想做的是获取宏pL中括号内的文本。我希望替换的正则表达式使用该文本进行重写。例如，在Perl中，我可以执行类似/NEXT\(\s*(.+)\s*)的操作(可能有点不正确)，然后输出类似$1->next的操作，这应该使一行

if ( NEXT( pL ) != NULL ) { 

进入

if ( pL->next != NULL ) {

在Emacs中，我想在emacs replace-regexp中逐文件使用匹配组。我不确定如何在Emacs中执行此操作。

Answer 1

M-x query-replace-regexp NEXT(\([^)]+\)) RET \1->next RET

可以在这样的函数内完成(适用于整个缓冲区)

(defun expand-next ()
  "interactive"
  (goto-char (point-min))
  (while (re-search-forward "\\<NEXT(\\([^\)]+\\))" nil t)
    (replace-match "\\1->next")))

并且，要将其应用于多个文件，您可以在 Dired and type Q to do a query-replace-regexp on all the marked files中标记文件(使用此答案第一行中的regexp/replacement)。