The R13B03 release.OTP_R13B03

1 files changed, 155 insertions, 0 deletions

diff --git a/lib/sasl/src/rb_format_supp.erl b/lib/sasl/src/rb_format_supp.erl
new file mode 100644
index 0000000000..b1d83d14d0
--- /dev/null
+++ b/lib/sasl/src/rb_format_supp.erl
@@ -0,0 +1,155 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+-module(rb_format_supp).
+
+%% user interface
+-export([print/3]).
+
+%%-----------------------------------------------------------------
+%% This module prints error reports. Called from rb.
+%%-----------------------------------------------------------------
+
+print(Date, Report, Device) ->
+    Line = 79,
+%% Remove these comments when we can run rb in erl44!!!
+%    case catch sasl_report:write_report(Device, Report) of
+%	true -> ok;
+%	_ ->
+	    {_Time, Rep} = Report,
+	    case Rep of
+		{error_report, _GL, {Pid, crash_report, CrashReport}} ->
+		    Header = format_h(Line, "CRASH REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header} |
+						format_c(CrashReport)]),
+		    true;
+		{error_report, _GL, {Pid, supervisor_report, SupReport}} ->
+		    Header = format_h(Line, "SUPERVISOR REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header} |
+						format_s(SupReport)]),
+		    true;
+		{error_report, _GL, {Pid, _Type, Report1}} ->
+		    Header = format_h(Line, "ERROR REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header},
+						{data, Report1}]),
+		    true;
+		{info_report, _GL, {Pid, progress, SupProgress}} ->
+		    Header = format_h(Line, "PROGRESS REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header} |
+						format_p(SupProgress)]);
+		{info_report, _GL, {Pid, _Type, Report1}} ->
+		    Header = format_h(Line, "INFO REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header},
+						{data, Report1}]),
+		    true;
+		{warning_report, _GL, {Pid, _Type, Report1}} ->
+		    Header = format_h(Line, "WARNING REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header},
+						{data, Report1}]),
+		    true;
+		{error, _GL, {Pid, Format, Args}} ->
+		    Header = format_h(Line, "ERROR REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header}]),
+		    io:format(Device, Format, Args);
+		{info_msg, _GL, {Pid, Format, Args}} ->
+		    Header = format_h(Line, "INFO REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header}]),
+		    io:format(Device, Format, Args);
+		{warning_msg, _GL, {Pid, Format, Args}} ->
+		    Header = format_h(Line, "WARNING REPORT", Pid, Date),
+		    format_lib_supp:print_info(Device,
+					       Line,
+					       [{header, Header}]),
+		    io:format(Device, Format, Args);
+		{Type, _GL, TypeReport} ->
+		    io:format(Device, "~nInfo type <~w> ~s~n",
+			      [Type, Date]),
+		    io:format(Device, "~p", [TypeReport]);
+		_ -> 
+		    io:format("~nPrinting info of unknown type... ~s~n",
+			      [Date]),
+		    io:format(Device, "~p", [Report])
+%	    end
+    end.
+
+format_h(Line, Header, Pid, Date) ->
+    NHeader = lists:flatten(io_lib:format("~s  ~w", [Header, Pid])), 
+    DateLen = length(Date),
+    HeaderLen = Line - DateLen,
+    Format = lists:concat(["~-", HeaderLen, "s~", DateLen, "s"]),
+    io_lib:format(Format, [NHeader, Date]).
+    
+
+%%-----------------------------------------------------------------
+%% Crash report
+%%-----------------------------------------------------------------
+format_c([OwnReport, LinkReport]) ->
+  [{items, {"Crashing process", OwnReport}},
+   format_neighbours(LinkReport)].
+  
+format_neighbours([Data| Rest]) ->
+    [{newline, 1},
+     {items, {"Neighbour process", Data}} | 
+     format_neighbours(Rest)];
+format_neighbours([]) -> [].
+
+%%-----------------------------------------------------------------
+%% Supervisor report
+%%-----------------------------------------------------------------
+format_s(Data) ->
+    SuperName = get_opt(supervisor, Data),
+    ErrorContext = get_opt(errorContext, Data),
+    Reason = get_opt(reason, Data),
+    ChildInfo = get_opt(offender, Data),
+    [{data, [{"Reporting supervisor", SuperName}]},
+     {newline, 1},
+     {items, {"Child process", 
+	      [{errorContext, ErrorContext}, 
+	       {reason, Reason} |
+               lists:map(fun(CI) -> transform_mfa(CI) end, ChildInfo)]}}].
+
+transform_mfa({mfa, Value}) -> {start_function, Value};
+transform_mfa(X) -> X.
+
+%%-----------------------------------------------------------------
+%% Progress report
+%%-----------------------------------------------------------------
+format_p(Data) ->
+    [{data, Data}].
+
+get_opt(Key, List) ->
+    case lists:keysearch(Key, 1, List) of
+	{value, {_Key, Val}} -> Val;
+	_  -> undefined
+    end.