Function native_invoke_callback

src/agent/lua/api_java.c:245–319

static jobject JNICALL native_invoke_callback(JNIEnv* env, jclass clazz,
    jlong callbackPtr, jstring methodName, jstring returnType, jobjectArray args)
{
    CallbackRegistry* reg = (CallbackRegistry*)(uintptr_t)callbackPtr;
    if (!reg || !reg->L) return NULL;

    const char* name = (*env)->GetStringUTFChars(env, methodName, NULL);
    if (!name) return NULL;

    int lua_ref = LUA_NOREF;
    for (int i = 0; i < reg->method_count; i++) {
        if (strcmp(reg->methods[i].method_name, name) == 0) {
            lua_ref = reg->methods[i].lua_ref;
            break;
        }
    }

    if (lua_ref == LUA_NOREF) {
        (*env)->ReleaseStringUTFChars(env, methodName, name);
        return NULL;
    }

    lua_State* L = reg->L;
    lua_rawgeti(L, LUA_REGISTRYINDEX, lua_ref);

    int arg_count = 0;
    if (args) {
        arg_count = (*env)->GetArrayLength(env, args);
        for (int i = 0; i < arg_count; i++) {
            jobject arg = (*env)->GetObjectArrayElement(env, args, i);
            if (!arg) {
                lua_pushnil(L);
            } else {
                jclass string_class = (*env)->FindClass(env, "java/lang/String");
                if ((*env)->IsInstanceOf(env, arg, string_class)) {
                    const char* str = (*env)->GetStringUTFChars(env, (jstring)arg, NULL);
                    lua_pushstring(L, str);
                    (*env)->ReleaseStringUTFChars(env, (jstring)arg, str);
                } else {
                    lua_pushinteger(L, (lua_Integer)(uintptr_t)arg);
                }
                (*env)->DeleteLocalRef(env, arg);
            }
        }
    }

    jobject result = NULL;
    if (lua_pcall(L, arg_count, 1, 0) != LUA_OK) {
        LOGE("registerClass callback error [%s]: %s", name, lua_tostring(L, -1));
        lua_pop(L, 1);
    } else {
        const char* ret_type = (*env)->GetStringUTFChars(env, returnType, NULL);

        if (ret_type && strcmp(ret_type, "boolean") == 0) {
            jclass bool_class = (*env)->FindClass(env, "java/lang/Boolean");
            jmethodID value_of = (*env)->GetStaticMethodID(env, bool_class, "valueOf", "(Z)Ljava/lang/Boolean;");
            jboolean val = lua_toboolean(L, -1);
            result = (*env)->CallStaticObjectMethod(env, bool_class, value_of, val);