code.delx.au - gnu-emacs/blob - admin/charsets/kuten.awk

   1 /^[0-9]/ {
   2   ku=substr($1, 3, 2) + 32;
   3   ten=substr($1, 5, 2) + 32;
   4   printf "0x%02X%02X %s\n", ku, ten, $2;
   5 }
   6
   7 # arch-tag: dade6b45-b4c5-42ab-9d49-d6bf23a710b6