#!/bin/rc
rfork e
A=()
B=()
std=()	# was /usr/dict/papers/Ind
while(! ~ $#* 0) {
	switch($1) {
	case -n
		std=()
	case -N*
		B=$1
	case -p
		shift
		~ $#* 0 && { echo lookbib: -p takes refer database name as argument >[1=2]; exit usage }
		A=($A -p $1)
	case -*
		A=($A $1)
	case *
		A=($A -p $1)
	}
	shift
}
refer/mkey -s $B | refer/hunt $A