makedef.pl

来自「读写Smart卡加解密接口的程序」· PL 代码 · 共 34 行

$def = $ARGV[0];
shift @ARGV;
$lib = $ARGV[0];
shift @ARGV;
$dumpbin = "dumpbin /symbols @ARGV";

open(DUMP, "$dumpbin |")
    || die "Can't run `$dumpbin': $!.\n";

open(DEF, "> $def")
    || die "Can't open `$def': $!.\n";

print DEF "LIBRARY $lib\n";
print DEF "EXPORTS\n";

while(<DUMP>)
{
    if(!/\bUNDEF\b/ && /\bExternal\b/)
    {
	s/^.*\|\s+//;
	split;
	$_ = $_[0];

	if(!/^\?\?_G/ && !/^\?\?_E/ && !/DllMain/)
        {
            # Stupid windows linker needs to have
            # preceding underscore for ANSI C programs
            s/^_//;
            
            print DEF "    $_\n";
	}
    }
}