erlang学习-10-otp

结合警报的质数服务器，指定范围最大质数

做一点修改就变成面积服务器

-module(area_server).
-behaviour(gen_server).
-export([start_link/0, area/1]).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
				 terminate/2, code_change/3]).
init([]) ->
	process_flag(trap_exit, true),
	io:format("~p Prime server started~n", [?MODULE]),
	{ok, 0}.
start_link() ->
	gen_server:start_link({local, ?MODULE}, ?MODULE, [], []).
area(N) ->
	gen_server:call(?MODULE, {area, N}, 20000).
handle_call({area, N}, _From, State) ->
	{reply, calc_area(N), State + 1}.
handle_cast(_Msg, State) ->
	{noreply, State}.
handle_info(_Info, State) ->
	{noreply, State}.
terminate(_Reason, _ServerState) ->
	io:format("~p Prime server stopped~n", [?MODULE]),
	ok.
code_change(_OldVsn, State, _Extra) ->
	{ok, State}.
calc_area({sq,A}) ->
	if A > 100 ->
		alarm_handler:set_alarm(tooHot),
		K = A*A,
		alarm_handler:clear_alarm(tooHot),
		K;
		true ->
			A*A
	end;
calc_area({cir,A}) ->
	if A > 100 ->
		alarm_handler:set_alarm(tooHot),
		K = 3.14*A*A,
		alarm_handler:clear_alarm(tooHot),
		K;
		true ->
			3.14*A*A
	end.