aboutsummaryrefslogtreecommitdiffstats
path: root/util/filters.lua
blob: ee0e6bbaddac2be7c8f7e04889a71fdabc877f72 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
-- 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"

function initialize(session)
	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);
			end
		end
		return data;
	end
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

return _M;