Branch data Line data Source code
1 : : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
2 : : /*
3 : : * This file is part of the LibreOffice project.
4 : : *
5 : : * This Source Code Form is subject to the terms of the Mozilla Public
6 : : * License, v. 2.0. If a copy of the MPL was not distributed with this
7 : : * file, You can obtain one at http://mozilla.org/MPL/2.0/.
8 : : *
9 : : * This file incorporates work covered by the following license notice:
10 : : *
11 : : * Licensed to the Apache Software Foundation (ASF) under one or more
12 : : * contributor license agreements. See the NOTICE file distributed
13 : : * with this work for additional information regarding copyright
14 : : * ownership. The ASF licenses this file to you under the Apache
15 : : * License, Version 2.0 (the "License"); you may not use this file
16 : : * except in compliance with the License. You may obtain a copy of
17 : : * the License at http://www.apache.org/licenses/LICENSE-2.0 .
18 : : */
19 : :
20 : : #if defined (UNX) || defined (GCC)
21 : : #include <unistd.h>
22 : : #else
23 : : #include <direct.h>
24 : : #endif
25 : :
26 : : #include <errno.h>
27 : : #include <time.h>
28 : : #include <cstdarg> // combinations
29 : : #include <stdlib.h>
30 : : #include <string.h>
31 : : #include <stdio.h>
32 : :
33 : : #if defined ( WNT )
34 : : #include <windows.h>
35 : : #endif
36 : :
37 : : #include <tools/debug.hxx>
38 : : #include <rtl/string.h>
39 : : #include <sal/log.hxx>
40 : : #include <sal/macros.h>
41 : :
42 : : #include <vector>
43 : :
44 : : #include <osl/diagnose.h>
45 : :
46 : : #ifdef DBG_UTIL
47 : :
48 : : // PointerList
49 : :
50 : : #define PBLOCKCOUNT 1024
51 : :
52 : : struct PBlock
53 : : {
54 : : void* aData[PBLOCKCOUNT];
55 : : sal_uInt16 nCount;
56 : : PBlock* pPrev;
57 : : PBlock* pNext;
58 : : };
59 : :
60 : : class PointerList
61 : : {
62 : : private:
63 : : PBlock* pFirst;
64 : : PBlock* pLast;
65 : : sal_uIntPtr nCount;
66 : :
67 : : public:
68 : : PointerList() { pFirst = NULL; pLast = NULL; nCount = 0; }
69 : : ~PointerList();
70 : :
71 : : void Add( const void* p );
72 : : sal_Bool Remove( const void* p );
73 : :
74 : : const void* Get( sal_uIntPtr nPos ) const;
75 : : sal_Bool IsIn( const void* p ) const;
76 : : sal_uIntPtr Count() const { return nCount; }
77 : : };
78 : :
79 : : // data types
80 : :
81 : : #define DBG_MAXNAME 28
82 : :
83 : : struct ProfType
84 : : {
85 : : sal_uIntPtr nCount;
86 : : sal_uIntPtr nTime;
87 : : sal_uIntPtr nMinTime;
88 : : sal_uIntPtr nMaxTime;
89 : : sal_uIntPtr nStart;
90 : : sal_uIntPtr nContinueTime;
91 : : sal_uIntPtr nContinueStart;
92 : : sal_Char aName[DBG_MAXNAME+1];
93 : : };
94 : :
95 : : struct XtorType
96 : : {
97 : : sal_uIntPtr nCtorCalls;
98 : : sal_uIntPtr nDtorCalls;
99 : : sal_uIntPtr nMaxCount;
100 : : sal_uIntPtr nStatics;
101 : : sal_Char aName[DBG_MAXNAME+1];
102 : : sal_Bool bTest;
103 : : PointerList aThisList;
104 : : };
105 : :
106 : : struct DebugData
107 : : {
108 : : DbgData aDbgData;
109 : : sal_uInt16 bInit;
110 : : DbgPrintLine pDbgPrintMsgBox;
111 : : DbgPrintLine pDbgPrintWindow;
112 : : DbgPrintLine pDbgPrintTestTool;
113 : : DbgPrintLine pDbgAbort;
114 : : ::std::vector< DbgPrintLine >
115 : : aDbgPrintUserChannels;
116 : : PointerList* pProfList;
117 : : PointerList* pXtorList;
118 : : DbgTestSolarMutexProc pDbgTestSolarMutex;
119 : : pfunc_osl_printDetailedDebugMessage
120 : : pOldDebugMessageFunc;
121 : : bool bOslIsHooked;
122 : :
123 : : DebugData()
124 : : :bInit( sal_False )
125 : : ,pDbgPrintMsgBox( NULL )
126 : : ,pDbgPrintWindow( NULL )
127 : : ,pDbgPrintTestTool( NULL )
128 : : ,pDbgAbort( NULL )
129 : : ,pProfList( NULL )
130 : : ,pXtorList( NULL )
131 : : ,pDbgTestSolarMutex( NULL )
132 : : ,pOldDebugMessageFunc( NULL )
133 : : ,bOslIsHooked( false )
134 : : {
135 : : aDbgData.nTestFlags = DBG_TEST_RESOURCE;
136 : : aDbgData.bOverwrite = sal_True;
137 : : aDbgData.nTraceOut = DBG_OUT_NULL;
138 : : aDbgData.nWarningOut = DBG_OUT_NULL;
139 : : #ifdef UNX
140 : : aDbgData.nErrorOut = DBG_OUT_SHELL;
141 : : #else
142 : : aDbgData.nErrorOut = DBG_OUT_MSGBOX;
143 : : #endif
144 : : aDbgData.bHookOSLAssert = sal_True;
145 : : aDbgData.aDebugName[0] = 0;
146 : : aDbgData.aInclFilter[0] = 0;
147 : : aDbgData.aExclFilter[0] = 0;
148 : : aDbgData.aInclClassFilter[0] = 0;
149 : : aDbgData.aExclClassFilter[0] = 0;
150 : : aDbgData.aDbgWinState[0] = 0;
151 : : }
152 : : };
153 : :
154 : : #define DBG_TEST_XTOR_EXTRA (DBG_TEST_XTOR_THIS | DBG_TEST_XTOR_FUNC | \
155 : : DBG_TEST_XTOR_EXIT | DBG_TEST_XTOR_REPORT )
156 : :
157 : : // static maintenance variables
158 : :
159 : : static DebugData aDebugData;
160 : : static sal_Char aCurPath[260];
161 : : static int bDbgImplInMain = sal_False;
162 : :
163 : : #if defined( WNT )
164 : : static CRITICAL_SECTION aImplCritDbgSection;
165 : : #endif
166 : :
167 : : static sal_Bool bImplCritDbgSectionInit = sal_False;
168 : :
169 : : void ImplDbgInitLock()
170 : : {
171 : : #if defined( WNT )
172 : : InitializeCriticalSection( &aImplCritDbgSection );
173 : : #endif
174 : : bImplCritDbgSectionInit = sal_True;
175 : : }
176 : :
177 : : void ImplDbgDeInitLock()
178 : : {
179 : : #if defined( WNT )
180 : : DeleteCriticalSection( &aImplCritDbgSection );
181 : : #endif
182 : : bImplCritDbgSectionInit = sal_False;
183 : : }
184 : :
185 : : void ImplDbgLock()
186 : : {
187 : : if ( !bImplCritDbgSectionInit )
188 : : return;
189 : :
190 : : #if defined( WNT )
191 : : EnterCriticalSection( &aImplCritDbgSection );
192 : : #endif
193 : : }
194 : :
195 : : void ImplDbgUnlock()
196 : : {
197 : : if ( !bImplCritDbgSectionInit )
198 : : return;
199 : :
200 : : #if defined( WNT )
201 : : LeaveCriticalSection( &aImplCritDbgSection );
202 : : #endif
203 : : }
204 : :
205 : : #define FILE_LINEEND "\n"
206 : :
207 : : static sal_Bool ImplActivateDebugger( const sal_Char* pMsg )
208 : : {
209 : : #if defined( WNT )
210 : : static sal_Char aImplDbgOutBuf[DBG_BUF_MAXLEN];
211 : : strcpy( aImplDbgOutBuf, pMsg );
212 : : strcat( aImplDbgOutBuf, "\r\n" );
213 : : OutputDebugString( aImplDbgOutBuf );
214 : : DebugBreak();
215 : : return sal_True;
216 : : #else
217 : : (void) pMsg; // avoid warning about unused parameter
218 : : return sal_False;
219 : : #endif
220 : : }
221 : :
222 : : static sal_Bool ImplCoreDump()
223 : : {
224 : : #if defined( WNT )
225 : : DebugBreak();
226 : : #else
227 : : long* pTemp = 0;
228 : : *pTemp = 0xCCCC;
229 : : #endif
230 : : return sal_True;
231 : : }
232 : :
233 : : static sal_uIntPtr ImplGetPerfTime()
234 : : {
235 : : #if defined( WNT )
236 : : return (sal_uIntPtr)GetTickCount();
237 : : #else
238 : : static sal_uIntPtr nImplTicksPerSecond = 0;
239 : : static double dImplTicksPerSecond;
240 : : sal_uIntPtr nTicks = (sal_uIntPtr)clock();
241 : :
242 : : if ( !nImplTicksPerSecond )
243 : : {
244 : : nImplTicksPerSecond = CLOCKS_PER_SEC;
245 : : dImplTicksPerSecond = nImplTicksPerSecond;
246 : : }
247 : :
248 : : double fTicks = nTicks;
249 : : fTicks *= 1000;
250 : : fTicks /= dImplTicksPerSecond;
251 : : return (sal_uIntPtr)fTicks;
252 : : #endif
253 : : }
254 : :
255 : : typedef FILE* FILETYPE;
256 : : #define FileOpen fopen
257 : : #define FileRead fread
258 : : #define FileWrite fwrite
259 : : #define FilePrintF fprintf
260 : : #define FileClose fclose
261 : :
262 : : namespace
263 : : {
264 : : enum ConfigSection
265 : : {
266 : : eOutput,
267 : : eMemory,
268 : : eGUI,
269 : : eObjects,
270 : : eTest,
271 : :
272 : : eUnknown
273 : : };
274 : :
275 : : void lcl_lineFeed( FILETYPE _pFile )
276 : : {
277 : : FilePrintF( _pFile, "%s", FILE_LINEEND );
278 : : }
279 : :
280 : : const sal_Char* lcl_getSectionName( ConfigSection _eSection )
281 : : {
282 : : const sal_Char* pSectionName = NULL;
283 : : switch ( _eSection )
284 : : {
285 : : case eOutput : pSectionName = "output"; break;
286 : : case eMemory : pSectionName = "memory"; break;
287 : : case eGUI : pSectionName = "gui"; break;
288 : : case eObjects : pSectionName = "objects"; break;
289 : : case eTest : pSectionName = "test"; break;
290 : : case eUnknown:
291 : : OSL_ASSERT(false);
292 : : break;
293 : : }
294 : : return pSectionName;
295 : : }
296 : :
297 : : ConfigSection lcl_getSectionFromName( const sal_Char* _pSectionName, size_t _nSectionNameLength )
298 : : {
299 : : if ( strncmp( _pSectionName, "output", _nSectionNameLength < 6 ? _nSectionNameLength : 6 ) == 0 )
300 : : return eOutput;
301 : : if ( strncmp( _pSectionName, "memory", _nSectionNameLength < 6 ? _nSectionNameLength : 6 ) == 0 )
302 : : return eMemory;
303 : : if ( strncmp( _pSectionName, "gui", _nSectionNameLength < 3 ? _nSectionNameLength : 3 ) == 0 )
304 : : return eGUI;
305 : : if ( strncmp( _pSectionName, "objects", _nSectionNameLength < 7 ? _nSectionNameLength : 7 ) == 0 )
306 : : return eObjects;
307 : : if ( strncmp( _pSectionName, "test", _nSectionNameLength < 4 ? _nSectionNameLength : 4 ) == 0 )
308 : : return eTest;
309 : : return eUnknown;
310 : : }
311 : :
312 : : void lcl_startSection( FILETYPE _pFile, ConfigSection _eSection )
313 : : {
314 : : FilePrintF( _pFile, "[%s]%s", lcl_getSectionName( _eSection ), FILE_LINEEND );
315 : : }
316 : :
317 : : void lcl_writeConfigString( FILETYPE _pFile, const sal_Char* _pKeyName, const sal_Char* _pValue )
318 : : {
319 : : FilePrintF( _pFile, "%s=%s%s", _pKeyName, _pValue, FILE_LINEEND );
320 : : }
321 : :
322 : : void lcl_writeConfigBoolean( FILETYPE _pFile, const sal_Char* _pKeyName, bool _bValue )
323 : : {
324 : : lcl_writeConfigString( _pFile, _pKeyName, _bValue ? "1" : "0" );
325 : : }
326 : :
327 : : void lcl_writeConfigFlag( FILETYPE _pFile, const sal_Char* _pKeyName, sal_uIntPtr _nAllFlags, sal_uIntPtr _nCheckFlag )
328 : : {
329 : : lcl_writeConfigBoolean( _pFile, _pKeyName, ( _nAllFlags & _nCheckFlag ) != 0 );
330 : : }
331 : :
332 : : void lcl_writeConfigOutChannel( FILETYPE _pFile, const sal_Char* _pKeyName, sal_uIntPtr _nValue )
333 : : {
334 : : const sal_Char* names[ DBG_OUT_COUNT ] =
335 : : {
336 : : "dev/null", "file", "window", "shell", "messagebox", "testtool", "debugger", "abort"
337 : : };
338 : : lcl_writeConfigString( _pFile, _pKeyName, names[ _nValue ] );
339 : : }
340 : :
341 : : bool lcl_isConfigSection( const sal_Char* _pLine, size_t _nLineLen )
342 : : {
343 : : if ( _nLineLen < 2 )
344 : : // not even enough space for '[' and ']'
345 : : return false;
346 : : if ( ( _pLine[0] == '[' ) && ( _pLine[ _nLineLen - 1 ] == ']' ) )
347 : : return true;
348 : : return false;
349 : : }
350 : :
351 : : bool lcl_isConfigKey( const sal_Char* _pLine, size_t _nLineLen, const sal_Char* _pKeyName )
352 : : {
353 : : size_t nKeyLength = strlen( _pKeyName );
354 : : if ( nKeyLength + 1 >= _nLineLen )
355 : : // not even long enough for the key name plus "=" plus a one-character value
356 : : return false;
357 : : if ( ( strncmp( _pLine, _pKeyName, nKeyLength ) == 0 ) && ( _pLine[ nKeyLength ] == '=' ) )
358 : : return true;
359 : : return false;
360 : : }
361 : :
362 : : sal_Int32 lcl_tryReadConfigString( const sal_Char* _pLine, size_t _nLineLen, const sal_Char* _pKeyName, sal_Char* _pValue, size_t _nValueLen )
363 : : {
364 : : if ( !lcl_isConfigKey( _pLine, _nLineLen, _pKeyName ) )
365 : : return 0;
366 : : size_t nValuePos = strlen( _pKeyName ) + 1;
367 : : size_t nValueLen = _nLineLen - nValuePos;
368 : : const sal_Char* pValue = _pLine + nValuePos;
369 : : strncpy( _pValue, pValue, ( _nValueLen > nValueLen ) ? nValueLen : _nValueLen );
370 : : _pValue[ ( _nValueLen > nValueLen ) ? nValueLen : _nValueLen - 1 ] = 0;
371 : : return strlen( _pValue );
372 : : }
373 : :
374 : : void lcl_tryReadConfigBoolean( const sal_Char* _pLine, size_t _nLineLen, const sal_Char* _pKeyName, sal_uIntPtr* _out_pnValue )
375 : : {
376 : : sal_Char aBuf[2];
377 : : size_t nValueLen = lcl_tryReadConfigString( _pLine, _nLineLen, _pKeyName, aBuf, sizeof( aBuf ) );
378 : : if ( nValueLen )
379 : : *_out_pnValue = strcmp( aBuf, "1" ) == 0 ? sal_True : sal_False;
380 : : }
381 : :
382 : : void lcl_matchOutputChannel( sal_Char const * i_buffer, sal_uIntPtr* o_value )
383 : : {
384 : : if ( i_buffer == NULL )
385 : : return;
386 : : const sal_Char* names[ DBG_OUT_COUNT ] =
387 : : {
388 : : "dev/null", "file", "window", "shell", "messagebox", "testtool", "debugger", "abort"
389 : : };
390 : : for ( size_t name = 0; name < SAL_N_ELEMENTS( names ); ++name )
391 : : {
392 : : if ( strcmp( i_buffer, names[ name ] ) == 0 )
393 : : {
394 : : *o_value = name;
395 : : return;
396 : : }
397 : : }
398 : : }
399 : :
400 : : void lcl_tryReadOutputChannel( const sal_Char* _pLine, size_t _nLineLen, const sal_Char* _pKeyName, sal_uIntPtr* _out_pnValue )
401 : : {
402 : : sal_Char aBuf[20];
403 : : size_t nValueLen = lcl_tryReadConfigString( _pLine, _nLineLen, _pKeyName, aBuf, sizeof( aBuf ) );
404 : : if ( nValueLen )
405 : : lcl_matchOutputChannel( aBuf, _out_pnValue );
406 : : }
407 : :
408 : : void lcl_tryReadConfigFlag( const sal_Char* _pLine, size_t _nLineLen, const sal_Char* _pKeyName, sal_uIntPtr* _out_pnAllFlags, sal_uIntPtr _nCheckFlag )
409 : : {
410 : : sal_Char aBuf[2];
411 : : size_t nValueLen = lcl_tryReadConfigString( _pLine, _nLineLen, _pKeyName, aBuf, sizeof( aBuf ) );
412 : : if ( nValueLen )
413 : : {
414 : : if ( strcmp( aBuf, "1" ) == 0 )
415 : : *_out_pnAllFlags |= _nCheckFlag;
416 : : else
417 : : *_out_pnAllFlags &= ~_nCheckFlag;
418 : : }
419 : : }
420 : : }
421 : :
422 : : PointerList::~PointerList()
423 : : {
424 : : PBlock* pBlock = pFirst;
425 : : while ( pBlock )
426 : : {
427 : : PBlock* pNextBlock = pBlock->pNext;
428 : : delete pBlock;
429 : : pBlock = pNextBlock;
430 : : }
431 : : }
432 : :
433 : : void PointerList::Add( const void* p )
434 : : {
435 : : if ( !pFirst )
436 : : {
437 : : pFirst = new PBlock;
438 : : memset( pFirst->aData, 0, PBLOCKCOUNT * sizeof( void* ) );
439 : : pFirst->nCount = 0;
440 : : pFirst->pPrev = NULL;
441 : : pFirst->pNext = NULL;
442 : : pLast = pFirst;
443 : : }
444 : :
445 : : PBlock* pBlock = pFirst;
446 : : while ( pBlock && (pBlock->nCount == PBLOCKCOUNT) )
447 : : pBlock = pBlock->pNext;
448 : :
449 : : if ( !pBlock )
450 : : {
451 : : pBlock = new PBlock;
452 : : memset( pBlock->aData, 0, PBLOCKCOUNT * sizeof( void* ) );
453 : : pBlock->nCount = 0;
454 : : pBlock->pPrev = pLast;
455 : : pBlock->pNext = NULL;
456 : : pLast->pNext = pBlock;
457 : : pLast = pBlock;
458 : : }
459 : :
460 : : sal_uInt16 i = 0;
461 : : while ( pBlock->aData[i] )
462 : : i++;
463 : :
464 : : pBlock->aData[i] = (void*)p;
465 : : pBlock->nCount++;
466 : : nCount++;
467 : : }
468 : :
469 : : sal_Bool PointerList::Remove( const void* p )
470 : : {
471 : : if ( !p )
472 : : return sal_False;
473 : :
474 : : PBlock* pBlock = pFirst;
475 : : while ( pBlock )
476 : : {
477 : : sal_uInt16 i = 0;
478 : : while ( i < PBLOCKCOUNT )
479 : : {
480 : : if ( ((sal_uIntPtr)p) == ((sal_uIntPtr)pBlock->aData[i]) )
481 : : {
482 : : pBlock->aData[i] = NULL;
483 : : pBlock->nCount--;
484 : : nCount--;
485 : :
486 : : if ( !pBlock->nCount )
487 : : {
488 : : if ( pBlock->pPrev )
489 : : pBlock->pPrev->pNext = pBlock->pNext;
490 : : if ( pBlock->pNext )
491 : : pBlock->pNext->pPrev = pBlock->pPrev;
492 : : if ( pBlock == pFirst )
493 : : pFirst = pBlock->pNext;
494 : : if ( pBlock == pLast )
495 : : pLast = pBlock->pPrev;
496 : : delete pBlock;
497 : : }
498 : :
499 : : return sal_True;
500 : : }
501 : : i++;
502 : : }
503 : :
504 : : pBlock = pBlock->pNext;
505 : : }
506 : :
507 : : return sal_False;
508 : : }
509 : :
510 : : const void* PointerList::Get( sal_uIntPtr nPos ) const
511 : : {
512 : : if ( nCount <= nPos )
513 : : return NULL;
514 : :
515 : : PBlock* pBlock = pFirst;
516 : : sal_uIntPtr nStart = 0;
517 : : while ( pBlock )
518 : : {
519 : : sal_uInt16 i = 0;
520 : : while ( i < PBLOCKCOUNT )
521 : : {
522 : : if ( pBlock->aData[i] )
523 : : {
524 : : nStart++;
525 : : if ( (nStart-1) == nPos )
526 : : return pBlock->aData[i];
527 : : }
528 : :
529 : : i++;
530 : : }
531 : :
532 : : pBlock = pBlock->pNext;
533 : : }
534 : :
535 : : return NULL;
536 : : }
537 : :
538 : : sal_Bool PointerList::IsIn( const void* p ) const
539 : : {
540 : : if ( !p )
541 : : return sal_False;
542 : :
543 : : PBlock* pBlock = pFirst;
544 : : while ( pBlock )
545 : : {
546 : : sal_uInt16 i = 0;
547 : : while ( i < PBLOCKCOUNT )
548 : : {
549 : : if ( ((sal_uIntPtr)p) == ((sal_uIntPtr)pBlock->aData[i]) )
550 : : return sal_True;
551 : : i++;
552 : : }
553 : :
554 : : pBlock = pBlock->pNext;
555 : : }
556 : :
557 : : return sal_False;
558 : : }
559 : :
560 : : static void DbgGetDbgFileName( sal_Char* pStr, sal_Int32 nMaxLen )
561 : : {
562 : : #if defined( UNX )
563 : : const sal_Char* pName = getenv("DBGSV_INIT");
564 : : if ( !pName )
565 : : pName = ".dbgsv.init";
566 : : strncpy( pStr, pName, nMaxLen );
567 : : #elif defined( WNT )
568 : : const sal_Char* pName = getenv("DBGSV_INIT");
569 : : if ( pName )
570 : : strncpy( pStr, pName, nMaxLen );
571 : : else
572 : : GetProfileStringA( "sv", "dbgsv", "dbgsv.ini", pStr, nMaxLen );
573 : : #else
574 : : strncpy( pStr, "dbgsv.ini", nMaxLen );
575 : : #endif
576 : : pStr[ nMaxLen - 1 ] = 0;
577 : : }
578 : :
579 : : static void DbgGetLogFileName( sal_Char* pStr )
580 : : {
581 : : #if defined( UNX )
582 : : const sal_Char* pName = getenv("DBGSV_LOG");
583 : : if ( !pName )
584 : : pName = "dbgsv.log";
585 : : strcpy( pStr, pName );
586 : : #elif defined( WNT )
587 : : const sal_Char* pName = getenv("DBGSV_LOG");
588 : : if ( pName )
589 : : strcpy( pStr, pName );
590 : : else
591 : : GetProfileStringA( "sv", "dbgsvlog", "dbgsv.log", pStr, 200 );
592 : : #else
593 : : strcpy( pStr, "dbgsv.log" );
594 : : #endif
595 : : }
596 : :
597 : : static DebugData* GetDebugData()
598 : : {
599 : : if ( !aDebugData.bInit )
600 : : {
601 : : aDebugData.bInit = sal_True;
602 : :
603 : : // set default debug names
604 : : DbgGetLogFileName( aDebugData.aDbgData.aDebugName );
605 : :
606 : : // DEBUG.INI-File
607 : : sal_Char aBuf[ 4096 ];
608 : : DbgGetDbgFileName( aBuf, sizeof( aBuf ) );
609 : : FILETYPE pIniFile = FileOpen( aBuf, "r" );
610 : : if ( pIniFile != NULL )
611 : : {
612 : : ConfigSection eCurrentSection = eUnknown;
613 : :
614 : : // no sophisticated algorithm here, assume that the whole file fits into aBuf ...
615 : : sal_uIntPtr nReallyRead = FileRead( aBuf, 1, sizeof( aBuf ) / sizeof( sal_Char ) - 1, pIniFile );
616 : : aBuf[ nReallyRead ] = 0;
617 : : const sal_Char* pLine = aBuf;
618 : : while ( const sal_Char* pNextLine = strstr( pLine, FILE_LINEEND ) )
619 : : {
620 : : size_t nLineLength = pNextLine - pLine;
621 : :
622 : : if ( lcl_isConfigSection( pLine, nLineLength ) )
623 : : eCurrentSection = lcl_getSectionFromName( pLine + 1, nLineLength - 2 );
624 : :
625 : : // elements of the [output] section
626 : : if ( eCurrentSection == eOutput )
627 : : {
628 : : lcl_tryReadConfigString( pLine, nLineLength, "log_file", aDebugData.aDbgData.aDebugName, sizeof( aDebugData.aDbgData.aDebugName ) );
629 : : lcl_tryReadConfigBoolean( pLine, nLineLength, "overwrite", &aDebugData.aDbgData.bOverwrite );
630 : : lcl_tryReadConfigString( pLine, nLineLength, "include", aDebugData.aDbgData.aInclFilter, sizeof( aDebugData.aDbgData.aInclFilter ) );
631 : : lcl_tryReadConfigString( pLine, nLineLength, "exclude", aDebugData.aDbgData.aExclFilter, sizeof( aDebugData.aDbgData.aExclFilter ) );
632 : : lcl_tryReadConfigString( pLine, nLineLength, "include_class", aDebugData.aDbgData.aInclClassFilter, sizeof( aDebugData.aDbgData.aInclClassFilter ) );
633 : : lcl_tryReadConfigString( pLine, nLineLength, "exclude_class", aDebugData.aDbgData.aExclClassFilter, sizeof( aDebugData.aDbgData.aExclClassFilter ) );
634 : : lcl_tryReadOutputChannel( pLine, nLineLength, "trace", &aDebugData.aDbgData.nTraceOut );
635 : : lcl_tryReadOutputChannel( pLine, nLineLength, "warning", &aDebugData.aDbgData.nWarningOut );
636 : : lcl_tryReadOutputChannel( pLine, nLineLength, "error", &aDebugData.aDbgData.nErrorOut );
637 : : lcl_tryReadConfigBoolean( pLine, nLineLength, "oslhook", &aDebugData.aDbgData.bHookOSLAssert );
638 : : }
639 : :
640 : : // elements of the [gui] section
641 : : if ( eCurrentSection == eGUI )
642 : : {
643 : : lcl_tryReadConfigString( pLine, nLineLength, "debug_window_state", aDebugData.aDbgData.aDbgWinState, sizeof( aDebugData.aDbgData.aDbgWinState ) );
644 : : }
645 : :
646 : : // elements of the [objects] section
647 : : if ( eCurrentSection == eObjects )
648 : : {
649 : : lcl_tryReadConfigFlag( pLine, nLineLength, "check_this", &aDebugData.aDbgData.nTestFlags, DBG_TEST_XTOR_THIS );
650 : : lcl_tryReadConfigFlag( pLine, nLineLength, "check_function", &aDebugData.aDbgData.nTestFlags, DBG_TEST_XTOR_FUNC );
651 : : lcl_tryReadConfigFlag( pLine, nLineLength, "check_exit", &aDebugData.aDbgData.nTestFlags, DBG_TEST_XTOR_EXIT );
652 : : lcl_tryReadConfigFlag( pLine, nLineLength, "generate_report", &aDebugData.aDbgData.nTestFlags, DBG_TEST_XTOR_REPORT );
653 : : lcl_tryReadConfigFlag( pLine, nLineLength, "trace", &aDebugData.aDbgData.nTestFlags, DBG_TEST_XTOR_TRACE );
654 : : }
655 : :
656 : : // elements of the [test] section
657 : : if ( eCurrentSection == eTest )
658 : : {
659 : : lcl_tryReadConfigFlag( pLine, nLineLength, "profiling", &aDebugData.aDbgData.nTestFlags, DBG_TEST_PROFILING );
660 : : lcl_tryReadConfigFlag( pLine, nLineLength, "resources", &aDebugData.aDbgData.nTestFlags, DBG_TEST_RESOURCE );
661 : : lcl_tryReadConfigFlag( pLine, nLineLength, "dialog", &aDebugData.aDbgData.nTestFlags, DBG_TEST_DIALOG );
662 : : lcl_tryReadConfigFlag( pLine, nLineLength, "bold_app_font", &aDebugData.aDbgData.nTestFlags, DBG_TEST_BOLDAPPFONT );
663 : : }
664 : :
665 : : pLine = pNextLine + strlen( FILE_LINEEND );
666 : : }
667 : :
668 : : FileClose( pIniFile );
669 : : }
670 : : else
671 : : {
672 : : lcl_matchOutputChannel( getenv( "DBGSV_TRACE_OUT" ), &aDebugData.aDbgData.nTraceOut );
673 : : lcl_matchOutputChannel( getenv( "DBGSV_WARNING_OUT" ), &aDebugData.aDbgData.nWarningOut );
674 : : lcl_matchOutputChannel( getenv( "DBGSV_ERROR_OUT" ), &aDebugData.aDbgData.nErrorOut );
675 : :
676 : : }
677 : :
678 : : sal_Char* getcwdResult = getcwd( aCurPath, sizeof( aCurPath ) );
679 : : if ( !getcwdResult )
680 : : {
681 : : OSL_TRACE( "getcwd failed with error %s", strerror(errno) );
682 : : }
683 : :
684 : : // initialize debug data
685 : : if ( aDebugData.aDbgData.nTestFlags & DBG_TEST_XTOR )
686 : : aDebugData.pXtorList = new PointerList;
687 : : if ( aDebugData.aDbgData.nTestFlags & DBG_TEST_PROFILING )
688 : : aDebugData.pProfList = new PointerList;
689 : : }
690 : :
691 : : return &aDebugData;
692 : : }
693 : :
694 : : inline DebugData* ImplGetDebugData()
695 : : {
696 : : if ( !aDebugData.bInit )
697 : : return GetDebugData();
698 : : else
699 : : return &aDebugData;
700 : : }
701 : :
702 : : static FILETYPE ImplDbgInitFile()
703 : : {
704 : : static sal_Bool bFileInit = sal_False;
705 : :
706 : : sal_Char aBuf[4096];
707 : : sal_Char* getcwdResult = getcwd( aBuf, sizeof( aBuf ) );
708 : : if ( !getcwdResult ) {
709 : : OSL_TRACE( "getcwd failed with error = %s", strerror(errno) );
710 : : return NULL;
711 : : }
712 : :
713 : : int chdirResult = chdir( aCurPath );
714 : : if ( !chdirResult ) {
715 : : OSL_TRACE ( "chdir failed with error = %s", strerror(errno) );
716 : : return NULL;
717 : : }
718 : :
719 : : DebugData* pData = GetDebugData();
720 : : FILETYPE pDebugFile;
721 : :
722 : : if ( !bFileInit )
723 : : {
724 : : bFileInit = sal_True;
725 : :
726 : : if ( pData->aDbgData.bOverwrite )
727 : : pDebugFile = FileOpen( pData->aDbgData.aDebugName, "w" );
728 : : else
729 : : pDebugFile = FileOpen( pData->aDbgData.aDebugName, "a" );
730 : :
731 : : if ( pDebugFile )
732 : : {
733 : : time_t nTime = time( 0 );
734 : : tm* pTime;
735 : : #ifdef UNX
736 : : tm aTime;
737 : : pTime = localtime_r( &nTime, &aTime );
738 : : #else
739 : : pTime = localtime( &nTime );
740 : : #endif
741 : :
742 : : // print header
743 : : FilePrintF( pDebugFile, "******************************************************************************%s", FILE_LINEEND );
744 : : FilePrintF( pDebugFile, "%s%s", pData->aDbgData.aDebugName, FILE_LINEEND );
745 : : if ( pTime )
746 : : FilePrintF( pDebugFile, "%s%s", asctime( pTime ), FILE_LINEEND );
747 : : }
748 : : }
749 : : else
750 : : pDebugFile = FileOpen( pData->aDbgData.aDebugName, "a" );
751 : :
752 : : chdirResult = chdir( aBuf );
753 : : if ( !chdirResult )
754 : : {
755 : : OSL_TRACE( "chdir failed with error = %s", strerror(errno) );
756 : : }
757 : :
758 : : return pDebugFile;
759 : : }
760 : :
761 : : static void ImplDbgPrintFile( const sal_Char* pLine )
762 : : {
763 : : FILETYPE pDebugFile = ImplDbgInitFile();
764 : :
765 : : if ( pDebugFile )
766 : : {
767 : : FilePrintF( pDebugFile, "%s%s", pLine, FILE_LINEEND );
768 : : FileClose( pDebugFile );
769 : : }
770 : : }
771 : :
772 : : static int ImplStrSearch( const sal_Char* pSearchStr, int nSearchLen,
773 : : const sal_Char* pStr, int nLen )
774 : : {
775 : : int nPos = 0;
776 : : while ( nPos+nSearchLen <= nLen )
777 : : {
778 : : if ( strncmp( pStr+nPos, pSearchStr, nSearchLen ) == 0 )
779 : : return 1;
780 : : nPos++;
781 : : }
782 : :
783 : : return 0;
784 : : }
785 : :
786 : : static int ImplDbgFilter( const sal_Char* pFilter, const sal_Char* pMsg,
787 : : int bEmpty )
788 : : {
789 : : int nStrLen = strlen( pFilter );
790 : : if ( !nStrLen )
791 : : return bEmpty;
792 : :
793 : : int nMsgLen = strlen( pMsg );
794 : : const sal_Char* pTok = pFilter;
795 : : int nTok = 0;
796 : : while ( pTok[nTok] )
797 : : {
798 : : if ( pTok[nTok] == ';' )
799 : : {
800 : : if ( nTok && ImplStrSearch( pTok, nTok, pMsg, nMsgLen ) )
801 : : return sal_True;
802 : :
803 : : pTok += nTok+1;
804 : : nTok = 0;
805 : : }
806 : :
807 : : nTok++;
808 : : }
809 : :
810 : : if ( nTok && ImplStrSearch( pTok, nTok, pMsg, nMsgLen ) )
811 : : return sal_True;
812 : : else
813 : : return sal_False;
814 : : }
815 : :
816 : : extern "C"
817 : : void SAL_CALL dbg_printOslDebugMessage( const sal_Char * pszFileName, sal_Int32 nLine, const sal_Char * pszMessage )
818 : : {
819 : : DbgOut( pszMessage ? pszMessage : "assertion failed!", DBG_OUT_ERROR, pszFileName, (sal_uInt16)nLine );
820 : : }
821 : :
822 : : static void DebugInit()
823 : : {
824 : : bDbgImplInMain = sal_True;
825 : : ImplDbgInitLock();
826 : :
827 : : DebugData* pData = GetDebugData();
828 : : if( pData->aDbgData.bHookOSLAssert && ! pData->bOslIsHooked )
829 : : {
830 : : pData->pOldDebugMessageFunc = osl_setDetailedDebugMessageFunc( &dbg_printOslDebugMessage );
831 : : pData->bOslIsHooked = true;
832 : : }
833 : : }
834 : :
835 : : static void DebugDeInit()
836 : : {
837 : : DebugData* pData = GetDebugData();
838 : : sal_uIntPtr i;
839 : : sal_uIntPtr nCount;
840 : : sal_uIntPtr nOldOut;
841 : :
842 : : if( pData->bOslIsHooked )
843 : : {
844 : : osl_setDetailedDebugMessageFunc( pData->pOldDebugMessageFunc );
845 : : pData->bOslIsHooked = sal_False;
846 : : }
847 : :
848 : : // Output statistics trace data to file
849 : : nOldOut = pData->aDbgData.nTraceOut;
850 : : pData->aDbgData.nTraceOut = DBG_OUT_FILE;
851 : :
852 : : // output Xtor list
853 : : if ( pData->pXtorList && pData->pXtorList->Count() &&
854 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_REPORT) )
855 : : {
856 : : DbgOutf( "------------------------------------------------------------------------------" );
857 : : DbgOutf( "Object Report" );
858 : : DbgOutf( "------------------------------------------------------------------------------" );
859 : : DbgOutf( "%-27s : %-9s : %-9s : %-7s : %-3s : %-6s :",
860 : : "XTor-List", "Ctor", "Dtor", "MaxInst", "St.", "Diff." );
861 : : DbgOutf( "----------------------------:-----------:-----------:---------:----:---------:" );
862 : : for( i = 0, nCount = pData->pXtorList->Count(); i < nCount; i++ )
863 : : {
864 : : XtorType* pXtorData = (XtorType*)pData->pXtorList->Get( i );
865 : : if ( pXtorData->bTest )
866 : : {
867 : : // Add static objects
868 : : pXtorData->nDtorCalls += pXtorData->nStatics;
869 : : if ( pXtorData->nStatics && (pXtorData->nDtorCalls > pXtorData->nCtorCalls) )
870 : : pXtorData->nDtorCalls = pXtorData->nCtorCalls;
871 : : DbgOutf( "%-27s : %9lu : %9lu : %7lu : %3lu : %4lu %-1s :",
872 : : pXtorData->aName, pXtorData->nCtorCalls, pXtorData->nDtorCalls,
873 : : pXtorData->nMaxCount, pXtorData->nStatics,
874 : : pXtorData->nCtorCalls - pXtorData->nDtorCalls,
875 : : (pXtorData->nCtorCalls - pXtorData->nDtorCalls) ? "!" : " " );
876 : : }
877 : : }
878 : : DbgOutf( "==============================================================================" );
879 : : }
880 : :
881 : : // free XtorList
882 : : if ( pData->pXtorList )
883 : : {
884 : : for( i = 0, nCount = pData->pXtorList->Count(); i < nCount; i++ )
885 : : {
886 : : XtorType* pXtorData = (XtorType*)pData->pXtorList->Get( i );
887 : : delete pXtorData;
888 : : }
889 : : delete pData->pXtorList;
890 : : pData->pXtorList = NULL;
891 : : }
892 : :
893 : : // Set everything to sal_False, as global variables
894 : : // may cause a system crash otherwise.
895 : : // Maintain memory flags, as otherwise new/delete calls
896 : : // for global variables will crash,
897 : : // as pointer alignment won't work then.
898 : : pData->aDbgData.nTraceOut = nOldOut;
899 : : pData->aDbgData.nTestFlags &= DBG_TEST_PROFILING;
900 : : pData->aDbgPrintUserChannels.clear();
901 : : pData->pDbgPrintTestTool = NULL;
902 : : pData->pDbgPrintWindow = NULL;
903 : : pData->pOldDebugMessageFunc = NULL;
904 : : ImplDbgDeInitLock();
905 : : }
906 : :
907 : : static void DebugGlobalDeInit()
908 : : {
909 : : DebugData* pData = GetDebugData();
910 : : sal_uIntPtr i;
911 : : sal_uIntPtr nCount;
912 : : sal_uIntPtr nOldOut;
913 : :
914 : : // Output statistics trace data to file
915 : : nOldOut = pData->aDbgData.nTraceOut;
916 : : pData->aDbgData.nTraceOut = DBG_OUT_FILE;
917 : :
918 : : // output profile liste
919 : : if ( pData->pProfList && pData->pProfList->Count() )
920 : : {
921 : : DbgOutf( "------------------------------------------------------------------------------" );
922 : : DbgOutf( "Profiling Report" );
923 : : DbgOutf( "------------------------------------------------------------------------------" );
924 : : DbgOutf( "%-25s : %-9s : %-6s : %-6s : %-6s : %-9s :",
925 : : "Prof-List (ms)", "Time", "Min", "Max", "Ave", "Count" );
926 : : DbgOutf( "--------------------------:-----------:--------:--------:--------:-----------:" );
927 : : for( i = 0, nCount = pData->pProfList->Count(); i < nCount; i++ )
928 : : {
929 : : ProfType* pProfData = (ProfType*)pData->pProfList->Get( i );
930 : : sal_uIntPtr nAve = pProfData->nTime / pProfData->nCount;
931 : : DbgOutf( "%-25s : %9lu : %6lu : %6lu : %6lu : %9lu :",
932 : : pProfData->aName, pProfData->nTime,
933 : : pProfData->nMinTime, pProfData->nMaxTime, nAve,
934 : : pProfData->nCount );
935 : : }
936 : : DbgOutf( "==============================================================================" );
937 : : }
938 : :
939 : : // free profile list
940 : : if ( pData->pProfList )
941 : : {
942 : : for( i = 0, nCount = pData->pProfList->Count(); i < nCount; i++ )
943 : : {
944 : : ProfType* pProfData = (ProfType*)pData->pProfList->Get( i );
945 : : delete pProfData;
946 : : }
947 : : delete pData->pProfList;
948 : : pData->pProfList = NULL;
949 : : }
950 : :
951 : : // disable profiling flags
952 : : pData->aDbgData.nTraceOut = nOldOut;
953 : : pData->aDbgData.nTestFlags &= ~DBG_TEST_PROFILING;
954 : : }
955 : :
956 : : void ImpDbgOutfBuf( sal_Char* pBuf, const sal_Char* pFStr, ... )
957 : : {
958 : : va_list pList;
959 : :
960 : : va_start( pList, pFStr );
961 : : sal_Char aBuf[DBG_BUF_MAXLEN];
962 : : vsprintf( aBuf, pFStr, pList );
963 : : va_end( pList );
964 : :
965 : : strcat( pBuf, aBuf );
966 : : strcat( pBuf, "\n" );
967 : : }
968 : :
969 : : static void DebugXTorInfo( sal_Char* pBuf )
970 : : {
971 : : DebugData* pData = GetDebugData();
972 : : sal_uIntPtr i;
973 : : sal_uIntPtr nCount;
974 : :
975 : : // output Xtor list
976 : : if ( pData->pXtorList && pData->pXtorList->Count() &&
977 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_REPORT) )
978 : : {
979 : : ImpDbgOutfBuf( pBuf, "------------------------------------------------------------------------------" );
980 : : ImpDbgOutfBuf( pBuf, "Object Report" );
981 : : ImpDbgOutfBuf( pBuf, "------------------------------------------------------------------------------" );
982 : : ImpDbgOutfBuf( pBuf, "%-27s : %-9s : %-9s : %-7s : %-3s : %-6s :",
983 : : "XTor-List", "Ctor", "Dtor", "MaxInst", "St.", "Diff." );
984 : : ImpDbgOutfBuf( pBuf, "----------------------------:-----------:-----------:---------:----:---------:" );
985 : : for( i = 0, nCount = pData->pXtorList->Count(); i < nCount; i++ )
986 : : {
987 : : XtorType* pXtorData = (XtorType*)pData->pXtorList->Get( i );
988 : : if ( pXtorData->bTest )
989 : : {
990 : : ImpDbgOutfBuf( pBuf, "%-27s : %9lu : %9lu : %7lu : %3lu : %6lu :",
991 : : pXtorData->aName, pXtorData->nCtorCalls, pXtorData->nDtorCalls,
992 : : pXtorData->nMaxCount, pXtorData->nStatics,
993 : : pXtorData->nCtorCalls - pXtorData->nDtorCalls );
994 : : }
995 : : }
996 : : ImpDbgOutfBuf( pBuf, "==============================================================================" );
997 : : ImpDbgOutfBuf( pBuf, "" );
998 : : }
999 : : }
1000 : :
1001 : : sal_Bool ImplDbgFilterMessage( const sal_Char* pMsg )
1002 : : {
1003 : : DebugData* pData = GetDebugData();
1004 : : if ( !ImplDbgFilter( pData->aDbgData.aInclFilter, pMsg, sal_True ) )
1005 : : return sal_True;
1006 : : if ( ImplDbgFilter( pData->aDbgData.aExclFilter, pMsg, sal_False ) )
1007 : : return sal_True;
1008 : : return sal_False;
1009 : : }
1010 : :
1011 : : void* DbgFunc( sal_uInt16 nAction, void* pParam )
1012 : : {
1013 : : DebugData* pDebugData = ImplGetDebugData();
1014 : :
1015 : : if ( nAction == DBG_FUNC_GETDATA )
1016 : : return (void*)&(pDebugData->aDbgData);
1017 : : else if ( nAction == DBG_FUNC_GETPRINTMSGBOX )
1018 : : return (void*)(long)(pDebugData->pDbgPrintMsgBox);
1019 : : else if ( nAction == DBG_FUNC_FILTERMESSAGE )
1020 : : if ( ImplDbgFilterMessage( (const sal_Char*) pParam ) )
1021 : : return (void*) -1;
1022 : : else
1023 : : return (void*) 0; // aka NULL
1024 : : else
1025 : :
1026 : : {
1027 : : switch ( nAction )
1028 : : {
1029 : : case DBG_FUNC_DEBUGSTART:
1030 : : DebugInit();
1031 : : break;
1032 : :
1033 : : case DBG_FUNC_DEBUGEND:
1034 : : DebugDeInit();
1035 : : break;
1036 : :
1037 : : case DBG_FUNC_GLOBALDEBUGEND:
1038 : : DebugGlobalDeInit();
1039 : : break;
1040 : :
1041 : : case DBG_FUNC_SETPRINTMSGBOX:
1042 : : pDebugData->pDbgPrintMsgBox = (DbgPrintLine)(long)pParam;
1043 : : break;
1044 : :
1045 : : case DBG_FUNC_SETPRINTWINDOW:
1046 : : pDebugData->pDbgPrintWindow = (DbgPrintLine)(long)pParam;
1047 : : break;
1048 : :
1049 : : case DBG_FUNC_SETPRINTTESTTOOL:
1050 : : pDebugData->pDbgPrintTestTool = (DbgPrintLine)(long)pParam;
1051 : : break;
1052 : :
1053 : : case DBG_FUNC_SET_ABORT:
1054 : : pDebugData->pDbgAbort = (DbgPrintLine)(long)pParam;
1055 : : break;
1056 : :
1057 : : case DBG_FUNC_SAVEDATA:
1058 : : {
1059 : : const DbgData* pData = static_cast< const DbgData* >( pParam );
1060 : :
1061 : : sal_Char aBuf[ 4096 ];
1062 : : DbgGetDbgFileName( aBuf, sizeof( aBuf ) );
1063 : : FILETYPE pIniFile = FileOpen( aBuf, "w" );
1064 : : if ( pIniFile == NULL )
1065 : : break;
1066 : :
1067 : : lcl_startSection( pIniFile, eOutput );
1068 : : lcl_writeConfigString( pIniFile, "log_file", pData->aDebugName );
1069 : : lcl_writeConfigBoolean( pIniFile, "overwrite", pData->bOverwrite );
1070 : : lcl_writeConfigString( pIniFile, "include", pData->aInclFilter );
1071 : : lcl_writeConfigString( pIniFile, "exclude", pData->aExclFilter );
1072 : : lcl_writeConfigString( pIniFile, "include_class", pData->aInclClassFilter );
1073 : : lcl_writeConfigString( pIniFile, "exclude_class", pData->aExclClassFilter );
1074 : : lcl_writeConfigOutChannel( pIniFile, "trace", pData->nTraceOut );
1075 : : lcl_writeConfigOutChannel( pIniFile, "warning", pData->nWarningOut );
1076 : : lcl_writeConfigOutChannel( pIniFile, "error", pData->nErrorOut );
1077 : : lcl_writeConfigBoolean( pIniFile, "oslhook", pData->bHookOSLAssert );
1078 : :
1079 : : lcl_lineFeed( pIniFile );
1080 : : lcl_startSection( pIniFile, eGUI );
1081 : : lcl_writeConfigString( pIniFile, "debug_window_state", pData->aDbgWinState );
1082 : :
1083 : : lcl_lineFeed( pIniFile );
1084 : : lcl_startSection( pIniFile, eObjects );
1085 : : lcl_writeConfigFlag( pIniFile, "check_this", pData->nTestFlags, DBG_TEST_XTOR_THIS );
1086 : : lcl_writeConfigFlag( pIniFile, "check_function", pData->nTestFlags, DBG_TEST_XTOR_FUNC );
1087 : : lcl_writeConfigFlag( pIniFile, "check_exit", pData->nTestFlags, DBG_TEST_XTOR_EXIT );
1088 : : lcl_writeConfigFlag( pIniFile, "generate_report", pData->nTestFlags, DBG_TEST_XTOR_REPORT );
1089 : : lcl_writeConfigFlag( pIniFile, "trace", pData->nTestFlags, DBG_TEST_XTOR_TRACE );
1090 : :
1091 : : lcl_lineFeed( pIniFile );
1092 : : lcl_startSection( pIniFile, eTest );
1093 : : lcl_writeConfigFlag( pIniFile, "profiling", pData->nTestFlags, DBG_TEST_PROFILING );
1094 : : lcl_writeConfigFlag( pIniFile, "resources", pData->nTestFlags, DBG_TEST_RESOURCE );
1095 : : lcl_writeConfigFlag( pIniFile, "dialog", pData->nTestFlags, DBG_TEST_DIALOG );
1096 : : lcl_writeConfigFlag( pIniFile, "bold_app_font", pData->nTestFlags, DBG_TEST_BOLDAPPFONT );
1097 : :
1098 : : FileClose( pIniFile );
1099 : : }
1100 : : break;
1101 : :
1102 : : case DBG_FUNC_XTORINFO:
1103 : : DebugXTorInfo( (sal_Char*)pParam );
1104 : : break;
1105 : :
1106 : : case DBG_FUNC_COREDUMP:
1107 : : ImplCoreDump();
1108 : : break;
1109 : :
1110 : : case DBG_FUNC_ALLERROROUT:
1111 : : return (void*)(sal_uIntPtr)sal_True;
1112 : :
1113 : : case DBG_FUNC_SETTESTSOLARMUTEX:
1114 : : pDebugData->pDbgTestSolarMutex = (DbgTestSolarMutexProc)(long)pParam;
1115 : : break;
1116 : :
1117 : : case DBG_FUNC_TESTSOLARMUTEX:
1118 : : if ( pDebugData->pDbgTestSolarMutex )
1119 : : pDebugData->pDbgTestSolarMutex();
1120 : : break;
1121 : :
1122 : : case DBG_FUNC_PRINTFILE:
1123 : : ImplDbgPrintFile( (const sal_Char*)pParam );
1124 : : break;
1125 : : case DBG_FUNC_UPDATEOSLHOOK:
1126 : : {
1127 : : const DbgData* pData = static_cast< const DbgData* >( pParam );
1128 : : pDebugData->aDbgData.bHookOSLAssert = pData->bHookOSLAssert;
1129 : : if( pDebugData->bOslIsHooked && ! pData->bHookOSLAssert )
1130 : : {
1131 : : osl_setDetailedDebugMessageFunc( pDebugData->pOldDebugMessageFunc );
1132 : : pDebugData->bOslIsHooked = sal_False;
1133 : : }
1134 : : else if( ! pDebugData->bOslIsHooked && pData->bHookOSLAssert )
1135 : : {
1136 : : pDebugData->pOldDebugMessageFunc = osl_setDetailedDebugMessageFunc( &dbg_printOslDebugMessage );
1137 : : pDebugData->bOslIsHooked = sal_True;
1138 : : }
1139 : : }
1140 : : break;
1141 : : }
1142 : :
1143 : : return NULL;
1144 : : }
1145 : : }
1146 : :
1147 : : DbgChannelId DbgRegisterUserChannel( DbgPrintLine pProc )
1148 : : {
1149 : : DebugData* pData = ImplGetDebugData();
1150 : : pData->aDbgPrintUserChannels.push_back( pProc );
1151 : : return (DbgChannelId)( pData->aDbgPrintUserChannels.size() - 1 + DBG_OUT_USER_CHANNEL_0 );
1152 : : }
1153 : :
1154 : : void DbgProf( sal_uInt16 nAction, DbgDataType* pDbgData )
1155 : : {
1156 : : DebugData* pData = ImplGetDebugData();
1157 : :
1158 : : if ( !(pData->aDbgData.nTestFlags & DBG_TEST_PROFILING) )
1159 : : return;
1160 : :
1161 : : ProfType* pProfData = (ProfType*)pDbgData->pData;
1162 : : sal_uIntPtr nTime;
1163 : : if ( (nAction != DBG_PROF_START) && !pProfData )
1164 : : {
1165 : : SAL_WARN(
1166 : : "tools.debug",
1167 : : "DBG_PROF...() without DBG_PROFSTART(): " << pDbgData->pName);
1168 : : return;
1169 : : }
1170 : :
1171 : : switch ( nAction )
1172 : : {
1173 : : case DBG_PROF_START:
1174 : : if ( !pDbgData->pData )
1175 : : {
1176 : : pDbgData->pData = (void*)new ProfType;
1177 : : pProfData = (ProfType*)pDbgData->pData;
1178 : : strncpy( pProfData->aName, pDbgData->pName, DBG_MAXNAME );
1179 : : pProfData->aName[DBG_MAXNAME] = '\0';
1180 : : pProfData->nCount = 0;
1181 : : pProfData->nTime = 0;
1182 : : pProfData->nMinTime = 0xFFFFFFFF;
1183 : : pProfData->nMaxTime = 0;
1184 : : pProfData->nStart = 0xFFFFFFFF;
1185 : : pProfData->nContinueTime = 0;
1186 : : pProfData->nContinueStart = 0xFFFFFFFF;
1187 : : pData->pProfList->Add( (void*)pProfData );
1188 : : }
1189 : :
1190 : : if ( pProfData->nStart == 0xFFFFFFFF )
1191 : : {
1192 : : pProfData->nStart = ImplGetPerfTime();
1193 : : pProfData->nCount++;
1194 : : }
1195 : : break;
1196 : :
1197 : : case DBG_PROF_STOP:
1198 : : nTime = ImplGetPerfTime();
1199 : :
1200 : : if ( pProfData->nStart == 0xFFFFFFFF )
1201 : : {
1202 : : SAL_WARN(
1203 : : "tools.debug", "DBG_PROF...() without DBG_PROFSTART()");
1204 : : return;
1205 : : }
1206 : :
1207 : : if ( pProfData->nContinueStart != 0xFFFFFFFF )
1208 : : {
1209 : : pProfData->nContinueTime += ImplGetPerfTime() - pProfData->nContinueStart;
1210 : : pProfData->nContinueStart = 0xFFFFFFFF;
1211 : : }
1212 : :
1213 : : nTime -= pProfData->nStart;
1214 : : nTime -= pProfData->nContinueTime;
1215 : :
1216 : : if ( nTime < pProfData->nMinTime )
1217 : : pProfData->nMinTime = nTime;
1218 : :
1219 : : if ( nTime > pProfData->nMaxTime )
1220 : : pProfData->nMaxTime = nTime;
1221 : :
1222 : : pProfData->nTime += nTime;
1223 : :
1224 : : pProfData->nStart = 0xFFFFFFFF;
1225 : : pProfData->nContinueTime = 0;
1226 : : pProfData->nContinueStart = 0xFFFFFFFF;
1227 : : break;
1228 : :
1229 : : case DBG_PROF_CONTINUE:
1230 : : if ( pProfData->nContinueStart != 0xFFFFFFFF )
1231 : : {
1232 : : pProfData->nContinueTime += ImplGetPerfTime() - pProfData->nContinueStart;
1233 : : pProfData->nContinueStart = 0xFFFFFFFF;
1234 : : }
1235 : : break;
1236 : :
1237 : : case DBG_PROF_PAUSE:
1238 : : if ( pProfData->nContinueStart == 0xFFFFFFFF )
1239 : : pProfData->nContinueStart = ImplGetPerfTime();
1240 : : break;
1241 : : }
1242 : : }
1243 : :
1244 : : void DbgXtor( DbgDataType* pDbgData, sal_uInt16 nAction, const void* pThis,
1245 : : DbgUsr fDbgUsr )
1246 : : {
1247 : : DebugData* pData = ImplGetDebugData();
1248 : :
1249 : : // quick test
1250 : : if ( !(pData->aDbgData.nTestFlags & DBG_TEST_XTOR) )
1251 : : return;
1252 : :
1253 : : XtorType* pXtorData = (XtorType*)pDbgData->pData;
1254 : : if ( !pXtorData )
1255 : : {
1256 : : pDbgData->pData = (void*)new XtorType;
1257 : : pXtorData = (XtorType*)pDbgData->pData;
1258 : : strncpy( pXtorData->aName, pDbgData->pName, DBG_MAXNAME );
1259 : : pXtorData->aName[DBG_MAXNAME] = '\0';
1260 : : pXtorData->nCtorCalls = 0;
1261 : : pXtorData->nDtorCalls = 0;
1262 : : pXtorData->nMaxCount = 0;
1263 : : pXtorData->nStatics = 0;
1264 : : pXtorData->bTest = sal_True;
1265 : : pData->pXtorList->Add( (void*)pXtorData );
1266 : :
1267 : : if ( !ImplDbgFilter( pData->aDbgData.aInclClassFilter, pXtorData->aName, sal_True ) )
1268 : : pXtorData->bTest = sal_False;
1269 : : if ( ImplDbgFilter( pData->aDbgData.aExclClassFilter, pXtorData->aName, sal_False ) )
1270 : : pXtorData->bTest = sal_False;
1271 : : }
1272 : : if ( !pXtorData->bTest )
1273 : : return;
1274 : :
1275 : : sal_uInt16 nAct = nAction & ~DBG_XTOR_DTOROBJ;
1276 : :
1277 : : SAL_INFO_IF(
1278 : : ((pData->aDbgData.nTestFlags & DBG_TEST_XTOR_TRACE)
1279 : : && !(nAction & DBG_XTOR_DTOROBJ) && nAct != DBG_XTOR_CHKOBJ),
1280 : : "tools.debug",
1281 : : (nAct == DBG_XTOR_CTOR ? "Enter Ctor from class "
1282 : : : nAct == DBG_XTOR_DTOR ? "Enter Dtor from class "
1283 : : : "Enter method from class ") << pDbgData->pName);
1284 : :
1285 : : // If some Xtor-tests are still tracing
1286 : : if ( pData->aDbgData.nTestFlags & DBG_TEST_XTOR_EXTRA )
1287 : : {
1288 : : // call DBG_CTOR before all other DBG_XTOR calls
1289 : : if ( ((nAction & ~DBG_XTOR_DTOROBJ) != DBG_XTOR_CTOR) && !pDbgData->pData )
1290 : : {
1291 : : SAL_WARN(
1292 : : "tools.debug",
1293 : : "DBG_DTOR() or DBG_CHKTHIS() without DBG_CTOR(): "
1294 : : << pDbgData->pName);
1295 : : return;
1296 : : }
1297 : :
1298 : : // Test if the pointer is still valid
1299 : : if ( pData->aDbgData.nTestFlags & DBG_TEST_XTOR_THIS )
1300 : : {
1301 : : if ( (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_EXIT) ||
1302 : : !(nAction & DBG_XTOR_DTOROBJ) )
1303 : : {
1304 : : // This-Pointer == NULL
1305 : : if ( !pThis )
1306 : : {
1307 : : SAL_WARN(
1308 : : "tools.debug",
1309 : : "this == NULL in class " << pDbgData->pName);
1310 : : return;
1311 : : }
1312 : :
1313 : : if ( (nAction & ~DBG_XTOR_DTOROBJ) != DBG_XTOR_CTOR )
1314 : : {
1315 : : SAL_WARN_IF(
1316 : : !pXtorData->aThisList.IsIn(pThis), "tools.debug",
1317 : : "invalid this-Pointer %p in class " << pDbgData->pName);
1318 : : }
1319 : : }
1320 : : }
1321 : :
1322 : : // execute function test and update maintenance data
1323 : : const sal_Char* pMsg = NULL;
1324 : : switch ( nAction & ~DBG_XTOR_DTOROBJ )
1325 : : {
1326 : : case DBG_XTOR_CTOR:
1327 : : if ( nAction & DBG_XTOR_DTOROBJ )
1328 : : {
1329 : : if ( fDbgUsr &&
1330 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_EXIT) &&
1331 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_FUNC) )
1332 : : pMsg = fDbgUsr( pThis );
1333 : : }
1334 : : else
1335 : : {
1336 : : pXtorData->nCtorCalls++;
1337 : : if ( !bDbgImplInMain )
1338 : : pXtorData->nStatics++;
1339 : : if ( (pXtorData->nCtorCalls-pXtorData->nDtorCalls) > pXtorData->nMaxCount )
1340 : : pXtorData->nMaxCount = pXtorData->nCtorCalls - pXtorData->nDtorCalls;
1341 : :
1342 : : if ( pData->aDbgData.nTestFlags & DBG_TEST_XTOR_THIS )
1343 : : pXtorData->aThisList.Add( pThis );
1344 : : }
1345 : : break;
1346 : :
1347 : : case DBG_XTOR_DTOR:
1348 : : if ( nAction & DBG_XTOR_DTOROBJ )
1349 : : {
1350 : : pXtorData->nDtorCalls++;
1351 : : if ( pData->aDbgData.nTestFlags & DBG_TEST_XTOR_THIS )
1352 : : pXtorData->aThisList.Remove( pThis );
1353 : : }
1354 : : else
1355 : : {
1356 : : if ( fDbgUsr &&
1357 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_FUNC) )
1358 : : pMsg = fDbgUsr( pThis );
1359 : : }
1360 : : break;
1361 : :
1362 : : case DBG_XTOR_CHKTHIS:
1363 : : case DBG_XTOR_CHKOBJ:
1364 : : if ( nAction & DBG_XTOR_DTOROBJ )
1365 : : {
1366 : : if ( fDbgUsr &&
1367 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_EXIT) &&
1368 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_FUNC) )
1369 : : pMsg = fDbgUsr( pThis );
1370 : : }
1371 : : else
1372 : : {
1373 : : if ( fDbgUsr &&
1374 : : (pData->aDbgData.nTestFlags & DBG_TEST_XTOR_FUNC) )
1375 : : pMsg = fDbgUsr( pThis );
1376 : : }
1377 : : break;
1378 : : }
1379 : :
1380 : : SAL_WARN_IF(
1381 : : pMsg, "tools.debug",
1382 : : "Error-Msg from Object " << pThis << " in class "
1383 : : << pDbgData->pName << ": " << pMsg);
1384 : : }
1385 : :
1386 : : SAL_INFO_IF(
1387 : : ((pData->aDbgData.nTestFlags & DBG_TEST_XTOR_TRACE)
1388 : : && (nAction & DBG_XTOR_DTOROBJ) && nAct != DBG_XTOR_CHKOBJ),
1389 : : "tools.debug",
1390 : : (nAct == DBG_XTOR_CTOR
1391 : : ? "Leave Ctor from class "
1392 : : : nAct == DBG_XTOR_DTOR
1393 : : ? "Leave Dtor from class "
1394 : : : "Leave method from class ") << pDbgData->pName);
1395 : : }
1396 : :
1397 : : void DbgOut( const sal_Char* pMsg, sal_uInt16 nDbgOut, const sal_Char* pFile, sal_uInt16 nLine )
1398 : : {
1399 : : static sal_Bool bIn = sal_False;
1400 : : if ( bIn )
1401 : : return;
1402 : : bIn = sal_True;
1403 : :
1404 : : DebugData* pData = GetDebugData();
1405 : : sal_Char const * pStr;
1406 : : sal_uIntPtr nOut;
1407 : : int nBufLen = 0;
1408 : :
1409 : : if ( nDbgOut == DBG_OUT_ERROR )
1410 : : {
1411 : : nOut = pData->aDbgData.nErrorOut;
1412 : : pStr = "Error: ";
1413 : : }
1414 : : else if ( nDbgOut == DBG_OUT_WARNING )
1415 : : {
1416 : : nOut = pData->aDbgData.nWarningOut;
1417 : : pStr = "Warning: ";
1418 : : }
1419 : : else
1420 : : {
1421 : : nOut = pData->aDbgData.nTraceOut;
1422 : : pStr = NULL;
1423 : : }
1424 : :
1425 : : if ( nOut == DBG_OUT_NULL )
1426 : : {
1427 : : bIn = sal_False;
1428 : : return;
1429 : : }
1430 : :
1431 : : if ( ImplDbgFilterMessage( pMsg ) )
1432 : : {
1433 : : bIn = sal_False;
1434 : : return;
1435 : : }
1436 : :
1437 : : ImplDbgLock();
1438 : :
1439 : : sal_Char aBufOut[DBG_BUF_MAXLEN];
1440 : : if ( pStr )
1441 : : {
1442 : : strcpy( aBufOut, pStr );
1443 : : nBufLen = strlen( pStr );
1444 : : }
1445 : : else
1446 : : aBufOut[0] = '\0';
1447 : :
1448 : : int nMsgLen = strlen( pMsg );
1449 : : if ( nBufLen+nMsgLen > DBG_BUF_MAXLEN )
1450 : : {
1451 : : int nCopyLen = DBG_BUF_MAXLEN-nBufLen-4;
1452 : : strncpy( &(aBufOut[nBufLen]), pMsg, nCopyLen );
1453 : : strcpy( &(aBufOut[nBufLen+nCopyLen]), "..." );
1454 : : }
1455 : : else
1456 : : strcpy( &(aBufOut[nBufLen]), pMsg );
1457 : :
1458 : : if ( pFile && nLine && (nBufLen+nMsgLen < DBG_BUF_MAXLEN) )
1459 : : {
1460 : : if ( nOut == DBG_OUT_MSGBOX )
1461 : : strcat( aBufOut, "\n" );
1462 : : else
1463 : : strcat( aBufOut, " " );
1464 : : strcat( aBufOut, "From File " );
1465 : : strcat( aBufOut, pFile );
1466 : : strcat( aBufOut, " at Line " );
1467 : :
1468 : : // Convert line to String and append
1469 : : sal_Char aLine[9];
1470 : : sal_Char* pLine = &aLine[7];
1471 : : sal_uInt16 i;
1472 : : memset( aLine, 0, sizeof( aLine ) );
1473 : : do
1474 : : {
1475 : : i = nLine % 10;
1476 : : pLine--;
1477 : : *(pLine) = (sal_Char)i + 48;
1478 : : nLine /= 10;
1479 : : }
1480 : : while ( nLine );
1481 : : strcat( aBufOut, pLine );
1482 : : }
1483 : :
1484 : : if ( ( nOut >= DBG_OUT_USER_CHANNEL_0 ) && ( nOut - DBG_OUT_USER_CHANNEL_0 < pData->aDbgPrintUserChannels.size() ) )
1485 : : {
1486 : : DbgPrintLine pPrinter = pData->aDbgPrintUserChannels[ nOut - DBG_OUT_USER_CHANNEL_0 ];
1487 : : if ( pPrinter )
1488 : : pPrinter( aBufOut );
1489 : : else
1490 : : nOut = DBG_OUT_DEBUGGER;
1491 : : }
1492 : :
1493 : : if ( nOut == DBG_OUT_ABORT )
1494 : : {
1495 : : if ( pData->pDbgAbort != NULL )
1496 : : pData->pDbgAbort( aBufOut );
1497 : : abort();
1498 : : }
1499 : :
1500 : : if ( nOut == DBG_OUT_DEBUGGER )
1501 : : {
1502 : : if ( !ImplActivateDebugger( aBufOut ) )
1503 : : nOut = DBG_OUT_TESTTOOL;
1504 : : }
1505 : :
1506 : : if ( nOut == DBG_OUT_TESTTOOL )
1507 : : {
1508 : : if ( pData->pDbgPrintTestTool )
1509 : : pData->pDbgPrintTestTool( aBufOut );
1510 : : else
1511 : : nOut = DBG_OUT_MSGBOX;
1512 : : }
1513 : :
1514 : : if ( nOut == DBG_OUT_MSGBOX )
1515 : : {
1516 : : if ( pData->pDbgPrintMsgBox )
1517 : : pData->pDbgPrintMsgBox( aBufOut );
1518 : : else
1519 : : nOut = DBG_OUT_WINDOW;
1520 : : }
1521 : :
1522 : : if ( nOut == DBG_OUT_WINDOW )
1523 : : {
1524 : : if ( pData->pDbgPrintWindow )
1525 : : pData->pDbgPrintWindow( aBufOut );
1526 : : else
1527 : : nOut = DBG_OUT_FILE;
1528 : : }
1529 : :
1530 : : switch ( nOut )
1531 : : {
1532 : : case DBG_OUT_SHELL:
1533 : : DbgPrintShell( aBufOut );
1534 : : break;
1535 : : case DBG_OUT_FILE:
1536 : : ImplDbgPrintFile( aBufOut );
1537 : : break;
1538 : : }
1539 : :
1540 : : ImplDbgUnlock();
1541 : :
1542 : : bIn = sal_False;
1543 : : }
1544 : :
1545 : : void DbgPrintShell(char const * message) {
1546 : : fprintf(stderr, "%s\n", message);
1547 : : #if defined WNT
1548 : : OutputDebugStringA(message);
1549 : : #endif
1550 : : }
1551 : :
1552 : : void DbgOutTypef( sal_uInt16 nDbgOut, const sal_Char* pFStr, ... )
1553 : : {
1554 : : va_list pList;
1555 : :
1556 : : va_start( pList, pFStr );
1557 : : sal_Char aBuf[DBG_BUF_MAXLEN];
1558 : : vsprintf( aBuf, pFStr, pList );
1559 : : va_end( pList );
1560 : :
1561 : : DbgOut( aBuf, nDbgOut );
1562 : : }
1563 : :
1564 : : void DbgOutf( const sal_Char* pFStr, ... )
1565 : : {
1566 : : va_list pList;
1567 : :
1568 : : va_start( pList, pFStr );
1569 : : sal_Char aBuf[DBG_BUF_MAXLEN];
1570 : : vsprintf( aBuf, pFStr, pList );
1571 : : va_end( pList );
1572 : :
1573 : : DbgOut( aBuf );
1574 : : }
1575 : :
1576 : : #else
1577 : :
1578 : 0 : void* DbgFunc( sal_uInt16, void* ) { return NULL; }
1579 : :
1580 : 0 : void DbgProf( sal_uInt16, DbgDataType* ) {}
1581 : 0 : void DbgXtor( DbgDataType*, sal_uInt16, const void*, DbgUsr ) {}
1582 : :
1583 : 0 : void DbgOut( const sal_Char*, sal_uInt16, const sal_Char*, sal_uInt16 ) {}
1584 : 0 : void DbgOutTypef( sal_uInt16, const sal_Char*, ... ) {}
1585 : 0 : void DbgOutf( const sal_Char*, ... ) {}
1586 : :
1587 : : #endif
1588 : :
1589 : : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|