brawlex

defmodule BrawlBrain do
  use GenServer



  
  #Callbacks

  @impl true
  def init(_x) do
    #mandar mensaje para iniciar el dynamic supervisor de los workers
    send self(), :init_dynsuper
    {:ok, {%{},%{}}}
  end

  @impl true
  def handle_info(:init_dynsuper, state) do
    
    child_specs = [%{
		      id: :supersuper,
		      start: {DynamicSupervisor, :start_link, %{
				 strategy: :one_for_one,
				 max_restarts: 10,
				 max_seconds: 10,
			      }},
		      restart: :temporary,
		      shutdown: :brutal_kill,
		      type: :supervisor,
		      mudule: [DynamicSupervisor]
		   }]
    
    {:ok, spid} = Supervisor.start_child(Brawlex.Application, child_specs)
    _sref = Process.monitor(spid)
    {:noreply, {spid, state}}
  end

  @impl true
  def handle_info({:DOWN, _ref, :process, spid, reason}, {spid, _state}) do
    {:stop, {:supersuper_down, reason}, []}
  end

  @impl true
  def handle_info({:DOWN, ref, :process, _object, _reason}, {spid, {tokens, refs}}) do
    case refs[ref] do
      nil ->
	#not our problem
	{:noreply, {spid, {tokens, refs}}}
      token ->
	new_tokens = Map.delete(tokens, token)
	new_refs = Map.delete(refs, ref)
	{:noreply, {spid, {new_tokens, new_refs}}}
    end
  end

  @impl true
  def handle_info(_msg, state) do
    #not our problem
    {:noreply, state}
  end



  @impl true
  def handle_call({:new_token, token_id}, _from, state = {spid, {tokens, refs}}) do
    case tokens[token_id] do
      nil ->
	child_specs = {token_id, {TokenProcess, :start_link, [token_id]}}
	case DynamicSupervisor.start_child(spid, child_specs) do
	  {:ok, child} ->
	    ref_child = Process.monitor(child)
	    new_tokens = Map.put(tokens, token_id, ref_child)
	    new_refs = Map.put(refs, ref_child, token_id)
	    {:reply, child, {spid, {new_tokens, new_refs}}}
	  {:error, reason} ->
	    {:reply, {:error, {:unable_to_open, reason}}, state}
	end
      ref ->
	{:reply, ref, state}
    end
  end


end