[DAP] Notify client when a process terminates (erlang-ls#1435)

apps/els_dap/src/els_dap_agent.erl

@@ -10,7 +10,14 @@
 
 -spec int_cb(pid(), pid()) -> ok.
 int_cb(Thread, ProviderPid) ->
-    ProviderPid ! {int_cb, Thread},
+    case lists:keyfind(Thread, 1, int:snapshot()) of
+        {_Pid, _Function, break, _Info} ->
+            ProviderPid ! {int_cb, Thread};
+        {_Pid, _Function, 'exit', _Info} ->
+            ProviderPid ! {int_cb_exit, Thread};
+        _ ->
+            ok
+    end,
     ok.
 
 -spec meta_eval(pid(), string()) -> any().

apps/els_dap/src/els_dap_general_provider.erl

@@ -170,7 +170,7 @@ handle_request(
     %% TODO: Fetch stack_trace mode from Launch Config
     els_dap_rpc:stack_trace(ProjectNode, all),
     MFA = {els_dap_agent, int_cb, [self()]},
-    els_dap_rpc:auto_attach(ProjectNode, [break], MFA),
+    els_dap_rpc:auto_attach(ProjectNode, ['break', 'exit'], MFA),
 
     case LaunchParams of
         #{
@@ -320,15 +320,15 @@ handle_request(
 
     {#{<<"breakpoints">> => BreakpointsRsps}, State#{breakpoints => Breakpoints2}};
 handle_request({<<"threads">>, _Params}, #{threads := Threads0} = State) ->
-    Threads =
+    ThreadsResp =
         [
             #{
                 <<"id">> => Id,
                 <<"name">> => format_term(Pid)
             }
          || {Id, #{pid := Pid} = _Thread} <- maps:to_list(Threads0)
         ],
-    {#{<<"threads">> => Threads}, State};
+    {#{<<"threads">> => ThreadsResp}, State#{threads => Threads0}};
 handle_request({<<"stackTrace">>, Params}, #{threads := Threads} = State) ->
     #{<<"threadId">> := ThreadId} = Params,
     Thread = maps:get(ThreadId, Threads),
@@ -692,6 +692,11 @@ handle_info(
         mode => Mode1,
         hits => Hits1
     };
+handle_info({int_cb_exit, ThreadPid}, #{threads := Threads} = State) ->
+    ?LOG_DEBUG("int_cb_exit called. thread=~p", [ThreadPid]),
+    Params = #{<<"reason">> => <<"exited">>, <<"threadId">> => id(ThreadPid)},
+    els_dap_server:send_event(<<"thread">>, Params),
+    State#{threads => maps:remove(id(ThreadPid), Threads)};
 handle_info({nodedown, Node}, State) ->
     %% the project node is down, there is nothing left to do then to exit
     ?LOG_NOTICE("project node ~p terminated, ending debug session", [Node]),