X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=msvc%2Fcreate-windef.pl;h=7d588b915df6e8e499648bbd642f9bad0b5a96b0;hb=be99d5f32cb1c39b34d1c86685344c5da2c8b3a1;hp=241487d09932b15a96b59f51b009b5f064d158b6;hpb=cc9fa96a3163b4ac0b2df0726c72963017d802d6;p=mono.git diff --git a/msvc/create-windef.pl b/msvc/create-windef.pl index 241487d0993..7d588b915df 100755 --- a/msvc/create-windef.pl +++ b/msvc/create-windef.pl @@ -3,13 +3,19 @@ use strict; my $outfile = shift || usage (); +my $soname = shift || usage (); +my $dllname = shift || usage (); my @symbols = (); my %excludes = (); -my $cmd = "nm -D ../mono/mini/.libs/libmono.so"; +my $cmd = "nm -D $soname"; @excludes {qw( mono_class_setup_vtable_general_new mono_debugger_init mono_debugger_main mono_once mono_pthread_key_for_tls + mono_gc_pthread_create mono_gc_pthread_detach mono_gc_pthread_join + mono_gc_pthread_exit + mono_file_map_fileio mono_file_unmap_fileio + mono_file_map_set_allocator )} = (); open (SYMS, "$cmd |") || die "Cannot run \$cmd': $!\n"; @@ -24,13 +30,14 @@ push @symbols, "MonoFixupCorEE"; 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 "EXPORTS\n"; print OUT join ("\n", @symbols); +print OUT "\n"; close (OUT); sub usage { - print "Usage: create-windef.pl output_file\n"; + print "Usage: create-windef.pl output_file soname dllname\n"; exit (1); }