diff options
author | Eike Rathke <erack@redhat.com> | 2013-10-22 00:55:05 +0200 |
---|---|---|
committer | Eike Rathke <erack@redhat.com> | 2013-10-24 01:54:58 +0200 |
commit | 315a0e277ab929ab77bb6ecd761abb24af0beb8b (patch) | |
tree | 1c23671680e963fd289eba9d5824fcd533e0b6c7 /i18nlangtag | |
parent | 9bffd1170cf2a1642ee956d3b9b27130cac8251d (diff) |
adapt to new IsoLanguageCountryEntry struct
IsoLanguageScriptCountryEntry and Bcp47CountryEntry are still missing.
Change-Id: Ie22c6031a6bf8598ee71f4720b4d4b9d5bac97d4
Diffstat (limited to 'i18nlangtag')
-rwxr-xr-x | i18nlangtag/source/isolang/langid.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/i18nlangtag/source/isolang/langid.pl b/i18nlangtag/source/isolang/langid.pl index 16f1b07a79de..838ef2c7229f 100755 --- a/i18nlangtag/source/isolang/langid.pl +++ b/i18nlangtag/source/isolang/langid.pl @@ -267,13 +267,13 @@ sub main() my $coun = $2; $lang = lc($lang); $coun = uc($coun); - # { LANGUAGE_AFRIKAANS, "af", "ZA" }, + # { LANGUAGE_AFRIKAANS, "af", "ZA", false }, @resultlist = grepFile( - '^\s*\{\s*\w+\s*,\s*\"' . $lang . '\"\s*,\s*\"' . $coun . '\"\s*\}\s*,', + '^\s*\{\s*\w+\s*,\s*\"' . $lang . '\"\s*,\s*\"' . $coun . '\"\s*,\s*\w+\s*\}\s*,', "$SRC_ROOT", "i18nlangtag", "source/isolang/isolang.cxx", ()); for $result (@resultlist) { - if ($result =~ /^\s*\{\s*(\w+)\s*,\s*\"\w+\"\s*,\s*\"(\w+)?\"\s*\}\s*,/) + if ($result =~ /^\s*\{\s*(\w+)\s*,\s*\"\w+\"\s*,\s*\"(\w+)?\"\s*,\s*\w+\s*\}\s*,/) { push( @greplist, '\b' . $1 . '\b'); $modifier = ""; # complete identifier now case sensitive @@ -305,15 +305,15 @@ sub main() } } - # { LANGUAGE_AFRIKAANS, "af", "ZA" }, + # { LANGUAGE_AFRIKAANS, "af", "ZA", false }, @resultlist = grepFile( - $modifier . '^\s*\{\s*.*' . $grepdef . '.*\s*,\s*\".*\"\s*,\s*\".*\"\s*\}\s*,', + $modifier . '^\s*\{\s*.*' . $grepdef . '.*\s*,\s*\".*\"\s*,\s*\".*\"\s*,\s*\w+\s*\}\s*,', "$SRC_ROOT", "i18nlangtag", "source/isolang/isolang.cxx", ()); my @langcoungreplist; for $result (@resultlist) { - if ($result =~ /^\s*\{\s*\w+\s*,\s*\"(\w+)\"\s*,\s*\"(\w+)?\"\s*\}\s*,/) + if ($result =~ /^\s*\{\s*\w+\s*,\s*\"(\w+)\"\s*,\s*\"(\w+)?\"\s*,\s*\w+\s*\}\s*,/) { my $lang = $1; my $coun = $2; |