Mercurial > prosody-hg

comparison util/helpers.lua @ 4684:dc70c4ffb66d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge timber->trunk - thanks everyone!
author Matthew Wild <mwild1@gmail.com>
date Tue, 24 Apr 2012 21:59:20 +0100
parents 3299223bbed5
children 447f5a94792d
comparison
equal deleted inserted replaced
4529:12621337471f 4684:dc70c4ffb66d
3 -- Copyright (C) 2008-2010 Waqas Hussain 3 -- Copyright (C) 2008-2010 Waqas Hussain
4 -- 4 --
5 -- This project is MIT/X11 licensed. Please see the 5 -- This project is MIT/X11 licensed. Please see the
6 -- COPYING file in the source package for more information. 6 -- COPYING file in the source package for more information.
7 -- 7 --
8
9 local debug = require "util.debug";
8 10
9 module("helpers", package.seeall); 11 module("helpers", package.seeall);
10 12
11 -- Helper functions for debugging 13 -- Helper functions for debugging
12 14
26 events[events.fire_event] = f; 28 events[events.fire_event] = f;
27 return events; 29 return events;
28 end 30 end
29 31
30 function revert_log_events(events) 32 function revert_log_events(events)
31 events.fire_event, events[events.fire_event] = events[events.fire_event], nil; -- :) 33 events.fire_event, events[events.fire_event] = events[events.fire_event], nil; -- :))
34 end
35
36 function show_events(events)
37 local event_handlers = events._handlers;
38 local events_array = {};
39 local event_handler_arrays = {};
40 for event in pairs(events._event_map) do
41 local handlers = event_handlers[event];
42 table.insert(events_array, event);
43 local handler_strings = {};
44 for i, handler in ipairs(handlers) do
45 local upvals = debug.string_from_var_table(debug.get_upvalues_table(handler));
46 handler_strings[i] = " "..i..": "..tostring(handler)..(upvals and ("\n "..upvals) or "");
47 end
48 event_handler_arrays[event] = handler_strings;
49 end
50 table.sort(events_array);
51 local i = 1;
52 repeat
53 local handlers = event_handler_arrays[events_array[i]];
54 for j=#handlers, 1, -1 do
55 table.insert(events_array, i+1, handlers[j]);
56 end
57 if i > 1 then events_array[i] = "\n"..events_array[i]; end
58 i = i + #handlers + 1
59 until i == #events_array;
60 return table.concat(events_array, "\n");
32 end 61 end
33 62
34 function get_upvalue(f, get_name) 63 function get_upvalue(f, get_name)
35 local i, name, value = 0; 64 local i, name, value = 0;
36 repeat 65 repeat