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