texinfo/tp regenerate_documentlanguages.pl Texi...

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/09/13 19:45:31

Modified files:
        tp             : regenerate_documentlanguages.pl 
        tp/Texinfo     : Documentlanguages.pm 

Log message:
        Add a license to regenerate_documentlanguages.pl.
        Don't ignore the last entry in the languages file.
        Regenerate document languages list.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/regenerate_documentlanguages.pl?cvsroot=texinfo&r1=1.1&r2=1.2
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/Texinfo/Documentlanguages.pm?cvsroot=texinfo&r1=1.1&r2=1.2

Patches:
Index: regenerate_documentlanguages.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/regenerate_documentlanguages.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- regenerate_documentlanguages.pl     16 Jan 2011 10:04:49 -0000      1.1
+++ regenerate_documentlanguages.pl     13 Sep 2011 19:45:30 -0000      1.2
@@ -1,5 +1,19 @@
 #! /usr/bin/perl -w
 
+# regenerate_documentlanguages.pl: download the iana files language
+# and regenerate Texinfo/Documentlanguages.pm list of languages and regions
+#
+# Copyright 2010, 2011 Free Software Foundation, Inc.
+# 
+# Copying and distribution of this file, with or without modification,
+# are permitted in any medium without royalty provided the copyright
+# notice and this notice are preserved.  This file is offered as-is,
+# without any warranty.
+#
+# Original author: Patrice Dumas <address@hidden>
+#
+# Calling that script for each release could be a good idea.
+
 use strict;
 
 system ("wget -N http://www.iana.org/assignments/language-subtag-registry";);
@@ -23,6 +37,7 @@
        }
    }
 }
+push @entries, $entry if (defined($entry));
 
 open (OUT, ">Texinfo/Documentlanguages.pm") or die "Open 
Texinfo/Documentlanguages.pm: $!\n";
 
@@ -33,7 +48,7 @@
 print OUT 'our %language_codes = ('."\n";
 foreach my $entry (@entries)
 {
-   #Â Scope collection macrolanguage are used
+   # Scope collection macrolanguage are used
    if ($entry->{'Type'} eq 'language' and !defined($entry->{'Preferred-Value'})
          and !defined($entry->{'Macrolanguage'}) and 
          (!defined($entry->{'Scope'}) or ($entry->{'Scope'} ne 'special' and

Index: Texinfo/Documentlanguages.pm
===================================================================
RCS file: /sources/texinfo/texinfo/tp/Texinfo/Documentlanguages.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -b -r1.1 -r1.2
--- Texinfo/Documentlanguages.pm        16 Jan 2011 10:04:49 -0000      1.1
+++ Texinfo/Documentlanguages.pm        13 Sep 2011 19:45:31 -0000      1.2
@@ -503,6 +503,7 @@
 'apz' => 1,
 'aqa' => 1,
 'aqc' => 1,
+'aqd' => 1,
 'aqg' => 1,
 'aql' => 1,
 'aqm' => 1,
@@ -1255,6 +1256,7 @@
 'byz' => 1,
 'bza' => 1,
 'bzb' => 1,
+'bzc' => 1,
 'bzd' => 1,
 'bze' => 1,
 'bzf' => 1,
@@ -1722,6 +1724,7 @@
 'dlm' => 1,
 'dln' => 1,
 'dma' => 1,
+'dmb' => 1,
 'dmc' => 1,
 'dme' => 1,
 'dmg' => 1,
@@ -1772,6 +1775,7 @@
 'dpp' => 1,
 'dra' => 1,
 'drb' => 1,
+'drc' => 1,
 'drd' => 1,
 'dre' => 1,
 'drg' => 1,
@@ -1797,6 +1801,7 @@
 'dsq' => 1,
 'dta' => 1,
 'dtb' => 1,
+'dtd' => 1,
 'dti' => 1,
 'dtk' => 1,
 'dtm' => 1,
@@ -4675,6 +4680,7 @@
 'nrp' => 1,
 'nrr' => 1,
 'nrt' => 1,
+'nru' => 1,
 'nrx' => 1,
 'nrz' => 1,
 'nsa' => 1,
@@ -4723,6 +4729,7 @@
 'nuh' => 1,
 'nui' => 1,
 'nuj' => 1,
+'nuk' => 1,
 'nul' => 1,
 'num' => 1,
 'nun' => 1,
@@ -4757,6 +4764,7 @@
 'nxl' => 1,
 'nxm' => 1,
 'nxn' => 1,
+'nxq' => 1,
 'nxr' => 1,
 'nxu' => 1,
 'nxx' => 1,
@@ -5032,6 +5040,7 @@
 'pgg' => 1,
 'pgi' => 1,
 'pgk' => 1,
+'pgl' => 1,
 'pgn' => 1,
 'pgs' => 1,
 'pgu' => 1,
@@ -6119,6 +6128,7 @@
 'tkd' => 1,
 'tke' => 1,
 'tkf' => 1,
+'tkg' => 1,
 'tkk' => 1,
 'tkl' => 1,
 'tkm' => 1,
@@ -6303,6 +6313,7 @@
 'tsq' => 1,
 'tsr' => 1,
 'tss' => 1,
+'tst' => 1,
 'tsu' => 1,
 'tsv' => 1,
 'tsw' => 1,
@@ -7330,6 +7341,7 @@
 'zia' => 1,
 'zib' => 1,
 'zik' => 1,
+'zil' => 1,
 'zim' => 1,
 'zin' => 1,
 'zir' => 1,
@@ -7627,6 +7639,7 @@
 'SN' => 1,
 'SO' => 1,
 'SR' => 1,
+'SS' => 1,
 'ST' => 1,
 'SU' => 1,
 'SV' => 1,