erlang/monitor_translate.erl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

-module(monitor_translate).
-export([loop/0]).

loop() ->
	process_flag(trap_exit, true),
	receive
		new ->
			io:format("Starting translator.~n"),
			register(translator, spawn_link(translate_service, loop, [])),
			loop();
		{'EXIT', From, Reason} ->
			io:format("Translator ~p died with reason ~p, restarting.~n",
				[From, Reason]),
			self() ! new,
			loop()
	end.