Posted on 2008-10-26 11:06
劍孤寒 閱讀(6797)
評(píng)論(0) 編輯 收藏 引用 所屬分類(lèi):
Lua
《在Lua中使用List 》
轉(zhuǎn)載請(qǐng)注明出處：
http://groups.google.com/group/jianguhan
在《Programming in Lua》一書(shū)中提到了一個(gè)雙端隊(duì)列的實(shí)現(xiàn)方法，我把它拿來(lái)改進(jìn)了一下用在了我正在制作的一個(gè)RPG游戲里，用起覺(jué)得 來(lái)還不錯(cuò)，加了一個(gè)GetSize()來(lái)取得List的大小，這個(gè)在游戲制作中用處還是很大的^_^
源代碼如下：
CList = class()
function CList:ctor()
self.m_list = { first = 0, last = -1 }
end
function CList:PushFront(value)
local first = self.m_list.first - 1
self.m_list.first = first
self.m_list[first] = value
end
function CList:PushBack(value)
local last = self.m_list.last + 1
self.m_list.last = last
self.m_list[last] = value
end
function CList:PopFront()
local first = self.m_list.first
if first > self.m_list.last then return nil end
local value = self.m_list[first]
self.m_list[first] = nil
self.m_list.first = first + 1
return value
end
function CList:PopBack()
local last = self.m_list.last
if self.m_list.first > last then return nil end
local value = self.m_list[last]
self.m_list[last] = nil
self.m_list.last = last - 1
return value
end
function CList:GetSize()
if self.m_list.first > self.m_list.last then
return 0
else
return math.abs(self.m_list.last - self.m_list.first) + 1
end
end
在最前面的那句CList = class() 這里使用了云風(fēng)寫(xiě)的一個(gè)class函數(shù)創(chuàng)建一個(gè)類(lèi)，
這個(gè)函數(shù)可以在云風(fēng)的博客上找到，為了方便起見(jiàn)我就在這里先抄一下了：
local _class={}
function class(super)
local class_type={}
class_type.ctor=false
class_type.super=super
class_type.new=function(...)
local obj={}
do
local create
create = function(c,...)
if c.super then
create(c.super,...)
end
if c.ctor then
c.ctor(obj,...)
end
end
create(class_type,...)
end
setmetatable(obj,{ __index=_class[class_type] })
return obj
end
local vtbl={}
_class[class_type]=vtbl
setmetatable(class_type,{__newindex=
function(t,k,v)
vtbl[k]=v
end
})
if super then
setmetatable(vtbl,{__index=
function(t,k)
local ret=_class[super][k]
vtbl[k]=ret
return ret
end
})
end
return class_type
end