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

my $CCTYPE = "";
print "EXPORTS\n";
foreach (@ARGV) {
	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";
	}
}
Commit	Line	Data
3e3baf6d	1	my $CCTYPE = "";
0a753a76	2	print "EXPORTS\n";
0a753a76	3	foreach (@ARGV) {
3e3baf6d	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