Subversion Repositories planix.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 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 
}