#!/bin/csh -f
#+
# tintr -- set/show the exposure time on the DEIMOS science detector
#
# Purpose:
#	With no argument, show the current integration time on the
#	DEIMOS science detector.  With an argument, reset the 
#	exposure time to the specified number of seconds.
#
# Usage:
#	tint [t]
# 
# Arguments:
#	t = number of seconds to which to set exposure time
# 
# Output:
#	Current or new exposure time printed to STDOUT
# 
# Restrictions:
#	None
# 
# Exit values:
#	 0 = normal completion
#	 1 = wrong number of arguments
#
# Example:
#	1) Show the current exposure time:
#		tint
# 
# 	2) Reset the exposure time to 100 sec:
#		tint 100
#
#-
# Modification history:
#	Date unknown	RWG	Original version
#	2000-Jul-05	GDW	Added documentation
#       2002-Jun-06     GDW     Adapted for DEIMOS
#-----------------------------------------------------------------------

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

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

# set/show value...
if ( $#argv == 0 ) then
    show -s deiccd -terse ttime
else
    modify -s deiccd ttime = $1
endif