locales: Add LC_NAME capabilities

LC_NAME is a GNU extension that Perl hadn't been aware of.  The
consequences were that it couldn't be set or queried in Perl (except by
using LC_ALL to set everything).  There are other GNU extensions that
Perl has long known about; this was the only missing one.

The values associated with this category are retrievable by the glibc
call nl_langinfo(3) in XS code.  The standard-specified items are
retrievable from pure Perl via I18N::Langinfo, but it doesn't know only
about any of the non-standard ones, including the ones for this
category.

Author: khwilliamson

ext/POSIX/Makefile.PL

@@ -51,7 +51,7 @@ my @names =
       EUSERS EWOULDBLOCK EXDEV FILENAME_MAX F_OK HUPCL ICANON ICRNL IEXTEN
       IGNBRK IGNCR IGNPAR INLCR INPCK INT_MAX INT_MIN ISIG ISTRIP IXOFF IXON
       LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION LC_MEASUREMENT
-      LC_MESSAGES LC_MONETARY LC_NUMERIC LC_PAPER LC_TELEPHONE LC_TIME
+      LC_MESSAGES LC_MONETARY LC_NUMERIC LC_PAPER LC_TELEPHONE LC_TIME LC_NAME
       LINK_MAX LONG_MAX LONG_MIN L_ctermid L_cuserid MAX_CANON
       MAX_INPUT MB_LEN_MAX MSG_CTRUNC MSG_DONTROUTE MSG_EOR MSG_OOB MSG_PEEK
       MSG_TRUNC MSG_WAITALL NAME_MAX NCCS NGROUPS_MAX NOFLSH OPEN_MAX OPOST

ext/POSIX/lib/POSIX.pm

@@ -307,7 +307,7 @@ my %default_export_tags = ( # cf. exports policy below
 
     locale_h =>	[qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES
 		    LC_MONETARY LC_NUMERIC LC_TIME LC_IDENTIFICATION
-                    LC_MEASUREMENT LC_PAPER LC_TELEPHONE LC_ADDRESS
+                    LC_MEASUREMENT LC_PAPER LC_TELEPHONE LC_ADDRESS LC_NAME
                     LC_SYNTAX LC_TOD NULL
 		    localeconv setlocale)],
 

ext/POSIX/t/export.t

@@ -48,7 +48,7 @@ my %expect = (
             INT_MAX INT_MIN ISIG ISTRIP IXOFF IXON
             LC_ADDRESS LC_ALL LC_COLLATE LC_CTYPE LC_IDENTIFICATION
             LC_MEASUREMENT LC_MESSAGES LC_MONETARY LC_NUMERIC LC_PAPER
-            LC_TELEPHONE LC_TIME LC_SYNTAX LC_TOD LDBL_DIG
+            LC_TELEPHONE LC_TIME LC_NAME LC_SYNTAX LC_TOD LDBL_DIG
             LDBL_EPSILON LDBL_MANT_DIG LDBL_MAX LDBL_MAX_10_EXP
             LDBL_MAX_EXP LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP LINK_MAX
             LONG_MAX LONG_MIN L_ctermid L_cuserid MAX_CANON

intrpvar.h

@@ -745,7 +745,7 @@ PERLVARI(I, cur_locale_obj, locale_t, NULL)
 
 /* This is the most number of categories we've encountered so far on any
  * platform, doesn't include LC_ALL */
-PERLVARA(I, curlocales, 11, const char *)
+PERLVARA(I, curlocales, 12, const char *)
 
 #endif
 #ifdef USE_PL_CUR_LC_ALL

locale.c

@@ -283,6 +283,9 @@ STATIC const int categories[] = {
 #    ifdef USE_LOCALE_TELEPHONE
                              LC_TELEPHONE,
 #    endif
+#    ifdef USE_LOCALE_NAME
+                             LC_NAME,
+#    endif
 #    ifdef USE_LOCALE_SYNTAX
                              LC_SYNTAX,
 #    endif
@@ -335,6 +338,9 @@ STATIC const char * const category_names[] = {
 #    ifdef USE_LOCALE_TELEPHONE
                                  "LC_TELEPHONE",
 #    endif
+#    ifdef USE_LOCALE_NAME
+                                 "LC_NAME",
+#    endif
 #    ifdef USE_LOCALE_SYNTAX
                                  "LC_SYNTAX",
 #    endif
@@ -386,6 +392,9 @@ STATIC void (*update_functions[]) (pTHX_ const char *) = {
 #  ifdef USE_LOCALE_TELEPHONE
                                 NULL,
 #  endif
+#  ifdef USE_LOCALE_NAME
+                                NULL,
+#  endif
 #  ifdef USE_LOCALE_SYNTAX
                                 NULL,
 #  endif
@@ -794,6 +803,9 @@ STATIC const int category_masks[] = {
 #  ifdef USE_LOCALE_TELEPHONE
                                 LC_TELEPHONE_MASK,
 #  endif
+#  ifdef USE_LOCALE_NAME
+                                LC_NAME_MASK,
+#  endif
 #  ifdef USE_LOCALE_SYNTAX
                                 LC_SYNTAX_MASK,
 #  endif
@@ -4805,6 +4817,13 @@ Perl_init_i18nl10n(pTHX_ int printwarn)
     assert(category_masks[LC_TELEPHONE_INDEX_] == LC_TELEPHONE_MASK);
 #      endif
 #    endif
+#    ifdef USE_LOCALE_NAME
+    assert(categories[LC_NAME_INDEX_] == LC_NAME);
+    assert(strEQ(category_names[LC_NAME_INDEX_], "LC_NAME"));
+#      ifdef USE_POSIX_2008_LOCALE
+    assert(category_masks[LC_NAME_INDEX_] == LC_NAME_MASK);
+#      endif
+#    endif
 #    ifdef USE_LOCALE_SYNTAX
     assert(categories[LC_SYNTAX_INDEX_] == LC_SYNTAX);
     assert(strEQ(category_names[LC_SYNTAX_INDEX_], "LC_SYNTAX"));

perl.h

@@ -1129,6 +1129,9 @@ violations are fatal.
 #   if !defined(NO_LOCALE_TELEPHONE) && defined(LC_TELEPHONE)
 #	define USE_LOCALE_TELEPHONE
 #   endif
+#   if !defined(NO_LOCALE_NAME) && defined(LC_NAME)
+#	define USE_LOCALE_NAME
+#   endif
 #   if !defined(NO_LOCALE_SYNTAX) && defined(LC_SYNTAX)
 #	define USE_LOCALE_SYNTAX
 #   endif
@@ -1203,11 +1206,17 @@ violations are fatal.
 #  else
 #    define PERL_DUMMY_TELEPHONE_       PERL_DUMMY_PAPER_
 #  endif
+#  ifdef USE_LOCALE_NAME
+#    define LC_NAME_INDEX_              PERL_DUMMY_TELEPHONE_ + 1
+#    define PERL_DUMMY_NAME_            LC_NAME_INDEX_
+#  else
+#    define PERL_DUMMY_NAME_            PERL_DUMMY_TELEPHONE_
+#  endif
 #  ifdef USE_LOCALE_SYNTAX
-#    define LC_SYNTAX_INDEX_            PERL_DUMMY_TELEPHONE_ + 1
+#    define LC_SYNTAX_INDEX_            PERL_DUMMY_NAME + 1
 #    define PERL_DUMMY_SYNTAX_          LC_SYNTAX_INDEX_
 #  else
-#    define PERL_DUMMY_SYNTAX_          PERL_DUMMY_TELEPHONE_
+#    define PERL_DUMMY_SYNTAX_          PERL_DUMMY_NAME_
 #  endif
 #  ifdef USE_LOCALE_TOD
 #    define LC_TOD_INDEX_               PERL_DUMMY_SYNTAX_ + 1

t/loc_tools.pl

@@ -26,7 +26,7 @@
 my @known_categories = ( qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES LC_MONETARY
                             LC_NUMERIC LC_TIME LC_ADDRESS LC_IDENTIFICATION
                             LC_MEASUREMENT LC_PAPER LC_TELEPHONE LC_SYNTAX
-                            LC_TOD));
+                            LC_TOD LC_NAME));
 my @platform_categories;
 
 sub category_excluded($) {