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
|
-module(sp).
-vsn(1).
-export([start/0, get_data/0]).
-export([init/1, system_continue/3, system_terminate/4]).
-record(state, {data}).
start() ->
Pid = proc_lib:spawn_link(?MODULE, init, [self()]),
{ok, Pid}.
get_data() ->
sp_server ! {self(), get_data},
receive
{sp_server, Data} -> Data
end.
init(Parent) ->
register(sp_server, self()),
process_flag(trap_exit, true),
loop(#state{}, 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);
_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).
|
