1#!/bin/awk -f 2# makes a table of character sets from http://www.iana.org/assignments/character-sets 3# and tcs.txt 4 5BEGIN{ 6 if(ARGC != 3){ 7 print "Usage: " ARGV[0] " charsets.txt tcs.txt" 8 exit 1 9 } 10 while(getline<ARGV[1]){ 11 if(/^Name:/){ 12 i = 0 13 name=tolower($2) 14 names[name] = name 15 alias[name i] = name 16 nalias[name] = ++i 17 18 } 19 if(/^Alias:/){ 20 a = tolower($2) 21 if(a != "none"){ 22 names[a] = name 23 alias[name i ] = a 24 nalias[name] = ++i 25 } 26 } 27 } 28} 29{ 30 tcs = $1 31 if(tcs in names){ 32 name = names[tcs] 33 for(i=0; i<nalias[name]; i++) 34 print "\"" alias[name i] "\", \"" $2 "\"," 35 } 36} 37