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