#!/bin/rc
# cdesc: describe characters
rfork e

dat=/lib/unicode
new=$home/lib/unicode
tmp=/tmp/cdesc.$pid

if(test -r $new)
	dat=$new
sort $dat >$tmp

switch($#*){
case 0
	cat /fd/0
case *
	echo -n $*
} |
chars | sort |
join -a 1 -t'	' - $tmp
rm -f $tmp