Subversion Repositories Vertical

Rev

Rev 2 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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";
  11.