Skip to content

Latest commit

 

History

History
43 lines (40 loc) · 971 Bytes

gendef.pl

File metadata and controls

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