Subversion Repositories Vertical

Rev

Go to most recent revision | 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";