#!/usr/bin/perl
#
#   quick-list produces abbreviated SMF files for quick-look reductions
#
#   usage:     quick-list  filename
#
#   version:   16 Oct 2003

$narg=@ARGV;
if($narg == 0){
  print "Usage: quicklist maskname\n";
  exit();}
$file=shift;
$filename=$file.".SMF";
die("\nCannot find $filename") if(!(-e $filename));
open(IN,"$filename");
$filename=$file."_short.SMF";
open(OUT,">$filename");

print "\nEnter selection interval or 0 to input individual slits: ";
$_=<STDIN>;
chop;
$nslits=0;
if($_ == 0){
    print "\nEnter slit names. CR=> done: ";
    while(<STDIN>){
	chop;
	last if($_ eq "");
	$slit[$nslits]=$_;
	$nslits++;
	print"                             ";}
    }
else{$nint=$_;}
for($i=0;$i<11;$i++){
    $_=<IN>;
    printf OUT "%s",$_;}

if($nslits){
    $nsl=0;
    while(<IN>){
	for($i=0;$i<$nslits;$i++){
	    next if(index($_,$slit[$i])<0);
	    printf OUT "%s",$_;
	    $nsl++;
	    last;}
	last if($nsl==$nslits);}
    }
        else{
    $nsl=0;
    while(<IN>){
	$nsl++ if(index($_,"SLIT")>=0);
	if($nsl==$nint){
	    printf OUT "%s",$_;
	    $nsl=0;}
        }
    }
