From e9647820c371ad4aa9bd07cd4e06c21077f3a672 Mon Sep 17 00:00:00 2001
From: miguel <miguel@e3ebcda4-bce8-0310-ba0a-eca2169e7518>
Date: Fri, 1 May 2009 22:57:52 +0000
Subject: [PATCH] Copy

git-svn-id: svn+ssh://mono-cvs.ximian.com/source/trunk/mono@133311 e3ebcda4-bce8-0310-ba0a-eca2169e7518
---
 msvc05/create-windef.pl | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 msvc05/create-windef.pl

diff --git a/msvc05/create-windef.pl b/msvc05/create-windef.pl
new file mode 100755
index 000000000..241487d09
--- /dev/null
+++ b/msvc05/create-windef.pl
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my $outfile = shift || usage ();
+my @symbols = ();
+my %excludes = ();
+my $cmd = "nm -D ../mono/mini/.libs/libmono.so";
+
+@excludes {qw(
+	mono_class_setup_vtable_general_new mono_debugger_init mono_debugger_main
+	mono_once mono_pthread_key_for_tls
+)} = ();
+
+open (SYMS, "$cmd |") || die "Cannot run \$cmd': $!\n";
+while (<SYMS>) {
+	next unless / T (mono_.*)/;
+	next if exists $excludes {$1};
+	push @symbols, $1;
+}
+close (SYMS);
+push @symbols, "MonoFixupCorEE";
+@symbols = sort @symbols;
+
+open (OUT, ">$outfile") || die "Cannot open '$outfile': $!\n";
+print OUT "; file generated by create-windef.pl\n";
+print OUT "LIBRARY mono.dll\nEXPORTS\n";
+print OUT join ("\n", @symbols);
+
+close (OUT);
+
+sub usage {
+	print "Usage: create-windef.pl output_file\n";
+	exit (1);
+}
+
-- 
2.11.4.GIT