组合模式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()

输出结果：
法克油,张伯芝
法克油,钟欣同
法克油,陈文援
一头汗集团广州总部
人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
运营部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
运维部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
一头汗集团深圳分部
人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
港澳台合作部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
一头汗集团北京分部
人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
一头汗集团上海分部
人力资源部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作
程序部,今天是我们一头汗集团正式进军海外的第一天，希望大家更加用心工作