Function skr_lua_log

modules/engine/lua/src/build.skr_lua.cpp:482–516

template<int level>
int skr_lua_log(lua_State* L)
{
    lua_Debug ar;
    lua_getinfo(L, 1, "nSl", &ar);
    auto str = skr::format(u8"[{} : {}]:\t", (uint64_t)ar.what, (const char8_t*)ar.name);
    int top = lua_gettop(L);
    for(int n=1;n<=top;n++) {
        size_t len;
        const char8_t* s = (const char8_t*)luaL_tolstring(L, n, &len);
        str += u8"\t";
        //TODO: use string builder?
        if(s) str += s;
    }
    const int line = ar.currentline;
    auto src = (const char8_t*)ar.source;
    if(line != -1)
    {
        skr::stl_u8string_view Source(src);
        if (Source.ends_with(u8".lua"))
            Source = Source.substr(0, Source.size() - 4);
        if (Source.starts_with(u8"@"))
            Source = Source.substr(1);
        skr::Vector<skr::stl_u8string_view> tokens;
        split(Source, tokens, u8"/");
        
        const auto modulename = join(tokens, u8".");
        auto lstr = skr::format(u8"{}", line);
        skr_log_log(level, (const char*)modulename.c_str(), "unknown", lstr.c_str(), str.u8_str());
    }
    else 
    {
        skr_log_log(level, "unknown", "unknown", 0, str.u8_str());
    }
    return 0;
}

void bind_skr_log(lua_State* L)
{