win32/makeperldef.pl

   1 my $CCTYPE = "";
   2 print "EXPORTS\n";
   3 foreach (@ARGV) {
   4         if (/CCTYPE=(.*)$/) {
   5                 $CCTYPE = $1;
   6                 next;
   7         }
   8         emit_symbol("boot_$_");
   9 }
  10
  11 sub emit_symbol {
  12         my $symbol = shift;
  13         if ($CCTYPE eq "BORLAND") {
  14                 # workaround Borland quirk by export both the straight
  15                 # name and a name with leading underscore
  16                 print "\t$symbol=_$symbol\n";
  17                 print "\t_$symbol\n";
  18         }
  19         else {
  20                 print "\t$symbol\n";
  21         }
  22 }
  23