shithub: rc

ref: e43cf78fa17316d657f580c370c4fc170337c8f9
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