4 * Copyright 2000 Alexandre Julliard
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #include "wine/port.h"
33 #include "wine/debug.h"
34 #include "wine/exception.h"
35 #include "wine/library.h"
36 #include "wine/unicode.h"
43 #include "ntdll_misc.h"
45 WINE_DECLARE_DEBUG_CHANNEL(tid);
47 /* ---------------------------------------------------------------------- */
49 /* filter for page-fault exceptions */
50 static WINE_EXCEPTION_FILTER(page_fault)
52 if (GetExceptionCode() == EXCEPTION_ACCESS_VIOLATION)
53 return EXCEPTION_EXECUTE_HANDLER;
54 return EXCEPTION_CONTINUE_SEARCH;
57 /* get the debug info pointer for the current thread */
58 static inline struct debug_info *get_info(void)
60 return NtCurrentTeb()->debug_info;
63 /* allocate some tmp space for a string */
64 static void *gimme1(int n)
66 struct debug_info *info = get_info();
67 char *res = info->str_pos;
69 if (res + n >= &info->strings[sizeof(info->strings)]) res = info->strings;
70 info->str_pos = res + n;
74 /* release extra space that we requested in gimme1() */
75 static inline void release( void *ptr )
77 struct debug_info *info = NtCurrentTeb()->debug_info;
81 /* put an ASCII string into the debug buffer */
82 inline static char *put_string_a( const char *src, int n )
84 static const char hex[16] = "0123456789abcdef";
87 if (n == -1) n = strlen(src);
89 else if (n > 80) n = 80;
90 dst = res = gimme1 (n * 4 + 6);
94 unsigned char c = *src++;
97 case '\n': *dst++ = '\\'; *dst++ = 'n'; break;
98 case '\r': *dst++ = '\\'; *dst++ = 'r'; break;
99 case '\t': *dst++ = '\\'; *dst++ = 't'; break;
100 case '"': *dst++ = '\\'; *dst++ = '"'; break;
101 case '\\': *dst++ = '\\'; *dst++ = '\\'; break;
103 if (c >= ' ' && c <= 126)
109 *dst++ = hex[(c >> 4) & 0x0f];
110 *dst++ = hex[c & 0x0f];
126 /* put a Unicode string into the debug buffer */
127 inline static char *put_string_w( const WCHAR *src, int n )
131 if (n == -1) n = strlenW(src);
133 else if (n > 80) n = 80;
134 dst = res = gimme1 (n * 5 + 7);
142 case '\n': *dst++ = '\\'; *dst++ = 'n'; break;
143 case '\r': *dst++ = '\\'; *dst++ = 'r'; break;
144 case '\t': *dst++ = '\\'; *dst++ = 't'; break;
145 case '"': *dst++ = '\\'; *dst++ = '"'; break;
146 case '\\': *dst++ = '\\'; *dst++ = '\\'; break;
148 if (c >= ' ' && c <= 126)
153 sprintf(dst,"%04x",c);
170 /***********************************************************************
173 static const char *NTDLL_dbgstr_an( const char *src, int n )
176 struct debug_info *info = get_info();
180 if (!src) return "(null)";
182 sprintf(res, "#%04x", LOWORD(src) );
185 /* save current position to restore it on exception */
186 old_pos = info->str_pos;
189 res = put_string_a( src, n );
200 /***********************************************************************
203 static const char *NTDLL_dbgstr_wn( const WCHAR *src, int n )
206 struct debug_info *info = get_info();
210 if (!src) return "(null)";
212 sprintf(res, "#%04x", LOWORD(src) );
216 /* save current position to restore it on exception */
217 old_pos = info->str_pos;
220 res = put_string_w( src, n );
231 /***********************************************************************
234 static const char *NTDLL_dbg_vsprintf( const char *format, va_list args )
236 static const int max_size = 200;
238 char *res = gimme1( max_size );
239 int len = vsnprintf( res, max_size, format, args );
240 if (len == -1 || len >= max_size) res[max_size-1] = 0;
241 else release( res + len + 1 );
245 /***********************************************************************
248 static int NTDLL_dbg_vprintf( const char *format, va_list args )
250 struct debug_info *info = get_info();
253 int ret = vsnprintf( info->out_pos, sizeof(info->output) - (info->out_pos - info->output),
256 /* make sure we didn't exceed the buffer length
257 * the two checks are due to glibc changes in vsnprintfs return value
258 * the buffer size can be exceeded in case of a missing \n in
260 if ((ret == -1) || (ret >= sizeof(info->output) - (info->out_pos - info->output)))
262 fprintf( stderr, "wine_dbg_vprintf: debugstr buffer overflow (contents: '%s')\n",
264 info->out_pos = info->output;
268 p = strrchr( info->out_pos, '\n' );
269 if (!p) info->out_pos += ret;
272 char *pos = info->output;
274 write( 2, pos, p - pos );
275 /* move beginning of next line to start of buffer */
276 while ((*pos = *p++)) pos++;
282 /***********************************************************************
285 static int NTDLL_dbg_vlog( unsigned int cls, const char *channel,
286 const char *function, const char *format, va_list args )
288 static const char * const classes[] = { "fixme", "err", "warn", "trace" };
289 struct debug_info *info = get_info();
292 /* only print header if we are at the beginning of the line */
293 if (info->out_pos == info->output || info->out_pos[-1] == '\n')
296 ret = wine_dbg_printf( "%04lx:", GetCurrentThreadId() );
297 if (cls < sizeof(classes)/sizeof(classes[0]))
298 ret += wine_dbg_printf( "%s:%s:%s ", classes[cls], channel + 1, function );
301 ret += NTDLL_dbg_vprintf( format, args );
305 /***********************************************************************
308 DECL_GLOBAL_CONSTRUCTOR(debug_init)
310 __wine_dbgstr_an = NTDLL_dbgstr_an;
311 __wine_dbgstr_wn = NTDLL_dbgstr_wn;
312 __wine_dbg_vsprintf = NTDLL_dbg_vsprintf;
313 __wine_dbg_vprintf = NTDLL_dbg_vprintf;
314 __wine_dbg_vlog = NTDLL_dbg_vlog;