Lines Matching refs:f
363 foreach my $f (sort keys(%{$languages{$l}})) {
364 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
366 || $filter[1] ne $f || $filter[2] ne $c));
367 next if (defined $languages{$l}{$f}{definitions}
368 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
369 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 0; # unread
372 $file .= $f . "_" if ($f ne "x");
377 if (! -f $filename) {
382 print "Reading from $filename for ${l}_${f}_${c}\n";
383 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 1; # read
392 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = $shex;
393 $hashtable{$shex}{"${l}_${f}_${c}.$DEFENCODING"} = 1;
397 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
400 if (! -f $filename) {
416 $languages{$l}{$f}{data}{$c}{$enc} = $uhex;
417 $hashtable{$uhex}{"${l}_${f}_${c}.$enc"} = 1;
436 foreach my $f (sort keys(%{$languages{$l}})) {
437 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
439 || $filter[1] ne $f || $filter[2] ne $c));
440 next if (defined $languages{$l}{$f}{definitions}
441 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
442 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 0; # unread
445 $file .= $f . "_" if ($f ne "x");
451 if (! -f $filename);
452 if (! -f $filename
453 && defined $languages{$l}{$f}{fallback}) {
454 $file = $languages{$l}{$f}{fallback};
458 if (! -f $filename);
459 if (! -f $filename) {
465 print "Reading from $filename for ${l}_${f}_${c}\n";
466 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 1; # read
480 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = $shex;
481 $hashtable{$shex}{"${l}_${f}_${c}.$DEFENCODING"} = 1;
492 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
496 $languages{$l}{$f}{data}{$c}{$enc} = $shex;
497 $hashtable{$shex}{"${l}_${f}_${c}.$enc"} = 1;
506 foreach my $f (sort keys(%{$languages{$l}})) {
507 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
509 || $filter[1] ne $f || $filter[2] ne $c));
510 next if (defined $languages{$l}{$f}{definitions}
511 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
513 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 0; # unread
516 $file .= $f . "_" if ($f ne "x");
521 if (! -f $filename);
522 if (! -f $filename
523 && defined $languages{$l}{$f}{fallback}) {
524 $file = $languages{$l}{$f}{fallback};
528 if (! -f $filename);
529 if (! -f $filename) {
535 print "Reading from $filename for ${l}_${f}_${c}\n";
536 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 1; # read
645 foreach my $f (sort keys(%{$languages{$l}})) {
646 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
648 || $filter[1] ne $f || $filter[2] ne $c));
649 next if (defined $languages{$l}{$f}{definitions}
650 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
651 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
652 if ($languages{$l}{$f}{data}{$c}{$DEFENCODING} eq "0") {
654 ($f eq "x" ? "" : "${f}_") .
659 $file .= "_" . $f if ($f ne "x");
679 my $f = $keys{$k};
687 if ($f =~ /^>/) {
688 $k = substr($f, 1);
689 $f = $keys{$k};
693 if ($f =~ /^\</) {
698 my @a = split(/\</, substr($f, 1));
702 $f = $a[2];
709 if ($f eq "i") {
713 if ($f eq "ai") {
717 if ($f eq "s") {
741 if ($f eq "as") {
771 die("$k is '$f'");
775 $languages{$l}{$f}{data}{$c}{$enc} = sha1_hex($output);
776 $hashtable{sha1_hex($output)}{"${l}_${f}_${c}.$enc"} = 1;
899 foreach my $f (sort keys(%{$languages{$l}})) {
900 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
902 || $filter[1] ne $f || $filter[2] ne $c));
903 next if (defined $languages{$l}{$f}{definitions}
904 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
905 if (defined $languages{$l}{$f}{data}{$c}{$DEFENCODING}
906 && $languages{$l}{$f}{data}{$c}{$DEFENCODING} eq "0") {
907 print "Skipping ${l}_" . ($f eq "x" ? "" : "${f}_") .
911 foreach my $e (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
913 $file .= $f . "_" if ($f ne "x");
915 next if (!defined $languages{$l}{$f}{data}{$c}{$e});
919 if (defined $languages{$l}{$f}{nc_link}) {
920 foreach my $e (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
922 $file .= $f . "_" if ($f ne "x");
924 … print FOUT "SAME+=\t\t$file.$e:$languages{$l}{$f}{nc_link}.$e\t# legacy (lang/country change)\n";
928 if (defined $languages{$l}{$f}{e_link}) {
929 foreach my $el (split(" ", $languages{$l}{$f}{e_link})) {
932 $file .= $f . "_" if ($f ne "x");