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
13 mono_gc_pthread_create mono_gc_pthread_detach mono_gc_pthread_join
16 open (SYMS
, "$cmd |") || die "Cannot run \$cmd': $!\n";
18 next unless / T (mono_.*)/;
19 next if exists $excludes {$1};
23 push @symbols, "MonoFixupCorEE";
24 @symbols = sort @symbols;
26 open (OUT
, ">$outfile") || die "Cannot open '$outfile': $!\n";
27 print OUT
"; file generated by create-windef.pl\n";
28 print OUT
"LIBRARY mono-2.0.dll\nEXPORTS\n";
29 print OUT
join ("\n", @symbols);
35 print "Usage: create-windef.pl output_file\n";