Lines Matching refs:l
224 my $nl = $callback{data}{l} . "_" . $callback{data}{c};
240 my $nl = $callback{data}{l} . "_" . $callback{data}{c};
264 my $nl = $callback{data}{l} . "_" . $callback{data}{c};
294 if (defined $alternativemonths{$callback{data}{l}}{$callback{data}{c}}) {
295 my @altnames = split(";",$alternativemonths{$callback{data}{l}}{$callback{data}{c}});
313 my $nl = $callback{data}{l} . "_" . $callback{data}{c};
346 foreach my $l (@lines) {
347 chomp($l);
348 next if ($l =~ /^\#/);
349 next if ($l eq "");
351 if ($l eq "CHARMAP") {
357 last if ($l eq "END CHARMAP");
359 $l =~ /^<([^\s]+)>\s+(.*)/;
395 foreach my $l (sort keys(%languages)) {
396 foreach my $f (sort keys(%{$languages{$l}})) {
397 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
398 next if (defined $languages{$l}{$f}{definitions}
399 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
400 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 0; # unread
401 my $file = $l;
412 print "Reading from $filename for ${l}_${f}_${c}\n";
413 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 1; # read
422 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = $shex;
423 $hashtable{$shex}{"${l}_${f}_${c}.$DEFENCODING"} = 1;
427 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
451 $languages{$l}{$f}{data}{$c}{$enc} = $uhex;
452 $hashtable{$uhex}{"${l}_${f}_${c}.$enc"} = 1;
476 foreach my $l (sort keys(%languages)) {
477 foreach my $f (sort keys(%{$languages{$l}})) {
478 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
479 next if (defined $languages{$l}{$f}{definitions}
480 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
481 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 0; # unread
483 $file = $l . "_";
492 && defined $languages{$l}{$f}{fallback}) {
493 $file = $languages{$l}{$f}{fallback};
504 print "Reading from $filename for ${l}_${f}_${c}\n";
505 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 1; # read
519 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = $shex;
520 $hashtable{$shex}{"${l}_${f}_${c}.$DEFENCODING"} = 1;
531 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
568 my ($elem, $l);
570 ($elem, $l) = ($1, $2);
574 defined $l and
575 $l =~ m/<([^>]+)>/g) {
602 $languages{$l}{$f}{data}{$c}{$enc} = $shex;
603 $hashtable{$shex}{"${l}_${f}_${c}.$enc"} = 1;
611 foreach my $l (sort keys(%languages)) {
612 foreach my $f (sort keys(%{$languages{$l}})) {
613 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
614 next if (defined $languages{$l}{$f}{definitions}
615 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
617 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 0; # unread
619 $file = $l . "_";
627 && defined $languages{$l}{$f}{fallback}) {
628 $file = $languages{$l}{$f}{fallback};
639 print "Reading from $filename for ${l}_${f}_${c}\n";
640 $languages{$l}{$f}{data}{$c}{$DEFENCODING} = 1; # read
655 $values{$l}{$f}{$c}{$k} = ""
656 if (!defined $values{$l}{$f}{$c}{$k});
666 $values{$l}{$f}{$c}{$k} .= $line;
744 foreach my $l (sort keys(%languages)) {
745 foreach my $f (sort keys(%{$languages{$l}})) {
746 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
747 next if (defined $languages{$l}{$f}{definitions}
748 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
749 foreach my $enc (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
750 if ($languages{$l}{$f}{data}{$c}{$DEFENCODING} eq "0") {
751 print "Skipping ${l}_" .
756 my $file = $l;
795 $callback{data}{l} = $l;
799 &{$callback{$a[0]}}($values{$l}{$f}{$c}{$a[1]});
800 $values{$l}{$f}{$c}{$k} = $rv;
805 my $v = $values{$l}{$f}{$c}{$k};
874 $languages{$l}{$f}{data}{$c}{$enc} = sha1_hex($output);
875 $hashtable{sha1_hex($output)}{"${l}_${f}_${c}.$enc"} = 1;
1036 foreach my $l (sort keys(%languages)) {
1037 foreach my $f (sort keys(%{$languages{$l}})) {
1038 foreach my $c (sort keys(%{$languages{$l}{$f}{data}})) {
1039 next if (defined $languages{$l}{$f}{definitions}
1040 && $languages{$l}{$f}{definitions} !~ /$TYPE/);
1041 if (defined $languages{$l}{$f}{data}{$c}{$DEFENCODING}
1042 && $languages{$l}{$f}{data}{$c}{$DEFENCODING} eq "0") {
1043 print "Skipping ${l}_" . ($f eq "x" ? "" : "${f}_") .
1047 foreach my $e (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
1048 my $file = $l;
1051 next if (!defined $languages{$l}{$f}{data}{$c}{$e});
1055 if (defined $languages{$l}{$f}{nc_link}) {
1056 foreach my $e (sort keys(%{$languages{$l}{$f}{data}{$c}})) {
1057 my $file = $l . "_";
1060 … print FOUT "SAME+=\t\t$file.$e $languages{$l}{$f}{nc_link}.$e\t# legacy (lang/country change)\n";
1064 if (defined $languages{$l}{$f}{e_link}) {
1065 foreach my $el (split(" ", $languages{$l}{$f}{e_link})) {
1067 my $file = $l . "_";