77 lines
1.8 KiB
Perl
77 lines
1.8 KiB
Perl
|
# -*- Perl -*-
|
||
|
|
|
||
|
|
%reg_ctry = ();
|
||
|
|
%ctry_files = ();
|
||
|
|
%file_descrs = ();
|
||
|
|
|
||
|
|
while(<>) {
|
||
|
|
next if(!/^\# ZONE-DESCR/);
|
||
|
|
chop;
|
||
|
|
split;
|
||
|
|
|
||
|
|
shift(@_); shift(@_); # get rid of # ZONE-DESCR
|
||
|
|
|
||
|
|
# Now $_[0] is region, $_[1] is filename, $_[2] is country,
|
||
|
|
# and @_[3 .. $#_] is the description
|
||
|
|
$reg = $_[0];
|
||
|
|
$file = $_[1];
|
||
|
|
$ctry = $_[2];
|
||
|
|
$descr = join(' ', @_[3 .. $#_]);
|
||
|
|
|
||
|
|
if($reg_ctry{$reg} =~ /$ctry/) {
|
||
|
|
# do nothing
|
||
|
|
} else {
|
||
|
|
$reg_ctry{$reg} = $ctry . "," . $reg_ctry{$reg};
|
||
|
|
}
|
||
|
|
|
||
|
|
$ctry_files{$ctry} .= ",$reg/$file";
|
||
|
|
$file_descrs{"$reg/$file"} = $descr;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "/* This file automatically generated. */\n";
|
||
|
|
print "#include \"tzsetup.h\"\n";
|
||
|
|
|
||
|
|
foreach $ctry (sort keys %ctry_files) {
|
||
|
|
print "const char *files_$ctry\[\] = {\n";
|
||
|
|
$ctry_files{$ctry} =~ s/^,//;
|
||
|
|
foreach $file (sort {$file_descrs{$a} cmp $file_descrs{$b}}
|
||
|
|
split(/,/, $ctry_files{$ctry})) {
|
||
|
|
print "\t\"$file\",\n";
|
||
|
|
}
|
||
|
|
print "\t0 };\n";
|
||
|
|
print "const char *menu_$ctry\[\] = {\n";
|
||
|
|
$i = 0;
|
||
|
|
|
||
|
|
foreach $file (sort {$file_descrs{$a} cmp $file_descrs{$b}}
|
||
|
|
split(/,/, $ctry_files{$ctry})) {
|
||
|
|
$i++;
|
||
|
|
print "\t\"$i\", \"$file_descrs{$file}\",\n";
|
||
|
|
}
|
||
|
|
print "\t0, 0 };\n";
|
||
|
|
|
||
|
|
print "struct country $ctry = { files_$ctry, menu_$ctry, $i };\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach $reg (sort keys %reg_ctry) {
|
||
|
|
print "\nstruct country *menu_$reg\[\] = {\n";
|
||
|
|
$reg_ctry{$reg} =~ s/,$//;
|
||
|
|
foreach $ctry (sort split(/,/, $reg_ctry{$reg})) {
|
||
|
|
print "\t&$ctry,\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
print "\t0 };\n";
|
||
|
|
print "const char *name_$reg\[\] = {\n";
|
||
|
|
$i = 0;
|
||
|
|
foreach $ctry (sort split(/,/, $reg_ctry{$reg})) {
|
||
|
|
$i++;
|
||
|
|
$ctry =~ s/_/ /g;
|
||
|
|
print "\t\"$i\", \"$ctry\",\n";
|
||
|
|
}
|
||
|
|
print "\t0, 0 };\n";
|
||
|
|
|
||
|
|
print "struct region $reg = { menu_$reg, name_$reg, $i };\n";
|
||
|
|
}
|
||
|
|
|
||
|
|
exit 0;
|
||
|
|
|