Sq3Call_jv.c

Go to the documentation of this file.

 
/* LABEL-NO */
 
#include <jni.h>
#include "LibSq3Lite_jv.h"
 
Sq3Fupu_Sq3LiteExec_callback_call_ret
NS(LiteExecCall) ( Sq3Fupu_Sq3LiteExec_callback_call_args )
{
  Sq3Fupu_Sq3LiteExec_callback_call_check;
 
  struct MkProcCallS const * const call = callV1;
  JNIEnv *env = call->env;
  MkRtSetup_RT(call->mkrt);
 
  jobjectArray valsO = (*env)->NewObjectArray(env, num, MK(Class_String), NULL);
  jobjectArray colsO = (*env)->NewObjectArray(env, num, MK(Class_String), NULL);
 
  for (int i=0; i<num; i++) {
    (*env)->SetObjectArrayElement(env, valsO, i, (*env)->NewStringUTF(env,vals[i]));
    (*env)->SetObjectArrayElement(env, colsO, i, (*env)->NewStringUTF(env,cols[i]));
  }
 
  // call the function
  if (call->class == NULL) {
    // method call of the same class
    (*env)->CallObjectMethod(env, call->object, call->method, valsO, colsO);
  } else if (call->object == NULL) {
    // static method call returning an object
    (*env)->CallStaticObjectMethod(env, call->class, call->method, valsO, colsO);
  } else {
    // method call of an other class
    (*env)->CallNonvirtualObjectMethod(env, call->object, call->class, call->method, valsO, colsO);
  }
  if((*env)->ExceptionCheck(env) != JNI_FALSE) goto error_lng;
 
  return 0;
error_lng:
  OT_ERROR_LNG_2_META(NULL);
  MkErrorStack_0E();
  return 1;
}
 
Sq3LiteExecV2CB_ret
NS(LiteExecV2Call) ( Sq3LiteExecV2CB_args )
{
  Sq3Fupu_Sq3LiteExecV2CB_callback_call_check;
 
  struct MkProcCallS const * const call = callV2;
  JNIEnv *env = call->env;
 
  jobject valsO = MK(MkBufferListC_ObjNew)(MK_RT_CALL env,vals);
  jobject colsO = MK(MkBufferListC_ObjNew)(MK_RT_CALL env,cols);
 
  // call the function
  if (call->class == NULL) {
    // method call of the same class
    (*env)->CallObjectMethod(env, call->object, call->method, valsO, colsO);
  } else if (call->object == NULL) {
    // static method call returning an object
    (*env)->CallStaticObjectMethod(env, call->class, call->method, valsO, colsO);
  } else {
    // method call of an other class
    (*env)->CallNonvirtualObjectMethod(env, call->object, call->class, call->method, valsO, colsO);
  }
 
  // check on error
  if((*env)->ExceptionCheck(env) != JNI_FALSE) {
    // is the ERROR from "java" or "jvmkkernel"
    OT_ERROR_LNG_2_META(NULL);
  }
  return MkErrorStack_0E_Check();
}
 
//}