ef80a4f59a
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@9175 626c5289-ae23-0410-ae9c-e8d60b6d4f22
8 lines
225 B
OpenEdge ABL
8 lines
225 B
OpenEdge ABL
%include <typemaps/exception.swg>
|
|
|
|
|
|
%insert("runtime") {
|
|
%define_as(SWIG_exception(code, msg),
|
|
%block(switch (code) {case SWIG_IndexError: return Rf_ScalarLogical(NA_LOGICAL); default: %error(code, msg); SWIG_fail;} ))
|
|
}
|
|
|