#!/bin/csh -f
#+
# filter -- show or select the DEIMOS filter by name
#
# Purpose:
#	With no arguments, print the name of the current DEIMOS
#	science filter. With an argument, select the named DEIMOS filter.
#
# Usage:
#	filter [name]
# 
# Arguments:
#	name = name of the filter to select
# 
# Output:
#	- With no arguments, the name of the filter is printed
# 
# Restrictions:
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
#
# Example:
#
#-
# Modification history:
#	2002-Jun-06	GDW	Original version
#-----------------------------------------------------------------------

set buf = $0
set cmd = $buf:t
set usage = "Usage: $cmd"

# verify args...
if ( $#argv > 1 ) then
  printf "$usage\n"
  exit 1
endif

if ( $#argv == 0 ) then
	show -s deimot -terse DWFILNAM
else
	modify -s deimot DWFILNAM="$1"
	exit $status
endif