/*
 * OTA 二进制流接收模块实现
 * 通用 OTA 实现，支持 BLE 和 UART 两种传输方式
 */

#include "ota_binary_stream.h"
#include "ota_manager.h"
#include "esp_ota_ops.h"
#include "esp_partition.h"
#include "esp_log.h"
#include "esp_system.h"
#include "freertos/FreeRTOS.h"
#include <string.h>
#include <stdio.h>
#include <stdarg.h>

static const char *tag_s = "OTA_STREAM";

/* OTA 会话状态 */
typedef struct {
    bool active;
    esp_ota_handle_t handle;
    const esp_partition_t *partition;
    size_t expected_size;
    size_t written_size;
    ota_transport_type_t transport;
    ota_binary_stream_status_callback_t status_callback;
} ota_stream_session_t;

static ota_stream_session_t session_s = {0};

/* 格式化并发送状态回调 */
static void ota_stream_send_status_fmt(const char *fmt, ...)
{
    if (session_s.status_callback == NULL) {
        return;
    }

    char buf[192];
    va_list ap;
    va_start(ap, fmt);
    vsnprintf(buf, sizeof(buf), fmt, ap);
    va_end(ap);

    session_s.status_callback(buf);
}

/* 发送错误状态 */
static void ota_stream_send_error(const char *step, const char *err)
{
    ESP_LOGE(tag_s, "OTA error at %s: %s", step, err);
    ota_stream_send_status_fmt("{\"ota\":\"%s\",\"ok\":0,\"err\":\"%s\"}", step, err);
}

/* 中止 OTA 会话 */
static void ota_stream_abort_internal(void)
{
    if (session_s.active && session_s.handle != 0) {
        esp_ota_abort(session_s.handle);
        ESP_LOGW(tag_s, "OTA session aborted");
    }

    session_s.active = false;
    session_s.handle = 0;
    session_s.partition = NULL;
    session_s.expected_size = 0;
    session_s.written_size = 0;
}

void ota_binary_stream_abort(void)
{
    ota_stream_abort_internal();
}

bool ota_binary_stream_is_active(void)
{
    return session_s.active;
}

esp_err_t ota_binary_stream_init(ota_transport_type_t transport,
                                  ota_binary_stream_status_callback_t status_callback,
                                  const char *target_version)
{
    if (session_s.active) {
        ESP_LOGW(tag_s, "OTA already active");
        return ESP_ERR_INVALID_STATE;
    }

    session_s.transport = transport;
    session_s.status_callback = status_callback;

    /* 通过OTA管理器开始会话 */
    ota_type_t type = (transport == OTA_TRANSPORT_BLE) ? OTA_TYPE_BLE : OTA_TYPE_UART;
    esp_err_t err = ota_manager_begin_session(type, target_version ? target_version : "unknown");
    if (err != ESP_OK) {
        ESP_LOGE(tag_s, "Failed to begin OTA session in manager: %s", esp_err_to_name(err));
    }

    ESP_LOGI(tag_s, "OTA stream init: transport=%d", transport);
    return ESP_OK;
}

void ota_binary_stream_deinit(void)
{
    if (session_s.active) {
        ota_stream_abort_internal();
    }
    session_s.status_callback = NULL;
}

/* 处理 OTA 开始命令 */
static int ota_stream_handle_begin(const uint8_t *data, uint16_t len)
{
    if (len < 5) {
        /* 需要至少 1字节opcode + 4字节长度 */
        ota_stream_send_error("begin", "size");
        return -1;
    }

    /* 解析固件长度（小端序 uint32） */
    uint32_t image_size = ((uint32_t)data[1]) |
                          ((uint32_t)data[2] << 8) |
                          ((uint32_t)data[3] << 16) |
                          ((uint32_t)data[4] << 24);

    if (image_size == 0 || image_size > (6 * 1024 * 1024)) {
        /* 固件大小不合理（最大6MB） */
        ota_stream_send_error("begin", "size_invalid");
        return -2;
    }

    ESP_LOGI(tag_s, "OTA begin: size=%lu bytes", (unsigned long)image_size);

    /* 查找 OTA 更新分区 */
    session_s.partition = esp_ota_get_next_update_partition(NULL);
    if (session_s.partition == NULL) {
        ota_stream_send_error("begin", "no_partition");
        return -3;
    }

    ESP_LOGI(tag_s, "OTA partition: %s at 0x%08x",
             session_s.partition->label,
             (unsigned)session_s.partition->address);

    /* 开始 OTA */
    esp_err_t err = esp_ota_begin(session_s.partition, image_size, &session_s.handle);
    if (err != ESP_OK) {
        ESP_LOGE(tag_s, "esp_ota_begin failed: %s", esp_err_to_name(err));
        ota_stream_send_error("begin", "esp_ota_begin");
        session_s.handle = 0;
        session_s.partition = NULL;
        return -4;
    }

    session_s.expected_size = image_size;
    session_s.written_size = 0;
    session_s.active = true;

    ota_stream_send_status_fmt("{\"ota\":\"begin\",\"ok\":1,\"expect\":%lu}",
                                 (unsigned long)image_size);

    return 0;
}

/* 处理 OTA 数据包 */
static int ota_stream_handle_data(const uint8_t *data, uint16_t len)
{
    if (!session_s.active) {
        ota_stream_send_error("chunk", "no_session");
        return -1;
    }

    if (len < 1) {
        /* 空数据包 */
        return 0;
    }

    /* data[0] 是 opcode，后面是实际数据 */
    const uint8_t *payload = data + 1;
    uint16_t payload_len = len - 1;

    if (payload_len == 0) {
        return 0;
    }

    /* 检查是否超出预期大小 */
    if (session_s.written_size + payload_len > session_s.expected_size) {
        ESP_LOGE(tag_s, "OTA overflow: %u + %u > %u",
                 (unsigned)session_s.written_size,
                 (unsigned)payload_len,
                 (unsigned)session_s.expected_size);
        ota_stream_send_error("chunk", "overflow");
        ota_stream_abort_internal();
        return -2;
    }

    /* 写入数据 */
    esp_err_t err = esp_ota_write(session_s.handle, payload, payload_len);
    if (err != ESP_OK) {
        ESP_LOGE(tag_s, "esp_ota_write failed: %s", esp_err_to_name(err));
        ota_stream_send_error("chunk", "write");
        ota_stream_abort_internal();
        return -3;
    }

    session_s.written_size += payload_len;

    /* 每 8192 字节发送一次进度，或最后一次 */
    static size_t last_reported = 0;
    if (session_s.written_size - last_reported >= 8192 ||
        session_s.written_size >= session_s.expected_size) {
        ota_stream_send_status_fmt("{\"ota\":\"chunk\",\"ok\":1,\"written\":%u}",
                                    (unsigned)session_s.written_size);
        last_reported = session_s.written_size;
    }

    return 0;
}

/* 处理 OTA 结束命令 */
static int ota_stream_handle_end(void)
{
    if (!session_s.active) {
        ota_stream_send_error("end", "no_session");
        return -1;
    }

    /* 检查写入大小是否匹配 */
    if (session_s.written_size != session_s.expected_size) {
        ESP_LOGE(tag_s, "OTA incomplete: %u/%u",
                 (unsigned)session_s.written_size,
                 (unsigned)session_s.expected_size);
        ota_stream_send_error("end", "incomplete");
        ota_stream_abort_internal();
        return -2;
    }

    /* 结束 OTA 写入 */
    esp_err_t err = esp_ota_end(session_s.handle);
    if (err != ESP_OK) {
        ESP_LOGE(tag_s, "esp_ota_end failed: %s", esp_err_to_name(err));
        ota_stream_send_error("end", "esp_ota_end");
        ota_stream_abort_internal();
        return -3;
    }

    session_s.handle = 0;
    session_s.active = false;

    /* 设置启动分区 */
    err = esp_ota_set_boot_partition(session_s.partition);
    if (err != ESP_OK) {
        ESP_LOGE(tag_s, "esp_ota_set_boot_partition failed: %s", esp_err_to_name(err));
        ota_stream_send_error("end", "set_boot");
        return -4;
    }

    ESP_LOGI(tag_s, "OTA successful, written %u bytes",
             (unsigned)session_s.written_size);

    /* 通过OTA管理器结束会话 */
    ota_manager_end_session();

    ota_stream_send_status_fmt("{\"ota\":\"end\",\"ok\":1,\"written\":%u}",
                                (unsigned)session_s.written_size);

    /* 延时后重启 */
    ESP_LOGI(tag_s, "Rebooting in 2 seconds...");
    vTaskDelay(pdMS_TO_TICKS(2000));
    esp_restart();

    return 0;
}

int ota_binary_stream_process_packet(const uint8_t *data, uint16_t len)
{
    if (data == NULL || len == 0) {
        return -1;
    }

    uint8_t opcode = data[0];

    switch (opcode) {
        case OTA_OP_BEGIN:
            return ota_stream_handle_begin(data, len);

        case OTA_OP_DATA:
            return ota_stream_handle_data(data, len);

        case OTA_OP_END:
            return ota_stream_handle_end();

        default:
            ESP_LOGW(tag_s, "Unknown OTA opcode: 0x%02X", opcode);
            ota_stream_send_error("unknown", "invalid_opcode");
            return -10;
    }
}

esp_err_t ota_binary_stream_get_status_json(char *buf, size_t len)
{
    if (buf == NULL || len == 0) {
        return ESP_ERR_INVALID_ARG;
    }

    if (!session_s.active) {
        strncpy(buf, "{\"ota\":\"idle\"}", len);
        return ESP_OK;
    }

    snprintf(buf, len,
             "{\"ota\":\"active\",\"written\":%u,\"expect\":%u,\"transport\":%d}",
             (unsigned)session_s.written_size,
             (unsigned)session_s.expected_size,
             session_s.transport);

    return ESP_OK;
}
