home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ocl150a.zip / OCL / Source / OXcptBase.cpp < prev    next >
C/C++ Source or Header  |  1997-01-10  |  9KB  |  308 lines
  1. // OCL - OS/2 Class Library
  2. // (c) Cubus 1995
  3. // All Rights Reserved
  4. // OXcptBase.cpp
  5.  
  6.  
  7. /*
  8.  * Redistribution and use in source and binary forms, with or without
  9.  * modification, are permitted provided that the following conditions
  10.  * are met:
  11.  * 1. Redistributions of source code must retain the above copyright
  12.  *    notice, this list of conditions and the following disclaimer.
  13.  * 2. Neither the name Cubus nor the name Team OCL may be used to
  14.  *    endorse or promote products derived from this software
  15.  *    without specific prior written permission.
  16.  * 3. See OCL.INF for a detailed copyright notice.
  17.  *
  18.  *              THIS SOFTWARE IS PROVIDED ``AS IS'' AND
  19.  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  20.  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  21.  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  22.  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  23.  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  24.  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  25.  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  26.  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  27.  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  28.  * SUCH DAMAGE.
  29.  */
  30.  
  31. // $Header: W:/Projects/OCL/Source/rcs/OXcptBase.cpp 1.50 1996/08/11 23:49:37 B.STEIN Release $
  32.  
  33. #define __OCL_SOURCE__
  34.  
  35. #define OINCL_OSTRING
  36. #define OINCL_BASE
  37.  
  38. #include <ocl.hpp>
  39. #include <OXcptBase.hpp>
  40.  
  41. #include <stdarg.h>
  42.  
  43.  
  44. pOXcptBase OXcptBase::currentHandler = NULL;
  45.  
  46.  
  47. OXcptBase::OXcptBase(BOOL killMessages)
  48.    : killMsg(killMessages),
  49.      record(NULL) {}
  50.  
  51. OXcptBase::~OXcptBase()
  52.   {}
  53.  
  54.  
  55. PSZ OXcptBase::isOfType() const
  56. { 
  57.  return("OXcptBase"); 
  58. } 
  59.  
  60.  
  61.  
  62. BOOL OXcptBase::setHandler(OXCPTRECORD& regRecord)
  63. {
  64.  if (!OXcptBase::currentHandler)
  65.    OXcptBase::currentHandler = this;
  66.  
  67.  record = ®Record;
  68.  
  69.  regRecord.prev_structure   = NULL;
  70.  regRecord.ExceptionHandler = (_ERR*)&OXcptBase::OXCPT_CATCH;
  71.  
  72.  if (!DosSetExceptionHandler(®Record))
  73.    return(!DosSetSignalExceptionFocus(SIG_SETFOCUS, ×));
  74.  return(FALSE);
  75. }
  76.  
  77.  
  78. BOOL OXcptBase::unsetHandler()
  79. {
  80.  if (OXcptBase::currentHandler == this)
  81.    OXcptBase::currentHandler = NULL;
  82.  
  83.  if (record)
  84.    return(!DosUnsetExceptionHandler(record));
  85.  return(FALSE);
  86. }
  87.  
  88.  
  89.  
  90. BOOL OXcptBase::handler(PEXCEPTIONREPORTRECORD report,
  91.                         OXCPTRECORD *record,
  92.                         CONTEXTRECORD *context,
  93.                         PVOID pargs)
  94. {
  95.  BOOL    disable = TRUE;
  96.  ULONG   nest;
  97.  OString msg("\nException Handler registered:\n");
  98.  
  99.  DosEnterMustComplete(&nest);
  100.  msg + except_printf("\nFatal exception: %8.8lX.\n",report->ExceptionNum);
  101.  
  102.  switch (report->ExceptionNum) 
  103.   {
  104.    case XCPT_PROCESS_TERMINATE:
  105.    case XCPT_ASYNC_PROCESS_TERMINATE:
  106.    case XCPT_UNWIND:
  107.      DosExitMustComplete(&nest);
  108.      return(TRUE);
  109.  
  110.    case XCPT_CPP_EXCEPTION:
  111.      DosExitMustComplete(&nest);
  112.      return(FALSE);
  113.  
  114.    case XCPT_ACCESS_VIOLATION:
  115.      msg + except_printf("Access violation.\n");
  116.      switch (report->ExceptionInfo[0]) 
  117.       {
  118.        case XCPT_READ_ACCESS:
  119.        case XCPT_WRITE_ACCESS:
  120.          msg + except_printf("Invalid linear address %8.8lX.\n", report->ExceptionInfo[1]);
  121.          break;
  122.        case XCPT_SPACE_ACCESS:
  123.          msg + except_printf("Invalid selector %8.8lX.\n",report->ExceptionInfo[1]);
  124.          break;
  125.        case XCPT_LIMIT_ACCESS:
  126.          msg + except_printf("Limit access fault.\n");
  127.          break;
  128.        case XCPT_UNKNOWN_ACCESS:
  129.          msg + except_printf("Unknown access fault.\n");
  130.          break;
  131.        default:
  132.          msg + except_printf("Other unknown access fault.\n");
  133.       }
  134.      break;
  135.    case XCPT_INTEGER_DIVIDE_BY_ZERO:
  136.      msg + except_printf("Integer divide by zero.\n");
  137.      break;
  138.    case XCPT_INTEGER_OVERFLOW:
  139.      msg + except_printf("Integer overflow.\n");
  140.      break;
  141.    case XCPT_ILLEGAL_INSTRUCTION:
  142.      msg + except_printf("Illegal instruction.\n");
  143.      break;
  144.    case XCPT_FLOAT_DENORMAL_OPERAND:
  145.      msg + except_printf("Float denormal operand.\n");
  146.      break;
  147.    case XCPT_FLOAT_DIVIDE_BY_ZERO:
  148.      msg + except_printf("Float divide by zero.\n");
  149.      break;
  150.    case XCPT_FLOAT_INEXACT_RESULT:
  151.      msg + except_printf("Float inexact result.\n");
  152.      break;
  153.    case XCPT_FLOAT_INVALID_OPERATION:
  154.      msg + except_printf("Float invalid operation.\n");
  155.      break;
  156.    case XCPT_FLOAT_OVERFLOW:
  157.      msg + except_printf("Float overflow.\n");
  158.      break;
  159.    case XCPT_FLOAT_STACK_CHECK:
  160.      msg + except_printf("Float stack check.\n");
  161.      break;
  162.    case XCPT_FLOAT_UNDERFLOW:
  163.      msg + except_printf("Float underflow.\n");
  164.      break;
  165.    case XCPT_PRIVILEGED_INSTRUCTION:
  166.      msg + except_printf("Privileged instruction.\n");
  167.      break;
  168.    case XCPT_NONCONTINUABLE_EXCEPTION:
  169.      msg + except_printf("Unknown noncontinuable exception.\n");
  170.      disable = FALSE;
  171.      break;
  172.    case XCPT_SIGNAL:
  173.      msg << "Acknowledged signal: ";
  174.      switch (report->ExceptionInfo[0]) 
  175.       {
  176.        case XCPT_SIGNAL_BREAK:
  177.          msg + except_printf("Control-Break.\n");
  178.          break;
  179.        case XCPT_SIGNAL_INTR:
  180.          msg + except_printf("Control-C.\n");
  181.          break;
  182.        case XCPT_SIGNAL_KILLPROC:
  183.          msg + except_printf("DosKillProcess.\n");
  184.          break;
  185.       }
  186.      DosExitMustComplete(&nest);
  187.      if (killMsg)
  188.        exceptionMessage(msg);
  189.      if (killTrace())
  190.       {
  191.        DosAcknowledgeSignalException(XCPT_SIGNAL_INTR);
  192.        DosAcknowledgeSignalException(XCPT_SIGNAL_KILLPROC);
  193.        DosAcknowledgeSignalException(XCPT_SIGNAL_BREAK);
  194.        return(TRUE);
  195.       }
  196.      else
  197.       {
  198.        unsetHandler(); 
  199.        DosExit(EXIT_THREAD, 0);
  200.       }  
  201.   }
  202.  
  203.  except_print_context(msg, context);
  204.  msg + except_printf("Cannot continue.\n");
  205.  
  206.  DosExitMustComplete(&nest);
  207.  exceptionMessage(msg);
  208.  unsetHandler();
  209.  if (disable)
  210.    DosError(FERR_DISABLEEXCEPTION);
  211.  return(trapTrace());
  212.  
  213. #ifdef __BCPLUSPLUS__
  214.   #pragma warn -par
  215. #endif
  216. }
  217. #ifdef __BCPLUSPLUS__
  218.   #pragma warn .par
  219. #endif
  220.  
  221.  
  222.  
  223. ULONG OXcptBase::OXCPT_CATCH(EXCEPTIONREPORTRECORD *report,
  224.                              OXCPTRECORD *record,
  225.                              CONTEXTRECORD *context,
  226.                              PVOID pargs)
  227. {
  228.  if ((!OXcptBase::currentHandler) || 
  229.      (!OXcptBase::currentHandler->handler(report, record, context, pargs))) {
  230.    return(XCPT_CONTINUE_SEARCH); } 
  231.  else
  232.    return(XCPT_CONTINUE_EXECUTION);
  233. #ifdef __BCPLUSPLUS__
  234.   #pragma warn -par
  235. #endif
  236. }
  237. #ifdef __BCPLUSPLUS__
  238.   #pragma warn .par
  239. #endif
  240.  
  241.  
  242.  
  243. // C helpers
  244.  
  245.  
  246. PSZ __CPP_EXPORT__ except_printf(const char *format, ...) 
  247. {
  248.  va_list      ap;
  249.  static CHAR  buf[CCHMAXPATH];
  250.  
  251.  va_start(ap, format);
  252.  vsprintf(buf, format, ap);
  253.  va_end(ap);
  254.  
  255.  return((PSZ)buf);
  256. }
  257.  
  258.  
  259. void __CPP_EXPORT__ except_print_context(OString& msg, PCONTEXTRECORD cont) 
  260. {
  261.  PTIB   ptib;
  262.  PPIB   ppib;
  263.  APIRET rc;
  264.  
  265.  if (cont->ContextFlags & CONTEXT_CONTROL) {
  266.    msg + except_printf("EIP : %8.8lX\n",cont->ctx_RegEip  );
  267.    msg + except_printf("EBP : %8.8lX\n",cont->ctx_RegEbp  );
  268.    msg + except_printf("ESP : %8.8lX\n",cont->ctx_RegEsp  );
  269.    msg + except_printf("EFLG: %8.8lX\n",cont->ctx_EFlags  ); }
  270.  
  271.  if (cont->ContextFlags & CONTEXT_INTEGER) {
  272.    msg + except_printf("EAX : %8.8lX\n",cont->ctx_RegEax  );
  273.    msg + except_printf("EBX : %8.8lX\n",cont->ctx_RegEbx  );
  274.    msg + except_printf("ECX : %8.8lX\n",cont->ctx_RegEcx  );
  275.    msg + except_printf("EDX : %8.8lX\n",cont->ctx_RegEdx  );
  276.    msg + except_printf("EDI : %8.8lX\n",cont->ctx_RegEdi  );
  277.    msg + except_printf("ESI : %8.8lX\n",cont->ctx_RegEsi  ); }
  278.  
  279.  if (cont->ContextFlags & CONTEXT_CONTROL) {
  280.    msg + except_printf("CS  : %4.4lX\n",cont->ctx_SegCs   );
  281.    msg + except_printf("SS  : %4.4lX\n",cont->ctx_SegSs   ); }
  282.  
  283.  if (cont->ContextFlags & CONTEXT_SEGMENTS) {
  284.    msg + except_printf("GS  : %4.4lX\n",cont->ctx_SegGs);
  285.    msg + except_printf("FS  : %4.4lX\n",cont->ctx_SegFs);
  286.    msg + except_printf("ES  : %4.4lX\n",cont->ctx_SegEs);
  287.    msg + except_printf("DS  : %4.4lX\n",cont->ctx_SegDs); }
  288.  
  289.  if (cont->ContextFlags & CONTEXT_CONTROL) 
  290.   {
  291.    if (DosGetInfoBlocks(&ptib, &ppib) == 0) {
  292.      static CHAR modname[CCHMAXPATH];
  293.     
  294.      msg + except_printf("Process id: %lu, ", ppib->pib_ulpid);
  295.      rc = DosQueryModuleName(ppib->pib_hmte,CCHMAXPATH, modname);
  296.      msg + except_printf(".EXE name: %s\n", rc == 0 ? modname : "?????");
  297.      msg + except_printf("Thread id: %lu,  ordinal : %lu, priority : %p\n",
  298.                          ptib->tib_ptib2->tib2_ultid ,
  299.                          ptib->tib_ordinal,
  300.                          ptib->tib_ptib2->tib2_ulpri );
  301.      msg + except_printf("Stack bottom: %8.8lX, ", ptib->tib_pstack);
  302.      msg + except_printf("top: %8.8lX \n",ptib->tib_pstacklimit); }
  303.   }
  304. }
  305.  
  306.  
  307. // end of source
  308.