# @(#)lookbib.sh	2.2

#
set A =
switch ($1)
case -p:
	set A = "$1 $2"
	shift; shift
	breaksw

case -*:
	A=$1
	shift
	breaksw

endsw

switch ($1)
case -p:
	set A = "$A $1 $2"
	shift; shift
	breaksw
case -*:
	set A = "$A $1"
	shift
	breaksw
endsw

if ($1 == "") then
	/usr/lib/refer/mkey -s
else
	echo $* | /usr/lib/refer/mkey -s
endif | /usr/lib/refer/hunt $A /usr/dict/papers/Ind