LUA参考手册

是事件，执行加法的函数是元方法。

你可以通过

set/getmetatable

函数来查询和更改一个对象的元表（见

5.1

）。

元表可以控制对象在算 术操作、比较、串连接、

索引取值中如何运行。

元表也可以定义 一个

函数当收集内存垃圾时调用。每一个操作这里

Lua

都用一个特定的键关联，称之为事件。当

Lua

对一个表或是一个用户数据执行上面中的一个操作时，它先检查元表控制的操作已经罗列在下

< br>面。

每个操作有一个相应的名称，

代表了他的含义。

他们在元表中的键是由名称前加上两条下划

线；如，操作

的键是

。这些操作的语义

这里给出的

Lua

代码仅仅是说明性的；

真正的行为是 硬编码在解释器中的，

比下面的的模拟

的效率要高很多。

描述中用到的函数

(rawget, tonumber,

等等

)

在

5.1

中会对他们进行描述。

特别地，要获得一个给定对象的 元方法，我们使用这个表达式：

metatable(obj)[event]

这个要读作：

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

也就是，

访问元方法时不会调用其它元方法，

同时调用没有元表的对象不会出错

（它返回一

个

nil

值）。

加法操作。

下面的

getbinhandler

函数定义了

Lua

如何给一个二元操作选择一个处理器。首先 ，

Lua

尝试第一个操作数。

如果它的 类型没有定义这个操作的处理器，

那么然后

Lua

尝试第二个操作数。

function getbinhandler (op1, op2, event)

页脚内容

17

LTE

初始随机接入过程详解

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 -- both operands are numeric?

return o1 + o2 -- `+' here is the primitive `add'

else -- at least one of the operands is not numeric

local h = getbinhandler(op1, op2,

if h then

-- call the handler with both operands

return h(op1, op2)

else -- no handler available: default behavior

error(

end

end

end

操作。行为方式类似

操作。

操作。行为方式类似

操作。

操作。行为方式类似

操作。

（指数）

操作

function pow_event (op1, op2)

local o1, o2 = tonumber(op1), tonumber(op2)

if o1 and o2 then -- both operands are numeric?

return __pow(o1, o2) -- call global `__pow'

else -- at least one of the operands is not numeric

local h = getbinhandler(op1, op2,

if h then

-- call the handler with both operands

return h(op1, op2)

else -- no handler available: default behavior

error(

end

end

end

一元取负

-

操作。

function unm_event (op)

local o = tonumber(op)

页脚内容

18

LTE

初始随机接入过程详解

if o then -- operand is numeric?

return -o -- `-' here is the primitive `unm'

else -- the operand is not numeric.

-- Try to get a handler from the operand

local h = metatable(op).__unm

if h then

-- call the handler with the operand and nil

return h(op, nil)

else -- no handler available: default behavior

error(

end

end

end

（串连接）操作。

function concat_event (op1, op2)

if (type(op1) ==

(type(op2) ==

return op1 .. op2 -- primitive string concatenation

else

local h = getbinhandler(op1, op2,

if h then

return h(op1, op2)

else

error(

end

end

end

操作。函数

getcomphandler

定义了

Lua

是如何为比较

操作选择一个元方法的。

只有当参与比较 的两个对象属于同一类型而且需要的

元方法一样时，才会选择这个元方法。

function getcomphandler (op1, op2, 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

end

事件如下定义：

function eq_event (op1, op2)

页脚内容

19

LTE

初始随机接入过程详解

if type(op1) ~= type(op2) then -- different types?

return false -- different objects

end

if op1 == op2 then -- primitive equal?

return true -- objects are equal

end

-- try metamethod

local h = getcomphandler(op1, op2,

if h then

return h(op1, op2)

else

return false

end

end

a ~= b is equivalent to not (a == b).

操作。

function lt_event (op1, op2)

if type(op1) ==

return op1 < op2 -- numeric comparison

elseif type(op1) ==

return op1 < op2 -- lexicographic comparison

else

local h = getcomphandler(op1, op2,

if h then

return h(op1, op2)

else

error(

end

end

end

a > b is equivalent to b < a.

操作。

function le_event (op1, op2)

if type(op1) ==

return op1 <= op2 -- numeric comparison

elseif type(op1) ==

return op1 <= op2 -- lexicographic comparison

else

页脚内容

20

LTE

初始随机接入过程详解

local h = getcomphandler(op1, op2,

if h then

return h(op1, op2)

else

h = getcomphandler(op1, op2,

if h then

return not h(op2, op1)

else

error(

end

end

end

end

a >= b is equivalent to b <= a. Note that, in the absence of a

Lua tries the

通过索引访问

table[key]

。

function gettable_event (table, key)

local h

if type(table) ==

local v = rawget(table, key)

if v ~= nil then return v end

h = metatable(table).__index

if h == nil then return nil end

else

h = metatable(table).__index

if h == nil then

error(

end

end

if type(h) ==

return h(table, key) -- call the handler

else return h[key] -- or repeat operation on it

end

给表的索引赋值

table[key] = value

。

function settable_event (table, key, value)

local h

if type(table) ==

local v = rawget(table, key)

页脚内容

21

LTE

初始随机接入过程详解

if v ~= nil then rawset(table, key, value); return end

h = metatable(table).__newindex

if h == nil then rawset(table, key, value); return end

else

h = metatable(table).__newindex

if h == nil then

error(

end

end

if type(h) ==

return h(table, key,value) -- call the handler

else h[key] = value -- or repeat operation on it

end

当

Lua

调用 某个值时调用。

function function_event (func, ...)

if type(func) ==

return func(unpack(arg)) -- primitive call

else

local h = metatable(func).__call

if h then

return h(func, unpack(arg))

else

error(

end

end

end

[

编辑

]

2.9 -

垃圾收集

Lua

会自动进行内存管理。

这意味 着你不需要担心新对象的内存分配问题，

也不需要释放不

用的对 象。

Lua

通过不断地运行

垃圾收集器

收集

dead objects

（ 也就是那些

Lua

中无法访问

的对象） 来自动管理内存。

Lua

中所有的对象都是自动管理的目标：< /p>

表，用户数据，函数，

线程，

和字符串。

Lua

使用两个数字控制垃圾收集循环。一个数字表示

Lua

使用的动态内存的字节数，

另一个是阀值 。当内存字节数到达阀值时，

Lua

就运行垃圾收集器，来释放 死对象的空间。一旦

字节计数器被调整，那么阀值就会被设为字节计数器新值的两倍。< /p>

通过

C API

，

你可以查询和更改阀值

（见

3 .7

）

。

将阀值设为零时会强制立刻进 行垃圾收集，

同时把他设为足够大就可以停止垃圾收集。仅使用

Lua

代码中的

gcinfo

和

collectgarbage

函数

（见

5.1

）可以获得一定程度上对垃圾收集循环的控制。

[

编辑

]

页脚内容

22

LTE

初始随机接入过程详解

2.9.1 -

垃圾收集元方法

（

Garbage-Collection Metamethods

）

使用

C API

，你可以对用户数据 设置一个垃圾收集元方法

（见

2.8

）

。

这些元方法也称为终

结器（

finalizers

）。终结器允许你用外部的资源管理来调整

Lua

的垃圾收集（如关闭文件，网

络或数 据库连接，或者释放你自己的内存。

用元表中包含

__gc

字段的自由 用户数据不会立即被垃圾收集器回收。而是，

Lua

把它们放< /p>

在一个列表中。收集完毕之后，

Lua

会 对这个列表中的用户数据执行和以下函数相等的操作：

function gc_event (udata)

local h = metatable(udata).__gc

if h then

h(udata)

end

end

在每个垃圾收集过程 最后，

调用用户数据的终结器的顺序，

将按照他们在收集过程中 添加到

列表中的相反顺序进行。

也就是，

第一个被调用的终结器是和在程序中创建的最后一个用户数据

相关的那个终结器。

[

编辑

]

2.9.2 -

弱表

一个弱表（

weak table

）

是一个包含的元素是

弱引用（

weak references

）的表。垃圾收

集器会忽略弱引用。

换句话说，