Lines Matching refs:enc
225 my $enc = $callback{data}{e};
228 if ($enc eq 'UTF-8') {
231 my $converter = Text::Iconv->new("utf-8", "$enc");
427 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
428 next if ($enc eq $DEFENCODING);
450 $uhex = sha1_hex(join("\n", @lines) . $enc);
451 $languages{$l}{$f}{data}{$c}{$enc} = $uhex;
452 $hashtable{$uhex}{"${l}_${f}_${c}.$enc"} = 1;
453 open(FOUT, ">$TYPE.draft/$actfile.$enc.src");
531 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
532 next if ($enc eq $DEFENCODING);
535 open FOUT, ">$TYPE.draft/$actfile.$enc.src";
558 if (not defined $convertors{$enc}{$u32}) {
580 if (not $convertors{$enc}{$u32}) {
602 $languages{$l}{$f}{data}{$c}{$enc} = $shex;
603 $hashtable{$shex}{"${l}_${f}_${c}.$enc"} = 1;
736 my $enc = shift;
739 return $translations{$enc}{$v} if (defined $translations{$enc}{$v});
749 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
759 print "Writing to $file in $enc\n";
761 if ($enc ne $DEFENCODING &&
762 !defined $convertors{$enc}) {
763 print "Failed! Cannot convert to $enc.\n";
767 open(FOUT, ">$TYPE.draft/$file.$enc.new");
796 $callback{data}{e} = $enc;
825 my $rv = decodecldr($enc, $cm);
830 "Could not convert $k ($cm) from $DEFENCODING to $enc\n";
851 decodecldr($enc,
858 "Could not convert $k ($cm) from $DEFENCODING to $enc\n";
874 $languages{$l}{$f}{data}{$c}{$enc} = sha1_hex($output);
875 $hashtable{sha1_hex($output)}{"${l}_${f}_${c}.$enc"} = 1;
880 rename("$TYPE.draft/$file.$enc.new",
881 "$TYPE.draft/$file.$enc.src");
883 rename("$TYPE.draft/$file.$enc.new",
884 "$TYPE.draft/$file.$enc.failed");