frequency_supervisor.erl

-module(frequency_supervisor).
-export([start/0,stop/0]).
-export([init/0]).

start() ->
  register(frequency_supervisor, spawn(frequency_supervisor, init, [])).

stop() ->
  frequency_supervisor ! stop.

init() ->
  process_flag(trap_exit, true),
  FrequencyPid = startFrequencyServer(),
  loop(FrequencyPid).

startFrequencyServer() ->
  FrequencyPid = spawn_link(frequency,init, []),
  register(frequency, FrequencyPid),
  FrequencyPid.

loop(FrequencyPid) ->
  receive
    stop ->
      io:format("Supervisor stopped\r\n");
    {'EXIT', FrequencyPid, _Reason} ->
      NewPid = startFrequencyServer(),
      loop(NewPid)
  end.