19 #include <sys/types.h>
31 #pragma warning(disable : 271 310)
41 kmp_bootstrap_lock_t __kmp_stdio_lock = KMP_BOOTSTRAP_LOCK_INITIALIZER(
43 kmp_bootstrap_lock_t __kmp_console_lock = KMP_BOOTSTRAP_LOCK_INITIALIZER(
48 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) {
77 __kmp_str_buf_free(&__kmp_console_buf);
78 __kmp_console_exists = FALSE;
84 static void __kmp_redirect_output(
void) {
85 __kmp_acquire_bootstrap_lock(&__kmp_console_lock);
88 if (!__kmp_console_exists) {
92 __kmp_str_buf_init(&__kmp_console_buf);
100 ho = GetStdHandle(STD_OUTPUT_HANDLE);
101 if (ho == INVALID_HANDLE_VALUE || ho == NULL) {
103 DWORD err = GetLastError();
112 he = GetStdHandle(STD_ERROR_HANDLE);
113 if (he == INVALID_HANDLE_VALUE || he == NULL) {
115 DWORD err = GetLastError();
124 __kmp_console_exists = TRUE;
126 __kmp_release_bootstrap_lock(&__kmp_console_lock);
130 #define __kmp_stderr (stderr)
131 #define __kmp_stdout (stdout)
134 void __kmp_vprintf(
enum kmp_io out_stream,
char const *format, va_list ap) {
136 if (!__kmp_console_exists) {
137 __kmp_redirect_output();
139 if (!__kmp_stderr && out_stream == kmp_err) {
142 if (!__kmp_stdout && out_stream == kmp_out) {
146 auto stream = ((out_stream == kmp_out) ? __kmp_stdout : __kmp_stderr);
148 if (__kmp_debug_buf && __kmp_debug_buffer != NULL) {
150 int dc = __kmp_debug_count++ % __kmp_debug_buf_lines;
151 char *db = &__kmp_debug_buffer[dc * __kmp_debug_buf_chars];
154 #ifdef KMP_DEBUG_PIDS
155 chars = KMP_SNPRINTF(db, __kmp_debug_buf_chars,
156 "pid=%d: ", (kmp_int32)getpid());
158 chars += KMP_VSNPRINTF(db, __kmp_debug_buf_chars, format, ap);
160 if (chars + 1 > __kmp_debug_buf_chars) {
161 if (chars + 1 > __kmp_debug_buf_warn_chars) {
164 __kmp_str_buf_print(&__kmp_console_buf,
165 "OMP warning: Debugging buffer "
166 "overflow; increase "
167 "KMP_DEBUG_BUF_CHARS to %d\n",
169 WriteFile(stream, __kmp_console_buf.str, __kmp_console_buf.used, &count,
171 __kmp_str_buf_clear(&__kmp_console_buf);
174 "OMP warning: Debugging buffer overflow; "
175 "increase KMP_DEBUG_BUF_CHARS to %d\n",
179 __kmp_debug_buf_warn_chars = chars + 1;
182 db[__kmp_debug_buf_chars - 2] =
'\n';
183 db[__kmp_debug_buf_chars - 1] =
'\0';
188 #ifdef KMP_DEBUG_PIDS
189 __kmp_str_buf_print(&__kmp_console_buf,
"pid=%d: ", (kmp_int32)getpid());
191 __kmp_str_buf_vprint(&__kmp_console_buf, format, ap);
192 WriteFile(stream, __kmp_console_buf.str, __kmp_console_buf.used, &count,
194 __kmp_str_buf_clear(&__kmp_console_buf);
196 #ifdef KMP_DEBUG_PIDS
197 fprintf(stream,
"pid=%d: ", (kmp_int32)getpid());
199 vfprintf(stream, format, ap);
205 void __kmp_printf(
char const *format, ...) {
207 va_start(ap, format);
209 __kmp_acquire_bootstrap_lock(&__kmp_stdio_lock);
210 __kmp_vprintf(kmp_err, format, ap);
211 __kmp_release_bootstrap_lock(&__kmp_stdio_lock);
216 void __kmp_printf_no_lock(
char const *format, ...) {
218 va_start(ap, format);
220 __kmp_vprintf(kmp_err, format, ap);
225 void __kmp_fprintf(
enum kmp_io stream,
char const *format, ...) {
227 va_start(ap, format);
229 __kmp_acquire_bootstrap_lock(&__kmp_stdio_lock);
230 __kmp_vprintf(stream, format, ap);
231 __kmp_release_bootstrap_lock(&__kmp_stdio_lock);