sal/osl/w32/diagnose.c

   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 #include "system.h"
  21
  22 #include <stdio.h>
  23
  24 #include <osl/diagnose.h>
  25
  26 static pfunc_osl_printDebugMessage  _pPrintDebugMessage = NULL;
  27 static pfunc_osl_printDetailedDebugMessage  _pPrintDetailedDebugMessage = NULL;
  28
  29 pfunc_osl_printDebugMessage SAL_CALL osl_setDebugMessageFunc( pfunc_osl_printDebugMessage pNewFunc )
  30 {
  31     pfunc_osl_printDebugMessage pOldFunc = _pPrintDebugMessage;
  32     _pPrintDebugMessage = pNewFunc;
  33
  34     return pOldFunc;
  35 }
  36
  37 pfunc_osl_printDetailedDebugMessage SAL_CALL osl_setDetailedDebugMessageFunc( pfunc_osl_printDetailedDebugMessage pNewFunc )
  38 {
  39     pfunc_osl_printDetailedDebugMessage pOldFunc = _pPrintDetailedDebugMessage;
  40     _pPrintDetailedDebugMessage = pNewFunc;
  41     return pOldFunc;
  42 }
  43
  44 /*
  45  Trace output
  46 */
  47
  48 void SAL_CALL osl_breakDebug(void)
  49 {
  50     if ( IsDebuggerPresent() )
  51         DebugBreak();
  52     else
  53         abort ();
  54 }
  55
  56 sal_Bool SAL_CALL osl_assertFailedLine(const sal_Char* pszFileName, sal_Int32 nLine, const sal_Char* pszMessage)
  57 {
  58     char const * env = getenv( "SAL_DIAGNOSE_ABORT" );
  59 #if defined(_DEBUG) && !defined(NO_DEBUG_CRT)
  60     _CrtDbgReport(_CRT_ASSERT, pszFileName, nLine, NULL, pszMessage);
  61     return ( ( env != NULL ) && ( *env != '\0' ) );
  62 #else
  63     HWND hWndParent;
  64     UINT nFlags;
  65     int  nCode;
  66
  67     /* get app name or NULL if unknown (don't call assert) */
  68     LPCSTR lpszAppName = "Error";
  69     sal_Char   szMessage[512];
  70
  71     /* format message into buffer */
  72     szMessage[sizeof(szMessage)-1] = '\0';  /* zero terminate always */
  73     _snprintf(szMessage, sizeof(szMessage)-1, "%s: File %hs, Line %d\n:%s\n",
  74                lpszAppName, pszFileName, nLine, pszMessage);
  75
  76     OutputDebugString(szMessage);
  77
  78     if ( _pPrintDetailedDebugMessage )
  79         _pPrintDetailedDebugMessage( pszFileName, nLine, pszMessage );
  80     else if ( _pPrintDebugMessage )
  81         _pPrintDebugMessage( szMessage );
  82     else
  83     {
  84         if ( !getenv( "DISABLE_SAL_DBGBOX" ) )
  85         {
  86             TCHAR szBoxMessage[1024];
  87
  88             /* active popup window for the current thread */
  89             hWndParent = GetActiveWindow();
  90             if (hWndParent != NULL)
  91                 hWndParent = GetLastActivePopup(hWndParent);
  92
  93             /* set message box flags */
  94             nFlags = MB_TASKMODAL | MB_ICONWARNING | MB_YESNOCANCEL | MB_DEFBUTTON2 | MB_SETFOREGROUND;
  95             if (hWndParent == NULL)
  96                 nFlags |= MB_SERVICE_NOTIFICATION;
  97
  98             /* display the assert */
  99
 100             szBoxMessage[sizeof(szBoxMessage)-1] = 0;
 101             _snprintf(szBoxMessage, sizeof(szBoxMessage)-1, "%s\n( Yes=Abort / No=Ignore / Cancel=Debugger )",
 102                        szMessage);
 103
 104             nCode = MessageBox(hWndParent, szBoxMessage, "Assertion Failed!", nFlags);
 105
 106             if (nCode == IDYES)
 107                 FatalExit(-1);
 108
 109             if (nCode == IDNO)
 110                 return sal_False;   /* ignore */
 111
 112             if (nCode == IDCANCEL)
 113                 return sal_True;    /* will cause oslDebugBreak */
 114         }
 115         else
 116         {
 117             fputs(szMessage, stderr); // fall back
 118         }
 119         return ( ( env != NULL ) && ( *env != '\0' ) );
 120     }
 121
 122     return sal_False;
 123 #endif /* _DEBUG && !NO_DEBUG_CRT */
 124 }
 125
 126 sal_Int32 SAL_CALL osl_reportError(sal_uInt32 nType, const sal_Char* pszMessage)
 127 {
 128     UINT nFlags;
 129     int nDisposition;
 130
 131     // active popup window for the current thread
 132     HWND hWndParent = GetActiveWindow();
 133     if (hWndParent != NULL)
 134         hWndParent = GetLastActivePopup(hWndParent);
 135
 136     /* set message box flags */
 137     nFlags = MB_TASKMODAL | MB_ICONERROR | MB_YESNOCANCEL | MB_DEFBUTTON2 | MB_SETFOREGROUND;
 138     if (hWndParent == NULL)
 139         nFlags |= MB_SERVICE_NOTIFICATION;
 140
 141     // display the assert
 142     nDisposition = MessageBox(hWndParent, pszMessage, "Exception!", nFlags);
 143     (void)nType; //unused, but part of public API/ABI
 144     return nDisposition;
 145 }
 146
 147 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */