替换luaL_getMetaTable

时间:2011-11-30 10:16:40

标签: delphi lua

我想在我的Delphi应用程序中启用Lua-Scripting(Lua 5.1)。为此,我使用了Thomas Lavergne的文件头。

现在我尝试在此示例后注册userdata类型:http://www.lua.org/pil/28.2.html

在“新数组函数”中,它使用命令* luaL_getmetatable *。

static int newarray (lua_State *L) {
  int n = luaL_checkint(L, 1);
  size_t nbytes = sizeof(NumArray) + (n - 1)*sizeof(double);
  NumArray *a = (NumArray *)lua_newuserdata(L, nbytes);

  luaL_getmetatable(L, "LuaBook.array");
  lua_setmetatable(L, -2);

  a->size = n;
  return 1;  /* new userdatum is already on the stack */
}

不幸的是,* luaL_getmetatable *函数在我的标题文件中标记为旧并注释掉了。我试图再次激活它,但正如预期的那样,我会收到错误,因为找不到dll入口点。

这是该示例的Delphi转换(使用另一种非数组数据类型)

Type
  tMyType = tWhatever;
  pMyType = ^tMyType;
{...}

Function newusertype(aState : pLua_State) : LongInt; cdecl;
  Var
    NewData : pMyType;
  Begin
    Result := 0;
    NewData := lua_newuserdata(aState, SizeOf(tMyType ));
    NewData^ := GetInitValue;
    luaL_getMetaTable(aState, 'myexcample.mytype'); // Error/unknown function
    lua_setmetatable(aState, -2);
    Result := 1;
  End;

现在我正在寻找luaL_getMetaTable的替代品。我还没有找到任何关于一个的信息。事实上,我没有找到任何信息,luaL_getMetaTable已经过时但似乎是:(。

1 个答案:

答案 0 :(得分:3)

使用lua_newmetatable(aState, 'myexample.mytype')。问题是(如果你只想继续,如果metatable已经存在),你需要评估它是否返回0!如果它返回0,那么它想要创建metatable ...在这种情况下你可以lua_pop(aState, 1)

请记住lua_newmetatable是一个返回整数的函数(实际上应该是一个布尔值)。

否则你可以等几个星期让我发布Lua4Delphi版本2,这使得所有这些非常容易(和专业版实际上自动使用Lua注册Delphi类型和实例)< / p>