微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

Lua中的元表和元方法

Lua中每个值都可具有元表。 元表是普通的Lua表,定义了原始值在某些特定操作下的行为。你可通过在值的原表中设置特定的字段来改变作用于该值的操作的某些行为特征。例如,当数字值作为加法的操作数时,Lua检查其元表中的"__add"字段是否有个函数。如果有,Lua调用它执行加法。

我们称元表中的键为事件(event),称值为元方法Metamethod)。前述例子中的事件是"add",元方法是执行加法的函数

可通过函数getMetatable查询任何值的元表。

可通过函数setMetatable替换表的元表。不能从Lua中改变其他类型的元表(除了使用调试库);必须使用C API才能做到。

表和完整的用户数据具有独立的元表(尽管多个表和用户数据可共享元表);每种其他类型的所有值共享一个元表。所以,所有数字共享一个元表,字符串也是,等等。

元表可以控制对象的数学运算、顺序比较、连接、取长、和索引操作的行为。元表也能定义用户数据被垃圾收集时调用函数。Lua给这些操作的每一个都关联了称为事件的特定键。当Lua对某值执行其中一个操作时,检查该值是否含有元表以及相应的事件。如果有,与该键关联的值(元方法)控制Lua如何完成操作。

元表控制后面列举的操作。每个操作由相应的名字标识。每个操作的键是由其名字前缀两个下划线“__”的字符串;例如,操作“加(add)”的键是字符串"__add"。这些操作的语义通过一个Lua函数描述解释器如何执行操作作了更好的说明。

下面显示的Lua代码只是说明性的;真实的行为被硬编码到解释器中,并且比这里的模拟更加高效。这些描述中的所有函数(rawget、tonumber等等。)在§5.1中描述。特别一提,要获取给定对象的元方法,我们使用表达式

Metatable(obj)[event]

它应被解读为

rawget(getMetatable(obj) or {},event)

就是说,访问一个方法不会调用其他元方法,而且访问没有元表的对象不会失败(只是结果为nil)。

"add": + 操作。 
下面的getbinhandler函数定义Lua如何选择二元操作的处理程序。首先尝试第一操作数,如果它的类型没有定义该操作的处理程序,则尝试第二操作数。

function getbinhandler (op1,op2,event)
 return Metatable(op1)[event] or Metatable(op2)[event]     
end

通过应用该函数,op1 + op2的行为是

function add_event (op1,op2)
 local o1,o2 = tonumber(op1),tonumber(op2)
 if o1 and o2 then  -- 两操作数都是数字
  return o1 + o2   -- ‘+’此处是‘add’的原语
 else  -- 至少一个操作数不是数字  
  local h = getbinhandler(op1,"__add")
  if h then    -- 用两个操作数调用处理程序
   return (h(op1,op2))  
  else  -- 没有可用的处理程序:缺省行为
   error(...)
  end       
 end
end

"sub": - 操作。 行为类似于“add”操作。 
"mul": * 操作。 行为类似于“add”操作。 
"div": / 操作。 行为类似于“add”操作。 
"mod": % 操作。 行为类似于“add”操作。以o1 - floor(o1/o2)*o2为操作原语。 
"pow": ^ (取幂)操作。 行为类似于“add”操作,以函数pow(来自C数学库)为操作原语。 
"unm": 一元-操作。 
function unm_event (op)
 local o = tonumber(op)
 if o then  -- 操作数是数字?
  return -o  -- ‘-’此处是‘unm’的原语
 else  -- 操作数不是数字
 -- 尝试由操作数取得处理程序。
  local h = Metatable(op).__unm
  if h then-- 用操作数调用处理程序
   return (h(op))
  else  -- 没有可用的处理程序:缺省行为    
   error(...)  
  end
 end     
end


"concat": .. (连接)操作。 
function concat_event (op1,255); font-family:Courier"> if (type(op1) == "string" or type(op1) == "number") and 
 (type(op2) == "string" or type(op2) == "number") then  
  return op1 .. op2  -- 字符串连接原语       
 else  

  if h then    
  else    
   error(...)  
end   


"len": # 操作。 
function len_event (op)
 if type(op) == "string" then  
  return strlen(op)  -- 取字符串长度原语       
 elseif type(op) == "table" then  
  return #op  -- 取表长度原语       
  local h = Metatable(op).__len  
  if h then    -- 用操作数调用处理程序    
   return (h(op))  
   error(...)  
 end   nd 


"eq": == 操作。 函数getcomphandler定义Lua如何选择比较操作符的元方法。只有待比较的两个对象类型和选定操作对应的元方法都相同,才会选择该元方法。 
function getcomphandler (op1,event)       
 if type(op1) ~= type(op2) then return nil end       
 local mm1 = Metatable(op1)[event]       
 local mm2 = Metatable(op2)[event]       
 if mm1 == mm2 then 
  return mm1 
 else 
  return nil 
end
"eq"事件定义如下: 
function eq_event (op1,op2)       
 if type(op1) ~= type(op2) then  -- 类型不同?  
  return false   -- 对象不同       
 end       
 if op1 == op2 then   -- 相等原语?  
  return true   -- 对象相同       
 end       -- 尝试元方法       
 local h = getcomphandler(op1,"__eq")       
 if h then  
  return (h(op1,op2))       
  return false       
end
a ~= b等价于not (a == b)。

"lt": < 操作。 
function lt_event (op1,255); font-family:Courier"> if type(op1) == "number" and type(op2) == "number" then  
  return op1 < op2   -- 数字比较       
 elseif type(op1) == "string" and type(op2) == "string" then  
  return op1 < op2   -- 词典顺序比较       
  local h = getcomphandler(op1,"__lt")  
   error(...);  
 end    
end
a > b等价于b < a。

"le": <= 操作。 
function le_event (op1,255); font-family:Courier">  return op1 <= op2   -- 数字比较       
  return op1 <= op2   -- 词典顺序比较       

   h = getcomphandler(op1,"__lt")    
   if h then      
    return not h(op2,op1)    
   else      
    error(...);    
   end  
end
a >= b等价于 b <= a。注意,假定a <= b等价于not (b < a),那么当没有“le”元方法时,Lua尝试“lt”。


"index": 索引访问table[key]。 
function gettable_event (table,key)       
 local h       
 if type(table) == "table" then  
  local v = rawget(table,key)  
  if v ~= nil then 
   return v 
  end  
  h = Metatable(table).__index  
  if h == nil then 
   return nil 
  if h == nil then    
 if type(h) == "function" then  
  return (h(table,key))     -- 调用处理程序       
  return h[key]    -- 对它重复上述操作       

"newindex": 索引赋值table[key] = value。 

function settable_event (table,key,value)       
   rawset(table,value); 
   return 
  h = Metatable(table).__newindex  
  return 
  h(table,value)    -- 调用处理程序       
  h[key] = value      -- 对它重复上述操作       

"call": 当Lua调用值时被调用。 

function function_event (func,...)       
 if type(func) == "function" then  
  return func(...)   -- 调用原语       
  local h = Metatable(func).__call  
   return h(func,...)  
 nd  

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐