1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
emacs/admin/charsets/kuten.awk
2011-01-15 15:16:57 -08:00

7 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;
}