Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.naic.edu/~aoftm/src/tape.inspect Дата изменения: Mon Jul 26 00:52:04 1999 Дата индексирования: Tue Oct 2 01:31:03 2012 Кодировка: Поисковые слова: п п п п п п п п п п п п п п п п

# SCRIPT TO READ ALL HEADERS ON A TAPE AND REPORT TAPE CONTENTS
#
# This script will read all the headers from a Mammoth tape and report
# the tape contents. The TAPE environment variable must be set.
#
# MAM 12 Dec 1997

set this_file = "tape.inspect"

set input_dev = 'T'
mt rew
set tape_end = 0
set nheader = 1
set nscanlast = 0

while ($tape_end != 1)

read_hdr << EOD
$input_dev
EOD

set fmjd = `grep MJD header | awk '{print $2}'`
set mjd = `echo "($fmjd+0.5)/1" | bc`
set nscan = `grep Nscan header | awk '{print $2}'`

if ($nscan == $nscanlast) then
set tape_end = 1
else
echo ""
echo Header File $nheader
echo ""
cat header
echo ""
mt fsf
set nheader = `echo "$nheader+1" | bc`
endif

set nscanlast = $nscan

end