view admin/charsets/kuten.awk @ 95109:88a6289c23cb

(destructuring-bind): Fix spec.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 19 May 2008 11:58:43 +0000
parents e0e4e6a0599f
children ef719132ddfa
line wrap: on
line source

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

# arch-tag: dade6b45-b4c5-42ab-9d49-d6bf23a710b6