src/main/macosx/exports/gendef.pl
changeset 1529 84cecd0b64b4
parent 1516 4d241ea8a1cd
equal deleted inserted replaced
1528:ff3322d66771 1529:84cecd0b64b4
     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";