/*!A cross-platform build utility based on Lua
 *
 * 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.
 *
 * Copyright (C) 2015-present, Xmake Open Source Community.
 *
 * @author      ruki
 * @file        convert.c
 *
 */

/* //////////////////////////////////////////////////////////////////////////////////////
 * trace
 */
#define TB_TRACE_MODULE_NAME "convert"
#define TB_TRACE_MODULE_DEBUG (0)

/* //////////////////////////////////////////////////////////////////////////////////////
 * includes
 */
#include "prefix.h"
#include "../utils/charset.h"

/* //////////////////////////////////////////////////////////////////////////////////////
 * implementation
 */

/* convert string
 *
 * @param str       the string
 * @param ftype     the from-charset type, e.g. ascii, gb2312, gbk, ios8859, ucs2, ucs4, utf8, utf16, utf32
 * @param ttype     the to-charset type
 *
 * @code
 *      local result = string.convert(str, "gbk", "utf8")
 *      local result = string.convert(str, "utf8", "gb2312")
 * @endcode
 */
tb_int_t xm_string_convert(lua_State *lua) {
    tb_assert_and_check_return_val(lua, 0);

    // get the string and charset types
    size_t           src_size   = 0;
    tb_char_t const *src_cstr   = luaL_checklstring(lua, 1, &src_size);
    tb_char_t const *ftype_cstr = luaL_checkstring(lua, 2);
    tb_char_t const *ttype_cstr = luaL_checkstring(lua, 3);
    tb_check_return_val(src_cstr && ftype_cstr && ttype_cstr, 0);

    // find charsets
    xm_charset_entry_ref_t fcharset = xm_charset_find_by_name(ftype_cstr);
    xm_charset_entry_ref_t tcharset = xm_charset_find_by_name(ttype_cstr);
    luaL_argcheck(lua, fcharset, 2, "charset not found");
    luaL_argcheck(lua, tcharset, 3, "charset not found");
    tb_check_return_val(fcharset && tcharset, 0);

    // empty string?
    if (!src_size) {
        lua_pushstring(lua, "");
    } else {
        // convert string
        tb_long_t  dst_size = 0;
        tb_size_t  dst_maxn = (tb_size_t)src_size << 2;
        tb_byte_t *dst_data = tb_malloc_bytes(dst_maxn);
        if (dst_data && dst_maxn &&
            (dst_size = tb_charset_conv_data(fcharset->type,
                                             tcharset->type,
                                             (tb_byte_t const *)src_cstr,
                                             (tb_size_t)src_size,
                                             dst_data,
                                             dst_maxn)) >= 0 &&
            dst_size < dst_maxn) {
            lua_pushlstring(lua, (tb_char_t const *)dst_data, dst_size);
        } else {
            lua_pushnil(lua);
        }
        tb_free(dst_data);
    }

    return 1;
}