Method LoadBuffer

Source/ThirdParty/LuaCpp/State.cpp:51–100

}

bool State::LoadBuffer(const std::string &name, const char *code, size_t size, const char *sandbox) {
    if (size == 0) {
        size = strlen(code);
    }

#if 0
    // Remove path
    size_t pos = name.find_last_of("/\\");
    if (pos == std::string::npos) {
        _name = name;
    } else {
        _name = name.substr(pos + 1);
    }
#else
    _name = name;
#endif
    // lua_load pushes the compiled chunk as a Lua function on top of the stack. 
    // Otherwise, it pushes an error message.
    int status = luaL_loadbuffer(_l, code, size, _name.c_str());
    if (status != 0) {
        if (status == LUA_ERRSYNTAX) {
            const char *msg = lua_tostring(_l, -1);
            _exception_handler->Handle(status, msg ? msg : _name + ": syntax error");
        } else if (status == LUA_ERRMEM) {
            const char *msg = lua_tostring(_l, -1);
            _exception_handler->Handle(status, msg ? msg : _name + ": out-of-memory error");
        }
        return false;
    }

    // Assume that function already pushed on top
    assert(lua_type(_l, -1) == LUA_TFUNCTION);

    if (sandbox && sandbox[0]) {
        lua_newtable(_l);                   // Push new environment table for sandboxing (1)
        lua_setglobal(_l, sandbox);         // Set and pop (0)
        lua_getglobal(_l, sandbox);         // Push again (1)
        lua_newtable(_l);                   // Push new metatable (2)
        lua_getglobal(_l, "_G");            // Push global table (3)
        lua_setfield(_l, -2, "__index");    // Do metatable[__index] = _G and pop (2)
        lua_setmetatable(_l, -2);           // Set metatable of sandbox table and pop (1)
#if LUA_VERSION_NUM >= 502
        lua_setupvalue(_l, -2, 1);          // Pop and set sandbox table as the new environment (using upvalue) of the current function (0)
#else
        lua_setfenv(_l, -2);                // Pop and set sandbox table as the new environment of the current function (0)
#endif
    }

    return true;
}

bool State::Run() {
    int status = lua_pcall(_l, 0, LUA_MULTRET, 0);