ref: 5d202d345616907d511b46e395226958fe66a2c3
dir: /sys/src/cmd/tcs/charsets.awk/
#!/bin/awk -f # makes a table of character sets from http://www.iana.org/assignments/character-sets/character-sets.xml # and tcs.txt /<name>/, /<\/name>/ { gsub(/[<>\/]+/, " ") i = 0 name = tolower($2) names[name] = name alias[name i] = name nalias[name] = ++i next } /<alias>/, /<\/alias>/ { gsub(/[<>\/]+/, " ") a = tolower($2) names[a] = name alias[name i] = a nalias[name] = ++i next } END { while(getline <ARGV[2]){ tcs = $1 if(tcs in names){ name = names[tcs] for(n = 0; n < nalias[name]; n++) print "\"" alias[name n] "\", \"" $2 "\"," } } }