src/main/macos/exports/gendef.pl

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