mirror of
git://git.proxmox.com/git/proxmox-i18n.git
synced 2024-12-22 21:33:51 +03:00
po2js: cleanup perl code
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
parent
7159a792bb
commit
df8c4aa493
25
po2js.pl
25
po2js.pl
@ -18,22 +18,14 @@ getopts('t:o:v:', $options) ||
|
||||
|
||||
die "no files specified\n" if !scalar(@ARGV);
|
||||
|
||||
#my $filename = shift || die "no po file specified\n";
|
||||
|
||||
# like FNV32a, but we only return 31 bits (positive numbers)
|
||||
sub fnv31a {
|
||||
my ($string) = @_;
|
||||
|
||||
my $hval = 0x811c9dc5;
|
||||
|
||||
foreach my $c (unpack('C*', $string)) {
|
||||
for my $c (unpack('C*', $string)) {
|
||||
$hval ^= $c;
|
||||
$hval += (
|
||||
(($hval << 1) ) +
|
||||
(($hval << 4) ) +
|
||||
(($hval << 7) ) +
|
||||
(($hval << 8) ) +
|
||||
(($hval << 24) ) );
|
||||
$hval += ($hval << 1) + ($hval << 4) + ($hval << 7) + ($hval << 8) + ($hval << 24);
|
||||
$hval = $hval & 0xffffffff;
|
||||
}
|
||||
return $hval & 0x7fffffff;
|
||||
@ -54,16 +46,12 @@ foreach my $filename (@ARGV) {
|
||||
die "unable to get charset\n" if !$charset;
|
||||
}
|
||||
|
||||
|
||||
foreach my $k (keys %$href) {
|
||||
for my $k (keys %$href) {
|
||||
my $po = $href->{$k};
|
||||
next if $po->fuzzy(); # skip fuzzy entries
|
||||
my $ref = $po->reference();
|
||||
my $ref = $po->reference() or next; # skip unused entries
|
||||
|
||||
# skip unused entries
|
||||
next if !$ref;
|
||||
|
||||
# skip entries if t is defined (pve/pmg) and the string is
|
||||
# skip entries if "t" is defined (pve/pmg) and the string is
|
||||
# not used there or in the widget toolkit
|
||||
next if $options->{t} && $ref !~ m/($options->{t}|proxmox)\-/;
|
||||
|
||||
@ -74,12 +62,11 @@ foreach my $filename (@ARGV) {
|
||||
my $msgstr = $po->dequote($qmsgstr);
|
||||
|
||||
next if !length($msgid); # skip header
|
||||
|
||||
next if !length($msgstr); # skip untranslated entries
|
||||
|
||||
my $digest = fnv31a($msgid);
|
||||
|
||||
die "duplicate digest" if $catalog->{$digest};
|
||||
die "duplicate digest '$digest' (msgid '$msgid')\n" if $catalog->{$digest};
|
||||
|
||||
$catalog->{$digest} = [ $msgstr ];
|
||||
# later, we can add plural forms to the array
|
||||
|
Loading…
Reference in New Issue
Block a user