shithub: rc

ref: 7984f8c883882dc28da2ffb8424bbcf5f00e379f
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