GNOME.org
 

Re: http://www.gnome.org/i18n/ -- Lists of "supported" and "unsupported"languages incorrect

Christian Rose wrote:

>lör 2003-05-17 klockan 23.24 skrev Danilo Segan:
>  
>
>>It seems as if the lists provided at http://www.gnome.org/i18n/ are 
>>incorrect.
>>    
>>
>Yeah. This list is manually updated...
>
Here's a bit more "automated" solution.

>...
>Please use the 2.2 stats from the status pages, and if you update,
>please make sure that you check and update the supported status for all
>languages.
>
>  
>
Ok, this is what I did. I took the www.gnome.org/i18n/index.wml and 
developer.gnome.org/projects/gtp/status/gnome-2-2/top.html and put them 
in the same directory with the supplied (real simple and ugly, but 
apparently working) Perl script "list.pl", and simply ran: "./list.pl 
<top.html >out.html" (it uses system() to call egrep on index.wml, just 
to make it easier to develop).

This made for me an updated list which can be inserted into the 
index.wml, and is supplied here as out.html. Should I commit this list, 
or anyone has any objections (or if anyone notices that something is 
missing, since the regexp's are real simple)?

Of course, if the format of "top.html" and "index.wml" stays the same, 
this might easily be used to mostly automatically update these pages 
even in the 2.4 series.

I hope there's no need to mention that this is *not* the high-quality 
solution (it would involve having a common database of language names in 
original script and english, instead of static ones in index.wml, thus 
allowing easier change of format of language lists, etc.), but I guess 
it's sufficient for the task at hand.

Cheers,
Danilo


#!/usr/bin/perl
$langset=0;
while (<>) {
    if ($langset) {
	if (/teamerror\">([0-9]{1,3}\.[0-9]{2})<\/font>/) {
	    $percent=$1;
	    #print "$langset:$percent\n";
	    if ($percent>=80.0) {
		push @support,$langset;
	    } elsif ($percent>=50.0) {
		push @part,$langset;
	    } else {
		push @unsup,$langset;
	    }
	    $langset=0;
	}
    } elsif (/<a .*>[A-Za-z ]+\(([^)]+)\)<\/a>/) {
	$langset=$1;
    }
}

print "<h2>Currently supported languages:</h2>\n<ul>\n";
foreach $lang (sort(@support)) {
    getlangline($lang);
}
print "</ul>\n\n";

print "<h2>Currently partially supported languages:</h2>\n<ul>\n";
foreach $lang (sort(@part)) {
    getlangline($lang);
}
print "</ul>\n\n";


print "<h2>Currently unsupported languages:</h2>\n<ul>\n";
foreach $lang (sort(@unsup)) {
    getlangline($lang);
}
print "</ul>\n\n";

sub getlangline($lang) {
    $lang=$_[0];
    system("egrep '^<li>$lang:' index.wml");
}

Currently supported languages:

Currently partially supported languages:

Currently unsupported languages:

[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]