组合模式lua实现

--[[
组合模式使得用户对单个对象和组合对象的使用具有一致性。

应用：
1．你想表示对象的部分-整体层次结构
2．你希望用户忽略组合对象与单个对象的不同，用户将统一地使用组合结构中的所有对象。

定义：
1.Component 是组合中的对象声明接口，在适当的情况下，实现所有类共有接口的默认行为。声明一个接口用于访问和管理Component子部件。
2.Leaf 在组合中表示叶子结点对象，叶子结点没有子结点。
3.Composite 定义有枝节点行为，用来存储子部件，在Component接口中实现与子部件有关操作，如增加(add)和删除(remove)等。

]]--

Component = {}

function Component:new(name)
o = {}
setmetatable(o,self)
self.__index = self
o.name = name
return o;
end

Composite = Component:new()

function Composite:new(name)
o = {}
setmetatable(o,self)
self.__index = self
o.children = {}
o.name = name
return o;
end

function Composite:Add(c)
table.insert(self.children,c)
end

function Composite:Remove(c)
for k,v in pairs(self.children) do
if v == c then
table.remove(self.children,k)
end
end
end

function Composite:Fuck()
--print(self.name)
for _,v in pairs(self.children) do
v:Fuck()
end
end

function Composite:Announce()
print(self.name)
for _,v in pairs(self.children) do
v:Announce()
end
end

Leaf = Component:new()

function Leaf:new(name)
o = {}
setmetatable(o,self)
self.__index = self
o.name = name
return o;
end

function Leaf:Fuck()
print("法克油,"..self.name)
end

function Leaf:Announce()
print(self.name..",今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作")
end
--************************** 实例一 ***************************
chenguanxi = Composite:new("陈冠稀")
first = Composite:new("第一批曝光")
first:Add(Leaf:new("张伯芝"))
first:Add(Leaf:new("钟欣同"))
chenguanxi:Add(first)

second = Composite:new("第二批曝光")
second:Add(Leaf:new("陈文援"))
chenguanxi:Add(second)
chenguanxi:Fuck()

--************************** 实例二 ***************************
yitouhan = Composite:new("一头汗集团广州总部")
yitouhan:Add(Leaf:new("人力资源部"))
yitouhan:Add(Leaf:new("程序部"))
yitouhan:Add(Leaf:new("运营部"))
yitouhan:Add(Leaf:new("运维部"))

shenzhen = Composite:new("一头汗集团深圳分部")
shenzhen:Add(Leaf:new("人力资源部"))
shenzhen:Add(Leaf:new("程序部"))
shenzhen:Add(Leaf:new("港澳台合作部"))

beijing  = Composite:new("一头汗集团北京分部")
beijing:Add(Leaf:new("人力资源部"))
beijing:Add(Leaf:new("程序部"))

shanghai = Composite:new("一头汗集团上海分部")
shanghai:Add(Leaf:new("人力资源部"))
shanghai:Add(Leaf:new("程序部"))

yitouhan:Add(shenzhen)
yitouhan:Add(beijing)
yitouhan:Add(shanghai)

yitouhan:Announce()

输出结果：

法克油,张伯芝

法克油,钟欣同

法克油,陈文援

一头汗集团广州总部

人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

运营部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

运维部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

一头汗集团深圳分部

人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

港澳台合作部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

一头汗集团北京分部

人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

一头汗集团上海分部

人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作

程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作