emacs/admin/charsets/kuten.awk
2011-01-15 15:16:57 -08:00

6 lines
112 B
Awk

/^[0-9]/ {
ku=substr($1, 3, 2) + 32;
ten=substr($1, 5, 2) + 32;
printf "0x%02X%02X %s\n", ku, ten, $2;
}