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