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