/* * pg_perm_setlocale * * This is identical to the libc function setlocale(), with the addition * that if the operation is successful, the corresponding LC_XXX environment * variable is set to match. By setting the environment variable, we ensure * that any subsequent use of setlocale(..., "") will preserve the settings * made through this routine. Of course, LC_ALL must also be unset to fully * ensure that, but that has to be done elsewhere after all the individual * LC_XXX variables have been set correctly. (Thank you Perl for making this * kluge necessary.) */ char * pg_perm_setlocale(int category, const char *locale) { char *result; const char *envvar; char *envbuf; #ifndef WIN32 result = setlocale(category, locale); #else /* * On Windows, setlocale(LC_MESSAGES) does not work, so just assume that * the given value is good and set it in the environment variables. We * must ignore attempts to set to "", which means "keep using the old * environment value". */ #ifdef LC_MESSAGES if (category == LC_MESSAGES) { result = (char *) locale; if (locale == NULL || locale[0] == '\0') return result; } else #endif result = setlocale(category, locale); #endif /* WIN32 */ if (result == NULL) return result; /* fall out immediately on failure */ switch (category) { case LC_COLLATE: envvar = "LC_COLLATE"; envbuf = lc_collate_envbuf; break; case LC_CTYPE: envvar = "LC_CTYPE"; envbuf = lc_ctype_envbuf; break; #ifdef LC_MESSAGES case LC_MESSAGES: envvar = "LC_MESSAGES"; envbuf = lc_messages_envbuf; #ifdef WIN32 result = IsoLocaleName(locale); if (result == NULL) result = (char *) locale; #endif /* WIN32 */ break; #endif /* LC_MESSAGES */ case LC_MONETARY: envvar = "LC_MONETARY"; envbuf = lc_monetary_envbuf; break; case LC_NUMERIC: envvar = "LC_NUMERIC"; envbuf = lc_numeric_envbuf; break; case LC_TIME: envvar = "LC_TIME"; envbuf = lc_time_envbuf; break; default: elog(FATAL, "unrecognized LC category: %d", category); envvar = NULL; /* keep compiler quiet */ envbuf = NULL; return NULL; } snprintf(envbuf, LC_ENV_BUFSIZE - 1, "%s=%s", envvar, result); if (putenv(envbuf)) return NULL; return result; }
/* * pg_perm_setlocale * * This wraps the libc function setlocale(), with two additions. First, when * changing LC_CTYPE, update gettext's encoding for the current message * domain. GNU gettext automatically tracks LC_CTYPE on most platforms, but * not on Windows. Second, if the operation is successful, the corresponding * LC_XXX environment variable is set to match. By setting the environment * variable, we ensure that any subsequent use of setlocale(..., "") will * preserve the settings made through this routine. Of course, LC_ALL must * also be unset to fully ensure that, but that has to be done elsewhere after * all the individual LC_XXX variables have been set correctly. (Thank you * Perl for making this kluge necessary.) */ char * pg_perm_setlocale(int category, const char *locale) { char *result; const char *envvar; char *envbuf; #ifndef WIN32 result = setlocale(category, locale); #else /* * On Windows, setlocale(LC_MESSAGES) does not work, so just assume that * the given value is good and set it in the environment variables. We * must ignore attempts to set to "", which means "keep using the old * environment value". */ #ifdef LC_MESSAGES if (category == LC_MESSAGES) { result = (char *) locale; if (locale == NULL || locale[0] == '\0') return result; } else #endif result = setlocale(category, locale); #endif /* WIN32 */ if (result == NULL) return result; /* fall out immediately on failure */ /* * Use the right encoding in translated messages. Under ENABLE_NLS, let * pg_bind_textdomain_codeset() figure it out. Under !ENABLE_NLS, message * format strings are ASCII, but database-encoding strings may enter the * message via %s. This makes the overall message encoding equal to the * database encoding. */ if (category == LC_CTYPE) { #ifdef ENABLE_NLS SetMessageEncoding(pg_bind_textdomain_codeset(textdomain(NULL))); #else SetMessageEncoding(GetDatabaseEncoding()); #endif } switch (category) { case LC_COLLATE: envvar = "LC_COLLATE"; envbuf = lc_collate_envbuf; break; case LC_CTYPE: envvar = "LC_CTYPE"; envbuf = lc_ctype_envbuf; break; #ifdef LC_MESSAGES case LC_MESSAGES: envvar = "LC_MESSAGES"; envbuf = lc_messages_envbuf; #ifdef WIN32 result = IsoLocaleName(locale); if (result == NULL) result = (char *) locale; #endif /* WIN32 */ break; #endif /* LC_MESSAGES */ case LC_MONETARY: envvar = "LC_MONETARY"; envbuf = lc_monetary_envbuf; break; case LC_NUMERIC: envvar = "LC_NUMERIC"; envbuf = lc_numeric_envbuf; break; case LC_TIME: envvar = "LC_TIME"; envbuf = lc_time_envbuf; break; default: elog(FATAL, "unrecognized LC category: %d", category); envvar = NULL; /* keep compiler quiet */ envbuf = NULL; return NULL; } snprintf(envbuf, LC_ENV_BUFSIZE - 1, "%s=%s", envvar, result); if (putenv(envbuf)) return NULL; return result; }