shithub: kwa

ref: ba4a1c07f1bc7622f8a3dcd4f2d383f4ec70fc1c
dir: /test/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
}