#!/bin/csh -f
#+
# poname -- set or show the current pointing origin
#
# Purpose:
#	With no argument, prints the name of the currently selected
#	pointing origin.  With one argument, reset the current
#	pointing origin to the named value.
#
# Usage:
#	poname [name]
# 
# Arguments:
#	name = name of the pointing origin to select
# 
# Output:
#	Feedback is written to stdout.
# 
# Restrictions:
#	Only functions when DEIMOS is in nighttime mode and can
#	converse with the drive and control system (DCS) library.
# 
# Example:
#	1) show the current pointing origin
#		poname
#
#	2) capture the name of the current pointing origin in a
#	shell script variable:
#		set current_po = `poname`
# 
#	3) change the pointing origin to Slit:
#		poname Slit
#
#-
# Modification history:
#	Date unknown	???	Original version
#	2001-Jan-16	GDW	Added documentation
#-----------------------------------------------------------------------

# verify args...
if ( $#argv > 1 ) then
  set buf = $0
  set cmd = $buf:t
  echo "Usage: $cmd [name]"
  exit 1
endif

if ($#argv == 0) then
    show -s dcs -terse poname
else
    modify -s dcs poname = $1 poselect = 1
endif