add detailed changelogs and 'genlog'--the script which generates them

[p5sagit/p5-mst-13.2.git] / win32 / makeperldef.pl

diff --git a/win32/makeperldef.pl b/win32/makeperldef.pl
index 0ad09b8..620d2eb 100644 (file)
--- a/win32/makeperldef.pl
+++ b/win32/makeperldef.pl
@@ -1,4 +1,23 @@
+my $CCTYPE = "";
 print "EXPORTS\n";
 foreach (@ARGV) {
-       print "\tboot_$_\n"
-       };
+       if (/CCTYPE=(.*)$/) {
+               $CCTYPE = $1;
+               next;
+       }
+       emit_symbol("boot_$_");
+}
+
+sub emit_symbol {
+       my $symbol = shift;
+       if ($CCTYPE eq "BORLAND") {
+               # workaround Borland quirk by export both the straight
+               # name and a name with leading underscore
+               print "\t$symbol=_$symbol\n";
+               print "\t_$symbol\n";
+       }
+       else {
+               print "\t$symbol\n";
+       }
+}
+