feat!: add custom ServerProcess module

todo_list.ex

@@ -1,96 +1,90 @@
-defmodule TodoServer do
-  def start(entries \\ [], options \\ []) do
-    pid = spawn(fn -> loop(TodoList.new(entries)) end)
-
-    if Keyword.get(options, :local) do
-      Process.register(pid, :todo_list)
+defmodule ServerProcess do
+  def start(callback_module) do
+    spawn(fn ->
+      initial_state = callback_module.init()
+      loop(callback_module, initial_state)
+    end)
   end
 
-    pid
-  end
-
-  def from_list(todo_list) do
-    spawn(fn -> loop(todo_list) end)
-  end
-
-  defp loop(todo_list) do
-    new_todo_list =
+  defp loop(callback_module, current_state) do
     receive do
-        message ->
-          process_message(todo_list, message)
-      after
-        1000 -> todo_list
+      {:call, request, caller} ->
+        {response, new_state} = callback_module.handle_call(request, current_state)
+
+        send(caller, {:response, response})
+
+        loop(callback_module, new_state)
+
+      {:cast, request} ->
+        new_state = callback_module.handle_cast(request, current_state)
+        loop(callback_module, new_state)
+    end
   end
 
-    loop(new_todo_list)
+  def call(pid, message) do
+    send(pid, {:call, message, self()})
+
+    receive do
+      {:response, response} ->
+        response
+    end
   end
 
-  defp process_message(todo_list, {:add, entry}) do
-    TodoList.add(todo_list, entry)
+  def cast(pid, message) do
+    send(pid, {:cast, message})
+    nil
+  end
+end
+
+defmodule TodoServer do
+  def init(entries) do
+    TodoList.new(entries)
   end
 
-  defp process_message(todo_list, {:entries, sender, date}) do
+  def handle_call({:entries, date}, todo_list) do
     entries = TodoList.entries(todo_list, date)
 
-    send(sender, {:entries, entries})
+    {entries, todo_list}
+  end
+
+  def handle_call(invalid_message, todo_list) do
+    IO.puts("Invalid message: #{IO.inspect(invalid_message)}")
 
     todo_list
   end
 
-  defp process_message(todo_list, {:update, id, update_fun}) do
+  def handle_cast({:add, entry}, todo_list) do
+    TodoList.add(todo_list, entry)
+  end
+
+  def handle_cast({:update, id, update_fun}, todo_list) do
     TodoList.update(todo_list, id, update_fun)
   end
 
-  defp process_message(todo_list, {:delete, id}) do
+  def handle_cast({:delete, id}, todo_list) do
     TodoList.delete(todo_list, id)
   end
 
-  defp process_message(todo_list, invalid_message) do
+  def handle_cast(invalid_message, todo_list) do
     IO.puts("Invalid message: #{IO.inspect(invalid_message)}")
 
     todo_list
   end
 
   def add(pid, entry) do
-    send(pid, {:add, entry})
-    nil
-  end
-
-  def add(entry) do
-    add(:todo_list, entry)
+    ServerProcess.cast(pid, {:add, entry})
   end
 
   def entries(pid, date) do
-    send(pid, {:entries, self(), date})
-
-    receive do
-      {:entries, value} ->
-        {:ok, value}
-    after
-      1000 -> {:error}
-    end
-  end
-
-  def entries(date) do
-    entries(:todo_list, date)
+    ServerProcess.call(pid, {:entries, date})
   end
 
   def update(pid, id, update_fun) do
-    send(pid, {:update, id, update_fun})
-    nil
-  end
-
-  def update(id, update_fun) do
-    update(:todo_list, id, update_fun)
+    ServerProcess.cast(pid, {:update, id, update_fun})
   end
 
   def delete(pid, id) do
-    send(pid, {:delete, id})
-    nil
-  end
-
-  def delete(id) do
-    delete(:todo_list, id)
+    ServerProcess.cast(pid, {:delete, id})
   end
 end