1 #!/usr/bin/perl 2 # 3 # Program to take a set of header files and generate DLL export definitions 4 5 # Special exports to ignore for this platform 6 7 while ( ($file = shift(@ARGV)) ) { 8 if ( ! defined(open(FILE, $file)) ) { 9 warn "Couldn't open $file: $!\n"; 10 next; 11 } 12 $printed_header = 0; 13 $file =~ s,.*/,,; 14 while (<FILE>) { 15 if ( / DECLSPEC.* SDLCALL ([^\s\(]+)/ ) { 16 if ( not $exclude{$1} ) { 17 print "\t$1\r"; 18 } 19 } 20 } 21 close(FILE); 22 } 23 24 # Special exports to include for this platform 25 print "\tSDL_putenv\r"; 26 print "\tSDL_getenv\r"; 27 print "\tSDL_qsort\r"; 28 print "\tSDL_revcpy\r"; 29 print "\tSDL_strlcpy\r"; 30 print "\tSDL_strlcat\r"; 31 print "\tSDL_strdup\r"; 32 print "\tSDL_strrev\r"; 33 print "\tSDL_strupr\r"; 34 print "\tSDL_strlwr\r"; 35 print "\tSDL_ltoa\r"; 36 print "\tSDL_ultoa\r"; 37 print "\tSDL_strcasecmp\r"; 38 print "\tSDL_strncasecmp\r"; 39 print "\tSDL_snprintf\r"; 40 print "\tSDL_vsnprintf\r"; 41 print "\tSDL_iconv\r"; 42 print "\tSDL_iconv_string\r"; 43 print "\tSDL_InitQuickDraw\r"; 44
