21 lines
404 B
Awk
21 lines
404 B
Awk
# rewind.awk --- rewind the current file and start over
|
|
#
|
|
# Arnold Robbins, arnold@skeeve.com, Public Domain
|
|
# September 2000
|
|
|
|
function rewind( i)
|
|
{
|
|
# shift remaining arguments up
|
|
for (i = ARGC; i > ARGIND; i--)
|
|
ARGV[i] = ARGV[i-1]
|
|
|
|
# make sure gawk knows to keep going
|
|
ARGC++
|
|
|
|
# make current file next to get done
|
|
ARGV[ARGIND+1] = FILENAME
|
|
|
|
# do it
|
|
nextfile
|
|
}
|