Function str_split

src/Chain/libraries/glua/lstrlib.cpp:625–685

#define ARGS_ERROR()   { global_glua_chain_api->throw_exception(L, THINKYOUNG_API_SIMPLE_ERROR, "arguments wrong"); return 0; }

static int str_split(lua_State *L)
{
    if (lua_gettop(L) < 2 || !lua_isstring(L, 1) || !lua_isstring(L, 2))
        ARGS_ERROR();
    const char *s = luaL_checkstring(L, 1);
    const char *sep = luaL_checkstring(L, 2);
    if (strlen(sep) < 1)
    {
        lua_createtable(L, 0, 0);
        lua_pushstring(L, s);
        lua_seti(L, -2, 1);
        return 1;
    }
    std::list<std::string> items;
    std::string sstr(s);
    std::string sepstr(sep);
    size_t i = 0;
    size_t last_pos = 0;
    while (i < sstr.length())
    {
        std::string sub = sstr.substr(i, sepstr.length());
        if (sub == sepstr && last_pos == i)
        {
            i += sepstr.length();
            last_pos = i;
            continue;
        }
        if (sub == sepstr)
        {
            if (i > last_pos)
            {
                std::string item = sstr.substr(last_pos, i - last_pos);
                i += sepstr.length();
                last_pos = i;
                items.push_back(item);
            }
            else
            {
                i += sepstr.length();
            }
        }
        else
        {
            ++i;
        }
    }
    if (i > last_pos)
    {
        std::string item = sstr.substr(last_pos, i - last_pos);
        if (item != sepstr)
            items.push_back(item);
    }
    i = 0;
    lua_createtable(L, 0, 0);
    for (auto it = items.begin(); it != items.end(); ++it)
    {
        lua_pushstring(L, it->c_str());
        lua_seti(L, -2, ++i);