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）。

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

1 个答案: