简单Elixir游戏服设计-桌子进程跑起来

来源：cnblogs　　作者：damnit　　时间：2018/9/25 20:32:16　　对本文有异议

像Player进程那样增加TableServer代表桌子进程

增加TableSupervisor监控TableServer。使用同一个Registry，因此名字也改成LocalRegistry了。

因此Registry的启动代码，以及原来PlayerServer的register_name要做稍微修改。

当然你也可以使用2个不同的Registry，但恐怕就要增加一个RegstrySupervisor 去start_child了，

又或者手动启动2个（更加不建议）。

新的game_server.ex

defmodule GameServer do
  use Application
  def start(_type, _args) do
    children = [
      {Registry, keys: :unique, name: LocalRegistry},
      PlayerSupervisor,
      TableSupervisor
    ]
    Supervisor.start_link(children, strategy: :one_for_one)
  end
end

game_server.ex

PlayerServer 的register_name 应该按table_server 那样修改，这样清晰，并且也不会冲突。

defmodule TableServer do
    use GenServer, restart: :temporary, start: {__MODULE__, :start_link, []}
    def start_link(table) do
        GenServer.start_link(__MODULE__, table, name: register_name(table))
      end
    def init(table) do
        {:ok, table}
    end
    def register_name(%{} = table), do: register_name(table |> SimpleTable.get_id)
    def register_name(id), do: {:via, Registry, {LocalRegistry, {Table, id}}}
    def exist?(table) do
        key = {Table, table |> SimpleTable.get_id}
        case Registry.lookup(LocalRegistry, key) do
            [{_pid, _}] -> true
            [] -> false
        end
    end
end

table_server.ex

新增了exist? 判断函数，以后会有用吧。

原则上当玩家创建了一个牌局后，没解散之前不允许再创建（当然你可以改，我只是简化了）

table_supervisor 测试

defmodule TableSupervisorTest do
    use ExUnit.Case
    doctest PlayerSupervisor
    setup do
        Application.stop(GameServer)
        Application.start(GameServer)
        %{}
    end
    test "测试TableSupervisor启动TableServer" do
        table1 = SimpleTable.init |> SimpleTable.set_id(1)
        table2 = SimpleTable.init |> SimpleTable.set_id(2)
        assert {:ok, _p1} = TableSupervisor.start_table(table1)
        assert {:ok, _p2} = TableSupervisor.start_table(table2)
        assert TableServer.exist?(table1)
        assert TableServer.exist?(table2)
    end
end