31#pragma warning(disable : 271 310)
41kmp_bootstrap_lock_t __kmp_stdio_lock = KMP_BOOTSTRAP_LOCK_INITIALIZER(
43kmp_bootstrap_lock_t __kmp_console_lock = KMP_BOOTSTRAP_LOCK_INITIALIZER(
48static HANDLE __kmp_stdout = NULL;
49static HANDLE __kmp_stderr = NULL;
50static int __kmp_console_exists = FALSE;
51static kmp_str_buf_t __kmp_console_buf;
53void __kmp_close_console(
void) {
56 if (__kmp_console_exists) {
59 __kmp_str_buf_free(&__kmp_console_buf);
60 __kmp_console_exists = FALSE;
66static void __kmp_redirect_output(
void) {
67 __kmp_acquire_bootstrap_lock(&__kmp_console_lock);
69 if (!__kmp_console_exists) {
73 __kmp_str_buf_init(&__kmp_console_buf);
81 ho = GetStdHandle(STD_OUTPUT_HANDLE);
82 if (ho == INVALID_HANDLE_VALUE || ho == NULL) {
84 DWORD err = GetLastError();
93 he = GetStdHandle(STD_ERROR_HANDLE);
94 if (he == INVALID_HANDLE_VALUE || he == NULL) {
96 DWORD err = GetLastError();
105 __kmp_console_exists = TRUE;
107 __kmp_release_bootstrap_lock(&__kmp_console_lock);
111#define __kmp_stderr (stderr)
112#define __kmp_stdout (stdout)
115void __kmp_vprintf(
enum kmp_io out_stream,
char const *format, va_list ap) {
117 if (!__kmp_console_exists) {
118 __kmp_redirect_output();
120 if (!__kmp_stderr && out_stream == kmp_err) {
123 if (!__kmp_stdout && out_stream == kmp_out) {
127 auto stream = ((out_stream == kmp_out) ? __kmp_stdout : __kmp_stderr);
129 if (__kmp_debug_buf && __kmp_debug_buffer != NULL) {
131 int dc = __kmp_debug_count++ % __kmp_debug_buf_lines;
132 char *db = &__kmp_debug_buffer[dc * __kmp_debug_buf_chars];
136 chars = KMP_SNPRINTF(db, __kmp_debug_buf_chars,
137 "pid=%d: ", (kmp_int32)getpid());
139 chars += KMP_VSNPRINTF(db, __kmp_debug_buf_chars, format, ap);
141 if (chars + 1 > __kmp_debug_buf_chars) {
142 if (chars + 1 > __kmp_debug_buf_warn_chars) {
145 __kmp_str_buf_print(&__kmp_console_buf,
146 "OMP warning: Debugging buffer "
147 "overflow; increase "
148 "KMP_DEBUG_BUF_CHARS to %d\n",
150 WriteFile(stream, __kmp_console_buf.str, __kmp_console_buf.used, &count,
152 __kmp_str_buf_clear(&__kmp_console_buf);
155 "OMP warning: Debugging buffer overflow; "
156 "increase KMP_DEBUG_BUF_CHARS to %d\n",
160 __kmp_debug_buf_warn_chars = chars + 1;
163 db[__kmp_debug_buf_chars - 2] =
'\n';
164 db[__kmp_debug_buf_chars - 1] =
'\0';
170 __kmp_str_buf_print(&__kmp_console_buf,
"pid=%d: ", (kmp_int32)getpid());
172 __kmp_str_buf_vprint(&__kmp_console_buf, format, ap);
173 WriteFile(stream, __kmp_console_buf.str, __kmp_console_buf.used, &count,
175 __kmp_str_buf_clear(&__kmp_console_buf);
178 fprintf(stream,
"pid=%d: ", (kmp_int32)getpid());
180 vfprintf(stream, format, ap);
186void __kmp_printf(
char const *format, ...) {
188 va_start(ap, format);
190 __kmp_acquire_bootstrap_lock(&__kmp_stdio_lock);
191 __kmp_vprintf(kmp_err, format, ap);
192 __kmp_release_bootstrap_lock(&__kmp_stdio_lock);
197void __kmp_printf_no_lock(
char const *format, ...) {
199 va_start(ap, format);
201 __kmp_vprintf(kmp_err, format, ap);
206void __kmp_fprintf(
enum kmp_io stream,
char const *format, ...) {
208 va_start(ap, format);
210 __kmp_acquire_bootstrap_lock(&__kmp_stdio_lock);
211 __kmp_vprintf(stream, format, ap);
212 __kmp_release_bootstrap_lock(&__kmp_stdio_lock);