/*
 * Copyright (c) 2022 Huawei Device Co., Ltd.
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include "commonlibrary/ets_utils/js_util_module/util/js_uuid.h"

#include <map>
#include "securec.h"
#include "tools/log.h"

#include "napi/native_api.h"
#include "napi/native_node_api.h"

namespace OHOS::Util {
static thread_local std::queue<UUID> g_uuidCache;

unsigned char CharToHex(char in)
{
    unsigned char res = 0;  // 0: initialization
    static const std::map<char, unsigned char> hexMap = {
        {'0', HEX_ZERO_FLG},
        {'1', HEX_ONE_FLG},
        {'2', HEX_TWO_FLG},
        {'3', HEX_THREE_FLG},
        {'4', HEX_FOUR_FLG},
        {'5', HEX_FIVE_FLG},
        {'6', HEX_SIX_FLG},
        {'7', HEX_SEVEN_FLG},
        {'8', HEX_EIGHT_FLG},
        {'9', HEX_NINE_FLG},
        {'a', HEX_TEN_FLG},
        {'b', HEX_ELEVEN_FLG},
        {'c', HEX_TWELVE_FLG},
        {'d', HEX_THIRTEEN_FLG},
        {'e', HEX_FOURTEEN_FLG},
        {'f', HEX_FIFTEEN_FLG},
        {'A', HEX_TEN_FLG},
        {'B', HEX_ELEVEN_FLG},
        {'C', HEX_TWELVE_FLG},
        {'D', HEX_THIRTEEN_FLG},
        {'E', HEX_FOURTEEN_FLG},
        {'F', HEX_FIFTEEN_FLG}
    };

    auto it = hexMap.find(in);
    if (it != hexMap.end()) {
        res = it->second;
    } else {
        res = HEX_ZERO_FLG;
    }
    return res;
}

unsigned char HexToChar(unsigned char in)
{
    unsigned char res = '0';
    switch (in) {
        case HEX_ZERO_FLG: res = '0'; break;
        case HEX_ONE_FLG: res = '1'; break;
        case HEX_TWO_FLG: res = '2'; break;
        case HEX_THREE_FLG: res = '3'; break;
        case HEX_FOUR_FLG: res = '4'; break;
        case HEX_FIVE_FLG: res = '5'; break;
        case HEX_SIX_FLG: res = '6'; break;
        case HEX_SEVEN_FLG: res = '7'; break;
        case HEX_EIGHT_FLG: res = '8'; break;
        case HEX_NINE_FLG: res = '9'; break;
        case HEX_TEN_FLG: res = 'a'; break;
        case HEX_ELEVEN_FLG: res = 'b'; break;
        case HEX_TWELVE_FLG: res = 'c'; break;
        case HEX_THIRTEEN_FLG: res = 'd'; break;
        case HEX_FOURTEEN_FLG: res = 'e'; break;
        case HEX_FIFTEEN_FLG: res = 'f'; break;
        default : res = 'x';
    }
    return res;
}

unsigned char ConvertBits(std::string &input)
{
    unsigned char temp = 0; // 0: initialization
    if (input[0] == '-') {
        input.erase(0, 1);
    }
    temp = CharToHex(input[0]);
    temp *= HEX_SIXTEEN_FLG;
    input.erase(0, 1);
    temp += CharToHex(input[0]);
    input.erase(0, 1);
    return temp;
}

bool GenerateUuid(unsigned char *data, int32_t size)
{
    unsigned char buf[UUID_SIZE] = { 0 };  // 0: initialization
    if (memcpy_s(data, size, buf, size) != EOK) {
        return false;
    }
    RAND_priv_bytes(data, size);
    data[HEX_SIX_FLG] = (data[HEX_SIX_FLG] & 0x0F) | 0x40; // 0x0F,0x40 Operate the mark
    int m = 0x8;    // Upper of numerical range
    int n = 0xb;    // down of numerical range
    int r = static_cast<int>(data[HEX_EIGHT_FLG]);
    unsigned char num = static_cast<unsigned char>(r % (n - m + 1) + m);
    data[HEX_EIGHT_FLG] = (data[HEX_EIGHT_FLG] & 0x0F) | (num << 4);  // 0x0F,4 Operate the mark
    return true;
}

bool GetUUID(napi_env env, bool entropyCache, UUID &uuid)
{
    uint32_t size = g_uuidCache.size();
    if ((entropyCache == true) && (size != 0)) {
        uuid = g_uuidCache.front();
        g_uuidCache.pop();
    } else {
        if (size > MAX_CACHE_MASK) {
            for (uint32_t i = 0; i < size; i++) {
                g_uuidCache.pop();
            }
        }
        bool res = GenerateUuid(uuid.elements, sizeof(uuid.elements));
        if (!res) {
            napi_throw_error(env, "-1", "uuid generate failed");
            return false;
        }
        g_uuidCache.push(uuid);
        res = GenerateUuid(uuid.elements, sizeof(uuid.elements));
        if (!res) {
            napi_throw_error(env, "-1", "uuid generate failed");
            return false;
        }
    }
    return true;
}

std::string GetStringUUID(napi_env env, bool entropyCache)
{
    UUID uuid;
    std::string uuidString = "";
    if (!GetUUID(env, entropyCache, uuid)) {
        uuidString = '0';
    } else {
        uuidString = GetFormatUUID(uuid);
    }
    return uuidString;
}

std::string GetFormatUUID(const UUID &uuid)
{
    std::string format = "";
    for (size_t i = 0; i < sizeof(uuid.elements); i++) {
        unsigned char value = uuid.elements[i];
        if (i >= HEX_FOUR_FLG && i % 2 == 0 && i <= HEX_TEN_FLG) {  // 2: step value
            format += "-";
        }
        format += HexToChar(value >> HEX_FOUR_FLG);
        unsigned char high = value & 0xF0;  // Operate the mark
        if (high == 0) {
            format += HexToChar(value);
        } else {
            format += HexToChar(value % (value & high));
        }
    }
    return format;
}

napi_value GetBinaryUUID(napi_env env, bool entropyCache)
{
    UUID uuid;
    if (!GetUUID(env, entropyCache, uuid)) {
        return nullptr;
    }
    void *data = nullptr;
    napi_value arrayBuffer = nullptr;
    size_t bufferSize = sizeof(uuid.elements);
    napi_create_arraybuffer(env, bufferSize, &data, &arrayBuffer);
    if (memcpy_s(data, bufferSize, uuid.elements, bufferSize) != EOK) {
        HILOG_ERROR("get uuid memcpy_s failed");
        return nullptr;
    }
    napi_value result = nullptr;
    napi_create_typedarray(env, napi_uint8_array, bufferSize, arrayBuffer, 0, &result);
    return result;
}

napi_value DoParseUUID(napi_env env, napi_value src)
{
    size_t outLen = 16; // 16: the length of UUID
    std::string buffer = "";
    size_t bufferSize = 0;  // 0: initialization
    napi_status status = napi_ok;
    status = napi_get_value_string_utf8(env, src, nullptr, 0, &bufferSize);
    if (status != napi_ok) {
        HILOG_ERROR("can not get src size");
        return nullptr;
    }
    buffer.resize(bufferSize);
    status = napi_get_value_string_utf8(env, src, buffer.data(), bufferSize + 1, &bufferSize);
    if (status != napi_ok) {
        HILOG_ERROR("can not get src value");
        return nullptr;
    }
    void *data = nullptr;
    napi_value arrayBuffer = nullptr;
    napi_create_arraybuffer(env, outLen, &data, &arrayBuffer);
    unsigned char *count = static_cast<unsigned char*>(data);
    for (size_t i = 0; !buffer.empty() && i < outLen; i++) {
        *count = ConvertBits(buffer);
        count++;
    }
    napi_value result = nullptr;
    napi_create_typedarray(env, napi_uint8_array, outLen, arrayBuffer, 0, &result);
    return result;
}
}