eqgal

#!/bin/sh
#
# eqgal
#
# Starbase Data Tables  - An Ascii Database for UNIX
#
#   copyright 2002 John B. Roll jr.
#
#   
PATH=.:/bin:/usr/bin;	export PATH

TABLELIB=$TABLELIB;  export TABLELIB
TABLEFUN="";  export TABLEFUN

 while [ $# -ge 1 ] ; do
  case "$1" in 
   -i) shift; ifile="$1"				;;
   -o) shift; ofile="$1"				;;
   -*) echo "eqgal: unknown option"; exit 1		;;
    *) argv="$argv $1"					;;
  esac
  shift
 done

 if [ "$ifile" != "" ] ; then
	exec < $ifile
 fi

 if [ "$ofile" != "" ] ; then
	exec > $ofile
 fi

table -p $argv '
BEGIN {
	Init = 0

	rcol 	= "ra"
	dcol 	= "dec"

	paramcheck("eqgal", "rcol|dcol")
}
!Init {	__r = table_colnum(rcol)
	__d = table_colnum(dcol)

	if ( !__r )	printf("eqgal: no column \"%s\".\n", rcol) > "/dev/stderr"
	if ( !__d )	printf("eqgal: no column \"%s\".\n", dcol) > "/dev/stderr"
	if ( !__r || !__d ) {
		exit 1
	}

	Init = 1
}
{	[ $__r, $__d ] = eqgal($__r, $__d); print }

include ../tablefun/paramcheck 
include ../tablefun/table_colnum 

 '