| #!/usr/bin/perl |
| # |
| # Program to take a set of header files and generate DLL export definitions |
| |
| # Special exports to ignore for this platform |
| |
| 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\(]+)/ ) { |
| if ( not $exclude{$1} ) { |
| print "\t$1\n"; |
| } |
| } |
| } |
| close(FILE); |
| } |
| |
| # Special exports to include for this platform |
| print "\tSDL_putenv\n"; |
| print "\tSDL_getenv\n"; |
| print "\tSDL_qsort\n"; |
| print "\tSDL_revcpy\n"; |
| print "\tSDL_strlcpy\n"; |
| print "\tSDL_strlcat\n"; |
| print "\tSDL_strdup\n"; |
| print "\tSDL_strrev\n"; |
| print "\tSDL_strupr\n"; |
| print "\tSDL_strlwr\n"; |
| print "\tSDL_ltoa\n"; |
| print "\tSDL_ultoa\n"; |
| print "\tSDL_strcasecmp\n"; |
| print "\tSDL_strncasecmp\n"; |
| print "\tSDL_snprintf\n"; |
| print "\tSDL_vsnprintf\n"; |
| print "\tSDL_iconv\n"; |
| print "\tSDL_iconv_string\n"; |
| print "\tSDL_InitQuickDraw\n"; |