shithub: riscv

ref: 4032db00a7a813e8f36b2755204b6863b4545906
dir: /sys/src/cmd/upas/binscripts/tfmt.rc/

View raw version 
#!/bin/rc
# anti-topposting defense

# sed '/^[ 	]*>[ 	]*>[ 	]*>/q'

awk '
{
	if(l[i] ~ /^[ 	]*>[ 	]*>[ 	]*>/)
		q = 1
	if(q == 0)
		l[i = NR] = $0;
}
END{
	for(; i > 1; i--)
		if(l[i] !~ /^([ 	]*>)*[ 	]*$/)
			break;
	for(; i > 1; i--)
		if(l[i] !~ /^[ 	]*>[ 	]*>/)
			break;
	for(; i > 1; i--)
		if(l[i] !~ /^([ 	]*>)*[ 	]*$/)
			break;
	for(j = 1; j <= i; j++)
		print l[j]
}' |dd -conv block >[2=]