The R13B03 release.OTP_R13B03

1 files changed, 36 insertions, 0 deletions

diff --git a/lib/sasl/doc/src/rel/gs1.3.erl b/lib/sasl/doc/src/rel/gs1.3.erl
new file mode 100644
index 0000000000..2d4c0870b6
--- /dev/null
+++ b/lib/sasl/doc/src/rel/gs1.3.erl
@@ -0,0 +1,36 @@
+-module(gs1).
+-vsn(2).
+-behaviour(gen_server).
+
+-export([get_data/0, get_time/0]).
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2, 
+	 terminate/2, code_change/3]).
+
+-record(state, {data, time}).
+
+get_data() -> 
+    gen_server:call(gs1, get_data).
+get_time() -> 
+    gen_server:call(gs1, get_time).
+
+init([Data]) ->
+    {ok, #state{data = Data, time = erlang:time()}}.
+
+handle_call(get_data, _From, State) ->
+    {reply, {ok, State#state.data}, State};
+handle_call(get_time, _From, State) ->
+    {reply, {ok, State#state.time}, State}.
+
+handle_cast(_Request, State) ->
+    {noreply, State}.
+
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(1, {state, Data}, _Extra) ->
+    {ok, #state{data = Data, time = erlang:time()}};
+code_change({down, 1}, #state{data = Data}, _Extra) ->
+    {ok, {state, Data}}.