sys/src/cmd/tcs/charsets.awk

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