1tst	- note{ canonical UTF-8 name }end run{
2	ifs=$IFS
3	str=
4	sys=
5	for i in `PATH=/bin:/usr/bin:$PATH locale -a | grep -i '^[^C].*\.UTF[-8]*$'`
6	do	IFS=.
7		set '' $i
8		IFS=$ifs
9		case $3 in
10		UTF-8)	str=$3
11			break
12			;;
13		*)	if	$SHELL -c "LC_CTYPE=$2.UTF-8 PATH=/bin:/usr/bin:$PATH locale LC_CTYPE | grep -i utf.*8" >/dev/null 2>&1
14			then	str=UTF-8
15				break
16			fi
17			;;
18		esac
19		sys=$3
20	done
21	case $str in
22	'')	str=$sys ;;
23	esac
24	case $str in
25	'')	echo "#define _locale_utf8_str	0" ;;
26	*)	echo "#define _locale_utf8_str	\"$str\"" ;;
27	esac
28}end
29