init

lib/forum/modules.ex

@@ -0,0 +1,44 @@
+defmodule Forum.Modules do
+  @moduledoc """
+  Snapshot of every loaded Erlang/Elixir module with its OTP app and
+  source file. Powers the /modules endpoint.
+  """
+
+  @doc """
+  Returns a list of maps, one per loaded module, sorted by module name.
+
+  Each map has string keys (JSON-friendly):
+    "module" — module name, e.g. "Elixir.Forum.Router"
+    "app"    — OTP app the module belongs to, e.g. ":forum", or nil
+    "source" — absolute path to the source file at compile time, or nil
+    "mine"   — true if the module belongs to this app
+  """
+  def list do
+    my_modules = MapSet.new(Application.spec(:forum, :modules) || [])
+
+    :code.all_loaded()
+    |> Enum.map(fn {mod, _beam} ->
+      %{
+        "module" => inspect(mod),
+        "app" => format_app(Application.get_application(mod)),
+        "source" => source_for(mod),
+        "mine" => MapSet.member?(my_modules, mod)
+      }
+    end)
+    |> Enum.sort_by(& &1["module"])
+  end
+
+  defp format_app(nil), do: nil
+  defp format_app(app) when is_atom(app), do: inspect(app)
+
+  defp source_for(mod) do
+    case Keyword.get(mod.module_info(:compile), :source) do
+      nil -> nil
+      source when is_list(source) -> List.to_string(source)
+      source when is_binary(source) -> source
+      _ -> nil
+    end
+  rescue
+    _ -> nil
+  end
+end