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
   3 # and tcs.txt
   4
   5 BEGIN{
   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 }