-module(active_events).
-include_lib("active/include/active.hrl").
-behaviour(gen_event).
-export([start_link/0, subscribe_onload/1, subscribe_onnew/1, notify_reload/1, subscribe/2]).
-export([init/1, handle_event/2, handle_call/2, handle_info/2, terminate/2, code_change/3]).

start_link()               -> gen_event:start_link({local, ?MODULE}).
subscribe_onload(Function) -> subscribe(reloaded, Function).
subscribe_onnew(Function)  -> subscribe(loaded_new, Function).
subscribe(Event, Function) -> ok = gen_event:add_sup_handler(?MODULE, {?MODULE, Event}, [Event, Function]).
notify_reload(Event)       -> gen_event:notify(?MODULE, Event).
init([Event, Function])    -> {ok, #event_state{event = Event, function = Function}}.
handle_call(_, _)          -> erlang:error(not_implemented).
handle_info(_, _)          -> erlang:error(not_implemented).
terminate(_, _)            -> ok.
code_change(_, State, _)   -> {ok, State}.
handle_event({Event, Module}, State = #event_state{event = Event, function = {Mod, Fun}})
                           -> erlang:apply(Mod, Fun, [[Module]]), {ok, State};
handle_event(_,State)      -> {ok, State}.