e14743d1 |
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"; |