?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
fdo#74697 Add Bluez 5 support for impress remote.
[LibreOffice.git] / tools / source / debug / debug.cxx
blob49da3089805f6ee5219a5d01c6cef2ac757acf67
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 (__GNUC__)
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 #include <tools/diagnose_ex.h>
46
47 #ifdef DBG_UTIL
48
49 // PointerList
50
51 #define PBLOCKCOUNT 1024
52
53 struct PBlock
54 {
55 void* aData[PBLOCKCOUNT];
56 sal_uInt16 nCount;
57 PBlock* pPrev;
58 PBlock* pNext;
59 };
60
61 class PointerList
62 {
63 private:
64 PBlock* pFirst;
65 PBlock* pLast;
66 sal_uIntPtr nCount;
67
68 public:
69 PointerList() { pFirst = NULL; pLast = NULL; nCount = 0; }
70 ~PointerList();
71
72 void Add( const void* p );
73 sal_Bool Remove( const void* p );
74
75 const void* Get( sal_uIntPtr nPos ) const;
76 sal_Bool IsIn( const void* p ) const;
77 sal_uIntPtr Count() const { return nCount; }
78 };
79
80 // data types
81
82 #define DBG_MAXNAME 28
83
84 struct ProfType
85 {
86 sal_uIntPtr nCount;
87 sal_uIntPtr nTime;
88 sal_uIntPtr nMinTime;
89 sal_uIntPtr nMaxTime;
90 sal_uIntPtr nStart;
91 sal_uIntPtr nContinueTime;
92 sal_uIntPtr nContinueStart;
93 sal_Char aName[DBG_MAXNAME+1];
94 };
95
96 struct XtorType
97 {
98 sal_uIntPtr nCtorCalls;
99 sal_uIntPtr nDtorCalls;
100 sal_uIntPtr nMaxCount;
101 sal_uIntPtr nStatics;
102 sal_Char aName[DBG_MAXNAME+1];
103 sal_Bool bTest;
104 PointerList aThisList;
105 };
106
107 struct DebugData
108 {
109 DbgData aDbgData;
110 sal_uInt16 bInit;
111 DbgPrintLine pDbgPrintMsgBox;
112 DbgPrintLine pDbgPrintWindow;
113 DbgPrintLine pDbgPrintTestTool;
114 DbgPrintLine pDbgAbort;
115 ::std::vector< DbgPrintLine >
116 aDbgPrintUserChannels;
117 PointerList* pProfList;
118 PointerList* pXtorList;
119 DbgTestSolarMutexProc pDbgTestSolarMutex;
120 pfunc_osl_printDetailedDebugMessage
121 pOldDebugMessageFunc;
122 bool bOslIsHooked;
123
124 DebugData()
125 :bInit( sal_False )
126 ,pDbgPrintMsgBox( NULL )
127 ,pDbgPrintWindow( NULL )
128 ,pDbgPrintTestTool( NULL )
129 ,pDbgAbort( NULL )
130 ,pProfList( NULL )
131 ,pXtorList( NULL )
132 ,pDbgTestSolarMutex( NULL )
133 ,pOldDebugMessageFunc( NULL )
134 ,bOslIsHooked( false )
135 {
136 aDbgData.nTestFlags = DBG_TEST_RESOURCE;
137 aDbgData.bOverwrite = sal_True;
138 aDbgData.nTraceOut = DBG_OUT_NULL;
139 aDbgData.nWarningOut = DBG_OUT_NULL;
140 #ifdef UNX
141 aDbgData.nErrorOut = DBG_OUT_SHELL;
142 #else
143 aDbgData.nErrorOut = DBG_OUT_MSGBOX;
144 #endif
145 aDbgData.bHookOSLAssert = sal_True;
146 aDbgData.aDebugName[0] = 0;
147 aDbgData.aInclFilter[0] = 0;
148 aDbgData.aExclFilter[0] = 0;
149 aDbgData.aInclClassFilter[0] = 0;
150 aDbgData.aExclClassFilter[0] = 0;
151 aDbgData.aDbgWinState[0] = 0;
152 }
153 };
154
155 #define DBG_TEST_XTOR_EXTRA (DBG_TEST_XTOR_THIS | DBG_TEST_XTOR_FUNC | \
156 DBG_TEST_XTOR_EXIT | DBG_TEST_XTOR_REPORT )
157
158 // static maintenance variables
159
160 static DebugData aDebugData;
161 static sal_Char aCurPath[260];
162 static int bDbgImplInMain = sal_False;
163
164 #if defined( WNT )
165 static CRITICAL_SECTION aImplCritDbgSection;
166 #endif
167
168 static sal_Bool bImplCritDbgSectionInit = sal_False;
169
170 void ImplDbgInitLock()
171 {
172 #if defined( WNT )
173 InitializeCriticalSection( &aImplCritDbgSection );
174 #endif
175 bImplCritDbgSectionInit = sal_True;
176 }
177
178 void ImplDbgDeInitLock()
179 {
180 #if defined( WNT )
181 DeleteCriticalSection( &aImplCritDbgSection );
182 #endif
183 bImplCritDbgSectionInit = sal_False;
184 }
185
186 void ImplDbgLock()
187 {
188 if ( !bImplCritDbgSectionInit )
189 return;
190
191 #if defined( WNT )
192 EnterCriticalSection( &aImplCritDbgSection );
193 #endif
194 }
195
196 void ImplDbgUnlock()
197 {
198 if ( !bImplCritDbgSectionInit )
199 return;
200
201 #if defined( WNT )
202 LeaveCriticalSection( &aImplCritDbgSection );
203 #endif
204 }
205
206 #define FILE_LINEEND "\n"
207
208 static sal_Bool ImplActivateDebugger( const sal_Char* pMsg )
209 {
210 #if defined( WNT )
211 static sal_Char aImplDbgOutBuf[DBG_BUF_MAXLEN];
212 strcpy( aImplDbgOutBuf, pMsg );
213 strcat( aImplDbgOutBuf, "\r\n" );
214 OutputDebugString( aImplDbgOutBuf );
215 DebugBreak();
216 return sal_True;
217 #else
218 (void) pMsg; // avoid warning about unused parameter
219 return sal_False;
220 #endif
221 }
222
223 static sal_Bool ImplCoreDump()
224 {
225 #if defined( WNT )
226 DebugBreak();
227 #else
228 long* pTemp = 0;
229 *pTemp = 0xCCCC;
230 #endif
231 return sal_True;
232 }
233
234 static sal_uIntPtr ImplGetPerfTime()
235 {
236 #if defined( WNT )
237 return (sal_uIntPtr)GetTickCount();
238 #else
239 static sal_uIntPtr nImplTicksPerSecond = 0;
240 static double dImplTicksPerSecond;
241 sal_uIntPtr nTicks = (sal_uIntPtr)clock();
242
243 if ( !nImplTicksPerSecond )
244 {
245 nImplTicksPerSecond = CLOCKS_PER_SEC;
246 dImplTicksPerSecond = nImplTicksPerSecond;
247 }
248
249 double fTicks = nTicks;
250 fTicks *= 1000;
251 fTicks /= dImplTicksPerSecond;
252 return (sal_uIntPtr)fTicks;
253 #endif
254 }
255
256 typedef FILE* FILETYPE;
257 #define FileOpen fopen
258 #define FileRead fread
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 void* DbgFunc( sal_uInt16, void* ) { return NULL; }
1579
1580 void DbgProf( sal_uInt16, DbgDataType* ) {}
1581 void DbgXtor( DbgDataType*, sal_uInt16, const void*, DbgUsr ) {}
1582
1583 void DbgOut( const sal_Char*, sal_uInt16, const sal_Char*, sal_uInt16 ) {}
1584 void DbgOutTypef( sal_uInt16, const sal_Char*, ... ) {}
1585 void DbgOutf( const sal_Char*, ... ) {}
1586
1587 #endif
1588
1589
1590 #if OSL_DEBUG_LEVEL > 0
1591
1592 TOOLS_DLLPUBLIC void DbgUnhandledException(const css::uno::Any & caught, const char* currentFunction, const char* fileAndLineNo)
1593 {
1594 OString sMessage( "caught an exception!" );
1595 sMessage += "\nin function:";
1596 sMessage += currentFunction;
1597 sMessage += "\ntype: ";
1598 sMessage += OUStringToOString( caught.getValueTypeName(), osl_getThreadTextEncoding() );
1599 ::com::sun::star::uno::Exception exception;
1600 caught >>= exception;
1601 if ( !exception.Message.isEmpty() )
1602 {
1603 sMessage += "\nmessage: ";
1604 sMessage += OUStringToOString( exception.Message, osl_getThreadTextEncoding() );
1605 }
1606 if ( exception.Context.is() )
1607 {
1608 const char* pContext = typeid( *exception.Context.get() ).name();
1609 sMessage += "\ncontext: ";
1610 sMessage += pContext;
1611 }
1612 {
1613 ::com::sun::star::configuration::CorruptedConfigurationException
1614 specialized;
1615 if ( caught >>= specialized )
1616 {
1617 sMessage += "\ndetails: ";
1618 sMessage += OUStringToOString(
1619 specialized.Details, osl_getThreadTextEncoding() );
1620 }
1621 }
1622 {
1623 ::com::sun::star::task::ErrorCodeIOException specialized;
1624 if ( caught >>= specialized )
1625 {
1626 sMessage += "\ndetails: ";
1627 sMessage += OString::valueOf( specialized.ErrCode );
1628 }
1629 }
1630 sMessage += "\n";
1631
1632 SAL_DETAIL_LOG_FORMAT(
1633 SAL_DETAIL_ENABLE_LOG_WARN, SAL_DETAIL_LOG_LEVEL_WARN,
1634 "legacy.osl", fileAndLineNo, "%s", sMessage.getStr());
1635 }
1636
1637 #endif // OSL_DEBUG_LEVEL
1638
1639
1640 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */
FREE OFFICE SUITE