回收系统_对内存管理的提出新算法.

--[[
 file name : 	技能模块第一版
 author  :  	Clark/陈泽丹
 created :  	2012-11-07
 purpose :
  由回收系统的new出来的物体, 它自身和它的被依赖者是没有对其进行死亡操作的, 它和它的被依赖者, 只能通过向回收系统发事件让"上天"来解放资源.
 回收系统实现了与引用计数管理内存相反的效果: 引用计数是最后者生效, 这里实现最早者生效.
 那为什么不采用直接删除,然后后来者的操作无效即可的方案呢?
 答案是如果那样做, 会有回收后再分配出去的ID被误删的可能.  而采用这种方式, 再删除时,是删除监听者, 即删除"关系", 而不是删除"目标",所以不用担心
 目标回收后再分配出去的问题. 因为虽然是同一个目标,但是他们的之间的关系已不存在了.
 --]]


RECOVER_MODULE_NAME 				= "工具库_堆内存管理"
module(RECOVER_MODULE_NAME, 		package.seeall)
PACK_EvtSvr 						= require"工具库_事件机"
PACK_GameAPI 						= require"工具库_插件"
PACK_Timer 							= require"工具库_定时器"
PACK_Trace							= require"工具库_调试工具"


G_res_custodian							= PACK_EvtSvr.new_evt_server()

--死亡信号
function send_delete_evt( _id )
	G_res_custodian.dispatch_evt( _id, {"释放"} )
end


--托管员
function newEx( _obj, _t_id )
	local listen_sign = {}
	local act = PACK_EvtSvr.new_action_evt_listener()
	local public = {}
	function act.on_action( _evt )
		if nil ~= _obj then
			local len = table.getn( listen_sign )
			for i=1, len do
				G_res_custodian.action_map.remove_listener( listen_sign[i], act )
			end
			_obj.delete()
			_obj = nil
			listen_sign = nil
			act = nil
			public = nil
		end
	end
	function public.add_listener( _lst_id )
		listen_sign[ table.getn( listen_sign ) + 1 ] = _lst_id
		G_res_custodian.action_map.add_listener( _lst_id, act )
	end
	local len = table.getn( _t_id )
	for i=1, len do
		public.add_listener( _t_id[i] )
	end
end

 

--[[
 file name : 	技能模块第一版
 author  :  	Clark/陈泽丹
 created :  	2012-11-07
 purpose :
 --]]

GameAPI_MODULE_NAME 			= "工具库_插件"
module(GameAPI_MODULE_NAME, 	package.seeall)



--取出序例值
function get_t_set_by_i( _t )
	if nil == _t then
		return _t
	end
	local t = {}
	for i,v in pairs(_t) do
		t[table.getn(t) + 1] = i
	end
	return t
end

--取出对象值
function get_t_set_by_v( _t )
	if nil == _t then
		return _t
	end
	local t = {}
	for i,v in pairs(_t) do
		t[table.getn(t) + 1] = v
	end
	return t
end


--获得有效值
function get_valid_t( _t )
	local t = {}
	local len = table.getn(_t)
	for i=1, len do
		if nil ~= _t[i] then
			t[ table.getn(t) + 1] = _t[i]
		end
	end
	return t
end

--ID管理器
function new_index_manager()
	local res = {{1,99999999}}
	local public = {}
	function public.take_away_index()
		local t = res[1]
		if table.getn(t) >= 1 then
			local ret = t[1]
			t[1] = t[1] + 1
			if t[1] > t[2] then
				res[1] = res[ table.getn( res ) ]
				res[ table.getn( res ) ] = nil
			end
			return ret
		end
		return nil
	end
	function public.take_back_index( _index )
		local t = {_index, _index}
		res[ table.getn( res ) + 1] = t
		if table.getn( res ) > 50 then
			public.tidy()
		end
	end
	function public.tidy()
		local reflash = true
		--有新合并发生则继续进行合并检测
		while reflash do
			reflash = false
			--进行合并
			local len = table.getn( res )
			for i=1, len do
				for j=i+1, len do
					if table.getn(res[i]) > 1 and table.getn(res[j]) > 1 then
						local be_mixed = true
						--判断交集情况
						if res[i][2]+1 < res[j][1] or res[j][2]+1 < res[i][1] then
							be_mixed = false
						end
						--合并
						if be_mixed then
							local t = {}
							if res[i][1] < res[j][1] then
								t[1] = res[i][1]
							else
								t[1] = res[j][1]
							end
							if res[i][2] > res[j][2] then
								t[2] = res[i][2]
							else
								t[2] = res[j][2]
							end
							res[i] = t
							res[j] = {}
							reflash = true
						end
					end
				end
			end
			--刷新数据
			local t = {}
			local len = table.getn( res )
			for i=1, len do
				if table.getn(res[i]) > 1 then
					t[ table.getn(t) + 1 ] = res[i]
				end
			end
			res = t
		end
	end
	function public.show()
		local len = table.getn( res )
		for i=1, len do
			print(res[i][1], res[i][2])
		end
	end
	return public
end


--1:N绑定器
function new_map_for_1_and_N()
	local left_set = {}
	local right_set = {}
	local public = {}
	--绑定索引和UID( 1:N )
	function public.bind_left_and_right( _left, _right )
		if nil == left_set[_left] then
			left_set[_left] = {}
		end
		local len = table.getn(left_set[_left])
		for i=1, len do
			if left_set[_left][i] == _right then
				return
			end
		end
		left_set[_left][table.getn(left_set[_left])+1] = _right
		right_set[_right] = _left
	end
	--清除绑定
	function public.clear_left_and_right( _left )
		local t_right = public.get_t_map_by_fb_buf_index( _left )
		local len = table.getn( t_right )
		for i=1, len do
			right_set[ t_right[i] ] = nil
		end
		left_set[_left] = nil
	end
	--清除绑定
	function public.clear_right( _left, _right )
		right_set[_right] = nil
		local t_right = left_set[_left]
		local len = table.getn( t_right )
		for i=1, len do
			if t_right[i] == _right then
				t_right[i] = nil
			end
		end
	end
	--通过left获得rigth表
	function public.get_t_right_by_left( _left )
		return get_valid_t( left_set[_left] )
	end
	--通过right获得left
	function public.get_left_by_right( _right )
		return right_set[ _right ]
	end
	return public
end

--buf绑定器(用于把类的实现内容弱耦合的分拆成多个模块独立完成)
function new_map_for_index_to_buf( _sign )
	local index_set = {}
	local public = {}
	--获得绑定者标识
	function public.get_sign()
		return _sign
	end
	--绑定buf
	function public.bind_index_to_buf( _index, _buf )
		index_set[ _index ] = _buf
	end
	--清除绑定
	function public.clear_index_to_buf( _index )
		index_set[_index] = nil
	end
	--通过left获得rigth表
	function public.get_buf( _index )
		return index_set[ _index ]
	end
	return public
end

--常用绑定者
g_type_binder = new_map_for_index_to_buf( "type" )
function new_binder(_uid, _buf_type_binder, _buf_obj)
	--绑定操作类型
	g_type_binder.bind_index_to_buf(_uid, _buf_type_binder.get_uid() )
	--绑定操作对象
	_buf_type_binder.bind_index_to_buf(_uid, _buf_obj)
	return _uid
end
function find_t_buf_by_type( _container, _index, _buf_type )
	local t_right = _container.get_t_right_by_left( _index )
	local ret = {}
	local len = table.getn( t_right )
	for i=1, len do
		if g_type_binder.get_buf( t_right[i] ) == _buf_type then
			ret[ table.getn(ret) + 1] = t_right[i]
		end
	end
	return ret
end


--table转字符串
function sz_T2S(_table)
	local szLua = ""
	local t = type(_table)
	if t == "number" then
		szLua = szLua .. _table
	elseif t == "boolean" then
		szLua = szLua .. tostring(_table)
	elseif t == "string" then
		szLua = szLua .. string.format("%q", _table)
	elseif t == "table" then
		szLua = szLua .. "{"
		for k, v in pairs(_table) do
			szLua = szLua .. "[" .. sz_T2S(k) .. "]=" .. sz_T2S(v) .. ","
		end
		local metatable = getmetatable(_table)
			if metatable ~= nil and type(metatable.__index) == "table" then
			for k, v in pairs(metatable.__index) do
				szLua = szLua .. "[" .. sz_T2S(k) .. "]=" .. sz_T2S(v) .. ","
			end
		end
		szLua = szLua .. "}"
	elseif t == "nil" then
		return {}
	end
	return szLua
end

--提供绑定数据的函数
function clk_bind_data( t_par )
	local function do_clk_bind_data()
		if nil == t_par then
			return nil
		end
		local len = table.getn( t_par )
		if 0 == len then
			return nil
		elseif 1 == len then
			return t_par[1]
		elseif 2 == len then
			return t_par[1], t_par[2]
		elseif 3 == len then
			return t_par[1], t_par[2], t_par[3]
		elseif 4 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4]
		elseif 5 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5]
		elseif 6 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6]
		elseif 7 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7]
		elseif 8 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8]
		elseif 9 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9]
		elseif 10 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10]
		elseif 11 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10], t_par[11]
		elseif 12 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10], t_par[11], t_par[12]
		elseif 13 == len then
			return t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10], t_par[11], t_par[12], t_par[13]
		else
			print("clk_bind_data",1)	--------------------------------------------------------
			return nil
		end
	end
	return do_clk_bind_data
end

--提供绑定函数和相关参数的
function clk_bind_fun_data( _fun, t_par )
	local function do_clk_bind_fun_data()
		if nil == _fun then
			print("clk_bind_fun_data fun is nil", 1)
			return true
		end
		if nil == t_par then
			return _fun()
		end
		local len = table.getn( t_par )
		if 0 == len then
			return _fun()
		elseif 1 == len then
			return _fun(t_par[1])
		elseif 2 == len then
			return _fun(t_par[1], t_par[2])
		elseif 3 == len then
			return _fun(t_par[1], t_par[2], t_par[3])
		elseif 4 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4])
		elseif 5 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5])
		elseif 6 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6])
		elseif 7 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7])
		elseif 8 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8])
		elseif 9 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9])
		elseif 10 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10])
		elseif 11 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10], t_par[11])
		elseif 12 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10], t_par[11], t_par[12])
		elseif 13 == len then
			return _fun(t_par[1], t_par[2], t_par[3], t_par[4], t_par[5], t_par[6], t_par[7], t_par[8], t_par[9], t_par[10], t_par[11], t_par[12], t_par[13])
		else
			print("clk_bind_fun_data实现",1)	--------------------------------------------------------
			return true
		end
	end
	return do_clk_bind_fun_data
end

 

--[[
 file name : 	技能模块第一版
 author  :  	Clark/陈泽丹
 created :  	2012-11-07
 purpose :
 --]]

TRACE_MODULE_NAME 				= "工具库_调试工具"
module(TRACE_MODULE_NAME, 		package.seeall)
PACK_EvtSvr 					= require"工具库_事件机"

--Trace服
function new_Game_Trace()
	local trace_svr = PACK_EvtSvr.new_evt_server()
	--输出
	local function do_print_on_trace_svr()
		local public = PACK_EvtSvr.new_action_evt_listener()
		function public.on_action( _evt )
			print( _evt.evt_iid, _evt.text )
		end
		return public
	end
	trace_obj = do_print_on_trace_svr()


	local public = {}
	--打开输出开关
	function public.open_trace( _evt_iid )
		trace_svr.action_map.add_listener( _evt_iid, trace_obj )
	end

	--关闭输出开关
	function public.close_trace( _evt_iid )
		trace_svr.action_map.remove_listener( _evt_iid, trace_obj )
	end

	--输出调试语句
	function public.trace_text( _evt_iid, _text )
		trace_svr.dispatch_evt( _evt_iid, { evt_iid = _evt_iid, text = _text} )
	end

	return public
end

G_Trace = new_Game_Trace()

 

--[[
 file name : 	技能模块第一版
 author  :  	Clark/陈泽丹
 created :  	2012-11-07
 purpose :
 --]]

TIMER_MODULE_NAME 				= "工具库_定时器"
module(TIMER_MODULE_NAME, 		package.seeall)
PACK_GameAPI 					= require"工具库_插件"
PACK_Trace						= require"工具库_调试工具"


--时间触发器管理者
function new_timer_manager()
	local uid_manager = PACK_GameAPI.new_index_manager()
	local timer_tgr_res = {}
	local public = {}
	--创建时间触发器
	function public.new_timer_tgr( _time, _callback )
		local uid = uid_manager.take_away_index()
		local t =
		{
			tgr_uid = uid,
			need_time = _time,
			left_time = _time,
			callback = _callback,
		}
		timer_tgr_res[ uid ] = t
		return uid
	end
	--删除时间触发器
	function public.delete_timer_tgr( _uid )
		timer_tgr_res[ _uid ] = nil
		uid_manager.take_back_index( _uid )
		PACK_Trace.G_Trace.trace_text( TIMER_MODULE_NAME, "trace  删除定时器[" .. _uid .. "]" )
	end
	local sta_time = os.time()
	--模糊触发
	function public.on_vague_time()
		local time_unit = 1
		local cur_time = os.time()
		local dt = cur_time - sta_time
		if dt > time_unit then
			sta_time = cur_time
			local t = PACK_GameAPI.get_t_set_by_v(timer_tgr_res)
			local len = table.getn( t )
			for i=1, len do
				--模糊触发
				t[i].left_time = t[i].left_time - dt
				if t[i].left_time <= 0 then
					t[i].left_time = t[i].need_time
					t[i].callback( t[i].tgr_uid )
				end
			end
		end
	end
	--精确触发
	function public.on_exact_time()
		local time_unit = 1
		local cur_time = os.time()
		local dt = cur_time - sta_time
		if dt > time_unit then
			sta_time = cur_time
			local t = PACK_GameAPI.get_t_set_by_v(timer_tgr_res)
			local len = table.getn( t )
			for i=1, len do
				--精确触发
				t[i].left_time = t[i].left_time - 1
				if t[i].left_time <= 0 then
					t[i].left_time = t[i].need_time
					t[i].callback( t[i].tgr_uid )
				end
			end
		end
	end
	return public
end
G_timer_manager = new_timer_manager()

 

--[[
 file name : 	技能模块第一版
 author  :  	Clark/陈泽丹
 created :  	2012-11-07
 purpose :
 --]]

EVTSVR_MODULE_NAME 				= "工具库_事件机"
module(EVTSVR_MODULE_NAME, 		package.seeall)

--否决事件监听
function new_vote_evt_listener()
	local public = {}
	function public.on_vote( _t_evt )
		print("未实现 new_vote_evt_listener", 1)
		return false
	end
	return public
end

--执行消息监听
function new_action_evt_listener()
	local public = {}
	function public.on_action( _t_evt )
		print("未实现 new_action_evt_listener", 1)
	end
	return public
end

--完毕消息监听
function new_response_evt_listener()
	local public = {}
	function public.on_response( _t_evt )
		print("未实现 new_response_evt_listener", 1)
	end
	return public
end

--消息处理机
function new_evt_server()
	--查找obj位置
	local function find_obj_pos(_t, _p)
		local len = table.getn( _t )
		for i=1, len do
			if _t[i] == _p then
				return i
			end
		end
		return nil
	end
	--映射图
	local function new_event_map()
		local this_public = {}
		this_public.map = {}
		local remove_temp = {}
		function this_public.add_listener(_evt_iid, _p_recv)
			if nil == this_public.map[_evt_iid] then
				this_public.map[_evt_iid] = {}
			end
			local t = this_public.map[_evt_iid]
			if nil == find_obj_pos(t, _p_recv) then
				t[ table.getn(t) + 1 ] = _p_recv
			end
		end
		function this_public.remove_listener(_evt_iid, _p_recv)
			remove_temp[ table.getn( remove_temp ) + 1 ] = {_evt_iid, _p_recv}
		end
		function this_public.erase()
			local len = table.getn( remove_temp )
			for i=1, len do
				local _evt_iid = remove_temp[i][1]
				local _p_recv = remove_temp[i][2]
				if nil ~= this_public.map[_evt_iid] then
					local t = this_public.map[_evt_iid]
					local id = find_obj_pos(t, _p_recv)
					if nil ~= id then
						local len = table.getn(t)
						t[id] = t[len]
						t[len] = nil
					end
					if table.getn(t) <= 0 then
						this_public.map[_evt_iid] = nil
					end
				end
			end
			remove_temp = {}
		end
		function this_public.clear()
			this_public.map = {}
		end
		return this_public
	end
	--事件机
	local public = {}
	public.vote_map = new_event_map()
	public.action_map = new_event_map()
	public.response_map = new_event_map()
	function public.clear()
		public.vote_map.clear()
		public.action_map.clear()
		public.response_map.clear()
	end
	function public.dispatch_evt( _evt_iid, _t_evt )
		public.vote_map.erase()
		public.action_map.erase()
		public.response_map.erase()

		--否决
		if nil ~= public.vote_map.map[ _evt_iid ] then
			local t = public.vote_map.map[ _evt_iid ]
			local len = table.getn( t )
			for i=1, len do
				if t[i].on_vote( _t_evt ) then
					return
				end
			end
		end

		--触发
		if nil ~= public.action_map.map[ _evt_iid ] then
			local t = public.action_map.map[ _evt_iid ]
			local len = table.getn( t )
			for i=1, len do
				t[i].on_action( _t_evt )
			end
		end

		--完毕
		if nil ~= public.response_map.map[ _evt_iid ] then
			local t = public.response_map.map[ _evt_iid ]
			local len = table.getn( t )
			for i=1, len do
				t[i].on_response( _t_evt )
			end
		end
	end

	return public
end

 

--[[
 file name : 	技能模块第一版
 author  :  	Clark/陈泽丹
 created :  	2012-11-07
 purpose :
 --]]


RCV_ETT_MODULE_NAME 				= "中间件_定时触发器"
module(RCV_ETT_MODULE_NAME, 		package.seeall)
PACK_EvtSvr 						= require"工具库_事件机"
PACK_GameAPI 						= require"工具库_插件"
PACK_Timer 							= require"工具库_定时器"
PACK_Trace							= require"工具库_调试工具"
PACK_Recover						= require"工具库_堆内存管理"

--定时器
function new_timer_tgr( _dt, _callback )
	local public = {}
	public.tm_tgr_uid = PACK_Timer.G_timer_manager.new_timer_tgr(_dt, _callback)
	function public.delete()
		PACK_Timer.G_timer_manager.delete_timer_tgr(public.tm_tgr_uid)
		public.tm_tgr_uid = nil
	end
	return public
end

 

--[[
 file name : 	技能模块第一版
 author  :  	Clark/陈泽丹
 created :  	2012-11-07
 purpose :
 --]]

module("测试", package.seeall)
PACK_GameAPI 			= require"工具库_插件"
PACK_Timer 				= require"工具库_定时器"
PACK_Trace				= require"工具库_调试工具"
PACK_Recover			= require"工具库_堆内存管理"
PACK_TimerEx			= require"中间件_定时触发器"

function send_delete_evt()
	PACK_Recover.send_delete_evt( 1078 )
end

function test()
	print("")
	print("致晕")
	print("")
end


function main()
	--初始化模块
	PACK_Trace.G_Trace.open_trace(PACK_TimerEx.RCV_ETT_MODULE_NAME)
	PACK_Trace.G_Trace.open_trace(PACK_Recover.RECOVER_MODULE_NAME)
	PACK_Trace.G_Trace.open_trace(PACK_Timer.TIMER_MODULE_NAME)
	PACK_TimerEx.new_timer_tgr( 6, send_delete_evt )
	PACK_Recover.newEx( PACK_TimerEx.new_timer_tgr( 2, test ), {1078} )
	while true do
		PACK_Timer.G_timer_manager.on_vague_time()
	end
end
main()