Add variable for if the current UTF-8 locale is Turkic
authorKarl Williamson <khw@cpan.org>
Mon, 4 Feb 2019 21:11:08 +0000 (14:11 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 5 Feb 2019 18:44:29 +0000 (11:44 -0700)
It currently is always set false, until later in this series of commits.

embedvar.h
intrpvar.h
locale.c

index ad7aae8..787d046 100644 (file)
 #define PL_in_load_module      (vTHX->Iin_load_module)
 #define PL_in_utf8_COLLATE_locale      (vTHX->Iin_utf8_COLLATE_locale)
 #define PL_in_utf8_CTYPE_locale        (vTHX->Iin_utf8_CTYPE_locale)
+#define PL_in_utf8_turkic_locale       (vTHX->Iin_utf8_turkic_locale)
 #define PL_incgv               (vTHX->Iincgv)
 #define PL_initav              (vTHX->Iinitav)
 #define PL_inplace             (vTHX->Iinplace)
index fad1eaa..f604ef9 100644 (file)
@@ -262,6 +262,7 @@ PERLVAR(I, exit_flags,      U8)             /* was exit() unexpected, etc. */
 PERLVAR(I, utf8locale, bool)           /* utf8 locale detected */
 PERLVAR(I, in_utf8_CTYPE_locale, bool)
 PERLVAR(I, in_utf8_COLLATE_locale, bool)
+PERLVAR(I, in_utf8_turkic_locale, bool)
 #if defined(USE_ITHREADS) && ! defined(USE_THREAD_SAFE_LOCALE)
 PERLVARI(I, lc_numeric_mutex_depth, int, 0)   /* Emulate general semaphore */
 #endif
index 0f40250..383b213 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1668,6 +1668,8 @@ S_new_ctype(pTHX_ const char *newctype)
             }
         }
 
+            PL_in_utf8_turkic_locale = FALSE;
+
 #  ifdef MB_CUR_MAX
 
         /* We only handle single-byte locales (outside of UTF-8 ones; so if