Osslist

In questa appendice si riporta il testo della procedura osslist, che costruisce l'elenco degli scans presenti in archivio. Essa puo' essere eseguita da qualunque directory.

#! /bin/csh
set path = ($path /home/thor2/bin)
rehash
 
set curr_dir = $cwd
cd $SPT_BASE_DIR
rm -i spt.*
cat /dev/null > spt.tot
foreach teldir (*/)
   echo $teldir
   set sptfiles=`ls $teldir/spt/spt???.?? `
   if ( $#teldir != 0) then
      foreach file ($sptfiles)
        ../bin/toolxdir -N $file dummy.lis
        ../bin/shuffle < dummy.lis >> spt.tot
        \rm dummy.lis
      end
   endif
 
   set sptfiles=`ls $teldir/spt/*.spt `
   if ( $#teldir != 0) then
      foreach file ($teldir/spt/*.spt)
        ../bin/toolxdir -N $file dummy.lis
        ../bin/shuffle < dummy.lis >> spt.tot
        \rm dummy.lis
      end
   endif
end
 
sort +0 -3 -n < spt.tot > spt.sort
 
rmvdup <spt.sort > spt.sqz
\rm spt.tot
\rm *.lis
cd $curr_dir