perlerrors.swg 871 B

12345678910111213141516171819202122232425262728293031323334
  1. /* -----------------------------------------------------------------------------
  2. * error manipulation
  3. * ----------------------------------------------------------------------------- */
  4. SWIGINTERN const char*
  5. SWIG_Perl_ErrorType(int code) {
  6. switch(code) {
  7. case SWIG_MemoryError:
  8. return "MemoryError";
  9. case SWIG_IOError:
  10. return "IOError";
  11. case SWIG_RuntimeError:
  12. return "RuntimeError";
  13. case SWIG_IndexError:
  14. return "IndexError";
  15. case SWIG_TypeError:
  16. return "TypeError";
  17. case SWIG_DivisionByZero:
  18. return "ZeroDivisionError";
  19. case SWIG_OverflowError:
  20. return "OverflowError";
  21. case SWIG_SyntaxError:
  22. return "SyntaxError";
  23. case SWIG_ValueError:
  24. return "ValueError";
  25. case SWIG_SystemError:
  26. return "SystemError";
  27. case SWIG_AttributeError:
  28. return "AttributeError";
  29. default:
  30. return "RuntimeError";
  31. }
  32. }