Blender i18n enhancements

source/blender/blenfont/intern/blf_lang.c

 /*
  * ***** BEGIN GPL LICENSE BLOCK *****
  *
  * This program is free software; you can redistribute it and/or
  * modify it under the terms of the GNU General Public License
  * as published by the Free Software Foundation; either version 2
  * of the License, or (at your option) any later version.·
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ skipping 216 matching lines @@
                 short_locale_utf8 = short_locale;
         }
 
         bl_locale_set(short_locale_utf8);
 
         if (short_locale[0]) {
                 MEM_freeN((void *)short_locale_utf8);
         }
 }
 
+/* Get the current locale (short code, e.g. es_ES). */
 const char *BLF_lang_get(void)
 {
-        const char *uilang = LOCALE(ULANGUAGE);
-        if (uilang[0] == '\0') {
+        const char *locale = LOCALE(ULANGUAGE);
+        if (locale[0] == '\0') {
                 /* Default locale, we have to find which one we are actually using! */
-                uilang = bl_locale_get();
-        }
-        return uilang;
+                locale = bl_locale_get();
+        }
+        return locale;
 }
 
 #undef LOCALE
 #undef ULANGUAGE
 
 #else /* ! WITH_INTERNATIONAL */
 
 EnumPropertyItem *BLF_RNA_lang_enum_properties(void)
 {
         return NULL;
@@ skipping 13 matching lines @@
 {
         return;
 }
 
 const char *BLF_lang_get(void)
 {
         return "";
 }
 
 #endif /* WITH_INTERNATIONAL */
+
+
+/* Get locale's elements (if relevant pointer is not NULL and element actually exists, e.g. if there is no variant,
+ * *variant and *language_variant will always be NULL).
+ * Non-null elements are always MEM_mallocN'ed, it's the caller's responsibility to free them.
+ * NOTE: Keep that one always available, you never know, may become useful even in no-WITH_INTERNATIONAL context...
+ */
+void BLF_locale_explode(const char *locale, char **language, char **country, char **variant,
+                        char **language_country, char **language_variant)
+{
+        char *m1, *m2, *_t = NULL;
+
+        m1 = strchr(locale, '_');
+        m2 = strchr(locale, '@');
+
+        if (language || language_variant) {
+                if (m1 || m2) {
+                        _t = m1 ? BLI_strdupn(locale, m1 - locale) : BLI_strdupn(locale, m2 - locale);
+                        if (language)
+                                *language = _t;
+                }
+                else if (language) {
+                        *language = NULL;
+                }
+        }
+        if (country) {
+                if (m1)
+                        *country = m2 ? BLI_strdupn(m1 + 1, m2 - (m1 + 1)) : BLI_strdup(m1 + 1);
+                else
+                        *country = NULL;
+        }
+        if (variant) {
+                if (m2)
+                        *variant = BLI_strdup(m2 + 1);
+                else
+                        *variant = NULL;
+        }
+        if (language_country) {
+                if (m2)
+                        *language_country = BLI_strdupn(locale, m2 - locale);
+                else
+                        *language_country = NULL;
+        }
+        if (language_variant) {
+                if (m2)
+                        *language_variant = m1 ? BLI_strdupcat(_t, m2 + 1) : BLI_strdup(locale);
+                else
+                        *language_variant = NULL;
+        }
+        if (_t && !language) {
+                MEM_freeN(_t);
+        }
+}