Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | mjames | 1 | #!/usr/local/bin/perl |
| 2 | open OUT ,">versions.c"; |
||
| 3 | print OUT "\#include \<stdio.h\>\n"; |
||
| 4 | print OUT "void list_modules(FILE * f) {\n"; |
||
| 5 | while ( <> ) { |
||
| 6 | if ( s/\@\(\#\)\$Header: c:\\cygwin\\cvsroot/Vert03/perl_tools/getname.pl,v 1.1.1.1 2003/11/04 23:34:58 mjames Exp $]*)/(\1)/ ) { |
||
| 7 | print OUT "fprintf(f,\"$1\\n\");\n"; |
||
| 8 | } |
||
| 9 | } |
||
| 10 | print OUT "}\n\n"; |