shithub: rc

ref: 0a5e1ed63e05c429a2355505a015c2beb9ca656a
dir: /bin/r/

View raw version 
#!/bin/rc
rfork e
x=1
if(! ~ $#* 0)
	x=$1
awk -v 'x='^$x '
/^; /{
	a[++n] = NR
} END {
	cmd = a[n-x]","a[n-x+1]-1"d;"NR"d"
	system("sed \''" cmd "\'' /dev/text >/tmp/a; mv /tmp/a /dev/text")
}' /dev/text