groupes Emacs regexp dans regex-

Question

remplacer

J'ai un tas de macros C dans des fichiers, des trucs comme NEXT(pL) qui est étendu à ((pL) -> next)

Je veux enlever la plupart d'entre eux parce qu'ils sont inutiles.

Ce que je voudrais faire, c'est obtenir le texte entre parenthèses dans la macro, pL. Je veux que l'expression regexp de remplacement utilise ce texte pour la réécriture. Par exemple, en Perl que je pouvais faire quelque chose comme /NEXT\(\s*(.+)\s*) (peut-être un peu incorrect) et puis quelque chose de sortie comme $1->next, qui devrait tourner une ligne

if (NEXT(pL) != NULL) { 

dans

if (pL->next != NULL) { 

Dans Emacs, je voudrais aime utiliser des groupes de correspondance dans un emacs replace-regexp sur une base fichier par fichier. Je ne suis pas entièrement sûr de savoir comment faire cela dans Emacs.

Answer 1

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

qui peut être fait dans une fonction comme si (à appliquer à un tampon ensemble)

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

Et, pour l'appliquer à plusieurs fichiers, vous pouvez marquer les fichiers dans Dired and type Q to do a query-replace-regexp on all the marked files (utilisez le regexp/remplacement dans la première ligne de cette réponse).