#!/bin/rc -e
# mklibunicode: create lib/unicode
rfork e

url=http://www.unicode.org/Public/UNIDATA/UnicodeData.txt
dat=$home/lib/UnicodeData.txt
out=$home/lib/unicode

if(! test -e $dat){
	echo getting $dat ...
	hget $url >$dat
}
echo creating $out ...
awk '
BEGIN {
	FS = ";"
	OFS = "\t"
}
{
	code = $1
	name = $2
	name2 = $11
	if(name == "<control>" && name2 != "")
		name = name " # " name2
	print code, name
}
' $dat |
tr A-Z a-z >$out