with Butil; use Butil;
with Namet; use Namet;
with Opt; use Opt;
with Output; use Output;
package body Binderr is
procedure Error_Msg (Msg : String) is
begin
if Msg (Msg'First) = '?' then
if Warning_Mode = Suppress then
return;
end if;
if Warning_Mode = Treat_As_Error then
Errors_Detected := Errors_Detected + 1;
else
Warnings_Detected := Warnings_Detected + 1;
end if;
else
Errors_Detected := Errors_Detected + 1;
end if;
if Brief_Output or else (not Verbose_Mode) then
Set_Standard_Error;
Error_Msg_Output (Msg, Info => False);
Set_Standard_Output;
end if;
if Verbose_Mode then
if Errors_Detected + Warnings_Detected = 0 then
Write_Eol;
end if;
Error_Msg_Output (Msg, Info => False);
end if;
if Warnings_Detected + Errors_Detected > Maximum_Errors then
raise Unrecoverable_Error;
end if;
end Error_Msg;
procedure Error_Msg_Info (Msg : String) is
begin
if Brief_Output or else (not Verbose_Mode) then
Set_Standard_Error;
Error_Msg_Output (Msg, Info => True);
Set_Standard_Output;
end if;
if Verbose_Mode then
Error_Msg_Output (Msg, Info => True);
end if;
end Error_Msg_Info;
procedure Error_Msg_Output (Msg : String; Info : Boolean) is
Use_Second_Name : Boolean := False;
Use_Second_Nat : Boolean := False;
begin
if Warnings_Detected + Errors_Detected > Maximum_Errors then
Write_Str ("error: maximum errors exceeded");
Write_Eol;
return;
end if;
if Msg (Msg'First) = '?' then
Write_Str ("warning: ");
elsif Info then
if not Info_Prefix_Suppress then
Write_Str ("info: ");
end if;
else
Write_Str ("error: ");
end if;
for J in Msg'Range loop
if Msg (J) = '%' then
if Use_Second_Name then
Get_Name_String (Error_Msg_Name_2);
else
Use_Second_Name := True;
Get_Name_String (Error_Msg_Name_1);
end if;
Write_Char ('"');
Write_Str (Name_Buffer (1 .. Name_Len));
Write_Char ('"');
elsif Msg (J) = '&' then
Write_Char ('"');
if Use_Second_Name then
Write_Unit_Name (Error_Msg_Name_2);
else
Use_Second_Name := True;
Write_Unit_Name (Error_Msg_Name_1);
end if;
Write_Char ('"');
elsif Msg (J) = '#' then
if Use_Second_Nat then
Write_Int (Error_Msg_Nat_2);
else
Use_Second_Nat := True;
Write_Int (Error_Msg_Nat_1);
end if;
elsif Msg (J) /= '?' then
Write_Char (Msg (J));
end if;
end loop;
Write_Eol;
end Error_Msg_Output;
procedure Finalize_Binderr is
begin
if Verbose_Mode then
Write_Eol;
if Errors_Detected = 0 then
Write_Str ("No errors");
elsif Errors_Detected = 1 then
Write_Str ("1 error");
else
Write_Int (Errors_Detected);
Write_Str (" errors");
end if;
if Warnings_Detected = 1 then
Write_Str (", 1 warning");
elsif Warnings_Detected > 1 then
Write_Str (", ");
Write_Int (Warnings_Detected);
Write_Str (" warnings");
end if;
Write_Eol;
end if;
end Finalize_Binderr;
procedure Initialize_Binderr is
begin
Errors_Detected := 0;
Warnings_Detected := 0;
end Initialize_Binderr;
end Binderr;