otp: Fix usages of deprecated format_status/2 callback

Author: garazdawi

lib/inets/src/http_server/httpd_request_handler.erl

@@ -23,7 +23,7 @@
 
 -module(httpd_request_handler).
 -moduledoc false.
-
+-compile(nowarn_deprecated_callback).
 -behaviour(gen_server).
 
 %% Application internal API

lib/kernel/src/erl_signal_handler.erl

@@ -21,7 +21,7 @@
 -module(erl_signal_handler).
 -moduledoc false.
 -behaviour(gen_event).
--export([start/0, init/1, format_status/2,
+-export([start/0, init/1,
          handle_event/2, handle_call/2, handle_info/2,
          terminate/2, code_change/3]).
 
@@ -58,9 +58,6 @@ handle_info(_Info, S) ->
 handle_call(_Request, S) ->
     {ok, ok, S}.
 
-format_status(_Opt, [_Pdict,_S]) ->
-    ok.
-
 code_change(_OldVsn, S, _Extra) ->
     {ok, S}.
 

lib/os_mon/src/disksup.erl

@@ -84,7 +84,7 @@ value of configuration parameters.
 	 terminate/2]).
 
 %% Other exports
--export([format_status/2, parse_df/2]).
+-export([format_status/1, parse_df/2]).
 
 -doc """
 Supported units:
@@ -370,13 +370,14 @@ terminate(_Reason, State) ->
 %%----------------------------------------------------------------------
 
 -doc false.
-format_status(_Opt, [_PDict, #state{os = OS, threshold = Threshold,
-				    timeout = Timeout,
-				    diskdata = DiskData}]) ->
-    [{data, [{"OS", OS},
-	     {"Timeout", Timeout},
-	     {"Threshold", Threshold},
-	     {"DiskData", DiskData}]}].
+format_status(#{ state := #state{os = OS, threshold = Threshold,
+                                 timeout = Timeout,
+                                 diskdata = DiskData}} = Status) ->
+    Status#{ state := [{"OS", OS},
+                       {"Timeout", Timeout},
+                       {"Threshold", Threshold},
+                       {"DiskData", DiskData}]
+           }.
 
 %%----------------------------------------------------------------------
 %% Internal functions

lib/os_mon/src/memsup.erl

@@ -120,7 +120,7 @@ value of configuration parameters.
 	 terminate/2]).
 
 %% Other exports
--export([format_status/2]).
+-export([format_status/1]).
 
 -include("memsup.hrl").
 
@@ -779,19 +779,20 @@ terminate(_Reason, State) ->
 %%----------------------------------------------------------------------
 
 -doc false.
-format_status(_Opt, [_PDict, #state{timeout=Timeout, mem_usage=MemUsage,
-				    worst_mem_user=WorstMemUser}]) ->
+format_status(#{ state := #state{timeout=Timeout, mem_usage=MemUsage,
+                                 worst_mem_user=WorstMemUser} } = Status) ->
     {Allocated, Total} = MemUsage,
     WorstMemFormat = case WorstMemUser of
-			 {Pid, Mem} ->
-			     [{"Pid", Pid}, {"Memory", Mem}];
-			 undefined ->
-			     undefined
-		     end,
-    [{data, [{"Timeout", Timeout}]},
-     {items, {"Memory Usage", [{"Allocated", Allocated},
-			       {"Total", Total}]}},
-     {items, {"Worst Memory User", WorstMemFormat}}].
+                         {Pid, Mem} ->
+                             [{"Pid", Pid}, {"Memory", Mem}];
+                         undefined ->
+                             undefined
+                     end,
+    Status#{ state := 
+                 [{"Timeout", Timeout},
+                  {"Memory Usage", [{"Allocated", Allocated},
+                                    {"Total", Total}]},
+                  {"Worst Memory User", WorstMemFormat}] }.
 
 
 %%----------------------------------------------------------------------

lib/ssh/src/Makefile

@@ -135,7 +135,7 @@ endif
 # ----------------------------------------------------
 # FLAGS
 # ----------------------------------------------------
-EXTRA_ERLC_FLAGS = +warn_unused_vars
+EXTRA_ERLC_FLAGS = +warn_unused_vars +nowarn_deprecated_callback
 ERL_COMPILE_FLAGS += -I$(ERL_TOP)/lib/kernel/src \
 	-pz $(EBIN) \
 	-pz $(ERL_TOP)/lib/public_key/ebin \

lib/ssl/src/Makefile

@@ -170,7 +170,7 @@ endif
 # ----------------------------------------------------
 # FLAGS
 # ----------------------------------------------------
-EXTRA_ERLC_FLAGS = +warn_unused_vars -Werror
+EXTRA_ERLC_FLAGS = +warn_unused_vars -Werror +nowarn_deprecated_callback
 ERL_COMPILE_FLAGS += -I$(ERL_TOP)/lib/kernel/src \
 	-pz $(EBIN) \
 	-pz $(ERL_TOP)/lib/public_key/ebin \

lib/stdlib/src/supervisor.erl

@@ -290,7 +290,7 @@ but the map is preferred.
 
 %% Internal exports
 -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
-	 terminate/2, code_change/3, format_status/2]).
+	 terminate/2, code_change/3]).
 
 %% logger callback
 -export([format_log/1, format_log/2]).
@@ -2243,13 +2243,6 @@ single(false) -> "".
 mod(latin1) -> "";
 mod(_) -> "t".
 
--doc false.
-format_status(terminate, [_PDict, State]) ->
-    State;
-format_status(_, [_PDict, State]) ->
-    [{data, [{"State", State}]},
-     {supervisor, [{"Callback", State#state.module}]}].
-
 %%%-----------------------------------------------------------------
 %%% Dynamics database access.
 %%%