在 C++ 中进行 Lua 转储。

2013-7-11 22:49:46
收藏：0
阅读：161
评论：3

我想使用lua_dump或luaU_dump导出一个二进制Chunk。

错误：返回值只有<-LuaR>。

代码没有编译错误或静态问题，只有< -LuaR返回值。

我能做什么来解决这个问题？

private:
const char* buildLua(QString luaScript)
{
    const Proto* f;
    char *byteCode = 0L;
    size_t byteCodeLen = 0;
    wdata wd = { &byteCodeLen, &byteCode };
    string ts = luaScript.toStdString();
    const char* cs;
    lua_State *L = luaL_newstate();
    f=combine(L,0);
    luaL_loadstring(L,ts.c_str());
    luaL_openlibs(L);
    lua_lock(L);
    luaU_dump(L,f,kpt_lua_Writer,&wd,1);
    lua_unlock(L);
    lua_close(L);
    cs = byteCode;
    return cs;
}

static const char* kpt_lua_Reader(lua_State *L, void *ud, size_t *size)
{
    UNUSED(L);
    if ((*(int*)ud)--)
    {
        *size=sizeof(FUNCTION)-1;
        return FUNCTION;
    }
    else
    {
        *size=0;
        return NULL;
    }
}

static int kpt_lua_Writer(lua_State * /*l*/, const void *p, size_t sz, void *ud)
{
    wdata *wd = (wdata *)ud;

    char *newData;

    if((newData = (char *)realloc(*(wd->data), (*(wd->len)) + sz))) {
        memcpy(newData + (*(wd->len)), p, sz);
        *(wd->data) = newData;
        *(wd->len) += sz;
    } else {
        free(newData);
        return 1;
    }

    return 0;
}

static const Proto* combine(lua_State* L, int n)
{
    if (n==1)
        return toproto(L,-1);
    else
    {
        Proto* f;
        int i=n;
        if (lua_load(L,kpt_lua_Reader,&i,"=(keppedev)",NULL)!=LUA_OK) fatal(lua_tostring(L,-1));
        f=toproto(L,-1);
        for (i=0; i<n; i++)
        {
            f->p[i]=toproto(L,i-n-1);
            if (f->p[i]->sizeupvalues>0) f->p[i]->upvalues[0].instack=0;
        }
        f->sizelineinfo=0;
        return f;
    }
}

static void fatal(const char* message)
{
    QWidget *widget = new QWidget();
    QMessageBox::warning(widget,"Keppe Develop",message);
}

http://www.keppe.org/img/LuaR.png

点赞
用户107090
用户107090

没有必要使用 Lua 的内部功能。无论如何，您应该调用luaL_loadstring或luaL_loadbuffer，而不是luaL_dostring，它会在字符串中_执行_代码：

lua_State *L = luaL_newstate();
luaL_loadstring(L,s.c_str());
lua_dump(L,writer,NULL);
lua_close(L);

但是，您应该测试luaL_loadstring和lua_dump的返回值。

2013-07-11 17:03:47
用户234175
用户234175

编译器错误是由于frmDevelop :: writer的无效函数原型实现引起的。

extern“C”
{
静态int frmDevelop :: writer（lua_State * L，const void * p，size_t size，void * u）
{
  // ...
} 
}

在class frmDevelop 的声明点上仅需要static限定符。此外，extern“C”在此处不正确，因为您要告诉编译器不要搅混函数名称。但是，编译器无法遵守该请求，因为您正在使用C ++功能（writer是frmDevelop的一部分，因此您需要::范围运算符）- extern“C”仅被忽略frmDevelop :: writer。

将writer的实现从：

extern“C”
静态int frmDevelop :: writer（lua_State * L，const void * p，size_t size，void * u）
{ /* … */ }

更改为

int frmDevelop :: writer(lua_State * L，const void * p，size_t size，void * u)
{ /* … */ }

这将修复您正在获得的编译错误。

2013-07-11 20:25:41
用户2573350
用户2573350

我正在使用代码修复它

源文件（包含）

void frmDevelop::on_actionBuild_Project_triggered()
{
    if (!isInLuaMode) return;
    const char* output = buildLua(cedit->document()->toPlainText());
    int length = strlen(output);
}

头文件（包含）

private:
const char* buildLua(QString luaScript)
{
    string ts = luaScript.toStdString();
    lua_State *L = luaL_newstate();
    FILE* D = fopen("test.luac","wb");
    luaL_openlibs(L);
    luaL_loadstring(L,ts.c_str());
    lua_lock(L);
    int re = lua_dump(L,kpt_lua_Writer,D);
    lua_unlock(L);
    lua_close(L);
    fclose(D);
    return QString::number(re).toStdString().c_str();
}

static int kpt_lua_Writer(lua_State * /*l*/, const void *p, size_t sz, void *u)
{
    return (fwrite(p,sz,1,(FILE*)u)!=1) && (sz!=0);
}

请务必将test.luac替换为您的文件名:D

2013-07-12 13:51:09

作者:

用户2573350

用户2573350
推荐文章