2 -- Copyright (C) 2008-2010 Matthew Wild
3 -- Copyright (C) 2008-2010 Waqas Hussain
5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information.
9 local t_insert, t_remove = table.insert, table.remove;
13 function initialize(session)
14 if not session.filters then
16 session.filters = filters;
18 function session.filter(type, data)
19 local filter_list = filters[type];
21 for i = 1, #filter_list do
22 data = filter_list[i](data);
23 if data == nil then break; end
29 return session.filter;
32 function add_filter(session, type, callback, priority)
33 if not session.filters then
37 local filter_list = session.filters[type];
38 if not filter_list then
40 session.filters[type] = filter_list;
43 priority = priority or 0;
48 until not filter_list[i] or filter_list[filter_list[i]] >= priority;
50 t_insert(filter_list, i, callback);
51 filter_list[callback] = priority;
54 function remove_filter(session, type, callback)
55 if not session.filters then return; end
56 local filter_list = session.filters[type];
57 if filter_list and filter_list[callback] then
58 for i=1, #filter_list do
59 if filter_list[i] == callback then
60 t_remove(filter_list, i);
61 filter_list[callback] = nil;