util/filters.lua

-- Prosody IM

-- Copyright (C) 2008-2010 Matthew Wild

-- Copyright (C) 2008-2010 Waqas Hussain

-- 

-- This project is MIT/X11 licensed. Please see the

-- COPYING file in the source package for more information.

--

local t_insert, t_remove = table.insert, table.remove;

module "filters"

local new_filter_hooks = {};

function initialize(session)

	if not session.filters then

		local filters = {};

		session.filters = filters;

		function session.filter(type, data)

			local filter_list = filters[type];

			if filter_list then

				for i = 1, #filter_list do

					data = filter_list[i](data, session);

					if data == nil then break; end

				end

			end

			return data;

		end

	end

	for i=1,#new_filter_hooks do

		new_filter_hooks[i](session);

	end

	return session.filter;

end

function add_filter(session, type, callback, priority)

	if not session.filters then

		initialize(session);

	end

	local filter_list = session.filters[type];

	if not filter_list then

		filter_list = {};

		session.filters[type] = filter_list;

	end

	priority = priority or 0;

	local i = 0;

	repeat

		i = i + 1;

	until not filter_list[i] or filter_list[filter_list[i]] >= priority;

	t_insert(filter_list, i, callback);

	filter_list[callback] = priority;

end

function remove_filter(session, type, callback)

	if not session.filters then return; end

	local filter_list = session.filters[type];

	if filter_list and filter_list[callback] then

		for i=1, #filter_list do

			if filter_list[i] == callback then

				t_remove(filter_list, i);

				filter_list[callback] = nil;

				return true;

			end

		end

	end

end

function add_filter_hook(callback)

	t_insert(new_filter_hooks, callback);

end

function remove_filter_hook(callback)

	for i=1,#new_filter_hooks do

		if new_filter_hooks[i] == callback then

			t_remove(new_filter_hooks, i);

		end

	end

end

return _M;