release/src/router/dropbear/libtommath/gen.pl

   1 #!/usr/bin/perl -w
   2 #
   3 # Generates a "single file" you can use to quickly
   4 # add the whole source without any makefile troubles
   5 #
   6 use strict;
   7
   8 open( OUT, ">mpi.c" ) or die "Couldn't open mpi.c for writing: $!";
   9 foreach my $filename (glob "bn*.c") {
  10    open( SRC, "<$filename" ) or die "Couldn't open $filename for reading: $!";
  11    print OUT "/* Start: $filename */\n";
  12    print OUT while <SRC>;
  13    print OUT "\n/* End: $filename */\n\n";
  14    close SRC or die "Error closing $filename after reading: $!";
  15 }
  16 print OUT "\n/* EOF */\n";
  17 close OUT or die "Error closing mpi.c after writing: $!";