equal
deleted
inserted
replaced
1 #!/usr/bin/perl |
1 #!/usr/bin/perl |
2 # |
2 # |
3 # Program to take a set of header files and generate DLL export definitions |
3 # Program to take a set of header files and generate DLL export definitions |
4 |
4 |
5 # Special exports to ignore for this platform |
5 # Special exports to ignore for this platform |
6 $exclude{"SDL_putenv"} = 1; |
|
7 $exclude{"SDL_getenv"} = 1; |
|
8 |
6 |
9 while ( ($file = shift(@ARGV)) ) { |
7 while ( ($file = shift(@ARGV)) ) { |
10 if ( ! defined(open(FILE, $file)) ) { |
8 if ( ! defined(open(FILE, $file)) ) { |
11 warn "Couldn't open $file: $!\n"; |
9 warn "Couldn't open $file: $!\n"; |
12 next; |
10 next; |
21 } |
19 } |
22 close(FILE); |
20 close(FILE); |
23 } |
21 } |
24 |
22 |
25 # Special exports to include for this platform |
23 # Special exports to include for this platform |
26 print "\tSDL_iconv_string\n"; |
24 print "\t_SDL_strrev\n"; |
|
25 print "\t_SDL_strupr\n"; |
|
26 print "\t_SDL_strlwr\n"; |
|
27 print "\t_SDL_ltoa\n"; |
|
28 print "\t_SDL_ultoa\n"; |
|
29 print "\t_SDL_lltoa\n"; |
|
30 print "\t_SDL_ulltoa\n"; |
|
31 print "\t_SDL_iconv\n"; |
|
32 print "\t_SDL_iconv_string\n"; |
27 print "\t.objc_class_name_SDL_QuartzWindow\n"; |
33 print "\t.objc_class_name_SDL_QuartzWindow\n"; |
28 print "\t.objc_class_name_SDL_QuartzWindowDelegate\n"; |
34 print "\t.objc_class_name_SDL_QuartzWindowDelegate\n"; |