shithub: trueawk

ref: d7f37646965ee26214da0e1d97f3c1d54349ae2d
dir: /testdir/t.roff/

View raw version 
NF > 0	{
	for (i = 1; i <= NF; i++) {
		n = length($i)
		if (n + olen >= 60) {
			print oline
			olen = n
			oline = $i
		} else {
			oline = oline " " $i
			olen += n
		}
	}
}

NF == 0 {
	print oline
	olen = 0
}

END {
	if (olen > 0)
		print oline
}