From 63b1ec8634c9068c5f06a88e72c65ae782fa2f19 Mon Sep 17 00:00:00 2001
From: DualFroz <me@dualfroz.com>
Date: Sun, 6 Sep 2026 17:47:31 +0200
Subject: [PATCH] feat(command): add Excache.Command.Server and dispatch

---
 lib/excache/command/server.ex | 159 ++++++++++++++++++++++++++++++++++
 1 file changed, 159 insertions(+)
 create mode 100644 lib/excache/command/server.ex

diff --git a/lib/excache/command/server.ex b/lib/excache/command/server.ex
new file mode 100644
index 0000000..4db6242
--- /dev/null
+++ b/lib/excache/command/server.ex
@@ -0,0 +1,159 @@
+defmodule Excache.Command.Server do
+  @moduledoc false
+
+  alias Excache.Command.Reply
+  alias Excache.Config
+  alias Excache.Eviction
+  alias Excache.Eviction.Runner
+  alias Excache.Eviction.Tracker
+  alias Excache.Memory
+  alias Excache.Store
+
+  @doctorHeavyKey 25
+  @doctorNearLimit 80
+
+  def dispatch("MEMORY", [subcommand | rest], state),
+    do: memory(String.upcase(subcommand), rest, state)
+
+  def dispatch("MEMORY", [], state), do: {[wrongArity("memory")], state}
+
+  def dispatch("CONFIG", [subcommand | rest], state),
+    do: config(String.upcase(subcommand), rest, state)
+
+  def dispatch("CONFIG", [], state), do: {[wrongArity("config")], state}
+
+  defp memory("USAGE", [key], state), do: {[usage(key)], state}
+
+  defp memory("USAGE", [key, option, count], state) do
+    cond do
+      String.upcase(option) != "SAMPLES" -> {[Reply.syntax()], state}
+      not nonNegativeInteger?(count) -> {[Reply.not_integer()], state}
+      true -> {[usage(key)], state}
+    end
+  end
+
+  defp memory("STATS", [], state), do: {[{:array, statsArray()}], state}
+
+  defp memory("DOCTOR", [], state), do: {[{:bulk, doctor()}], state}
+
+  defp memory(subcommand, _args, state), do: {[unknownSubcommand("MEMORY", subcommand)], state}
+
+  defp config("GET", [_ | _] = patterns, state) do
+    values =
+      patterns
+      |> Enum.flat_map(&Config.getGlob/1)
+      |> Enum.uniq_by(fn {name, _value} -> name end)
+      |> Enum.sort()
+      |> Enum.flat_map(fn {name, value} -> [{:bulk, name}, {:bulk, value}] end)
+
+    {[{:array, values}], state}
+  end
+
+  defp config("GET", [], state), do: {[wrongArity("config|get")], state}
+
+  defp config("SET", [_, _ | _] = args, state) do
+    if rem(length(args), 2) == 0 do
+      {[applySettings(Reply.pairs(args))], state}
+    else
+      {[wrongArity("config|set")], state}
+    end
+  end
+
+  defp config("SET", _args, state), do: {[wrongArity("config|set")], state}
+
+  defp config("RESETSTAT", [], state) do
+    Runner.resetStats()
+    {[{:simple, "OK"}], state}
+  end
+
+  defp config(subcommand, _args, state), do: {[unknownSubcommand("CONFIG", subcommand)], state}
+
+  defp applySettings(pairs) do
+    case Config.setMany(pairs) do
+      :ok -> {:simple, "OK"}
+      {:error, name, reason} -> settingError(name, reason)
+    end
+  end
+
+  defp settingError(name, :unknown),
+    do: {:error, "ERR Unknown option or number of arguments for CONFIG SET - '#{name}'"}
+
+  defp settingError(name, :immutable),
+    do: {:error, "ERR CONFIG SET failed - can't set immutable config '#{name}'"}
+
+  defp settingError(_name, {:invalid, hint}), do: {:error, "ERR CONFIG SET failed - #{hint}"}
+
+  defp usage(key) do
+    case Memory.usage(key) do
+      nil -> {:bulk, nil}
+      bytes -> {:integer, bytes}
+    end
+  end
+
+  defp statsArray do
+    stats = Memory.stats(Store.dump())
+    runner = Runner.stats()
+
+    stats
+    |> statsPairs(runner)
+    |> Enum.flat_map(fn {name, term} -> [{:bulk, name}, term] end)
+  end
+
+  defp statsPairs(stats, runner) do
+    [
+      {"keys.count", {:integer, stats.keys}},
+      {"keys.volatile", {:integer, stats.volatileKeys}},
+      {"keys.bytes-per-key", {:integer, stats.bytesPerKey}},
+      {"total.allocated", {:integer, stats.usedMemory}},
+      {"dataset.bytes", {:integer, stats.datasetBytes}},
+      {"overhead.total", {:integer, stats.overheadBytes}},
+      {"largest.key", {:bulk, largestName(stats.largestKey)}},
+      {"largest.key.bytes", {:integer, largestBytes(stats.largestKey)}},
+      {"maxmemory", {:integer, Config.maxmemory()}},
+      {"maxmemory.policy", {:bulk, Eviction.policyName(Config.policy())}},
+      {"maxmemory.samples", {:integer, Config.maxmemorySamples()}},
+      {"evicted.keys", {:integer, runner.evictedKeys}},
+      {"oom.rejections", {:integer, runner.oomRejections}},
+      {"tracker.keys", {:integer, Tracker.size(Tracker)}}
+    ] ++ typePairs(stats.byType)
+  end
+
+  defp typePairs(byType) do
+    Enum.flat_map(Memory.kinds(), fn kind ->
+      usage = Map.fetch!(byType, kind)
+
+      [
+        {"type.#{kind}.keys", {:integer, usage.keys}},
+        {"type.#{kind}.bytes", {:integer, usage.bytes}}
+      ]
+    end)
+  end
+
+  defp largestName(nil), do: nil
+  defp largestName({key, _bytes}), do: key
+
+  defp largestBytes(nil), do: 0
+  defp largestBytes({_key, bytes}), do: bytes
+
+  defp doctor do
+    entries = Store.dump()
+    stats = Memory.stats(entries)
+
+    if stats.keys == 0 do
+      "Excache holds no keys, there is nothing to report."
+    else
+      report = %{
+        stats: stats,
+        limit: Config.maxmemory(),
+        policy: Config.policy(),
+        runner: Runner.stats(),
+        tracked: Tracker.size(Tracker)
+      }
+
+      case findings(report) do
+        [] -> headline(report) <> " Nothing looks wrong."
+        found -> Enum.join([headline(report) | found], "\n")
+      end
+    end
+  end
+