5 my $outfile = shift || usage ();
8 my $cmd = "nm -D ../mono/mini/.libs/libmono-2.0.so";
11 mono_class_setup_vtable_general_new mono_debugger_init mono_debugger_main
12 mono_once mono_pthread_key_for_tls
15 open (SYMS, "$cmd |") || die "Cannot run \$cmd': $!\n";
17 next unless / T (mono_.*)/;
18 next if exists $excludes {$1};
22 push @symbols, "MonoFixupCorEE";
23 @symbols = sort @symbols;
25 open (OUT, ">$outfile") || die "Cannot open '$outfile': $!\n";
26 print OUT "; file generated by create-windef.pl\n";
27 print OUT "LIBRARY mono.dll\nEXPORTS\n";
28 print OUT join ("\n", @symbols);
33 print "Usage: create-windef.pl output_file\n";