lecture 06

lectures/06/counter/dynamic/client/dynamic_supervisor.ex

@@ -0,0 +1,13 @@
+defmodule Counter.DynamicSupervisor do
+  @name  {:global, __MODULE__}
+
+  def start_link(_) do
+    DynamicSupervisor.start_link(__MODULE__, nil, name: @name)
+  end
+
+  def start_worker(name) do
+    DynamicSupervisor.start_child(@name, %{
+      id: Counter.Worker, 
+      start: {Counter.Worker, :start_link, [name]}})
+  end
+end

lectures/06/counter/dynamic/client/worker.ex

@@ -0,0 +1,18 @@
+defmodule Counter.Worker do
+  # client
+  def start_link(name) do
+    GenServer.start_link(__MODULE__, name, name: via(name))
+  end
+
+  def value(name) do
+    GenServer.call(via(name), :value)
+  end
+
+  def inc(name, amt \\ 1) do
+    GenServer.cast(via(name), {:inc, amt})
+  end
+
+  defp via(name) do
+    {:global, name}
+  end
+end

lectures/06/counter/dynamic/server/.formatter.exs

@@ -0,0 +1,4 @@
+# Used by "mix format"
+[
+  inputs: ["{mix,.formatter}.exs", "{config,lib,test}/**/*.{ex,exs}"]
+]

lectures/06/counter/dynamic/server/.gitignore

@@ -0,0 +1,24 @@
+# The directory Mix will write compiled artifacts to.
+/_build/
+
+# If you run "mix test --cover", coverage assets end up here.
+/cover/
+
+# The directory Mix downloads your dependencies sources to.
+/deps/
+
+# Where third-party dependencies like ExDoc output generated docs.
+/doc/
+
+# Temporary files, for example, from tests.
+/tmp/
+
+# If the VM crashes, it generates a dump, let's ignore it too.
+erl_crash.dump
+
+# Also ignore archive artifacts (built via "mix archive.build").
+*.ez
+
+# Ignore package tarball (built via "mix hex.build").
+dynamic_counters-*.tar
+

lectures/06/counter/dynamic/server/README.md

@@ -0,0 +1,21 @@
+# Counter
+
+**TODO: Add description**
+
+## Installation
+
+If [available in Hex](https://hex.pm/docs/publish), the package can be installed
+by adding `dynamic_counters` to your list of dependencies in `mix.exs`:
+
+```elixir
+def deps do
+  [
+    {:dynamic_counters, "~> 0.1.0"}
+  ]
+end
+```
+
+Documentation can be generated with [ExDoc](https://github.com/elixir-lang/ex_doc)
+and published on [HexDocs](https://hexdocs.pm). Once published, the docs can
+be found at <https://hexdocs.pm/dynamic_counters>.
+

lectures/06/counter/dynamic/server/lib/counter.ex

@@ -0,0 +1,18 @@
+defmodule Counter do
+  @moduledoc """
+  Documentation for `Counter`.
+  """
+
+  @doc """
+  Hello world.
+
+  ## Examples
+
+      iex> Counter.hello()
+      :world
+
+  """
+  def hello do
+    :world
+  end
+end

lectures/06/counter/dynamic/server/lib/counter/application.ex

@@ -0,0 +1,26 @@
+defmodule Counter.Application do
+  # See https://hexdocs.pm/elixir/Application.html
+  # for more information on OTP Applications
+  @moduledoc false
+
+  @registry  Counter.Registry
+  @table     Counter.Table
+
+  use Application
+
+  @impl true
+  def start(_type, _args) do
+    children = [
+      {Registry, [name: @registry, keys: :unique]},
+      # Starts a worker by calling: Counter.Worker.start_link(arg)
+      # {DynamicSupervisor, name: Counter.DynamicSupervisor, strategy: :one_for_one}
+      Counter.DynamicSupervisor 
+    ]
+
+    :ets.new(@table, [:named_table, :public])
+    # See https://hexdocs.pm/elixir/Supervisor.html
+    # for other strategies and supported options
+    opts = [strategy: :one_for_one, name: Counter.Supervisor]
+    Supervisor.start_link(children, opts)
+  end
+end

lectures/06/counter/dynamic/server/lib/counter/dynamic_supervisor.ex

@@ -0,0 +1,17 @@
+defmodule Counter.DynamicSupervisor do
+  use DynamicSupervisor
+  @name  {:global, __MODULE__}
+
+  def start_link(_) do
+    DynamicSupervisor.start_link(__MODULE__, nil, name: @name)
+  end
+
+  def start_worker(name) do
+    DynamicSupervisor.start_child(@name, {Counter.Worker, name})
+  end
+
+  @impl true
+  def init(_) do
+    DynamicSupervisor.init(strategy: :one_for_one)
+  end
+end

lectures/06/counter/dynamic/server/lib/counter/worker.ex

@@ -0,0 +1,47 @@
+defmodule Counter.Worker do
+  use GenServer
+  @table     Counter.Table
+
+  # client
+  def start_link(name) do
+    GenServer.start_link(__MODULE__, name, name: via(name))
+  end
+
+  def value(name) do
+    GenServer.call(via(name), :value)
+  end
+
+  def inc(name, amt \\ 1) do
+    GenServer.cast(via(name), {:inc, amt})
+  end
+
+  defp via(name) do
+    {:global, name}
+  end
+
+  # server
+  @impl true
+  def init(arg) do
+    name = {__MODULE__, arg}
+    value = case :ets.lookup(@table, name) do
+      [] -> 0
+      [{_, v}] -> v
+    end
+    {:ok, {name, value}}
+  end
+
+  @impl true
+  def handle_call(:value, _from, {_, value} = state) do
+    {:reply, value, state}
+  end
+
+  @impl true
+  def handle_cast({:inc, amt}, {name, value}) do
+    {:noreply, {name, value + amt}}
+  end
+
+  @impl true
+  def terminate(_reason, state) do
+    :ets.insert(@table, state)
+  end
+end

lectures/06/counter/dynamic/server/mix.exs

@@ -0,0 +1,29 @@
+defmodule Counter.MixProject do
+  use Mix.Project
+
+  def project do
+    [
+      app: :dynamic_counters,
+      version: "0.1.0",
+      elixir: "~> 1.20",
+      start_permanent: Mix.env() == :prod,
+      deps: deps()
+    ]
+  end
+
+  # Run "mix help compile.app" to learn about applications.
+  def application do
+    [
+      extra_applications: [:logger],
+      mod: {Counter.Application, []}
+    ]
+  end
+
+  # Run "mix help deps" to learn about dependencies.
+  defp deps do
+    [
+      # {:dep_from_hexpm, "~> 0.3.0"},
+      # {:dep_from_git, git: "https://github.com/elixir-lang/my_dep.git", tag: "0.1.0"}
+    ]
+  end
+end

lectures/06/counter/dynamic/server/test/counter_test.exs

@@ -0,0 +1,8 @@
+defmodule CounterTest do
+  use ExUnit.Case
+  doctest Counter
+
+  test "greets the world" do
+    assert Counter.hello() == :world
+  end
+end

lectures/06/counter/dynamic/server/test/test_helper.exs

@@ -0,0 +1 @@
+ExUnit.start()

lectures/06/counter/static/.formatter.exs

@@ -0,0 +1,4 @@
+# Used by "mix format"
+[
+  inputs: ["{mix,.formatter}.exs", "{config,lib,test}/**/*.{ex,exs}"]
+]

lectures/06/counter/static/.gitignore

@@ -0,0 +1,24 @@
+# The directory Mix will write compiled artifacts to.
+/_build/
+
+# If you run "mix test --cover", coverage assets end up here.
+/cover/
+
+# The directory Mix downloads your dependencies sources to.
+/deps/
+
+# Where third-party dependencies like ExDoc output generated docs.
+/doc/
+
+# Temporary files, for example, from tests.
+/tmp/
+
+# If the VM crashes, it generates a dump, let's ignore it too.
+erl_crash.dump
+
+# Also ignore archive artifacts (built via "mix archive.build").
+*.ez
+
+# Ignore package tarball (built via "mix hex.build").
+counter-*.tar
+

lectures/06/counter/static/client/worker.ex

@@ -0,0 +1,17 @@
+defmodule Counter.Worker do
+  @name   {:global, __MODULE__}
+
+  # client
+  def start_link(n \\ 0) do
+    GenServer.start_link(__MODULE__, n, name: @name)
+  end
+
+  def inc(amt \\ 1) do
+    GenServer.cast(@name, {:inc, amt})
+  end
+
+  def value() do
+    GenServer.call(@name, :value)
+  end
+end
+

lectures/06/counter/static/server/README.md

@@ -0,0 +1,21 @@
+# Counter
+
+**TODO: Add description**
+
+## Installation
+
+If [available in Hex](https://hex.pm/docs/publish), the package can be installed
+by adding `counter` to your list of dependencies in `mix.exs`:
+
+```elixir
+def deps do
+  [
+    {:counter, "~> 0.1.0"}
+  ]
+end
+```
+
+Documentation can be generated with [ExDoc](https://github.com/elixir-lang/ex_doc)
+and published on [HexDocs](https://hexdocs.pm). Once published, the docs can
+be found at <https://hexdocs.pm/counter>.
+

lectures/06/counter/static/server/counter.db

@@ -0,0 +1 @@
+ƒa

lectures/06/counter/static/server/lib/counter.ex

@@ -0,0 +1,18 @@
+defmodule Counter do
+  @moduledoc """
+  Documentation for `Counter`.
+  """
+
+  @doc """
+  Hello world.
+
+  ## Examples
+
+      iex> Counter.hello()
+      :world
+
+  """
+  def hello do
+    :world
+  end
+end

lectures/06/counter/static/server/lib/counter/application.ex

@@ -0,0 +1,21 @@
+defmodule Counter.Application do
+  # See https://hexdocs.pm/elixir/Application.html
+  # for more information on OTP Applications
+  @moduledoc false
+
+  use Application
+
+  @impl true
+  def start(_type, _args) do
+    children = [
+      # Starts a worker by calling: Counter.Worker.start_link(arg)
+      {Counter.Store, "counter.db"},
+      {Counter.Worker, 0}
+    ]
+
+    # See https://hexdocs.pm/elixir/Supervisor.html
+    # for other strategies and supported options
+    opts = [strategy: :one_for_one, name: Counter.Supervisor]
+    Supervisor.start_link(children, opts)
+  end
+end

lectures/06/counter/static/server/lib/counter/store.ex

@@ -0,0 +1,41 @@
+defmodule Counter.Store do
+  use GenServer
+
+  # client
+  def start_link(file) do
+    GenServer.start_link(__MODULE__, file, name: __MODULE__)
+  end
+
+  def put(value) do
+    GenServer.cast(__MODULE__, {:put, value})
+  end
+
+  def get() do
+    GenServer.call(__MODULE__, :get)
+  end
+
+  # server
+  @impl true
+  def init(file) do
+    {:ok, file}
+  end
+
+  @impl true
+  def handle_call(:get, _from, file) do
+    reply = 
+      case File.read(file) do 
+        {:ok, content} -> :erlang.binary_to_term(content)
+        _ -> nil
+      end
+    {:reply, reply, file}
+  end
+
+  @impl true
+  def handle_cast({:put, value}, file) do
+    File.write(file, :erlang.term_to_binary(value))
+    {:noreply, file}
+  end
+end
+
+
+

lectures/06/counter/static/server/lib/counter/worker.ex

@@ -0,0 +1,47 @@
+defmodule Counter.Worker do
+  use GenServer
+
+  @store  Counter.Store
+  @name   {:global, __MODULE__}
+
+  # client
+  def start_link(n \\ 0) do
+    GenServer.start_link(__MODULE__, n, name: @name)
+  end
+
+  def inc(amt \\ 1) do
+    GenServer.cast(@name, {:inc, amt})
+  end
+
+  def value() do
+    GenServer.call(@name, :value)
+  end
+
+  # server
+  @impl true
+  def init(arg) do
+    {:ok, @store.get() || arg}
+  end
+
+  @impl true
+  def handle_call(:value, _from, state) do
+    {:reply, state, state}
+  end
+
+  @impl true
+  def handle_cast({:inc, amt}, state) do
+    {:noreply, state + amt}
+  end
+
+  # for demonstration only
+  @impl true
+  def handle_info(:reset, _state) do
+    {:noreply, 0}
+  end
+
+  @impl true
+  def terminate(_reason, state) do
+    @store.put(state)
+  end
+end
+

lectures/06/counter/static/server/mix.exs

@@ -0,0 +1,29 @@
+defmodule Counter.MixProject do
+  use Mix.Project
+
+  def project do
+    [
+      app: :counter,
+      version: "0.1.0",
+      elixir: "~> 1.20",
+      start_permanent: Mix.env() == :prod,
+      deps: deps()
+    ]
+  end
+
+  # Run "mix help compile.app" to learn about applications.
+  def application do
+    [
+      extra_applications: [:logger],
+      mod: {Counter.Application, []}
+    ]
+  end
+
+  # Run "mix help deps" to learn about dependencies.
+  defp deps do
+    [
+      # {:dep_from_hexpm, "~> 0.3.0"},
+      # {:dep_from_git, git: "https://github.com/elixir-lang/my_dep.git", tag: "0.1.0"}
+    ]
+  end
+end

lectures/06/counter/static/server/test/counter_test.exs

@@ -0,0 +1,8 @@
+defmodule CounterTest do
+  use ExUnit.Case
+  doctest Counter
+
+  test "greets the world" do
+    assert Counter.hello() == :world
+  end
+end

lectures/06/counter/static/server/test/test_helper.exs

@@ -0,0 +1 @@
+ExUnit.start()