%% =====================================================================
%% This library is free software; you can redistribute it and/or modify
%% it under the terms of the GNU Lesser General Public License as
%% published by the Free Software Foundation; either version 2 of the
%% License, or (at your option) any later version.
%%
%% This library is distributed in the hope that it will be useful, but
%% WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
%% Lesser General Public License for more details.
%%
%% You should have received a copy of the GNU Lesser General Public
%% License along with this library; if not, write to the Free Software
%% Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301
%% USA
%%
%% @private
%% @copyright 2001-2003 Richard Carlsson
%% @author Richard Carlsson <[email protected]>
%% @see edoc
%% @end
%% =====================================================================
%% @doc EDoc verbosity/error reporting.
-module(edoc_report).
%% Avoid warning for local function error/2 clashing with autoimported BIF.
-compile({no_auto_import,[error/2]}).
-export([error/1,
error/2,
error/3,
report/2,
report/3,
report/4,
warning/1,
warning/2,
warning/3,
warning/4]).
-include("edoc.hrl").
error(What) ->
error([], What).
error(Where, What) ->
error(0, Where, What).
error(Line, Where, S) when is_list(S) ->
report(Line, Where, S, []);
error(Line, Where, {S, D}) when is_list(S) ->
report(Line, Where, S, D);
error(Line, Where, {format_error, M, D}) ->
report(Line, Where, M:format_error(D), []).
warning(S) ->
warning(S, []).
warning(S, Vs) ->
warning([], S, Vs).
warning(Where, S, Vs) ->
warning(0, Where, S, Vs).
warning(L, Where, S, Vs) ->
report(L, Where, "warning: " ++ S, Vs).
report(S, Vs) ->
report([], S, Vs).
report(Where, S, Vs) ->
report(0, Where, S, Vs).
report(L, Where, S, Vs) ->
io:put_chars(where(Where)),
if is_integer(L), L > 0 ->
io:fwrite("at line ~w: ", [L]);
true ->
ok
end,
io:fwrite(S, Vs),
io:nl().
where({File, module}) ->
io_lib:fwrite("~ts, in module header: ", [File]);
where({File, footer}) ->
io_lib:fwrite("~ts, in module footer: ", [File]);
where({File, header}) ->
io_lib:fwrite("~ts, in header file: ", [File]);
where({File, {F, A}}) ->
io_lib:fwrite("~ts, function ~s/~w: ", [File, F, A]);
where([]) ->
io_lib:fwrite("~s: ", [?APPLICATION]);
where(File) when is_list(File) ->
File ++ ": ".
