MkExceptionC_jv.c

Go to the documentation of this file.

 
/* LABEL-NO */
#define META_FILE_NAME "MkExceptionC_jv.c"
 
#include <jni.h>
#include "LibMkKernel_jv.h"
 
/* LABEL-END */
 
void NS(MkExceptionC_Raise) (
  JNIEnv *      env,
  MK_MNGN       mng,
  MK_STRN const doc,
  MK_STRN const file,
  MK_I32 const  line
)
{
  MK_ERR err = MkErrorFORMAT_1M(mng);
  MkRtSetup_XN(err);
  MkErrorStackFormat(err,doc,file,line);
  NS(pGetCallerStack)(MK_RT_CALL env, err);
  MK_ERR newerr = MkErrCheck(mng) && mng != err ? (MK_ERR)mng : MkErrorDup(err);
  MkRefIncr_1X(newerr);
 
  jthrowable exp = (*env)->NewObject(env, NS(Class_MkExceptionC), NS(MID_MkExceptionC_INIT), 
                      (jlong) newerr, JC2O(env, (MK_STRN)MkErrorGetTextI(err)));
 
  (*env)->Throw(env, exp);
 
  MkErrorReset_1(err);
}
 
JNIEXPORT void JNICALL Java_jvmkkernel_MkExceptionC_Dispose (JNIEnv *env, jobject self)
{
  MK_ERR hdl = MkErr((MK_MNG)(*env)->GetLongField(env,self,NS(FID_MkExceptionC_hdl)));
  MkRtSetup_X(hdl);
  if (hdl) MkRefDecr_X(hdl);
  (*env)->SetLongField(env,self,NS(FID_MkExceptionC_hdl),0);
  return;
}
 
MK_ERR NS(MkExceptionC_Catch) (
  JNIEnv          *env,
  MK_MNGN         mng,
  jthrowable      ex,
  MK_STRN const   proc,
  MK_STRN const   stop
)
{
  if (ex == NULL) ex = (*env)->ExceptionOccurred(env);
  MK_ERR const err = MkErrorFORMAT_1M(mng);
  MkRtSetup_XN(err);
 
  // is the ERROR from "java" or "jvmkkernel"
  if (OT_LNG_OBJ_CLASS_IS(ex, NS(Class_MkExceptionC))) {
    // error is from "jvmkkernel"
    MK_ERR newerr = (MK_ERR) (*env)->GetLongField(env,ex,NS(FID_MkExceptionC_hdl));
    if (newerr) {
      MkErrorSetE(err, newerr);
      (*env)->CallObjectMethod(env,ex,NS(MID_MkExceptionC_EXIT));
    }
 
  } else {
    (*env)->CallStaticVoidMethod( 
      env, MK(Class_MkExceptionC), MK(MID_MkExceptionC_Catch), 
        MK(MkErrorC_ObjNew)(MK_RT_CALL env,err), ex, JC2O(env, proc), JC2O(env, stop)
    );
  }
  (*env)->ExceptionClear(env);
 
  return err;
}