xlat.awk

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

#
# display the sections between XLATOFF and XLATON comments
#

/\/\* XLATOFF \*\// {
    for(;;) {
	print $0
	getline;
	if( match( $0, /\/\* XLATON \*\// ) ) break;
    }
    print $0
}

{
    # don't print these lines
}