src/Utils/Utils_ExceptHandlers.cxx

   1 // Copyright (C) 2007-2019  CEA/DEN, EDF R&D, OPEN CASCADE
   2 //
   3 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
   4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
   5 //
   6 // This library is free software; you can redistribute it and/or
   7 // modify it under the terms of the GNU Lesser General Public
   8 // License as published by the Free Software Foundation; either
   9 // version 2.1 of the License, or (at your option) any later version.
  10 //
  11 // This library is distributed in the hope that it will be useful,
  12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14 // Lesser General Public License for more details.
  15 //
  16 // You should have received a copy of the GNU Lesser General Public
  17 // License along with this library; if not, write to the Free Software
  18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  19 //
  20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
  21 //
  22
  23 // File:        Utils_ExceptHandler.cxx
  24 // Created:     Mon Mar 15 10:23:41 2004
  25 // Author:      Oksana TCHEBANOVA
  26 //              <ota@localhost.localdomain>
  27 //
  28 #include "Utils_ExceptHandlers.hxx"
  29 #include "Utils_CorbaException.hxx"
  30 #include "Utils_SALOME_Exception.hxx"
  31
  32 #include <sstream>
  33 #ifdef WIN32
  34 #include "DbgHelp.h"
  35 #include <WinBase.h>
  36 #pragma comment(lib, "Dbghelp.lib")
  37 #else
  38 #include <execinfo.h>
  39 #include <dlfcn.h>
  40 #include <cxxabi.h>
  41 #endif
  42
  43 #include <SALOMEconfig.h>
  44 #include CORBA_SERVER_HEADER(SALOME_Exception)
  45
  46 //#define NBLINES_BACKTRACE 64
  47 #ifdef WIN32
  48 void printBacktrace(std::stringstream& txt)
  49 {
  50         typedef USHORT(WINAPI *CaptureStackBackTraceType)(__in ULONG, __in ULONG, __out PVOID*, __out_opt PULONG);
  51         CaptureStackBackTraceType func = (CaptureStackBackTraceType)(GetProcAddress(LoadLibrary("kernel32.dll"), "RtlCaptureStackBackTrace"));
  52
  53         if (func == NULL)
  54                 return;
  55         const int kMaxCallers = 128;
  56
  57         void         * callers_stack[kMaxCallers];
  58         unsigned short frames;
  59         SYMBOL_INFO  * symbol;
  60         HANDLE         process;
  61         process = GetCurrentProcess();
  62         SymInitialize(process, NULL, TRUE);
  63         frames = (func)(0, kMaxCallers, callers_stack, NULL);
  64         symbol = (SYMBOL_INFO *)calloc(sizeof(SYMBOL_INFO) + 256 * sizeof(char), 1);
  65         symbol->MaxNameLen = 255;
  66         symbol->SizeOfStruct = sizeof(SYMBOL_INFO);
  67
  68         const unsigned short  MAX_CALLERS_SHOWN = 64;
  69         frames = frames < MAX_CALLERS_SHOWN ? frames : MAX_CALLERS_SHOWN;
  70         for (unsigned int i = 0; i < frames; i++)
  71         {
  72                 SymFromAddr(process, (DWORD64)(callers_stack[i]), 0, symbol);
  73                 txt << "*** " << i << ": " << callers_stack[i] << " " << symbol->Name << " - 0x" << symbol->Address << std::endl;
  74         }
  75
  76         free(symbol);
  77 }
  78 #else
  79 void printBacktrace(void **stacklines, int nbLines, std::stringstream& txt)
  80 {
  81   char **stackSymbols = backtrace_symbols(stacklines, nbLines);
  82   for (int i = 0; i < nbLines; i++)
  83     {
  84       Dl_info infodl;
  85       if (dladdr(stacklines[i], &infodl))
  86         {
  87           txt << i << " " << infodl.dli_fname << " " << infodl.dli_fbase << " ";
  88           char *demangled = NULL;
  89           int status = 0;
  90           demangled = abi::__cxa_demangle(infodl.dli_sname, NULL, 0, &status);
  91           if (status == 0 && demangled != NULL)
  92             {
  93               std::string demangstr = demangled; // copy
  94               txt << demangstr;
  95             }
  96           else
  97             {
  98               if (infodl.dli_sname != 0 && infodl.dli_sname[0] != 0)
  99                 {
 100                   std::string sname = infodl.dli_sname;
 101                   if (sname.size() > 0)
 102                     txt << infodl.dli_sname;
 103                 }
 104             }
 105           txt << " " << infodl.dli_saddr;
 106           txt << std::endl;
 107           free(demangled);
 108         }
 109       else
 110         txt << i << " " << stackSymbols[i] << std::endl;
 111     }
 112   free(stackSymbols);
 113 }
 114 #endif
 115
 116 void SalomeException ()
 117 {
 118   std::stringstream txt;
 119   txt << "Salome Exception" << std::endl;
 120 #ifdef WIN32
 121   printBacktrace(txt);
 122 #else
 123   void *stacklines[64];
 124   size_t nbLines;
 125   nbLines = backtrace(stacklines, 64);
 126   printBacktrace(stacklines, nbLines, txt);
 127 #endif
 128   throw SALOME_Exception(txt.str().c_str());
 129 }
 130
 131 void SALOME_SalomeException()
 132 {
 133   std::stringstream txt;
 134 #ifdef WIN32
 135   txt << "INTERNAL_ERROR, backtrace stack:" << std::endl;
 136   printBacktrace(txt);
 137 #else
 138   void *stacklines[64];
 139   size_t nbLines;
 140   nbLines = backtrace(stacklines, 64);
 141   txt << "INTERNAL_ERROR, backtrace stack:" << nbLines << std::endl;
 142   printBacktrace(stacklines, nbLines, txt);
 143 #endif
 144   THROW_SALOME_CORBA_EXCEPTION(txt.str().c_str(), SALOME::INTERNAL_ERROR);
 145 }
 146