1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
-module(sp).
-vsn(2).
-export([start/0, get_data/0, set_data/1]).
-export([init/1, system_continue/3, system_terminate/4,
system_code_change/4]).
-record(state, {data, last_pid}).
start() ->
Pid = proc_lib:spawn_link(?MODULE, init, [self()]),
{ok, Pid}.
get_data() ->
sp_server ! {self(), get_data},
receive
{sp_server, Data} -> Data
end.
set_data(Data) ->
sp_server ! {self(), set_data, Data}.
init(Parent) ->
register(sp_server, self()),
process_flag(trap_exit, true),
loop(#state{last_pid = no_one}, Parent).
loop(State, Parent) ->
receive
{system, From, Request} ->
sys:handle_system_msg(Request, From, Parent,
?MODULE, [], State);
{'EXIT', Parent, Reason} ->
cleanup(State),
exit(Reason);
{From, get_data} ->
From ! {sp_server, State#state.data},
loop(State, Parent);
{From, set_data, Data} ->
loop(State#state{data = Data, last_pid = From}, Parent);
_Any ->
loop(State, Parent)
end.
cleanup(State) -> ok.
%% Here are the sys call back functions
system_continue(Parent, _, State) ->
loop(State, Parent).
system_terminate(Reason, Parent, _, State) ->
cleanup(State),
exit(Reason).
system_code_change({state, Data}, _Mod, 1, _Extra) ->
{ok, #state{data = Data, last_pid = no_one}};
system_code_change(#state{data = Data}, _Mod, {down, 1}, _Extra) ->
{ok, {state, Data}}.
|
