¿Cómo puedo eliminar todos/* */comentarios de un archivo fuente en C?

Question

tengo un archivo de C, que he copiado de otro lugar, pero tiene un montón de comentarios como a continuación:

int matrix[20]; 
/* generate data */ 
for (index = 0 ;index < 20; index++) 
matrix[index] = index + 1; 
/* print original data */ 
for (index = 0; index < 5 ;index++) 

¿Cómo puedo eliminar todos los comentarios cerrados por /* y */. A veces, los comentarios consisten en 4-5 líneas, y necesito eliminar todas esas líneas.

Básicamente, tengo que eliminar todo el texto entre /* y */ e incluso \n pueden entrar en el medio. Por favor, ayúdenme a hacer esto usando uno de sed, awk o perl.

Answer 1

¿Por qué no usar el preprocesador c para hacer esto? ¿Por qué te estás limitando a un regex casero?

[Editar] Este enfoque también se ocupa de Barts printf(".../*...") escenario limpiamente

Ejemplo:

[File: t.c] 
/* This is a comment */ 
int main() { 
    /* 
    * This 
    * is 
    * a 
    * multiline 
    * comment 
    */ 
    int f = 42; 
    /* 
    * More comments 
    */ 
    return 0; 
} 

.

$ cpp -P t.c 
int main() { 







    int f = 42; 



    return 0; 
} 

O puede eliminar el espacio y condensar todo lo

$ cpp -P t.c | egrep -v "^[ \t]*$" 
int main() { 
    int f = 42; 
    return 0; 
} 

Ningún uso de reinventar la rueda, ¿verdad?

[Editar] Si desea no archivos y macroa ampliar incluidos por este enfoque, cpp proporciona banderas para esto. Considere:

[Archivo: t.c]

#include <stdio.h> 
int main() { 
    int f = 42; 
    printf(" /* "); 
    printf(" */ "); 
    return 0; 
} 

.

$ cpp -P -fpreprocessed t.c | grep -v "^[ \t]*$" 
#include <stdio.h> 
int main() { 
    int f = 42; 
    printf(" /* "); 
    printf(" */ "); 
    return 0; 
} 

Hay es una ligera advertencia en que la expansión macro se puede evitar, pero la definición original de la macro es despojado de la fuente.

Answer 2

Ver perlfaq6. Es un escenario bastante complejo.

$/ = undef; 
$_ = <>; 
s#/\*[^*]*\*+([^/*][^*]*\*+)*/|("(\\.|[^"\\])*"|'(\\.|[^'\\])*'|.[^/"'\\]*)#defined $2 ? $2 : ""#gse; 
print; 

Una palabra de advertencia - una vez que haya hecho esto, ¿Tiene un escenario de prueba para demostrar a sí mismo que ha acaba de quitar los comentarios y nada de valor? Si está ejecutando una expresión regular tan potente, me aseguraría de realizar algún tipo de prueba (incluso si simplemente registra el comportamiento antes/después).

Answer 3

ejemplo muy simplista usando gawk. Por favor, prueba muchas veces antes de implementar. Por supuesto que no se ocupa de otro estilo de comentario // (en C++ ??)

$ more file 
int matrix[20]; 
/* generate data */ 
for (index = 0 ;index < 20; index++) 
matrix[index] = index + 1; 
/* print original data */ 
for (index = 0; index < 5 ;index++) 
/* 
function(){ 
blah blah 
} 
*/ 
float a; 
float b; 

$ awk -vRS='*/' '{ gsub(/\/\*.*/,"")}1' file 
int matrix[20]; 


for (index = 0 ;index < 20; index++) 
matrix[index] = index + 1; 


for (index = 0; index < 5 ;index++) 


float a; 
float b; 

Answer 4

Pruebe esto en la línea de comandos (en sustitución de 'nombres de archivos' con la lista de archivos que necesitan ser procesado):

perl -i -wpe 'BEGIN{undef $/} s!/\*.*?\*/!!sg' file-names 

Este programa cambia los archivos in situ (sobrescribiendo el archivo original con la salida corregida). Si solo quiere la salida sin cambiar los archivos originales, omita el modificador '-i'.

Explicación:

perl -- call the perl interpreter 
-i  switch to 'change-in-place' mode. 
-w  print warnings to STDOUT (if there are any) 
p  read the files and print $_ for each record; like while(<>){ ...; print $_;} 
e  process the following argument as a program (once for each input record) 

BEGIN{undef $/} --- process whole files instead of individual lines. 
s!  search and replace ... 
    /\*  the starting /* marker 
    .*?  followed by any text (not gredy search) 
    \*/  followed by the */ marker 
!!  replace by the empty string (i.e. remove comments) 
    s  treat newline characters \n like normal characters (remove multi-line comments) 
    g repeat as necessary to process all comments. 

file-names list of files to be processed. 

Answer 5

Tome un vistazo a la strip_comments routine in Inline::Filters:

sub strip_comments { 
    my ($txt, $opn, $cls, @quotes) = @_; 
    my $i = -1; 
    while (++$i < length $txt) { 
    my $closer; 
     if (grep {my $r=substr($txt,$i,length($_)) eq $_; $closer=$_ if $r; $r} 
     @quotes) { 
     $i = skip_quoted($txt, $i, $closer); 
     next; 
     } 
     if (substr($txt, $i, length($opn)) eq $opn) { 
     my $e = index($txt, $cls, $i) + length($cls); 
     substr($txt, $i, $e-$i) =~ s/[^\n]/ /g; 
     $i--; 
     next; 
     } 
    } 
    return $txt; 
} 

Answer 6

considerar:

printf("... /* ..."); 
int matrix[20]; 
printf("... */ ..."); 

En otras palabras: Yo no usaría la expresión regular para este tarea, a menos que esté haciendo una copia ace-once y es positivo que lo anterior no ocurra.

Answer 7

Por favor, no use cpp para este a menos que entienda las ramificaciones:

$ cat t.c 
#include <stdio.h> 

#define MSG "Hello World" 

int main(void) { 
    /* ANNOY: print MSG using the puts function */ 
    puts(MSG); 
    return 0; 
} 

Ahora, vamos a ejecutar a través de cpp:

$ cpp -P t.c -fpreprocessed 


#include <stdio.h> 



int main(void) { 


    puts(MSG); 
    return 0; 
} 

Claramente, este archivo ya no se va a compilar.

Answer 8

Cuando quiero algo corto y sencillo para CSS, yo uso esto:

awk -vRS='*/' '{gsub(/\/\*.*/,"")}1' FILE 

Esto no va a manejar el caso en el que aparecen los delimitadores de comentarios cuerdas dentro, pero es mucho más simple que una solución que hace. Obviamente no es a prueba de balas o adecuado para todo, pero usted sabe mejor que los pedantes en SO, ya sea que pueda vivir con eso o no.

Creo this onees a prueba de balas sin embargo.

Answer 9

DEBE usar un preprocesador C para esto en combinación con otras herramientas para deshabilitar temporalmente la funcionalidad del preprocesador específico, como expandir #defines o #includes, todos los demás enfoques fallarán en casos extremos. Esto funcionará para todos los casos:

[ $# -eq 2 ] && arg="$1" || arg="" 
eval file="\$$#" 
sed 's/a/aA/g;s/__/aB/g;s/#/aC/g' "$file" | 
      gcc -P -E $arg - | 
      sed 's/aC/#/g;s/aB/__/g;s/aA/a/g' 

Póngalo en un shell script y llamarlo con el nombre del archivo que desea analizado, opcionalmente precedido de una bandera como "-ansi" para especificar el nivel C de aplicar .

Answer 10

Pruebe la forma recursiva a continuación de la búsqueda y eliminación de Java comentarios script type, tipo XML y comentarios de una sola línea comenta

/* This is a multi line js comments. 

Please remove me*/ 

para f en find pages/ -name "*.*"; do perl -i -wpe 'BEGIN {undef $ /} s! /*.*? */!! sg' $ f; hecho

<!-- This is a multi line xml comments. 

Please remove me --> 

para f en find pages/ -name "*.*"; do perl -i -wpe 'BEGIN {undef $ /} s! <! -. *? -> !!sg '$ f; hecho

//This is single line comment Please remove me. 

para f en find pages/ -name "*.*"; do sed -i ///.*// '$ f;

hecho

Nota: Las páginas es un directorio raíz y el script anterior en encontrar y eliminar todos los archivos que se encuentran en la raíz y sub directorios también.