#include <android/log.h>
#include <jni.h>
#include <iomanip>
#include <cmath>
#include <string>
#include <unistd.h>
#include <sampling.h>
#include "llama.h"
#include "common.h"

/**
 * Logging utils
 */
#define TAG "llama-android.cpp"
#define LOGd(...) __android_log_print(ANDROID_LOG_DEBUG, TAG, __VA_ARGS__)
#define LOGi(...) __android_log_print(ANDROID_LOG_INFO, TAG, __VA_ARGS__)
#define LOGw(...) __android_log_print(ANDROID_LOG_WARN, TAG, __VA_ARGS__)
#define LOGe(...) __android_log_print(ANDROID_LOG_ERROR, TAG, __VA_ARGS__)

/**
 * LLama resources: context, model, batch and sampler
 */
constexpr int   N_THREADS_MIN       = 1;
constexpr int   N_THREADS_MAX       = 8;
constexpr int   N_THREADS_HEADROOM  = 2;

constexpr int   CONTEXT_SIZE = 4096;
constexpr int   BATCH_SIZE   = 512;
constexpr float SAMPLER_TEMP = 0.3f;

llama_model     * model;
llama_context   * context;
llama_batch     * batch;
common_sampler  * sampler;

static void log_callback(ggml_log_level level, const char *fmt, void *data) {
    int priority;
    switch (level) {
        case GGML_LOG_LEVEL_ERROR:
            priority = ANDROID_LOG_ERROR;
            break;
        case GGML_LOG_LEVEL_WARN:
            priority = GGML_LOG_LEVEL_WARN;
            break;
        case GGML_LOG_LEVEL_INFO:
            priority = GGML_LOG_LEVEL_INFO;
            break;
        case GGML_LOG_LEVEL_DEBUG:
            priority = GGML_LOG_LEVEL_DEBUG;
            break;
        default:
            priority = ANDROID_LOG_DEFAULT;
            break;
    }
    __android_log_print(priority, TAG, fmt, data);
}

extern "C"
JNIEXPORT void JNICALL
Java_android_llama_cpp_LLamaAndroid_log_1to_1android(JNIEnv * /*unused*/, jobject /*unused*/) {
    llama_log_set(log_callback, nullptr);
}


extern "C"
JNIEXPORT jstring JNICALL
Java_android_llama_cpp_LLamaAndroid_system_1info(JNIEnv *env, jobject /*unused*/) {
    return env->NewStringUTF(llama_print_system_info());
}

extern "C"
JNIEXPORT void JNICALL
Java_android_llama_cpp_LLamaAndroid_backend_1init(JNIEnv * /*unused*/, jobject /*unused*/) {
    llama_backend_init();
}

extern "C"
JNIEXPORT jint JNICALL
Java_android_llama_cpp_LLamaAndroid_load_1model(JNIEnv *env, jobject, jstring filename) {
    llama_model_params model_params = llama_model_default_params();

    const auto *path_to_model = env->GetStringUTFChars(filename, 0);
    LOGi("Loading model from: %s", path_to_model);

    model = llama_model_load_from_file(path_to_model, model_params);
    env->ReleaseStringUTFChars(filename, path_to_model);

    if (!model) {
        LOGe("load_model() failed");
        return -1;
    }
    return 0;
}

int init_context() {
    if (!model) {
        LOGe("init_context(): model cannot be null");
        return -1;
    }

    // Multi-threading setup
    int n_threads = std::max(N_THREADS_MIN, std::min(N_THREADS_MAX,
                                                     (int) sysconf(_SC_NPROCESSORS_ONLN) -
                                                     N_THREADS_HEADROOM));
    LOGi("Using %d threads", n_threads);

    // Context parameters setup
    llama_context_params ctx_params = llama_context_default_params();
    ctx_params.n_ctx = CONTEXT_SIZE;
    ctx_params.n_threads = n_threads;
    ctx_params.n_threads_batch = n_threads;

    context = llama_init_from_model(model, ctx_params);
    if (!context) {
        LOGe("llama_new_context_with_model() returned null)");
        return -2;
    }
    return 0;
}

void new_batch(int n_tokens, bool embd = false, int n_seq_max = 1) {
    // Source: Copy of llama.cpp:llama_batch_init but heap-allocated.
    batch = new llama_batch{
            0,
            nullptr,
            nullptr,
            nullptr,
            nullptr,
            nullptr,
            nullptr,
    };

    if (embd) {
        batch->embd = (float *) malloc(sizeof(float) * n_tokens * embd);
    } else {
        batch->token = (llama_token *) malloc(sizeof(llama_token) * n_tokens);
    }

    batch->pos = (llama_pos *) malloc(sizeof(llama_pos) * n_tokens);
    batch->n_seq_id = (int32_t *) malloc(sizeof(int32_t) * n_tokens);
    batch->seq_id = (llama_seq_id **) malloc(sizeof(llama_seq_id *) * n_tokens);
    for (int i = 0; i < n_tokens; ++i) {
        batch->seq_id[i] = (llama_seq_id *) malloc(sizeof(llama_seq_id) * n_seq_max);
    }
    batch->logits = (int8_t *) malloc(sizeof(int8_t) * n_tokens);
}

void new_sampler(float temp) {
    common_params_sampling sparams;
    sparams.temp = temp;
    sampler = common_sampler_init(model, sparams);
}

extern "C"
JNIEXPORT jint JNICALL
Java_android_llama_cpp_LLamaAndroid_ctx_1init(JNIEnv * /*env*/, jobject /*unused*/) {
    int ret = init_context();
    if (ret != 0) { return ret; }
    new_batch(BATCH_SIZE);
    new_sampler(SAMPLER_TEMP);
    return 0;
}

extern "C"
JNIEXPORT void JNICALL
Java_android_llama_cpp_LLamaAndroid_clean_1up(JNIEnv * /*unused*/, jobject /*unused*/) {
    llama_model_free(model);
    llama_free(context);
    llama_backend_free();
    delete batch;
    common_sampler_free(sampler);
}

extern "C"
JNIEXPORT jstring JNICALL
Java_android_llama_cpp_LLamaAndroid_bench_1model(JNIEnv *env, jobject /*unused*/, jint pp, jint tg, jint pl, jint nr) {
    auto pp_avg = 0.0;
    auto tg_avg = 0.0;
    auto pp_std = 0.0;
    auto tg_std = 0.0;

    const uint32_t n_ctx = llama_n_ctx(context);

    LOGi("n_ctx = %d", n_ctx);

    int i, j;
    int nri;
    for (nri = 0; nri < nr; nri++) {
        LOGi("Benchmark prompt processing (pp)");

        common_batch_clear(*batch);

        const int n_tokens = pp;
        for (i = 0; i < n_tokens; i++) {
            common_batch_add(*batch, 0, i, {0}, false);
        }

        batch->logits[batch->n_tokens - 1] = true;
        llama_memory_clear(llama_get_memory(context), false);

        const auto t_pp_start = ggml_time_us();
        if (llama_decode(context, *batch) != 0) {
            LOGw("llama_decode() failed during prompt processing");
        }
        const auto t_pp_end = ggml_time_us();

        // bench text generation

        LOGi("Benchmark text generation (tg)");

        llama_memory_clear(llama_get_memory(context), false);
        const auto t_tg_start = ggml_time_us();
        for (i = 0; i < tg; i++) {

            common_batch_clear(*batch);
            for (j = 0; j < pl; j++) {
                common_batch_add(*batch, 0, i, {j}, true);
            }

            LOGi("llama_decode() text generation: %d", i);
            if (llama_decode(context, *batch) != 0) {
                LOGw("llama_decode() failed during text generation");
            }
        }

        const auto t_tg_end = ggml_time_us();

        llama_memory_clear(llama_get_memory(context), false);

        const auto t_pp = double(t_pp_end - t_pp_start) / 1000000.0;
        const auto t_tg = double(t_tg_end - t_tg_start) / 1000000.0;

        const auto speed_pp = double(pp) / t_pp;
        const auto speed_tg = double(pl * tg) / t_tg;

        pp_avg += speed_pp;
        tg_avg += speed_tg;

        pp_std += speed_pp * speed_pp;
        tg_std += speed_tg * speed_tg;

        LOGi("pp %f t/s, tg %f t/s", speed_pp, speed_tg);
    }

    pp_avg /= double(nr);
    tg_avg /= double(nr);

    if (nr > 1) {
        pp_std = sqrt(pp_std / double(nr - 1) - pp_avg * pp_avg * double(nr) / double(nr - 1));
        tg_std = sqrt(tg_std / double(nr - 1) - tg_avg * tg_avg * double(nr) / double(nr - 1));
    } else {
        pp_std = 0;
        tg_std = 0;
    }

    char model_desc[128];
    llama_model_desc(model, model_desc, sizeof(model_desc));

    const auto model_size = double(llama_model_size(model)) / 1024.0 / 1024.0 / 1024.0;
    const auto model_n_params = double(llama_model_n_params(model)) / 1e9;

    const auto *const backend = "(Android)"; // TODO: What should this be?

    std::stringstream result;
    result << std::setprecision(2);
    result << "| model | size | params | backend | test | t/s |\n";
    result << "| --- | --- | --- | --- | --- | --- |\n";
    result << "| " << model_desc << " | " << model_size << "GiB | " << model_n_params << "B | "
           << backend << " | pp " << pp << " | " << pp_avg << " ± " << pp_std << " |\n";
    result << "| " << model_desc << " | " << model_size << "GiB | " << model_n_params << "B | "
           << backend << " | tg " << tg << " | " << tg_avg << " ± " << tg_std << " |\n";

    return env->NewStringUTF(result.str().c_str());
}


/**
 * Prediction loop's states
 */
int current_position;

int token_predict_budget;
std::string cached_token_chars;

extern "C"
JNIEXPORT jint JNICALL
Java_android_llama_cpp_LLamaAndroid_process_1system_1prompt(
        JNIEnv *env,
        jobject /*unused*/,
        jstring jsystem_prompt
) {
    // Reset long-term states and reset KV cache
    current_position = 0;
    llama_memory_clear(llama_get_memory(context), false);

    // Reset short-term states
    token_predict_budget = 0;
    cached_token_chars.clear();

    // Obtain and tokenize system prompt
    const auto *const system_text = env->GetStringUTFChars(jsystem_prompt, nullptr);
    LOGi("System prompt: \n%s", system_text);
    const auto system_tokens = common_tokenize(context, system_text, true, true);
    env->ReleaseStringUTFChars(jsystem_prompt, system_text);

    // Add system prompt tokens to batch
    common_batch_clear(*batch);
    // TODO-hyin: support batch processing!
    for (int i = 0; i < system_tokens.size(); i++) {
        common_batch_add(*batch, system_tokens[i], i, {0}, false);
    }

    // Decode batch
    int decode_result = llama_decode(context, *batch);
    if (decode_result != 0) {
        LOGe("llama_decode() failed: %d", decode_result);
        return -1;
    }

    // Update position
    current_position = system_tokens.size();
    return 0;
}

// TODO-hyin: support KV cache backtracking
extern "C"
JNIEXPORT jint JNICALL
Java_android_llama_cpp_LLamaAndroid_process_1user_1prompt(
        JNIEnv *env,
        jobject /*unused*/,
        jstring juser_prompt,
        jint n_len
) {
    // Reset short-term states
    token_predict_budget = 0;
    cached_token_chars.clear();

    // Obtain and tokenize user prompt
    const auto *const user_text = env->GetStringUTFChars(juser_prompt, nullptr);
    LOGi("User prompt: \n%s", user_text);
    const auto user_tokens = common_tokenize(context, user_text, true, true);
    env->ReleaseStringUTFChars(juser_prompt, user_text);

    // Check if context space is enough for desired tokens
    int desired_budget = current_position + user_tokens.size() + n_len;
    if (desired_budget > llama_n_ctx(context)) {
        LOGe("error: total tokens exceed context size");
        return -1;
    }
    token_predict_budget = desired_budget;

    // Add user prompt tokens to batch
    common_batch_clear(*batch);
    for (int i = 0; i < user_tokens.size(); i++) {
        common_batch_add(*batch, user_tokens[i], current_position + i, {0}, false);
    }
    batch->logits[batch->n_tokens - 1] = true;  // Set logits true only for last token

    // Decode batch
    int decode_result = llama_decode(context, *batch);
    if (decode_result != 0) {
        LOGe("llama_decode() failed: %d", decode_result);
        return -2;
    }

    // Update position
    current_position += user_tokens.size(); // Update position
    return 0;
}

bool is_valid_utf8(const char *string) {
    if (!string) { return true; }

    const auto *bytes = (const unsigned char *) string;
    int num;

    while (*bytes != 0x00) {
        if ((*bytes & 0x80) == 0x00) {
            // U+0000 to U+007F
            num = 1;
        } else if ((*bytes & 0xE0) == 0xC0) {
            // U+0080 to U+07FF
            num = 2;
        } else if ((*bytes & 0xF0) == 0xE0) {
            // U+0800 to U+FFFF
            num = 3;
        } else if ((*bytes & 0xF8) == 0xF0) {
            // U+10000 to U+10FFFF
            num = 4;
        } else {
            return false;
        }

        bytes += 1;
        for (int i = 1; i < num; ++i) {
            if ((*bytes & 0xC0) != 0x80) {
                return false;
            }
            bytes += 1;
        }
    }
    return true;
}

extern "C"
JNIEXPORT jstring JNICALL
Java_android_llama_cpp_LLamaAndroid_predict_1loop(
        JNIEnv *env,
        jobject /*unused*/
) {
    // Stop if running out of token budget
    if (current_position >= token_predict_budget) {
        LOGi("STOP: current position (%d) exceeds budget (%d)", current_position, token_predict_budget);
        return nullptr;
    }

    // Sample next token
    const auto new_token_id = common_sampler_sample(sampler, context, -1);
    common_sampler_accept(sampler, new_token_id, true);

    // Stop if next token is EOG
    if (llama_vocab_is_eog(llama_model_get_vocab(model), new_token_id)) {
        LOGi("id: %d,\tIS EOG!\nSTOP.", new_token_id);
        return nullptr;
    }

    // Update the context with the new token
    common_batch_clear(*batch);
    common_batch_add(*batch, new_token_id, current_position, {0}, true);
    if (llama_decode(context, *batch) != 0) {
        LOGe("llama_decode() failed for generated token");
        return nullptr;
    }

    // Convert to text
    auto new_token_chars = common_token_to_piece(context, new_token_id);
    cached_token_chars += new_token_chars;

    // Create Java string
    jstring result = nullptr;
    if (is_valid_utf8(cached_token_chars.c_str())) {
        result = env->NewStringUTF(cached_token_chars.c_str());
        LOGd("id: %d,\tcached: `%s`,\tnew: `%s`", new_token_id, cached_token_chars.c_str(), new_token_chars.c_str());
        cached_token_chars.clear();
    } else {
        LOGd("id: %d,\tappend to cache", new_token_id);
        result = env->NewStringUTF("");
    }

    // Update position
    current_position++;
    return result;
}