#!/usr/local/bin/perl 
open OUT ,">versions.c";
print OUT "\#include \<stdio.h\>\n";
print OUT "void list_modules(FILE * f) {\n";
while  ( <> ) {
  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)/ ) {
    print OUT "fprintf(f,\"$1\\n\");\n";
    }
  }
print OUT "}\n\n";