#!/usr/local/bin/rc
# bugs -- case sensitive matching

nl = '
'
bookdir = $home/doc/address
book = ()

if (~ $1 -b){
	shift
	if (~ $1 /* ./ ../)
		book = $1
	else
		book = $bookdir/$1
	shift
} else {
	for (i in $bookdir/*)
		if (test -f $i)
			book = ($book $i)
}

if (~ $#* 0)
	exit 0

args = $1
shift
for (i)
	args = $args'|'$i

echo 'X:.: , x/^\n/+/(.+\n)+/ g/^NAME.*('^$args^')/ p' | \
	sam -d $book >[2] /dev/null | \
	sed '2,$ s/^NAME/\'$nl'&/g'