| /* |
| * Debugging functions |
| */ |
| |
| #include <assert.h> |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| #include <unistd.h> |
| #include <ctype.h> |
| |
| #include "debugtools.h" |
| #include "wine/exception.h" |
| #include "thread.h" |
| #include "winbase.h" |
| #include "winnt.h" |
| #include "ntddk.h" |
| #include "wtypes.h" |
| #include "msvcrt/excpt.h" |
| |
| DECLARE_DEBUG_CHANNEL(tid); |
| |
| /* ---------------------------------------------------------------------- */ |
| |
| struct debug_info |
| { |
| char *str_pos; /* current position in strings buffer */ |
| char *out_pos; /* current position in output buffer */ |
| char strings[1024]; /* buffer for temporary strings */ |
| char output[1024]; /* current output line */ |
| }; |
| |
| static struct debug_info initial_thread_info; /* debug info for initial thread */ |
| |
| /* filter for page-fault exceptions */ |
| static WINE_EXCEPTION_FILTER(page_fault) |
| { |
| if (GetExceptionCode() == EXCEPTION_ACCESS_VIOLATION) |
| return EXCEPTION_EXECUTE_HANDLER; |
| return EXCEPTION_CONTINUE_SEARCH; |
| } |
| |
| /* get the debug info pointer for the current thread */ |
| static inline struct debug_info *get_info(void) |
| { |
| struct debug_info *info = NtCurrentTeb()->debug_info; |
| |
| if (!info) NtCurrentTeb()->debug_info = info = &initial_thread_info; |
| if (!info->str_pos) |
| { |
| info->str_pos = info->strings; |
| info->out_pos = info->output; |
| } |
| return info; |
| } |
| |
| /* allocate some tmp space for a string */ |
| static void *gimme1(int n) |
| { |
| struct debug_info *info = get_info(); |
| char *res = info->str_pos; |
| |
| if (res + n >= &info->strings[sizeof(info->strings)]) res = info->strings; |
| info->str_pos = res + n; |
| return res; |
| } |
| |
| /* release extra space that we requested in gimme1() */ |
| static inline void release( void *ptr ) |
| { |
| struct debug_info *info = NtCurrentTeb()->debug_info; |
| info->str_pos = ptr; |
| } |
| |
| /* put an ASCII string into the debug buffer */ |
| inline static char *put_string_a( const char *src, int n ) |
| { |
| char *dst, *res; |
| |
| if (n < 0) n = 0; |
| else if (n > 200) n = 200; |
| dst = res = gimme1 (n * 4 + 6); |
| *dst++ = '"'; |
| while (n-- > 0 && *src) |
| { |
| unsigned char c = *src++; |
| switch (c) |
| { |
| case '\n': *dst++ = '\\'; *dst++ = 'n'; break; |
| case '\r': *dst++ = '\\'; *dst++ = 'r'; break; |
| case '\t': *dst++ = '\\'; *dst++ = 't'; break; |
| case '"': *dst++ = '\\'; *dst++ = '"'; break; |
| case '\\': *dst++ = '\\'; *dst++ = '\\'; break; |
| default: |
| if (c >= ' ' && c <= 126) |
| *dst++ = c; |
| else |
| { |
| *dst++ = '\\'; |
| *dst++ = '0' + ((c >> 6) & 7); |
| *dst++ = '0' + ((c >> 3) & 7); |
| *dst++ = '0' + ((c >> 0) & 7); |
| } |
| } |
| } |
| *dst++ = '"'; |
| if (*src) |
| { |
| *dst++ = '.'; |
| *dst++ = '.'; |
| *dst++ = '.'; |
| } |
| *dst++ = '\0'; |
| release( dst ); |
| return res; |
| } |
| |
| /* put a Unicode string into the debug buffer */ |
| inline static char *put_string_w( const WCHAR *src, int n ) |
| { |
| char *dst, *res; |
| |
| if (n < 0) n = 0; |
| else if (n > 200) n = 200; |
| dst = res = gimme1 (n * 5 + 7); |
| *dst++ = 'L'; |
| *dst++ = '"'; |
| while (n-- > 0 && *src) |
| { |
| WCHAR c = *src++; |
| switch (c) |
| { |
| case '\n': *dst++ = '\\'; *dst++ = 'n'; break; |
| case '\r': *dst++ = '\\'; *dst++ = 'r'; break; |
| case '\t': *dst++ = '\\'; *dst++ = 't'; break; |
| case '"': *dst++ = '\\'; *dst++ = '"'; break; |
| case '\\': *dst++ = '\\'; *dst++ = '\\'; break; |
| default: |
| if (c >= ' ' && c <= 126) |
| *dst++ = c; |
| else |
| { |
| *dst++ = '\\'; |
| sprintf(dst,"%04x",c); |
| dst+=4; |
| } |
| } |
| } |
| *dst++ = '"'; |
| if (*src) |
| { |
| *dst++ = '.'; |
| *dst++ = '.'; |
| *dst++ = '.'; |
| } |
| *dst++ = '\0'; |
| release( dst ); |
| return res; |
| } |
| |
| /*********************************************************************** |
| * wine_dbgstr_an (NTDLL.@) |
| */ |
| const char *wine_dbgstr_an( const char *src, int n ) |
| { |
| char *res, *old_pos; |
| struct debug_info *info = get_info(); |
| |
| if (!HIWORD(src)) |
| { |
| if (!src) return "(null)"; |
| res = gimme1(6); |
| sprintf(res, "#%04x", LOWORD(src) ); |
| return res; |
| } |
| /* save current position to restore it on exception */ |
| old_pos = info->str_pos; |
| __TRY |
| { |
| res = put_string_a( src, n ); |
| } |
| __EXCEPT(page_fault) |
| { |
| release( old_pos ); |
| return "(invalid)"; |
| } |
| __ENDTRY |
| return res; |
| } |
| |
| /*********************************************************************** |
| * wine_dbgstr_wn (NTDLL.@) |
| */ |
| const char *wine_dbgstr_wn( const WCHAR *src, int n ) |
| { |
| char *res, *old_pos; |
| struct debug_info *info = get_info(); |
| |
| if (!HIWORD(src)) |
| { |
| if (!src) return "(null)"; |
| res = gimme1(6); |
| sprintf(res, "#%04x", LOWORD(src) ); |
| return res; |
| } |
| |
| /* save current position to restore it on exception */ |
| old_pos = info->str_pos; |
| __TRY |
| { |
| res = put_string_w( src, n ); |
| } |
| __EXCEPT(page_fault) |
| { |
| release( old_pos ); |
| return "(invalid)"; |
| } |
| __ENDTRY |
| return res; |
| } |
| |
| /*********************************************************************** |
| * wine_dbgstr_guid (NTDLL.@) |
| */ |
| const char *wine_dbgstr_guid( const GUID *id ) |
| { |
| char *str; |
| |
| if (!id) return "(null)"; |
| if (!HIWORD(id)) |
| { |
| str = gimme1(12); |
| sprintf( str, "<guid-0x%04x>", LOWORD(id) ); |
| } |
| else |
| { |
| str = gimme1(40); |
| sprintf( str, "{%08lx-%04x-%04x-%02x%02x-%02x%02x%02x%02x%02x%02x}", |
| id->Data1, id->Data2, id->Data3, |
| id->Data4[0], id->Data4[1], id->Data4[2], id->Data4[3], |
| id->Data4[4], id->Data4[5], id->Data4[6], id->Data4[7] ); |
| } |
| return str; |
| } |
| |
| /*********************************************************************** |
| * wine_dbg_vprintf (NTDLL.@) |
| */ |
| int wine_dbg_vprintf( const char *format, va_list args ) |
| { |
| struct debug_info *info = get_info(); |
| char *p; |
| |
| int ret = vsnprintf( info->out_pos, sizeof(info->output) - (info->out_pos - info->output), |
| format, args ); |
| |
| /* make sure we didn't exceed the buffer length |
| * the two checks are due to glibc changes in vsnprintfs return value |
| * the buffer size can be exceeded in case of a missing \n in |
| * debug output */ |
| if ((ret == -1) || (ret >= sizeof(info->output) - (info->out_pos - info->output))) |
| { |
| fprintf( stderr, "wine_dbg_vprintf: debugstr buffer overflow (contents: '%s')\n", |
| info->output); |
| info->out_pos = info->output; |
| abort(); |
| } |
| |
| p = strrchr( info->out_pos, '\n' ); |
| if (!p) info->out_pos += ret; |
| else |
| { |
| char *pos = info->output; |
| p++; |
| write( 2, pos, p - pos ); |
| /* move beginning of next line to start of buffer */ |
| while ((*pos = *p++)) pos++; |
| info->out_pos = pos; |
| } |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * wine_dbg_printf (NTDLL.@) |
| */ |
| int wine_dbg_printf(const char *format, ...) |
| { |
| int ret; |
| va_list valist; |
| |
| va_start(valist, format); |
| ret = wine_dbg_vprintf( format, valist ); |
| va_end(valist); |
| return ret; |
| } |
| |
| /*********************************************************************** |
| * wine_dbg_log (NTDLL.@) |
| */ |
| int wine_dbg_log(enum __WINE_DEBUG_CLASS cls, const char *channel, |
| const char *function, const char *format, ... ) |
| { |
| static const char *classes[__WINE_DBCL_COUNT] = { "fixme", "err", "warn", "trace" }; |
| va_list valist; |
| int ret = 0; |
| |
| va_start(valist, format); |
| if (TRACE_ON(tid)) |
| ret = wine_dbg_printf( "%08lx:", (DWORD)NtCurrentTeb()->tid ); |
| if (cls < __WINE_DBCL_COUNT) |
| ret += wine_dbg_printf( "%s:%s:%s ", classes[cls], channel + 1, function ); |
| if (format) |
| ret += wine_dbg_vprintf( format, valist ); |
| va_end(valist); |
| return ret; |
| } |
