|
2
|
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: $!"; |
