20 #include <sys/types.h> 31 #pragma warning(disable : 271 310) 38 kmp_bootstrap_lock_t __kmp_stdio_lock = KMP_BOOTSTRAP_LOCK_INITIALIZER(
40 kmp_bootstrap_lock_t __kmp_console_lock = KMP_BOOTSTRAP_LOCK_INITIALIZER(
47 static HANDLE __kmp_stdout = NULL;
49 static HANDLE __kmp_stderr = NULL;
50 static int __kmp_console_exists = FALSE;
51 static kmp_str_buf_t __kmp_console_buf;
53 static int is_console(
void) {
61 rc = GetConsoleTitle(buffer,
sizeof(buffer));
68 return rc > 0 || err == 0;
71 void __kmp_close_console(
void) {
74 if (__kmp_console_exists) {
80 __kmp_str_buf_free(&__kmp_console_buf);
81 __kmp_console_exists = FALSE;
87 static void __kmp_redirect_output(
void) {
88 __kmp_acquire_bootstrap_lock(&__kmp_console_lock);
90 if (!__kmp_console_exists) {
97 __kmp_str_buf_init(&__kmp_console_buf);
106 ho = GetStdHandle(STD_OUTPUT_HANDLE);
107 if (ho == INVALID_HANDLE_VALUE || ho == NULL) {
109 DWORD err = GetLastError();
118 he = GetStdHandle(STD_ERROR_HANDLE);
119 if (he == INVALID_HANDLE_VALUE || he == NULL) {
121 DWORD err = GetLastError();
129 __kmp_console_exists = TRUE;
131 __kmp_release_bootstrap_lock(&__kmp_console_lock);
135 #define __kmp_stderr (stderr) 138 void __kmp_vprintf(
enum kmp_io __kmp_io,
char const *format, va_list ap) {
140 if (!__kmp_console_exists) {
141 __kmp_redirect_output();
143 if (!__kmp_stderr && __kmp_io == kmp_err) {
147 if (!__kmp_stdout && __kmp_io == kmp_out) {
153 if (__kmp_debug_buf && __kmp_debug_buffer != NULL) {
155 int dc = __kmp_debug_count++ % __kmp_debug_buf_lines;
156 char *db = &__kmp_debug_buffer[dc * __kmp_debug_buf_chars];
159 #ifdef KMP_DEBUG_PIDS 160 chars = KMP_SNPRINTF(db, __kmp_debug_buf_chars,
"pid=%d: ",
161 (kmp_int32)getpid());
163 chars += KMP_VSNPRINTF(db, __kmp_debug_buf_chars, format, ap);
165 if (chars + 1 > __kmp_debug_buf_chars) {
166 if (chars + 1 > __kmp_debug_buf_warn_chars) {
169 __kmp_str_buf_print(&__kmp_console_buf,
"OMP warning: Debugging buffer " 170 "overflow; increase " 171 "KMP_DEBUG_BUF_CHARS to %d\n",
173 WriteFile(__kmp_stderr, __kmp_console_buf.str, __kmp_console_buf.used,
175 __kmp_str_buf_clear(&__kmp_console_buf);
177 fprintf(__kmp_stderr,
"OMP warning: Debugging buffer overflow; " 178 "increase KMP_DEBUG_BUF_CHARS to %d\n",
180 fflush(__kmp_stderr);
182 __kmp_debug_buf_warn_chars = chars + 1;
185 db[__kmp_debug_buf_chars - 2] =
'\n';
186 db[__kmp_debug_buf_chars - 1] =
'\0';
191 #ifdef KMP_DEBUG_PIDS 192 __kmp_str_buf_print(&__kmp_console_buf,
"pid=%d: ", (kmp_int32)getpid());
194 __kmp_str_buf_vprint(&__kmp_console_buf, format, ap);
195 WriteFile(__kmp_stderr, __kmp_console_buf.str, __kmp_console_buf.used,
197 __kmp_str_buf_clear(&__kmp_console_buf);
199 #ifdef KMP_DEBUG_PIDS 200 fprintf(__kmp_stderr,
"pid=%d: ", (kmp_int32)getpid());
202 vfprintf(__kmp_stderr, format, ap);
203 fflush(__kmp_stderr);
208 void __kmp_printf(
char const *format, ...) {
210 va_start(ap, format);
212 __kmp_acquire_bootstrap_lock(&__kmp_stdio_lock);
213 __kmp_vprintf(kmp_err, format, ap);
214 __kmp_release_bootstrap_lock(&__kmp_stdio_lock);
219 void __kmp_printf_no_lock(
char const *format, ...) {
221 va_start(ap, format);
223 __kmp_vprintf(kmp_err, format, ap);