The R13B03 release.OTP_R13B03

1 files changed, 38 insertions, 0 deletions

diff --git a/lib/sasl/doc/src/rel/gs2.2.erl b/lib/sasl/doc/src/rel/gs2.2.erl
new file mode 100644
index 0000000000..3248ea43bb
--- /dev/null
+++ b/lib/sasl/doc/src/rel/gs2.2.erl
@@ -0,0 +1,38 @@
+-module(gs2).
+-vsn(2).
+-behaviour(gen_server).
+
+-export([is_operation_ok/1]).
+-export([init/1, handle_call/3, handle_cast/2, handle_info/2, 
+	 terminate/2, code_change/3]).
+
+is_operation_ok(Op) -> 
+    gen_server:call(gs2, {is_operation_ok, Op}).
+
+init([Data]) ->
+    {ok, []}.
+
+handle_call({is_operation_ok, Op}, _From, State) ->
+    Data = gs1:get_data(),
+    Time = gs1:get_time(),
+    Reply = do_things(lists2:assoc(Op, Data), Time),
+    {reply, Reply, State}.
+
+handle_cast(_Request, State) ->
+    {noreply, State}.
+
+handle_info(_Info, State) ->
+    {noreply, State}.
+
+terminate(_Reason, _State) ->
+    ok.
+
+code_change(_OldVsn, State, _Extra) ->
+    {ok, State}.
+
+do_things({ok, Val}, Time) ->
+    Val;
+do_things(false, Time) ->
+    {false, Time}.
+
+