Function lua_java_call_instance

src/agent/lua/api_java.c:857–919

}

static int lua_java_call_instance(lua_State* L) {
    jobject* ud = (jobject*)luaL_checkudata(L, 1, JAVA_INSTANCE_MT);
    jobject instance = *ud;
    const char* method_name = luaL_checkstring(L, 2);
    const char* sig = luaL_checkstring(L, 3);

    JNIEnv* env = get_jni_env();
    if (!env) {
        lua_pushnil(L);
        return 1;
    }

    jvalue args[MAX_PARAMS];
    memset(args, 0, sizeof(args));

    ParsedSignature parsed = parse_signature(sig);
    lua_to_jvalue(env,L,&parsed,args,4);
    
    jvalue result = call_instance_method(env, instance, method_name, sig, args);

    switch (parsed.return_type) {
        case 'V':
            return 0;
        case 'Z':
            lua_pushboolean(L, result.z);
            return 1;
        case 'I':
            lua_pushinteger(L, result.i);
            return 1;
        case 'J':
            lua_pushinteger(L, (lua_Integer)result.j);
            return 1;
        case 'F':
            lua_pushnumber(L, result.f);
            return 1;
        case 'D':
            lua_pushnumber(L, result.d);
            return 1;
        case 'L':
        case '[':
            if (result.l) {
                jclass string_class = (*env)->FindClass(env, "java/lang/String");
                if ((*env)->IsInstanceOf(env, result.l, string_class)) {
                    const char* str = (*env)->GetStringUTFChars(env, (jstring)result.l, NULL);
                    lua_pushstring(L, str);
                    (*env)->ReleaseStringUTFChars(env, (jstring)result.l, str);
                } else {
                    jobject global = (*env)->NewGlobalRef(env, result.l);
                    jobject* obj_ud = (jobject*)lua_newuserdata(L, sizeof(jobject));
                    *obj_ud = global;
                    luaL_getmetatable(L, JAVA_INSTANCE_MT);
                    lua_setmetatable(L, -2);
                }
                (*env)->DeleteLocalRef(env, result.l);
            } else {
                lua_pushnil(L);
            }
            return 1;