formatter

来自「操作系统SunOS 4.1.3版本的源码」· 代码 · 共 19 行

# NAME: formatter
#
/./  { for (i=1; i <= NF; i++) addword($i) }
/^$/ { printline(); print "" }
END  { printline(); }

function addword(w){
    if (length(line) + length(w) > 80)
	printline()
    line = line "   " w
}

function printline(){
    if (length(line) > 0){
	print substr(line,4)
	line=""
    }
}