middleclass:为属性添加getter-setter支持

时间:2016-10-06 01:57:12

标签: oop properties lua

我正在尝试为属性声明添加自动支持,以便一个类自动为它们生成getter和setter。我使用middleclass库作为类的基础。我已经定义了一个处理属性创建的根类。但是,在测试中,只有根类的直接子类才能正常工作。其他人在middleclass代码([string "local middleclass = {..."]:82: stack overflow)深处给我堆栈溢出错误。

我的代码是:

local CBaseObject=class('CObjectBase');
function CBaseObject:initialize()
    self._init=true;
end;
function CBaseObject:finalize()
    self._init=false;
end;
function CBaseObject:_getter_setter(v)
    return v;
end;
function CBaseObject:_gen_prop_cache()
    rawset(self,'_properties',rawget(self,'_properties') or {});
end;
function CBaseObject:__index(k)
    print('GET',k);
    self:_gen_prop_cache();
    local prop=self._properties[k];
    if prop~=nil
    then
        local getter=self[prop[2] or '_getter_setter'];
        return getter(self,prop[1]);
    else return nil;end;
end;
function CBaseObject:__newindex(k,v)
    print('ME',self.class.name);
    print('SET',k,v);
    self:_gen_prop_cache();
    local prop=self._properties[k];
    if prop==nil and self._init or prop
    then
        if prop==nil then prop={};self._properties[k]=prop;end;
        local vv=prop[1];
        if type(v)=='table' and #v<4
        then
            for i=1,3 do prop[i]=v[i];end;
        else
            prop[1]=v;
        end;
        local setter=self[prop[3] or '_getter_setter'];
        prop[1]=setter(self,prop[1],vv);
    else
        rawset(self,k,v);
    end;
end;

测试类:

local cls=CBaseObject:subclass('test');
function cls:initialize()
    self.class.super.initialize(self);
    self.health={1000,'_gethealth','_sethealth'};
    self.ammo=100;
    self:finalize();
end;
function cls:_sethealth(value,old)
    print('WRITE:',value,old);
    if value<0 then return old;else return value;end;
end;
function cls:_gethealth(value)
    print('READ:',value);
    return value/1000;
end;

local cls2=cls:subclass('test2');
function cls2:initialize()
    self.class.super.initialize(self);
    self.ammo=200;
    self:finalize();
end;
function cls2:_sethealth(value,old)
    print('WRITE_OVERRIDEN:',value,old);
    return value;
end;
local obj=cls2(); --change this to cls() for working example.
obj.health=100;
obj.health=-100;
print(obj.health,obj._properties.health[1]);
print(obj.ammo,obj._properties.ammo[1]);

我使用https://repl.it/languages/lua来运行我的代码。所以问题是,我做的甚至是正确的方法吗?是否可以以与使用的库兼容的更简单的方式添加属性支持?或者我应该使用另一个,然后呢?

编辑:经过实验,我发现构造self.class.parent.<method>(<...>)应该归咎于错误。我用实际的父类替换了所有这些事件。这似乎是唯一的问题,在此之后,代码开始无错误地工作到目前为止。

1 个答案:

答案 0 :(得分:2)

EnriqueGarcíaCota(middleclass 创造者)用我认为中产阶级的way to implement getters/setters很好的方式启发了我。 他建议创建并使用mixin

我在测试/使用这个mixin配方时做了一些小改动。目前我正在使用的那个看起来像这样:

-- properties.lua
local Properties = {}

function Properties:__index(k)
    local getter = self.class.__instanceDict["get_" .. k]
    if getter ~= nil then
        return getter(self)
    end
end

function Properties:__newindex(k, v)
    local setter = self["set_" .. k]
    if setter ~= nil then
        setter(self, v)
    else
        rawset(self, k, v)
    end
end

return Properties

您必须为您的媒体资源创建function get_ *和function set_ *(或根据需要修改上面的字符串模式)。

示例:

local class = require('middleclass')
local Properties = require('properties')

local Rect = class('Rect'):include(Properties)

function Rect:initialize(x, y, w, h)
  self.x = x
  self.y = y
  self.w = w
  self.h = h
end

function Rect:get_right()
  return self.x + self.w
end

function Rect:set_right(right)
  self.x = self.x + right - self.right
end

r = Rect:new(10,10, 100, 100)

print(r.right) -- 110
print(r:get_right()) -- 110
r.right = 200
print(r.right) -- 200
print(r.x) -- 100

通过这种方式,您可以在任何想要拥有属性的类中使用此mixin,只需在其上创建get_ *和set_ *函数。

然而,他也说:

  

我不是Lua中吸气者/背叛者的忠实粉丝。在其他语言中,我可以接受它们;例如,在ruby中,它们被集成在语言的消息传递机制中。

     

但是在Lua中,他们是额外的语法糖,并且冒着让事情更“神奇”的风险(对于不熟悉代码的人来说意外)。

效果说明:值得一提的是,使用__index函数(如示例所示)应该会严重影响代码的性能(如果与__index表相比较)。 就个人而言,经过一段时间使用getter和setter(由于我的Python偏见),我决定明确地编写内容而不再依赖它们。 当然,这取决于您的代码的性能是否至关重要。