Changeset View
Changeset View
Standalone View
Standalone View
tools/tools/locale/tools/cldr2def.pl
| Show First 20 Lines • Show All 377 Lines • ▼ Show 20 Lines | foreach my $t (split(/\+/, $_[0])) { | ||||
| $t =~ s/^0[xX]//; | $t =~ s/^0[xX]//; | ||||
| $ret .= $t; | $ret .= $t; | ||||
| } | } | ||||
| return $ret; | return $ret; | ||||
| } | } | ||||
| sub get_languages { | sub get_languages { | ||||
| my %data = get_xmldata($ETCDIR); | my %data = get_xmldata($ETCDIR); | ||||
| %languages = %{$data{L}}; | %languages = %{$data{L}}; | ||||
| %translations = %{$data{T}}; | %translations = %{$data{T}}; | ||||
| %alternativemonths = %{$data{AM}}; | %alternativemonths = %{$data{AM}}; | ||||
| } | } | ||||
| sub transform_ctypes { | sub transform_ctypes { | ||||
| # Add the C.UTF-8 | # Add the C.UTF-8 | ||||
| $languages{"C"}{"x"}{data}{"x"}{$DEFENCODING} = undef; | $languages{"C"}{"x"}{data}{"x"}{$DEFENCODING} = undef; | ||||
| foreach my $l (sort keys(%languages)) { | foreach my $l (sort keys(%languages)) { | ||||
| foreach my $f (sort keys(%{$languages{$l}})) { | foreach my $f (sort keys(%{$languages{$l}})) { | ||||
| ▲ Show 20 Lines • Show All 424 Lines • ▼ Show 20 Lines | EOF | ||||
| my $p1 = $1; | my $p1 = $1; | ||||
| $cm = $2; | $cm = $2; | ||||
| my $p3 = $3; | my $p3 = $3; | ||||
| my $rv = decodecldr($enc, $cm); | my $rv = decodecldr($enc, $cm); | ||||
| # $rv = translate($enc, $cm) | # $rv = translate($enc, $cm) | ||||
| # if (!defined $rv); | # if (!defined $rv); | ||||
| if (!defined $rv) { | if (!defined $rv) { | ||||
| print STDERR | print STDERR | ||||
| "Could not convert $k ($cm) from $DEFENCODING to $enc\n"; | "Could not convert $k ($cm) from $DEFENCODING to $enc\n"; | ||||
| $okay = 0; | $okay = 0; | ||||
| next; | next; | ||||
| } | } | ||||
| $v = $p1 . $rv . $p3; | $v = $p1 . $rv . $p3; | ||||
| } | } | ||||
| $output .= "$v\n"; | $output .= "$v\n"; | ||||
| Show All 11 Lines | "Could not convert $k ($cm) from $DEFENCODING to $enc\n"; | ||||
| my $rv = | my $rv = | ||||
| decodecldr($enc, | decodecldr($enc, | ||||
| $cm); | $cm); | ||||
| # $rv = translate($enc, | # $rv = translate($enc, | ||||
| # $cm) | # $cm) | ||||
| # if (!defined $rv); | # if (!defined $rv); | ||||
| if (!defined $rv) { | if (!defined $rv) { | ||||
| print STDERR | print STDERR | ||||
| "Could not convert $k ($cm) from $DEFENCODING to $enc\n"; | "Could not convert $k ($cm) from $DEFENCODING to $enc\n"; | ||||
| $okay = 0; | $okay = 0; | ||||
| next; | next; | ||||
| } | } | ||||
| $v = $1 . $rv . $3; | $v = $1 . $rv . $3; | ||||
| } | } | ||||
| $output .= "$v\n"; | $output .= "$v\n"; | ||||
| ▲ Show 20 Lines • Show All 234 Lines • Show Last 20 Lines | |||||