Function luaL_import_contract_module

src/Chain/libraries/glua/lauxlib.cpp:1692–1944

* import_contract function * restrain name must be pure file name, with no '.lua' extension. And can load bytestream from thinkyoung api. * try load bytestream first, then try write bytes to tmp file and then load the new file */

 * try load bytestream first, then try write bytes to tmp file and then load the new file
 */
int luaL_import_contract_module(lua_State *L)
{
    if (lua_gettop(L) < 1 || !lua_isstring(L, 1))
    {
        global_glua_chain_api->throw_exception(L, THINKYOUNG_API_SIMPLE_ERROR, "import_contract need 1 string argument of contract name");
        return 0;
    }
    const char *origin_contract_name = luaL_checkstring(L, -1);
    const char *name = origin_contract_name;
    if (glua::util::ends_with(name, ".lua"), glua::util::ends_with(name, GLUA_SOURCE_FILE_EXTENTION_NAME)) {
        global_glua_chain_api->throw_exception(L, THINKYOUNG_API_SIMPLE_ERROR, "this contract byte stream not matched with the info stored in thinkyoung api");
        return 0;
    }
    bool is_pointer = glua::util::starts_with(name, ADDRESS_CONTRACT_PREFIX);
    bool is_stream = glua::util::starts_with(name, STREAM_CONTRACT_PREFIX);
    std::string name_str;
    if (!is_pointer && !is_stream)
    {
        name_str = thinkyoung::lua::lib::wrap_contract_name(origin_contract_name);
        name = name_str.c_str();
    }
    auto unwrap_name = thinkyoung::lua::lib::unwrap_any_contract_name(origin_contract_name);
    const char *filename = name;
    lua_settop(L, 1);  /* _LOADED table will be at index 2 */
    lua_getfield(L, LUA_REGISTRYINDEX, "_LOADED");
    lua_getfield(L, 2, filename);  /* _LOADED[name] */
    if (lua_toboolean(L, -1))  /* is it there? */
        return 1;  /* package is already loaded */
    /* else must load package */
    lua_pop(L, 1);  /* remove 'getfield' result */

    size_t global_size_before = luaL_count_global_variables(L);
    std::list<std::string> global_vars_before;
    luaL_get_global_variables(L, &global_vars_before);

    // check whether the contract existed
    bool exists;
    std::string namestr(name);
    if (is_pointer)
    {
        std::string address = unwrap_get_contract_address(namestr);
        exists = global_glua_chain_api->check_contract_exist_by_address(L, address.c_str());
    }
    else if (is_stream)
    {
        GluaModuleByteStream *stream = unwrap_get_contract_stream(namestr);
        exists = true;
    }
    else
    {
        exists = global_glua_chain_api->check_contract_exist(L, origin_contract_name);
    }
    if (!exists)
    {
        global_glua_chain_api->throw_exception(L, THINKYOUNG_API_SIMPLE_ERROR, "this contract not found");
        return 0;
    }
    if (!is_stream)