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
7while ( ($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
25print "\tSDL_putenv\r";
26print "\tSDL_getenv\r";
27print "\tSDL_qsort\r";
28print "\tSDL_revcpy\r";
29print "\tSDL_strlcpy\r";
30print "\tSDL_strlcat\r";
31print "\tSDL_strdup\r";
32print "\tSDL_strrev\r";
33print "\tSDL_strupr\r";
34print "\tSDL_strlwr\r";
35print "\tSDL_ltoa\r";
36print "\tSDL_ultoa\r";
37print "\tSDL_strcasecmp\r";
38print "\tSDL_strncasecmp\r";
39print "\tSDL_snprintf\r";
40print "\tSDL_vsnprintf\r";
41print "\tSDL_iconv\r";
42print "\tSDL_iconv_string\r";
43print "\tSDL_InitQuickDraw\r";
44