Question

我有一个像我的C代码中那样定义的库函数：

static const struct luaL_reg SelSurfaceLib [] = {
    {"CapabilityConst", CapabilityConst},
    {"create", createsurface},
    {NULL, NULL}
};

static const struct luaL_reg SelSurfaceM [] = {
    {"Release", SurfaceRelease},
    {"GetPosition", SurfaceGetPosition},
    {"clone", SurfaceClone},
    {"restore", SurfaceRestore},
    {NULL, NULL}
};

void _include_SelSurface( lua_State *L ){
    luaL_newmetatable(L, "SelSurface");
    lua_pushstring(L, "__index");
    lua_pushvalue(L, -2);
    lua_settable(L, -3);    /* metatable.__index = metatable */
    luaL_register(L, NULL, SelSurfaceM);
    luaL_register(L,"SelSurface", SelSurfaceLib);
}

我可以使用这个Lua代码：

local sub = SelSurface.create()
local x,y = sub:GetPosition()
...

现在，我的难题是：我使用了以下代码

function HLSubSurface(parent_surface, x,y,sx,sy )
    local self = {}

    -- fields
    local srf = parent_surface:SubSurface( x,y, sx,sy )

    -- methods
    local meta = {
        __index = function (t,k)
            local tbl = getmetatable(srf)
            return tbl[k]
        end
    }
    setmetatable( self, meta )

    return self
end

我的主要代码是：

sub = HLSubSurface( parent, 0,0, 160,320 )
x,y = sub.GetPosition()

但是它失败了

./ HDB / 80_LeftBar.lua：19：不好参数＃1到＆＃39; SetFont＆＃39; （SelSurface期望，获得用户数据）

这是因为我需要提供 srf 作为GetPosition（）函数的第一个参数...但我严格如何做到这一点：（

调用GetPosition（）时我不想这样做， x，y = sub.GetPosition（）但我正在寻找一种方法，通过在元函数中设置它来透明。

换句话说，我想让HLSubSurface object 从SubSurface继承方法。

有什么想法吗？

感谢。

劳伦

Answer 1

function HLSubSurface(parent_surface, x, y, sx, sy)
   local srf = parent_surface:SubSurface(x, y, sx, sy)

   local self = {
      -- fields
      ....
   }

   setmetatable(self, {__index = 
      function (obj, key)
         local parent_field
         local parent_fields = getmetatable(srf).__index
         if type(parent_fields) == "function" then
            parent_field = parent_fields(key)
         elseif parent_fields then 
            parent_field = parent_fields[key]
         end
         if type(parent_field) == "function" then
            return 
               function(o, ...)
                  if o == obj then
                     return parent_field(srf, ...)
                  else
                     return parent_field(o, ...)
                  end
               end
         else
            return parent_field
         end
      end
   })

   return self
end

您的主要代码是：

sub = HLSubSurface( parent, 0,0, 160,320 )
x,y = sub:GetPosition()

如何通过名称调用库函数并设置它的参数

1 个答案: