MkCall_jv.c

Go to the documentation of this file.

 
/* LABEL-NO */
 
#include <jni.h>
#include "LibMkKernel_jv.h"
 
MK_PTR
MK(ProcCreate) (
  MK_RT_ARGS
  JNIEnv*   env,
  jobject   object,
  jclass    class,
  jmethodID method,
  bool      hasArg
)
{
  if (object == NULL && class == NULL) {
    return NULL;
  }
  struct MkProcCallS * call = MkSysCalloc(MK_ERROR_PANIC, 1, sizeof(*call));
  if (object != NULL) {
    JavaErrorCheckNULL (call->object = (*env)->NewGlobalRef(env, object));
  }
  if (class != NULL) {
    JavaErrorCheckNULL (call->class = (*env)->NewGlobalRef(env, class));
  }
  call->mkrt = mkrt;
  call->hasArg = hasArg;
  call->env = env;
  call->method = method;
  return call;
error:
  if (call->object) (*env)->DeleteGlobalRef(env, call->object);
  if (call->class)  (*env)->DeleteGlobalRef(env, call->class);
  MkSysFree(call);
  return NULL;
}
 
void MK(ProcFree) (struct MkProcCallS ** callP) 
{
  if (callP == NULL) return;
  struct MkProcCallS * call = *callP;
  JNIEnv *env = call->env;
  if (call->object != NULL) (*env)->DeleteGlobalRef(env, call->object);
  if (call->class  != NULL) (*env)->DeleteGlobalRef(env, call->class );
  MkSysFree(*callP);
}
 
// ===============================================================================================
 
void MK_DECL
NS(ObjectDeleteFree) ( MkObjectDeleteFreeF_ARGS )
{
  if (dataP == NULL) return;
  MK(ProcFree)((struct MkProcCallS **)dataP);
}
 
enum MkErrorE MK_DECL
NS(ObjectDeleteCall) ( MkObjectDeleteCallF_ARGS )
{
  MkObjectDeleteCallF_CHECK;
 
  // if NO self object is available than NO callback is called
  if (!MkSelfExists(obj)) return MK_OK;
 
  struct MkProcCallS const * const call = (struct MkProcCallS const * const) __data__;
  JNIEnv *env = call->env;
 
  jstring typeNameO = (*env)->NewStringUTF(env,typeName);
 
  // call the function
  if (call->class == NULL) {
    // method call of the same class
    (*env)->CallVoidMethod(env, call->object, call->method, typeNameO, typeHdl, objHdl);
  } else if (call->object == NULL) {
    // static method call returning an object
    (*env)->CallStaticVoidMethod(env, call->class, call->method, typeNameO, typeHdl, objHdl);
  } else {
    // method call of an other class
    (*env)->CallNonvirtualVoidMethod(env, call->object, call->class, call->method, typeNameO, typeHdl, objHdl);
  }
 
  // check on error
  if((*env)->ExceptionCheck(env) != JNI_FALSE) {
    // is the ERROR from "java" or "jvmkkernel"
    OT_ERROR_LNG_2_META(MkObjectC_TT);
  }
  return MkErrorStack_0E_Check();
}