37 static char const *no_message_available = "(No message available)";
39 static void __kmp_msg(kmp_msg_severity_t severity, kmp_msg_t message,
45   KMP_I18N_ABSENT // Opening failed, message catalog should not be used.
50 /* Message catalog is opened at first usage, so we have to synchronize opening
136       // default message.  in __kmp_i18n_do_catopen()
191   char const *message = NULL;  in __kmp_i18n_catgets()  local
199         message = catgets(cat, section, number,  in __kmp_i18n_catgets()
202       if (message == NULL) {  in __kmp_i18n_catgets()
203         message = __kmp_i18n_default_table.sect[section].str[number];  in __kmp_i18n_catgets()
207   if (message == NULL) {  in __kmp_i18n_catgets()
208     message = no_message_available;  in __kmp_i18n_catgets()
210   return message;  in __kmp_i18n_catgets()
267       // Free message.  in kmp_i18n_table_free()
304      to specify full path to the message catalog.  */  in __kmp_i18n_do_catopen()
334     // Now construct the name of message catalog.  in __kmp_i18n_do_catopen()
343   // For security reasons, use LoadLibraryEx() and load message catalog as a  in __kmp_i18n_do_catopen()
354       // default message.  in __kmp_i18n_do_catopen()
355       /* If message catalog for another architecture found (e.g. OpenMP RTL for  in __kmp_i18n_do_catopen()
358          to return a message for this error, so user will see:  in __kmp_i18n_do_catopen()
360          OMP: Warning #2: Cannot open message catalog "1041\libompui.dll":  in __kmp_i18n_do_catopen()
361          OMP: System error #193: (No system error message available)  in __kmp_i18n_do_catopen()
424    Additional mess comes from message catalog: Our catalog source en_US.mc file
425    (generated by message-converter.pl) contains only "\n" characters, but
427    This mess goes from en_US_msg_1033.bin file to message catalog,
428    libompui.dll. For example, message
485   // Calculate length of multibyte message.  in ___catgets()
500   // Convert wide message to multibyte one.  in ___catgets()
517   // Every message in catalog is terminated with "\n". Strip it.  in ___catgets()
544   char const *message = NULL;  in __kmp_i18n_catgets()  local
567         message = table.sect[section].str[number];  in __kmp_i18n_catgets()
569       if (message == NULL) {  in __kmp_i18n_catgets()
570         // Catalog is not opened or message is not found, return default  in __kmp_i18n_catgets()
571         // message.  in __kmp_i18n_catgets()
572         message = __kmp_i18n_default_table.sect[section].str[number];  in __kmp_i18n_catgets()
576   if (message == NULL) {  in __kmp_i18n_catgets()
577     message = no_message_available;  in __kmp_i18n_catgets()
579   return message;  in __kmp_i18n_catgets()
673   char *message = NULL;  in sys_error()  local
685     // Message formatted. Copy it (so we can free it later with normal free().  in sys_error()
686     message = __kmp_str_format("%s", (char *)buffer);  in sys_error()
687     len = ___strip_crs(message); // Delete carriage returns if any.  in sys_error()
689     while (len > 0 && message[len - 1] == '\n') {  in sys_error()
692     message[len] = 0;  in sys_error()
694     // FormatMessage() failed to format system error message. GetLastError()  in sys_error()
695     // would give us error code, which we would convert to message... this it  in sys_error()
721   message = __kmp_str_format("%s", err_msg);  in sys_error()
748     message = buffer;  in sys_error()
757   if (message == NULL) {  in sys_error()
758     // TODO: I18n this message.  in sys_error()
759     message = __kmp_str_format("%s", "(No system error message available)");  in sys_error()
761   return message;  in sys_error()
789 void __kmp_msg(kmp_msg_severity_t severity, kmp_msg_t message, va_list args) {  in __kmp_msg()  argument
791   kmp_msg_t fmsg; // formatted message  in __kmp_msg()
799   // Format the primary message.  in __kmp_msg()
814   fmsg = __kmp_msg_format(format, message.num, message.str);  in __kmp_msg()
815   __kmp_str_free(&message.str);  in __kmp_msg()
821     message = va_arg(args, kmp_msg_t);  in __kmp_msg()
822     if (message.type == kmp_mt_dummy && message.str == NULL) {  in __kmp_msg()
825     switch (message.type) {  in __kmp_msg()
828       // we cannot skip %1$ and only use %2$ to print the message without the  in __kmp_msg()
830       fmsg = __kmp_msg_format(format, message.str);  in __kmp_msg()
834       fmsg = __kmp_msg_format(format, message.num, message.str);  in __kmp_msg()
840     __kmp_str_free(&message.str);  in __kmp_msg()
857 void __kmp_msg(kmp_msg_severity_t severity, kmp_msg_t message, ...) {  in __kmp_msg()  argument
859   va_start(args, message);  in __kmp_msg()
860   __kmp_msg(severity, message, args);  in __kmp_msg()
864 void __kmp_fatal(kmp_msg_t message, ...) {  in __kmp_fatal()  argument
866   va_start(args, message);  in __kmp_fatal()
867   __kmp_msg(kmp_ms_fatal, message, args);  in __kmp_fatal()
870   // Delay to give message a chance to appear before reaping  in __kmp_fatal()