|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: B T
Length: 1565 (0x61d)
Types: TextFile
Names: »B«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Log;
with Profile;
package body Errors is
procedure Report (This_Message : in String;
This_Type : in Profile.Msg_Kind := Profile.Error_Msg;
Fatal : in Boolean := True;
Nested : in Boolean := False;
Suppress_Closing_Message : in Boolean := False) is
--
procedure Epilogue is
begin
if (This_Message /= Nil_Message) then
Log.Put_Line (This_Message, This_Type);
end if;
if (not Suppress_Closing_Message) then
Log.Put_Line ("[end of " & Operation_Name &
" operation--error(s) detected]");
end if;
Profile.Set (Original_Response_Profile);
end Epilogue;
--
begin
case (Profile.Reaction (Current_Response_Profile)) is
when Profile.Quit =>
Epilogue;
if (Nested) then
raise Quit;
end if;
when Profile.Propagate =>
Epilogue;
raise Propagate;
when Profile.Persevere =>
if (Fatal) then
Epilogue;
if (Nested) then
raise Quit;
end if;
end if;
when Profile.Raise_Error =>
if (Fatal) then
Epilogue;
raise Propagate;
end if;
end case;
end Report;
end Errors;