3

我将两个带有 loadbuffer 的字符串加载到一个 lua_state 中。

if( luaL_loadbuffer( L, str.c_str(), str.size(), "line") != 0 )
{
    printf( "%s\n", lua_tostring ((lua_State *)L, -1));
}
lua_pcall(L, 0, 0, 0);

if( luaL_loadbuffer( L, str2.c_str(), str2.size(), "line2") != 0 )
{
    printf( "%s\n", lua_tostring ((lua_State *)L, -1));
}
lua_pcall(L, 0, 0, 0);

例如：

function f ()


    print( "Hello World!")
end

和

function g ()

    f(
end

第二个字符串中的遗忘)会引发错误：

[string "line2"]:9: unexpected Symbol

但是9是字符串 1 加上字符串 2 的行号。行号应该是 3。

有没有办法在调用 loadbuffer 之前重置行号计数器？

4

3 回答 3

1

我想这个链接描述了你的情况： http: //www.corsix.org/content/common-lua-pitfall-loading-code

您正在加载两个信息块，调用这些块会将它们连续放入全局表中。lua_pcall(L, 0, 0, 0);不是调用您的and f()，g()而是按顺序构建您的 lua 代码。

您的代码可能会简化为：

if (luaL_dostring(L, str.c_str()))
{
    printf("%s\n", lua_tostring (L, -1));
}
if (luaL_dostring(L, str2.c_str()));
{
    printf("%s\n", lua_tostring (L, -1));
}

它还可以防止在加载失败时调用块；

于 2013-06-07T09:35:29.963 回答
0

你是对的谜，来自 str2 的代码是连续附加的。中的断点

static void statement (LexState *ls) {

在 lparser.cpp 中，LexState.linenumber 显示 str 为 5 和 7，str2 为 5、7、14 和 16。因此 str 被词法分析并添加到 VM 两次。我会找到一种不同的方法将由多个文件组成的脚本放入一个 VM 中。

于 2013-06-08T13:20:04.233 回答
0

只是如果有人也需要它。

将此函数添加到 luxlib.h

LUALIB_API int (luaL_loadbuffers) (lua_State *L, size_t count, const char **buff, size_t *sz,
                                   const char **name, const char *mode);

和 luxlib.c

#include"lzio.h"
#include"ldo.h"
#include"ltable.h"
#include"lgc.h"
LUALIB_API int luaL_loadbuffers (lua_State *L, size_t count, const char **buff, size_t *sz,
                                   const char **name, const char *mode)
{
    ZIO z;
    int status;

    int i;

    for( i=0; i<count; i++)
    {
        LoadS ls;
        ls.s = buff[i];
        ls.size = sz[i];

        lua_lock(L);

        luaZ_init(L, &z, getS, &ls);
        status = luaD_protectedparser(L, &z, name[i], mode);

        if (status == LUA_OK) {  /* no errors? */
            LClosure *f = clLvalue(L->top - 1);  /* get newly created function */
            if (f->nupvalues == 1) {  /* does it have one upvalue? */

                /* get global table from registry */
                Table *reg = hvalue(&G(L)->l_registry);
                const TValue *gt = luaH_getint(reg, LUA_RIDX_GLOBALS);
                /* set global table as 1st upvalue of 'f' (may be LUA_ENV) */
                setobj(L, f->upvals[0]->v, gt);
                luaC_barrier(L, f->upvals[0], gt);


            } // == 1

            lua_pcall( L, 0, 0, 0);
        }

        lua_unlock(L);

        if( status != LUA_OK )
            break;
    }

    return status;
}

每个字符串/文件都有自己的行号。它几乎只是 lapi.c 中 lua_load 的一个副本。在新版本的 LUA 中很容易调整。

于 2013-06-08T16:48:20.503 回答