PageRenderTime 41ms CodeModel.GetById 15ms RepoModel.GetById 0ms app.codeStats 1ms

/trunk/Lib/tcl/tclerrors.swg

#
Unknown | 76 lines | 69 code | 7 blank | 0 comment | 0 complexity | 7bd9096e32f9793f74798ef114706d3a MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. /* -----------------------------------------------------------------------------
    2. 

  2.  * error manipulation
    3. 

  3.  * ----------------------------------------------------------------------------- */
    4. 

  4. 

  5. SWIGINTERN const char*
    6. 

  6. SWIG_Tcl_ErrorType(int code) {
    7. 

  7.   const char* type = 0;
    8. 

  8.   switch(code) {
    9. 

  9.   case SWIG_MemoryError:
    10. 

  10.     type = "MemoryError";
    11. 

  11.     break;
    12. 

  12.   case SWIG_IOError:
    13. 

  13.     type = "IOError";
    14. 

  14.     break;
    15. 

  15.   case SWIG_RuntimeError:
    16. 

  16.     type = "RuntimeError";
    17. 

  17.     break;
    18. 

  18.   case SWIG_IndexError:
    19. 

  19.     type = "IndexError";
    20. 

  20.     break;
    21. 

  21.   case SWIG_TypeError:
    22. 

  22.     type = "TypeError";
    23. 

  23.     break;
    24. 

  24.   case SWIG_DivisionByZero:
    25. 

  25.     type = "ZeroDivisionError";
    26. 

  26.     break;
    27. 

  27.   case SWIG_OverflowError:
    28. 

  28.     type = "OverflowError";
    29. 

  29.     break;
    30. 

  30.   case SWIG_SyntaxError:
    31. 

  31.     type = "SyntaxError";
    32. 

  32.     break;
    33. 

  33.   case SWIG_ValueError:
    34. 

  34.     type = "ValueError";
    35. 

  35.     break;
    36. 

  36.   case SWIG_SystemError:
    37. 

  37.     type = "SystemError";
    38. 

  38.     break;
    39. 

  39.   case SWIG_AttributeError:
    40. 

  40.     type = "AttributeError";
    41. 

  41.     break;
    42. 

  42.   default:
    43. 

  43.     type = "RuntimeError";
    44. 

  44.   }
    45. 

  45.   return type;
    46. 

  46. }
    47. 

  47. 

  48. 

  49. SWIGINTERN void
    50. 

  50. SWIG_Tcl_SetErrorObj(Tcl_Interp *interp, const char *ctype, Tcl_Obj *obj)
    51. 

  51. {
    52. 

  52.   Tcl_ResetResult(interp);
    53. 

  53.   Tcl_SetObjResult(interp, obj);
    54. 

  54.   Tcl_SetErrorCode(interp, "SWIG", ctype, NULL);
    55. 

  55. }
    56. 

  56. 

  57. SWIGINTERN void
    58. 

  58. SWIG_Tcl_SetErrorMsg(Tcl_Interp *interp, const char *ctype, const char *mesg)
    59. 

  59. {
    60. 

  60.   Tcl_ResetResult(interp);
    61. 

  61.   Tcl_SetErrorCode(interp, "SWIG", ctype, NULL);
    62. 

  62.   Tcl_AppendResult(interp, ctype, " ", mesg, NULL);
    63. 

  63.   /*
    64. 

  64.   Tcl_AddErrorInfo(interp, ctype);
    65. 

  65.   Tcl_AddErrorInfo(interp, " ");
    66. 

  66.   Tcl_AddErrorInfo(interp, mesg);
    67. 

  67.   */
    68. 

  68. }
    69. 

  69. 

  70. SWIGINTERNINLINE void
    71. 

  71. SWIG_Tcl_AddErrorMsg(Tcl_Interp *interp, const char* mesg)
    72. 

  72. {
    73. 

  73.   Tcl_AddErrorInfo(interp, mesg);
    74. 

  74. }
    75. 

  75. 

  76. 

  77.