shithub: bin.rc

ref: 043ba26ad986a919a68c4e4147d5df547b95a692
dir: /bin/i-/

View raw version 
#!/bin/awk -f
BEGIN{
	n = 1
	if(ARGC > 1){
		n = ARGV[1]; ARGC--
	}
	for(i = 1; i < 50; i++)
		tabs[i] = tabs[i-1] "	"
}
{
	if(match($0, /^	+/) == 0){
		print
		next
	}
	sub(/^	+/, tabs[RLENGTH-n])
	print
}