/* Copyright Statement:
 *
 * This software/firmware and related documentation ("MediaTek Software") are
 * protected under relevant copyright laws. The information contained herein is
 * confidential and proprietary to MediaTek Inc. and/or its licensors. Without
 * the prior written permission of MediaTek inc. and/or its licensors, any
 * reproduction, modification, use or disclosure of MediaTek Software, and
 * information contained herein, in whole or in part, shall be strictly
 * prohibited.
 *
 * Copyright  (C) [2020]  MediaTek Inc. All rights reserved.
 *
 * BY OPENING THIS FILE, RECEIVER HEREBY UNEQUIVOCALLY ACKNOWLEDGES AND AGREES
 * THAT THE SOFTWARE/FIRMWARE AND ITS DOCUMENTATIONS ("MEDIATEK SOFTWARE")
 * RECEIVED FROM MEDIATEK AND/OR ITS REPRESENTATIVES ARE PROVIDED TO RECEIVER
 * ON AN "AS-IS" BASIS ONLY. MEDIATEK EXPRESSLY DISCLAIMS ANY AND ALL
 * WARRANTIES, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE OR
 * NONINFRINGEMENT. NEITHER DOES MEDIATEK PROVIDE ANY WARRANTY WHATSOEVER WITH
 * RESPECT TO THE SOFTWARE OF ANY THIRD PARTY WHICH MAY BE USED BY,
 * INCORPORATED IN, OR SUPPLIED WITH THE MEDIATEK SOFTWARE, AND RECEIVER AGREES
 * TO LOOK ONLY TO SUCH THIRD PARTY FOR ANY WARRANTY CLAIM RELATING THERETO.
 * RECEIVER EXPRESSLY ACKNOWLEDGES THAT IT IS RECEIVER'S SOLE RESPONSIBILITY TO
 * OBTAIN FROM ANY THIRD PARTY ALL PROPER LICENSES CONTAINED IN MEDIATEK
 * SOFTWARE. MEDIATEK SHALL ALSO NOT BE RESPONSIBLE FOR ANY MEDIATEK SOFTWARE
 * RELEASES MADE TO RECEIVER'S SPECIFICATION OR TO CONFORM TO A PARTICULAR
 * STANDARD OR OPEN FORUM. RECEIVER'S SOLE AND EXCLUSIVE REMEDY AND MEDIATEK'S
 * ENTIRE AND CUMULATIVE LIABILITY WITH RESPECT TO THE MEDIATEK SOFTWARE
 * RELEASED HEREUNDER WILL BE, AT MEDIATEK'S OPTION, TO REVISE OR REPLACE THE
 * MEDIATEK SOFTWARE AT ISSUE, OR REFUND ANY SOFTWARE LICENSE FEES OR SERVICE
 * CHARGE PAID BY RECEIVER TO MEDIATEK FOR SUCH MEDIATEK SOFTWARE AT ISSUE.
 *
 * The following software/firmware and/or related documentation ("MediaTek
 * Software") have been modified by MediaTek Inc. All revisions are subject to
 * any receiver's applicable license agreements with MediaTek Inc.
 */

#include <common.h>
#include <command.h>
#include <time.h>
#include <vsprintf.h>
#include <iniutility.h>
#include <iniparser.h>
#include <utility.h>
#include <debug_impl.h>
#include <mtk_dtbo.h>
#include <mtk_dataindex.h>
#include <romtblo_impl.h>
#ifdef CONFIG_LIBUFDT_OVERLAY
#include <ufdt_overlay.h>
#else
#include <fdt_support.h>
#endif

#ifdef CONFIG_ANDROID_CN_PLATFORM
#define CUSDATA_DEFAULT_PROJECT_PARTITION_1     "project_id"
#define CUSDATA_DEFAULT_PROJECT_PARTITION_2     "config"
#elif CONFIG_LINUX_REF_PLATFORM
#define CUSDATA_DEFAULT_PROJECT_PARTITION_1     "project_id"
#define CUSDATA_DEFAULT_PROJECT_PARTITION_2     "config"
#else
#define CUSDATA_DEFAULT_PROJECT_PARTITION_1     "config"
#define CUSDATA_DEFAULT_PROJECT_PARTITION_2     "project_id"
#endif

#define DEFAULT_DATAINDEX_LABEL   "default"
struct dataindex_partition {
    char partition[INI_INFO_SIZE];
    char mount[FILE_PATH_SIZE];
};

static struct project_id_info _project_id_info;
static iniparser_handle_t _dataindex_handle = NULL;
static struct dataindex_partition *_dataindex_partition = NULL;
static int _dataindex_partition_size;

static const char *_get_default_dataIndex_cfg(const char *default_id)
{
    static char id_str[FILE_PATH_SIZE] = { 0 };
    u32 chipid = romtbl_get_chip_id_info_dec();
    u32 revision = romtbl_get_chip_revision_info();
    int len;

    UBOOT_TRACE("IN\n");
    if (chipid == 0 || revision == 0) {
        UBOOT_ERROR("Wrong chip id/revision = %d/%d\n",
        chipid, revision);
        return default_id;
    }

    len = snprintf(id_str, sizeof(id_str), "mt%d_1", chipid);

    if (len >= sizeof(id_str)-1) {
        UBOOT_ERROR("The size of default_dataIndex_cfg buffer is too small!\n");
        return default_id;
    }

    UBOOT_INFO("auto select project_id:%s because dataindex_cfg_name=default\n", id_str);
    UBOOT_TRACE("OUT\n");
    return (const char *)id_str;
}

int get_data_separation_info(const char *partition, const char *file,
                struct project_id_info *info)
{
    iniparser_handle_t ini_handle = NULL;
    struct section *section_entry;
    char datadir[FILE_PATH_SIZE];
    char id[INI_INFO_SIZE];
    unsigned char *ini_file_buf;
    const char *envstr;
    loff_t size;
    int ret;

    UBOOT_TRACE("IN \n");
    ini_file_buf = read_storage_file_to_memory(partition, file, &size);
    if(ini_file_buf == NULL)
    {
        UBOOT_DEBUG("Error: Read ini file to DRAM failure\n");
        return ERR_DATAINDEX_NOT_FOUND;
    }

    ret = iniparser_create((uchar*)ini_file_buf, size, &ini_handle);
    free(ini_file_buf);
    if (ret < 0) {
        UBOOT_ERROR("Error: parse ini [%s] failure\n", file);
        return ERR_DATAINDEX_INI_PARSE;
    }

    // get dataindex_cfg_name for auto select dataindex_chip.ini
    envstr = env_get(ENV_DATAINDEX_CFG_NAME);
    if (envstr && !strncmp(envstr, DEFAULT_DATAINDEX_LABEL, sizeof(DEFAULT_DATAINDEX_LABEL))) {
        envstr = _get_default_dataIndex_cfg(envstr);
        strlcpy(info->project_id, envstr, sizeof(info->project_id));
    } else { // else use project_id original flow
        envstr = env_get(ENV_CUS_PROJECTID);
        if (envstr) {
            UBOOT_INFO("%s: use env '%s=%s' for gProjectID\n",
                    __func__, ENV_CUS_PROJECTID, envstr);

            strlcpy(info->project_id, envstr, sizeof(info->project_id));
        } else {
            ret = iniparser_get_section(ini_handle, "model", &section_entry);
            if (ret < 0) {
                iniparser_destroy(ini_handle);
                UBOOT_ERROR("Error: get ini section[%s] failure\n", "model");
                return ERR_DATAINDEX_SECTION;
            }
            ret = iniparser_getstring(section_entry, "gProjectID", "0",
                info->project_id, INI_INFO_SIZE);
            if (ret != 1) {
                iniparser_destroy(ini_handle);
                UBOOT_ERROR("Error: get ini setting %s failure\n", "model:gProjectID");
                return ERR_DATAINDEX_KEY;
            }
        } 
    }

    envstr = env_get(ENV_CUS_DATAINDEX_DIR);
    if (envstr) {
        UBOOT_INFO("%s: use env '%s=%s' for DataIndexDir\n",
                __func__, ENV_CUS_DATAINDEX_DIR, envstr);
        strlcpy(datadir, envstr, sizeof(datadir));
    } else {
        ret = iniparser_get_section(ini_handle, "dataIndex", &section_entry);
        if (ret != 1) {
            iniparser_destroy(ini_handle);
            UBOOT_ERROR("Error: get ini section[dataIndex] failure\n");
            return ERR_DATAINDEX_SECTION;
        }
        ret = iniparser_getstring(section_entry, "DataIndexDir", "",
                datadir, FILE_PATH_SIZE);
        if (ret != 1) {
            iniparser_destroy(ini_handle);
            UBOOT_ERROR("INFO: get ini setting dataIndex:DataIndexDir failure\n");
            return ERR_DATAINDEX_KEY;
        }
    }

    if (iniparser_get_section(ini_handle, PROJECT_ID_PARTITION, &section_entry) == 1)
    {
        struct keyval_pair *keyval_entry;
        int i = 0;

        UBOOT_DEBUG("load partition information\n");
        if (_dataindex_partition)
            free(_dataindex_partition);

        _dataindex_partition_size = 0;
        iniparser_for_each_keyval(section_entry, keyval_entry)
        {
            _dataindex_partition_size ++;
        }
        _dataindex_partition =
            malloc(sizeof(_dataindex_partition[0])*_dataindex_partition_size);
        if (_dataindex_partition == NULL)
        {
            iniparser_destroy(ini_handle);
            UBOOT_ERROR("Error: cannot allocate enough memory\n");
            return ERR_DATAINDEX_MEMORY;
        }

        iniparser_for_each_keyval(section_entry, keyval_entry)
        {
            strlcpy(_dataindex_partition[i].partition,
                    keyval_entry->key,
                    sizeof(_dataindex_partition[i].partition));
            iniparser_unescape_string(
                    _dataindex_partition[i].mount,
                    keyval_entry->value,
                    sizeof(_dataindex_partition[i].mount));
            i++;
        }
        UBOOT_DEBUG("parse %d partition mount point(s)\n", i);
    }

    // converity fix: the object pointed to by argument "info->project_id"
    // may overlap with the object pointed to by argument "info->data_path"
    // Use another tmp buffer "id" to fix it.
    memcpy(id, info->project_id, sizeof(id));
    id[sizeof(id)-1] = 0;
    if (snprintf(info->data_path, sizeof(info->data_path),
            "%s/dataIndex_%s.ini", datadir, id) < 0)
    {
        iniparser_destroy(ini_handle);
        UBOOT_ERROR("Cannot generate dataIndex file path. data_path=%s , project+id=%s\n",
                info->data_path, id);
        return ERR_DATAINDEX_FAIL;
    }
    UBOOT_INFO("Get project_id=%s\n", info->project_id);
    UBOOT_DEBUG("dataIndex file=%s\n", info->data_path);

    iniparser_destroy(ini_handle);
    UBOOT_TRACE("OK \n");
    return ERR_DATAINDEX_OK;
}

/**
 * dataindex_get_info - get dataindex information
 *
 * @info[out]: Pointer of pointer to store the output dataindex info
 *
 * Returns 0 if successful,
 *         negative if an error occurs
 */
int dataindex_get_info(struct project_id_info **info)
{
    UBOOT_TRACE("IN \n");
    if (_project_id_info.project_id[0] == 0)
    {
        // search order of project_id partition:
        //   1. uboot env: ${ENV_CUS_PROJECTID_PART}
        //   2. ${CUSDATA_DEFAULT_PROJECT_PARTITION_1}
        //   3. ${CUSDATA_DEFAULT_PROJECT_PARTITION_2}
        static char *_part_project_id[] = {
            NULL,
            CUSDATA_DEFAULT_PROJECT_PARTITION_1,
            CUSDATA_DEFAULT_PROJECT_PARTITION_2
        };

        int ret = ERR_DATAINDEX_NOT_FOUND;
        int i;

        _part_project_id[0] = env_get(ENV_CUS_PROJECTID_PART);
        for (i = 0; i < ARRAY_SIZE(_part_project_id); i++)
        {
            char *part = _part_project_id[i];
            if (part && get_data_separation_info(part,
                        PROJECT_ID_FILENAME, &_project_id_info) == 0)
            {
                ret = ERR_DATAINDEX_OK;
                break;
            }
        }
        if (ret != ERR_DATAINDEX_OK)
        {
            UBOOT_ERROR("cannot find " PROJECT_ID_FILENAME "\n");
            return ret;
        }
    }
    *info = &_project_id_info;
    UBOOT_TRACE("OK \n");
    return ERR_DATAINDEX_OK;
}

/**
 * dataindex_get_handle - get ini handle of dataindex file
 *
 * @phandle[out]: Pointer to store the dataindex ini parser handle
 *
 * Returns 0 if successful,
 *         negative if an error occurs
 */
int dataindex_get_handle(iniparser_handle_t *phandle)
{
    char partition[INI_INFO_SIZE];
    struct project_id_info *info;
    unsigned char *ini_file_buf;
    const char *relpath;
    loff_t size;
    int ret;

    UBOOT_TRACE("IN \n");
    if (_dataindex_handle == 0)
    {
        if (dataindex_get_info(&info) != 0)
        {
            UBOOT_ERROR("cannot get dataindex information\n");
            return ERR_DATAINDEX_NOT_FOUND;
        }
        if (dataindex_resolve_path(partition, sizeof(partition),
                    &relpath, info->data_path) != ERR_DATAINDEX_OK)
        {
            UBOOT_ERROR("dataIndex directory resolves fail: '%s'\n",
                    info->data_path);
            return ERR_DATAINDEX_FAIL;
        }

        ini_file_buf = read_storage_file_to_memory(partition, relpath, &size);
        if(ini_file_buf == NULL)
        {
            UBOOT_DEBUG("Error: Read partition %s : %s file to DRAM failure\n",
                    partition, relpath);
            return ERR_DATAINDEX_LOAD_FILE;
        }
        ret = iniparser_create((uchar *)ini_file_buf, size, &_dataindex_handle);
        if (ret < 0) {
            free(ini_file_buf);
            UBOOT_ERROR("Error: parse ini [%s] failure\n", relpath);
            return ERR_DATAINDEX_INI_PARSE;
        }
        free(ini_file_buf);
    }

    *phandle = _dataindex_handle;
    UBOOT_TRACE("OK \n");
    return ERR_DATAINDEX_OK;
}

/**
 * dataindex_get_section - get section handle of dataindex file
 *
 * @pentry[out]: Pointer to store the dataindex section handle
 * @section[in]: the section string
 *
 * Returns 0 if successful,
 *         negative if an error occurs
 */
int dataindex_get_section(struct section **pentry, const char *section)
{
    iniparser_handle_t ini_handle;
    struct section *section_entry;
    int ret;

    UBOOT_TRACE("IN \n");
    ret = dataindex_get_handle(&ini_handle);
    if (ret != ERR_DATAINDEX_OK)
    {
        return ret;
    }
    ret = iniparser_get_section(ini_handle, section, &section_entry);
    if (ret != 1) {
        UBOOT_INFO("Error: get section[%s] in dataindex file failure\n", section);
        return ERR_DATAINDEX_SECTION;
    }
    *pentry = section_entry;

    UBOOT_TRACE("OK \n");
    return ERR_DATAINDEX_OK;
}

/**
 * dataindex_get_keys - get the value of key from dataindex file
 *
 * @dest[out]: the output value buffer
 * @size[in]: the size of output value buffer
 * @section[in]: the section string
 * @key[in]: the key string
 * @default_str[in]: the default string if key is missing
 *
 * Returns 0 if successful,
 *         negative if an error occurs
 *     Notice: default_str is copied if default_str is not NULL and
 *     the the key is missing
 */
int dataindex_get_key(char *dest, int size,
       const char *section, const char *key, const char* default_str)
{
    struct section *section_entry;
    int ret;

    UBOOT_TRACE("IN \n");
    ret = dataindex_get_section(&section_entry, section);
    if (ret == ERR_DATAINDEX_OK)
    {
        if (iniparser_getstring(section_entry, key, "", dest, size) != 1)
        {
            UBOOT_ERROR("Error: get %s:%s in dataindex file failure\n",
                    section, key);
            ret = ERR_DATAINDEX_KEY;
        }
    }

    if (ret != ERR_DATAINDEX_OK && default_str)
    {
        strlcpy(dest, default_str, size);
    }

    UBOOT_TRACE("OK \n");
    return ret;
}

/**
 * dataindex_resolve_path - break down "path" to "partition" and "relative path"
 *                          that can be used in uboot.
 *
 * @partition[out]: the output partition buffer
 * @size[in]: the size of output value buffer
 * @relpath[out]: the pointer to output relative path
 * @path[in]: the path string to be resolved
 *
 * Returns 0 if successful,
 *         negative if an error occurs
 */
int dataindex_resolve_path(char *partition, int size,
       const char **relpath, const char *path)
{
    struct project_id_info *info;
    UBOOT_TRACE("IN \n");

    if (dataindex_get_info(&info) != ERR_DATAINDEX_OK)
    {
        UBOOT_ERROR("project_id partition infomation is not initialized\n");
        return ERR_DATAINDEX_FAIL;
    }
    int path_len = strlen(path);
    int i;

    for (i = 0; i < _dataindex_partition_size; i++)
    {
        const char *part = _dataindex_partition[i].partition;
        const char *mount = _dataindex_partition[i].mount;
        int len = strlen(mount);
        if (mount[len-1] == '/')
            len--;
        UBOOT_DEBUG("keyval: len=%d, %s=%s , path=%s\n", len, part, mount, path);
        if (len <= path_len
            && !strncmp(mount, path, len)
            && (path[len] == '/' || path[len] == 0))
        {
            if (partition)
                strlcpy(partition, part, size);
            if (relpath)
                *relpath = &path[len];
            UBOOT_TRACE("OK \n");
            return ERR_DATAINDEX_OK;
        }
    }

    return ERR_DATAINDEX_FAIL;
}

static int __load_and_overlay_dtbo(char *ft_addr, const char *filepath)
{
    struct fdt_header *source = (struct fdt_header *)ft_addr;
    const char *relpath;
    loff_t blob_len;
    char part[PART_NAME_SIZE];
    unsigned char *blob;
    int ret;

    ret = dataindex_resolve_path(part, PART_NAME_SIZE, &relpath, filepath);
    if (ret)
    {
        UBOOT_DEBUG("resolve path=%s fail!\n", filepath);
        return ret;
    }

    UBOOT_DEBUG("try to load part:relpath=%s:%s\n", part, relpath);
    blob = read_storage_file_to_memory(part, (char *)relpath, &blob_len);
    if (blob == NULL)
    {
        UBOOT_ERROR("read %s:%s file fail!\n", part, relpath);
        return -ERR_DATAINDEX_LOAD_FILE;
    }

#ifdef CONFIG_LIBUFDT_OVERLAY
    source = ufdt_apply_overlay(source, fdt32_to_cpu(source->totalsize),
            (void*)blob, (size_t)blob_len);
    free(blob);
    if (source == NULL)
    {
        UBOOT_ERROR("ufdt_apply_overlay execute failure.\n");
        return -ERR_DATAINDEX_FAIL;
    }
    else
    {
        ret = fdt_open_into((void *)source, (void *)ft_addr, fdt32_to_cpu(source->totalsize));
        UBOOT_DEBUG("overlay %s:%s pass! , copy to kernel dtb[%d]\n",
                part, relpath, ret);
        free(source);
        return 0;
    }
#else
    ret = fdt_overlay_apply_verbose((void *)ft_addr, blob);
    free(blob);
    if (ret < 0)
    {
        UBOOT_ERROR("fdt_overlay_apply_verbose execute failure.\n");
        return -ERR_DATAINDEX_FAIL;
    }
#endif
    return -ERR_DATAINDEX_FAIL;
}

/**
 * dataindex_dtbo_overlay - overlay dtbo read from dataindex file
 *
 * @ft_addr[in]: the kernel dtb buffer
 * @mode[in]: the overlay mode. 'u' for uboot and 'k' for kernel
 *
 * Returns 0 if successful,
 *         negative if an error occurs
 */
int dataindex_dtbo_overlay(char *ft_addr, char mode)
{
    struct keyval_pair *keyval_entry;
    struct section *section_entry;
    int ret = -ERR_DATAINDEX_OK;
    char filepath[FILE_PATH_SIZE];
    char *dtbo_str;

    UBOOT_TRACE("IN \n");
    dtbo_str = env_get(ENV_DATAINDEX_DTBO);
    if (dtbo_str && (dtbo_str[0] == '0' || dtbo_str[0] == 'n'))
    {
        printf("detect env %s=%s, skip dataindex dtbo overlay\n",
                ENV_DATAINDEX_DTBO, dtbo_str);
        return ret;
    }
    if (dataindex_get_section(&section_entry, "dtbo") == 0)
    {
        /* caller send ft_addr==NULL when in uboot dtbo mode */
        if (ft_addr == NULL)
        {
            unsigned long addr;
            get_uboot_dtb_addr(&addr);
            ft_addr = (char*)addr;
        }
        iniparser_for_each_keyval(section_entry, keyval_entry)
        {
            const char *key = keyval_entry->key;
            UBOOT_INFO("%s: get dtbo info: %s=%s\n", __func__, key, keyval_entry->value);
            if (key[1] != ',')
            {
                UBOOT_ERROR("dataindex dtbo entry format error: get %s=%s\n", key, keyval_entry->value);
                UBOOT_ERROR("Key format should be 'mode,name' which mode is 'u'/'k'/'*'\n");
                continue;
            }
            if (key[0] != mode && key[0] != '*')
                continue;
            iniparser_unescape_string(filepath, keyval_entry->value, sizeof(filepath));
            UBOOT_INFO("%s: overlay %s\n", __func__, filepath);
            if (__load_and_overlay_dtbo(ft_addr, filepath))
            {
                UBOOT_ERROR("Cannot overlay dtbo file: %s\n", filepath);
                ret = -ERR_DATAINDEX_FAIL;
            }
        }
    }

    UBOOT_TRACE("OK \n");
    return ret;
}

