diff options
author | Karl Williamson <khw@cpan.org> | 2022-08-09 17:06:07 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-09-08 16:20:46 -0600 |
commit | 2855c76a0889739c42af23c1abd79ecd2ccd8577 (patch) | |
tree | bed3e7cae28f88d1806bd129cdbb98152734698f /embed.fnc | |
parent | 6a011f13d7690dbe2e03ad7500756c983bcb1834 (diff) | |
download | perl-2855c76a0889739c42af23c1abd79ecd2ccd8577.tar.gz |
locale.c: Add S_get_LC_ALL display()
This encapsulates a common paradigm, helpful for debugging
It requires the calculate_LC_ALL to be additionally available when there
is no LC_ALL.
Diffstat (limited to 'embed.fnc')
-rw-r--r-- | embed.fnc | 14 |
1 files changed, 10 insertions, 4 deletions
@@ -3373,16 +3373,21 @@ S |locale_t |use_curlocale_scratch S |const char *|setlocale_from_aggregate_LC_ALL \ |NN const char * locale \ |const line_t line -# ifdef USE_QUERYLOCALE -S |const char *|calculate_LC_ALL|const locale_t cur_obj -# else -S |const char *|calculate_LC_ALL|NN const char ** individ_locales +# ifndef USE_QUERYLOCALE S |const char*|update_PL_curlocales_i|const unsigned int index \ |NN const char * new_locale \ |recalc_lc_all_t recalc_LC_ALL S |const char *|find_locale_from_environment|const unsigned int index # endif # endif +# if defined(USE_POSIX_2008_LOCALE) && defined(USE_QUERYLOCALE) +S |const char *|calculate_LC_ALL|const locale_t cur_obj +# else +: regen/embed.pl can't currently cope with 'elif' +# if defined(USE_POSIX_2008_LOCALE) || ! defined(LC_ALL) +S |const char *|calculate_LC_ALL|NN const char ** individ_locales +# endif +# endif # ifdef WIN32 S |char* |win32_setlocale|int category|NULLOK const char* locale pTC |wchar_t *|Win_utf8_string_to_wstring|NULLOK const char * utf8_string @@ -3413,6 +3418,7 @@ S |void |print_collxfrm_input_and_return \ STR |char * |setlocale_debug_string_i|const unsigned cat_index \ |NULLOK const char* const locale \ |NULLOK const char* const retval +S |const char *|get_LC_ALL_display # endif # endif # ifdef DEBUGGING |