formatter

操作系统SunOS 4.1.3版本的源码

# 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=""
    }
}