You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
68 lines
2.1 KiB
68 lines
2.1 KiB
5 years ago
|
/* -----------------------------------------------------------------------------
|
||
|
|
* See the LICENSE file for information on copyright, usage and redistribution
|
||
|
|
* of SWIG, and the README file for authors - http://www.swig.org/release.html.
|
||
|
|
*
|
||
|
|
* modula3head.swg
|
||
|
|
*
|
||
|
|
* Modula3 support code
|
||
|
|
* ----------------------------------------------------------------------------- */
|
||
|
|
|
||
|
|
%insert(runtime) %{
|
||
|
|
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <stdio.h>
|
||
|
|
%}
|
||
|
|
|
||
|
|
#if 0
|
||
|
|
%insert(runtime) %{
|
||
|
|
/* Support for throwing Modula3 exceptions */
|
||
|
|
typedef enum {
|
||
|
|
SWIG_JavaOutOfMemoryError = 1,
|
||
|
|
SWIG_JavaIOException,
|
||
|
|
SWIG_JavaRuntimeException,
|
||
|
|
SWIG_JavaIndexOutOfBoundsException,
|
||
|
|
SWIG_JavaArithmeticException,
|
||
|
|
SWIG_JavaIllegalArgumentException,
|
||
|
|
SWIG_JavaNullPointerException,
|
||
|
|
SWIG_JavaUnknownError
|
||
|
|
} SWIG_JavaExceptionCodes;
|
||
|
|
|
||
|
|
typedef struct {
|
||
|
|
SWIG_JavaExceptionCodes code;
|
||
|
|
const char *java_exception;
|
||
|
|
} SWIG_JavaExceptions_t;
|
||
|
|
|
||
|
|
#if defined(SWIG_NOINCLUDE)
|
||
|
|
void SWIG_JavaThrowException(JNIEnv *jenv, SWIG_JavaExceptionCodes code, const char *msg);
|
||
|
|
#else
|
||
|
|
%}
|
||
|
|
%insert(runtime) {
|
||
|
|
void SWIG_JavaThrowException(JNIEnv *jenv, SWIG_JavaExceptionCodes code, const char *msg) {
|
||
|
|
jclass excep;
|
||
|
|
static const SWIG_JavaExceptions_t java_exceptions[] = {
|
||
|
|
{ SWIG_JavaOutOfMemoryError, "java/lang/OutOfMemoryError" },
|
||
|
|
{ SWIG_JavaIOException, "java/io/IOException" },
|
||
|
|
{ SWIG_JavaRuntimeException, "java/lang/RuntimeException" },
|
||
|
|
{ SWIG_JavaIndexOutOfBoundsException, "java/lang/IndexOutOfBoundsException" },
|
||
|
|
{ SWIG_JavaArithmeticException, "java/lang/ArithmeticException" },
|
||
|
|
{ SWIG_JavaIllegalArgumentException, "java/lang/IllegalArgumentException" },
|
||
|
|
{ SWIG_JavaNullPointerException, "java/lang/NullPointerException" },
|
||
|
|
{ SWIG_JavaUnknownError, "java/lang/UnknownError" },
|
||
|
|
{ (SWIG_JavaExceptionCodes)0, "java/lang/UnknownError" } };
|
||
|
|
const SWIG_JavaExceptions_t *except_ptr = java_exceptions;
|
||
|
|
|
||
|
|
while (except_ptr->code != code && except_ptr->code)
|
||
|
|
except_ptr++;
|
||
|
|
|
||
|
|
JCALL0(ExceptionClear, jenv);
|
||
|
|
excep = JCALL1(FindClass, jenv, except_ptr->java_exception);
|
||
|
|
if (excep)
|
||
|
|
JCALL2(ThrowNew, jenv, excep, msg);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
%insert(runtime) %{
|
||
|
|
#endif
|
||
|
|
%}
|
||
|
|
#endif
|