shithub: trueawk

ref: c0f4e97e4561ff42544e92512bbaf3d7d1f6a671
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
}