Acasă Explorează Ajutor
Autentificare
8516
/
Test
1
0
Bifurcare 0
Fisiere Probleme 0 Trageți solicitările 0 Wiki
Ramură: master
Ramuri Etichete
Test
/
linux-devkit
/
sysroots
/
armv7ahf-neon-linux-gnueabi
/
usr
/
share
/
swig
/
3.0.8
/
tcl
/
tclerrors.swg

tclerrors.swg 1.7 KB
Permalink Istoric Crud

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576 
  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.