return info about pids, ports and funs in debugger evaluator

Author: lukaszsamson

apps/elixir_ls_debugger/lib/debugger/variables.ex

@@ -16,6 +16,22 @@ defmodule ElixirLS.Debugger.Variables do
     end
   end
 
+  def child_type(var) when is_function(var), do: :named
+
+  def child_type(var) when is_pid(var) do
+    case :erlang.process_info(var) do
+      :undefined -> :indexed
+      results -> :named
+    end
+  end
+
+  def child_type(var) when is_port(var) do
+    case :erlang.port_info(var) do
+      :undefined -> :indexed
+      results -> :named
+    end
+  end
+
   def child_type(_var), do: nil
 
   def children(var, start, count) when is_list(var) do
@@ -64,6 +80,27 @@ defmodule ElixirLS.Debugger.Variables do
     end
   end
 
+  def children(var, start, count) when is_function(var) do
+    :erlang.fun_info(var)
+    |> children(start, count)
+  end
+
+  def children(var, start, count) when is_pid(var) do
+    case :erlang.process_info(var) do
+      :undefined -> ["process is not alive"]
+      results -> results
+    end
+    |> children(start, count)
+  end
+
+  def children(var, start, count) when is_port(var) do
+    case :erlang.port_info(var) do
+      :undefined -> ["port is not open"]
+      results -> results
+    end
+    |> children(start, count)
+  end
+
   def children(_var, _start, _count) do
     []
   end
@@ -84,6 +121,25 @@ defmodule ElixirLS.Debugger.Variables do
     map_size(var)
   end
 
+  def num_children(var) when is_function(var) do
+    :erlang.fun_info(var)
+    |> Enum.count()
+  end
+
+  def num_children(var) when is_pid(var) do
+    case :erlang.process_info(var) do
+      :undefined -> 1
+      results -> results |> Enum.count()
+    end
+  end
+
+  def num_children(var) when is_port(var) do
+    case :erlang.port_info(var) do
+      :undefined -> 1
+      results -> results |> Enum.count()
+    end
+  end
+
   def num_children(_var) do
     0
   end

apps/elixir_ls_debugger/test/variables_test.exs

@@ -79,11 +79,14 @@ defmodule ElixirLS.Debugger.VariablesTest do
 
     assert Variables.num_children(:erlang.make_ref()) == 0
 
-    assert Variables.num_children(fn -> :ok end) == 0
+    # As of OTP 24 10 values but it's better not to hardcode that
+    assert Variables.num_children(fn -> :ok end) != 0
 
-    assert Variables.num_children(spawn(fn -> :ok end)) == 0
+    # As of OTP 24 16 values but it's better not to hardcode that
+    assert Variables.num_children(self()) != 0
 
-    assert Variables.num_children(hd(:erlang.ports())) == 0
+    # As of OTP 24 7 values but it's better not to hardcode that
+    assert Variables.num_children(hd(:erlang.ports())) != 0
 
     assert Variables.num_children([]) == 0
     assert Variables.num_children([1]) == 1
@@ -173,5 +176,23 @@ defmodule ElixirLS.Debugger.VariablesTest do
       assert Variables.children(<<0::size(17)>>, 1, 10) == [{"1", 0}, {"2", <<0::size(1)>>}]
       assert Variables.children(<<0::size(17)>>, 1, 1) == [{"1", 0}]
     end
+
+    test "fun" do
+      children = Variables.children(fn -> :ok end, 0, 10)
+      assert children[:module] == ElixirLS.Debugger.VariablesTest
+      assert children[:type] == :local
+      assert children[:arity] == 0
+    end
+
+    test "pid" do
+      children = Variables.children(self(), 0, 10)
+      assert children[:trap_exit] == false
+      assert children[:status] == :running
+    end
+
+    test "port" do
+      children = Variables.children(hd(:erlang.ports()), 0, 10)
+      assert children[:name] == 'forker'
+    end
   end
 end