|
0
|
1 #!/usr/bin/perl
|
|
|
2 #
|
|
|
3 # Program to take a set of header files and generate DLL export definitions
|
|
|
4
|
|
|
5 while ( ($file = shift(@ARGV)) ) {
|
|
|
6 if ( ! defined(open(FILE, $file)) ) {
|
|
|
7 warn "Couldn't open $file: $!\n";
|
|
|
8 next;
|
|
|
9 }
|
|
|
10 $printed_header = 0;
|
|
|
11 $file =~ s,.*/,,;
|
|
|
12 while (<FILE>) {
|
|
|
13 if ( /DECLSPEC.*\s\**([^\s\(]+)\(/ ) {
|
|
|
14 print "\t$1\n";
|
|
|
15 } elsif ( /DECLSPEC.*\s\**([^\s\(]+)$/ ) {
|
|
|
16 print "\t$1\n";
|
|
|
17 }
|
|
|
18 }
|
|
|
19 close(FILE);
|
|
|
20 }
|
|
|
21 # Special exports not in the header files
|
|
|
22 print "\tSDL_RegisterApp\n";
|
