From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001
From: Erlang/OTP <otp@erlang.org>
Date: Fri, 20 Nov 2009 14:54:40 +0000
Subject: The R13B03 release.

---
 lib/sasl/doc/src/rel/ge_h.2.erl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 lib/sasl/doc/src/rel/ge_h.2.erl

(limited to 'lib/sasl/doc/src/rel/ge_h.2.erl')

diff --git a/lib/sasl/doc/src/rel/ge_h.2.erl b/lib/sasl/doc/src/rel/ge_h.2.erl
new file mode 100644
index 0000000000..837338e399
--- /dev/null
+++ b/lib/sasl/doc/src/rel/ge_h.2.erl
@@ -0,0 +1,31 @@
+-module(ge_h).
+-vsn(2).
+-behaviour(gen_event).
+
+-export([get_events/1]).
+-export([init/1, handle_event/2, handle_call/2, handle_info/2, 
+	 terminate/2, code_change/3]).
+
+get_events(Mgr) -> 
+    gen_event:call(Mgr, ge_h, get_events).
+
+init(_) -> {ok, []}.
+
+handle_event(Event, []) -> 
+    {ok, [Event]};
+handle_event(Event, [Event1 | _]) -> 
+    {ok, [Event, Event1]}.
+
+handle_call(get_events, Events) -> 
+    Events.
+
+handle_info(Info, Events) ->
+    {ok, Events}.
+
+terminate(Arg, Events) ->
+    ok.
+
+code_change(1, undefined, _Extra) -> 
+    {ok, []};
+code_change(1, LastEvent, _Extra) -> 
+    {ok, [LastEvent]}.
-- 
cgit v1.2.3