msgtoh.pl

来自「开放源码的编译器open watcom 1.6.0版的源代码」· PL 代码 · 共 13 行

while( <STDIN> ) {
    if( /^(pick|wdpick)\(\s*(\w+).*/ ) {
	push( @picks, $2 );
    }
}
print( "#define MSG_RC_BASE\t0\n" );
$offset = 0;
for $i ( @picks ) {
    print( "#define ${i}\t(MSG_RC_BASE+$offset)\n" );
    $offset = $offset + 1;
}