Erlang的进程之间的信号传递

-module(testLinkProcess).
-export([test/1]).
-export([test1/0]).
-export([test2/0]).
-export([test3/0]).
-export([test4/0]).
-export([loopWithCounter/3]).

test(Num) ->
	case Num of
		1 -> spawn(testLinkProcess,test1,[]);
		2 -> spawn(testLinkProcess,test2,[]);
		3 -> spawn(testLinkProcess,test3,[]);
		4 -> spawn(testLinkProcess,test4,[]);		
		_ -> void	
	end	
.

%%2个进程都不是系统进程，相互link。
%%正常退出没有相互影响。
%%监听不到正常退出信号。
test1() ->
	spawn_link(testLinkProcess,loopWithCounter,[100, 10,true]),	
	receive
		Any -> io:format("process exit : ~p ~n",[Any])
	after 3000 ->
		io:format("no singal.~n",[])
	end,
	loopWithCounter(100,10,true)
.

%%2个进程都不是系统进程，相互link。
%%异常退出时同时退出。
%%监听不到异常退出信号。
test2() ->
	spawn_link(testLinkProcess,loopWithCounter,[100, 10,false]),	
	receive
		Any -> io:format("process exit : ~p ~n",[Any])
	after 3000 ->
		io:format("no singal.~n",[])
	end,	
	loopWithCounter(100,10,true)
.

%%2个进程有1个系统进程，相互link。
%%正常进程正常退出时系统进程不会退出。
%%系统进程可以捕获到正常退出信号。
test3() ->
	process_flag(trap_exit,true),
	spawn_link(testLinkProcess,loopWithCounter,[100, 10,true]),
	receive
		Any -> io:format("process exit : ~p ~n",[Any])
	after 3000 ->
		io:format("no singal.~n",[])
	end,	
	loopWithCounter(100,10,true)
.


%%2个进程有1个系统进程，相互link。
%%正常进程异常退出时系统进程不会退出。
%%系统进程可以捕获到异常退出信号。
test4() ->
	process_flag(trap_exit,true),
	spawn_link(testLinkProcess,loopWithCounter,[100, 10,false]),
	receive
		Any -> io:format("process exit : ~p ~n",[Any])
	after 3000 ->
		io:format("no singal.~n",[])
	end,	
	loopWithCounter(100,10,true)
.


%%Flag为true时正常执行。
%%Flag为false时抛异常。
loopWithCounter(Time,Counter,Flag) ->		
	io:format("~p ~p ~n",[self(),Counter]),

	receive
	after Time ->	
		case Counter>0 of
			true ->									   		
				loopWithCounter(Time,Counter-1,Flag);
			false ->				
				case Flag of
					true -> void;
					false -> 1/Counter
				end
		end			
	end
.