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

loop() ->
	process_flag(trap_exit, true),
	receive
		die -> exit(mon);
		{monitorize, Doctor} ->
			io:format("Monitor: monitoring ~p.~n", [Doctor]),
			link(Doctor);
		new_doc ->
			io:format("Monitor: starting new doctor.~n"),
			register(doc, spawn_link(doctor, loop, [])),
			doc ! {monitorize, self()},
			doc ! new_rev;
		{'EXIT', From, _} ->
			io:format("Monitor: doctor ~p died, restarting.~n", [From]),
			self() ! new_doc
	end,
	loop().