Here is the language parsing:
Code:
sub get_language_desc {
my $code = shift;
my $lid = $code & 0xFF;
my $lang = $mainlanguage{$lid};
my $sublid = ($code >> 10) & 0xFF;
my $sublang = $langmap->{$lang}->{$sublid};
my $res = "";
$res .= "$lang";
$res .= " - $sublang";
return $res;
}
Yes the two lowest bits are not regarded. Maybe It is for a possibility to use 10 bits for the main language identifier?