1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-14 07:20:35 -08:00
emacs/admin/charsets/kuten.awk
2003-09-08 11:56:09 +00:00

5 lines
111 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;
}