5 //===----------------------------------------------------------------------===//
9 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
11 //===----------------------------------------------------------------------===//
78 #define KMP_I18N_NULLCAT ((nl_catd)(-1))
119     // be re-opened.  in __kmp_i18n_do_catopen()
129       // AC: only issue warning in case explicitly asked to  in __kmp_i18n_do_catopen()
134       // Infinite recursion will not occur -- status is KMP_I18N_ABSENT now, so  in __kmp_i18n_do_catopen()
151     int number = get_number(kmp_i18n_prp_Version);  in __kmp_i18n_do_catopen()  local
152     char const *expected = __kmp_i18n_default_table.sect[section].str[number];  in __kmp_i18n_do_catopen()
156     __kmp_str_buf_print(&version, "%s", catgets(cat, section, number, NULL));  in __kmp_i18n_do_catopen()
163         // AC: only issue warning in case explicitly asked to  in __kmp_i18n_do_catopen()
190   int number = get_number(id);  in __kmp_i18n_catgets()  local
194     if (1 <= number && number <= __kmp_i18n_default_table.sect[section].size) {  in __kmp_i18n_catgets()
199         message = catgets(cat, section, number,  in __kmp_i18n_catgets()
200                           __kmp_i18n_default_table.sect[section].str[number]);  in __kmp_i18n_catgets()
203         message = __kmp_i18n_default_table.sect[section].str[number];  in __kmp_i18n_catgets()
249     } else if (_stricmp(value, "UTF-8") == 0 || _stricmp(value, "UTF8") == 0) {  in get_code_page()
251     } else if (_stricmp(value, "UTF-7") == 0 || _stricmp(value, "UTF7") == 0) {  in get_code_page()
254       // !!! TODO: Issue a warning?  in get_code_page()
265   for (s = 0; s < table->size; ++s) {  in kmp_i18n_table_free()
266     for (m = 0; m < table->sect[s].size; ++m) {  in kmp_i18n_table_free()
268       KMP_INTERNAL_FREE((void *)table->sect[s].str[m]);  in kmp_i18n_table_free()
269       table->sect[s].str[m] = NULL;  in kmp_i18n_table_free()
271     table->sect[s].size = 0;  in kmp_i18n_table_free()
273     KMP_INTERNAL_FREE((void *)table->sect[s].str);  in kmp_i18n_table_free()
274     table->sect[s].str = NULL;  in kmp_i18n_table_free()
276   table->size = 0;  in kmp_i18n_table_free()
277   KMP_INTERNAL_FREE((void *)table->sect);  in kmp_i18n_table_free()
278   table->sect = NULL;  in kmp_i18n_table_free()
297     // be re-opened.  in __kmp_i18n_do_catopen()
302   /* Simple LoadLibrary( name ) is not suitable due to security issue (see  in __kmp_i18n_do_catopen()
314       // re-opened.  in __kmp_i18n_do_catopen()
350       // AC: only issue warning in case explicitly asked to  in __kmp_i18n_do_catopen()
352       // Infinite recursion will not occur -- status is KMP_I18N_ABSENT now, so  in __kmp_i18n_do_catopen()
356          IA-32 architecture opens libompui.dll for Intel(R) 64) Windows* OS  in __kmp_i18n_do_catopen()
364          Issue hint in this case so cause of trouble is more understandable. */  in __kmp_i18n_do_catopen()
380     int number = get_number(kmp_i18n_prp_Version);  in __kmp_i18n_do_catopen()  local
381     char const *expected = __kmp_i18n_default_table.sect[section].str[number];  in __kmp_i18n_do_catopen()
419    messages, etc. FormatMessage() tends to return Windows* OS-style
420    end-of-lines, "\r\n". When string is printed, printf() also replaces all the
425    (generated by message-converter.pl) contains only "\n" characters, but
440    so printf() will produce correct end-of-line sequences.
443    "\r" in-place and returns new length of string.  */
457   return out - 1;  in ___strip_crs()
483   wmsg = (wchar_t *)addr; // Warning: wmsg may be not nul-terminated!  in ___catgets()
514   // Stripping all "\r" before stripping last end-of-line simplifies the task.  in ___catgets()
518   if (len >= 1 && msg[len - 1] == '\n') {  in ___catgets()
519     --len;  in ___catgets()
543   int number = get_number(id);  in __kmp_i18n_catgets()  local
547     if (1 <= number && number <= __kmp_i18n_default_table.sect[section].size) {  in __kmp_i18n_catgets()
564         if (table.sect[section].str[number] == NULL) {  in __kmp_i18n_catgets()
565           table.sect[section].str[number] = ___catgets(id);  in __kmp_i18n_catgets()
567         message = table.sect[section].str[number];  in __kmp_i18n_catgets()
572         message = __kmp_i18n_default_table.sect[section].str[number];  in __kmp_i18n_catgets()
585 // -----------------------------------------------------------------------------
591 // -----------------------------------------------------------------------------
619   __kmp_printf("%s", buffer->str);  in __kmp_i18n_dump_catalog()
623 // -----------------------------------------------------------------------------
670 // -----------------------------------------------------------------------------
689     while (len > 0 && message[len - 1] == '\n') {  in sys_error()
690       --len;  in sys_error()
703 #else // Non-Windows* OS: Linux* OS or OS X*  in sys_error()
719   // would not issue warning if strerror_r() returns `int' instead of expected  in sys_error()
732   if (rc == -1) {  in sys_error()
743     if (rc == -1) {  in sys_error()
764 // -----------------------------------------------------------------------------
776 // -----------------------------------------------------------------------------
788 // -----------------------------------------------------------------------------
829       // number  in __kmp_msg()
847   // __kmp_acquire_bootstrap_lock( & lock );    // GEH - This lock causing tests  in __kmp_msg()
852   // __kmp_release_bootstrap_lock( & lock );  // GEH - this lock causing tests  in __kmp_msg()