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 local function initialize_session(session)
15 session.filters = filters;
17 function session.filter(type, data)
18 local filter_list = filters[type];
19 for i = 1, #filter_list do
20 data = filter_list[i](data);
26 function add_filter(session, type, callback, priority)
27 if not session.filters then
28 initialize_session(session);
31 local filter_list = session.filters[type];
32 if not filter_list then
34 session.filters[type] = filter_list;
37 priority = priority or 0;
42 until not filter_list[i] or filter_list[filter_list[i]] >= priority;
44 t_insert(filter_list, i, callback);
45 filter_list[callback] = priority;
48 function remove_filter(session, type, callback)
49 local filter_list = session.filters[type];
50 if filter_list and filter_list[callback] then
51 for i=1, #filter_list do
52 if filter_list[i] == callback then
53 t_remove(filter_list, i);
54 filter_list[callback] = nil;