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\n"; 18 } 19 } 20 } 21 close(FILE); 22 } 23 24 # Special exports to include for this platform 25 print "\tSDL_putenv\n"; 26 print "\tSDL_getenv\n"; 27 print "\tSDL_qsort\n"; 28 print "\tSDL_revcpy\n"; 29 print "\tSDL_strlcpy\n"; 30 print "\tSDL_strlcat\n"; 31 print "\tSDL_strdup\n"; 32 print "\tSDL_strrev\n"; 33 print "\tSDL_strupr\n"; 34 print "\tSDL_strlwr\n"; 35 print "\tSDL_ltoa\n"; 36 print "\tSDL_ultoa\n"; 37 print "\tSDL_strcasecmp\n"; 38 print "\tSDL_strncasecmp\n"; 39 print "\tSDL_snprintf\n"; 40 print "\tSDL_vsnprintf\n"; 41 print "\tSDL_iconv\n"; 42 print "\tSDL_iconv_string\n"; 43 print "\tSDL_InitQuickDraw\n"; 44